10 PRINT "FUTURE VALUE OF REGULAR DEPOSIT (ANNUITY)"
20 PRINT
29 REM -STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "AMOUNT OF REGULAR DEPOSITS";
40 INPUT R
50 PRINT "NOMINAL INTEREST RATE";
60 INPUT I
70 PRINT "NUMBER OF DEPOSITS PER YEAR";
80 INPUT N
90 PRINT "NUMBER OF YEARS";
100 INPUT Y
108 REM -CALCULATE INTEREST RATE PER DEPOSIT ,
109 REM -CONVERT FROM PERCENT TO DECIMAL
110 I=I/N/100
119 REM -CALCULATE FUTURE VALUE BY FORMULA
120 T=R*((1+I)[(N*Y)-1)/I
129 REM -ROUND OFF TO NEAREST CENT, PRINT
130 PRINT "FUTURE VALUE = $"; INT(T*100+.5)/100
139 REM -PRINT BLANK LINE TO SEPARATE DATA FROM QUESTION
140 PRINT
149 REM -RESTART OR END PROGRAM? USER INPUT REQUIRED
150 PRINT "MORE DATA? (1=YES, 0=NO)";
160 INPUT X
170 IF X=1 THEN 20
180 END
