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