9 CLS
10 PRINT "FUTURE VALUE OF REGULAR DEPOSITS (ANNUITY)"
16 DEFDBL A-Z
20 PRINT 
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 
110 I=I/N/100 
120 T=R*((1+I)^(N*Y)-1)/I 
130 PRINT "FUTURE VALUE = $";INT(T*100+.5)/100 
140 PRINT 
150 PRINT "MORE dATA?  (1=YES, 0=NO)"; 
160 INPUT X 
170 IF X=1 THEN 20 
180 END