[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM   ALTAIR INVESTMENT
3  REM  ==================
4  REM
5  REM  ADAPTED FOR THE APPLE II, AND SLIGHTLY IMPROVED BY MOOSE O'MALLEY 6-MAR-2002
6  REM
7  REM  ************************
9 TEXT : HOME
10 PRINT "FUTURE VALUE OF AN INVESTMENT"
20 PRINT
30 INPUT "INITIAL INVESTMENT             : ";P
50 INPUT "NOMINAL INTEREST RATE          : ";I
70 INPUT "NUM COMPOUNDING PERIODS / YEAR : ";N
90 INPUT "NUM OF YEARS                   : ";Y
110 I=I/N/100 :REM CONVERT PERCENT TO DECIMAL
120 T=P*(1+I)^(N*Y)
130 PRINT : PRINT "FUTURE VALUE =$"; INT (T * 100) / 100
190 END