10 PRINT "REGULAR DEPOSITS"
20 PRINT
29 REM -STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "TOTAL VALUE AFTER Y YEARS";
40 INPUT T
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 AMOUNT OF REGULAR DEPOSIT BY FORMULA
120 R=T*I/((I+1)[(N+Y)-1)
129 REM -ROUND OFF TO NEAREST CENT, PRINT 
130 PRINT "REGULAR DEPOSITS = $"; INT(R*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
