10 CLS 20 PRINT "REGULAR DEPOSITS" 30 DEFDBL A-Z 40 PRINT 50 PRINT "TOTAL VALUE AFTER Y YEARS"; 60 INPUT T 70 PRINT "NOMINAL INTEREST RATE"; 80 INPUT I 90 PRINT "NUMBER OF DEPOSITS PER YEAR"; 100 INPUT N 110 PRINT "NUMBER OF YEARS"; 120 INPUT Y 130 I=I/N/100 140 R=T*I/((I+1)^(N*Y)-1) 150 PRINT "REGULAR DEPOSITS = $";INT(R*100+.5)/100 160 PRINT 170 PRINT "MORE DATA? (1=YES, 0=NO)"; 180 INPUT X 190 IF X=1 THEN 40 200 END