10 PRINT "MININUN INVESTMENT FOR WITHDRAWALS"
20 PRINT 
29 REM - STATEMENTS 30 TO 100 REQUEST USER INPUT
30 PRINT "AMOUNT OF WITHDRAWALS";
40 INPUT R
50 PRINT "NOMINAL INTEREST RATE";
60 INPUT I
70 PRINT "NUMBER OF WITHDRAWALS PER YEAR";
80 INPUT N
90 PRINT "NUMBER OF YEARS";
100 INPUT Y
109 REM - CONVERT FROM PERCENT TO DECIMAL
110 I=I/100
119 REM - CALCULATE MINIMUM INVESTMENT BY FORMULA
120 P=R*N/I*(1-1/((1+I/N)[(N*Y)))
129 REM - ROUND OFF TO NEAREST CENT, PRINT
130 PRINT "MINIMUM INVESTMENT = $"; INT(100*P+.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
