[Apple II]
Type=Paste

[Data]

NEW

1  REM  ************************
2  REM   ALTAIR ANNUITY
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  ************************
8 TEXT : HOME
10 PRINT "FUTURE VALUE OF REGULAR DEPOSITS"
15 PRINT "         (ANNUITY)"
20 PRINT
30 INPUT "DEPOSITS AMOUNT           : ";R
50 INPUT "NOMINAL INTEREST RATE     : ";I
70 INPUT "NUMBER OF DEPOSITS / YEAR : ";N
90 INPUT "NUMBER OF YEARS           : ";Y0
95 INPUT "NUMBER OF MONTHS          : ";M
105 Y=(12*Y0+12)/12
110 I=I/N/100
120 T=R*((1+I)^(N*Y)-1)/I
125 PRINT
130 PRINT "FUTURE VALUE = $"; INT(T*100+.5)/100
140 PRINT
180 END