9 CLS
10 PRINT "REGULAR WITHDRAWALS FROM AN INVESTMENT" 
16 DEFDBL A-Z
20 PRINT 
30 PRINT "INITIAL INVESTMENT"; 
40 INPUT P 
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 
110 I=I/N/100 
120 R=P*(I/((1+I)^(N*Y)-1)+I)
130 PRINT "AMOUNT OF EACH WITHDRAWAL = $";INT(R*100+.5)/100 
140 PRINT 
150 PRINT "MORE DATA? (1=YES, 0=N0)"; 
160 INPUT X 
170 IF X=1 THEN 20 
180 END