Listing of file='14B ' on disk='vmedia/glbr_22.wvd.zip'
# Sector 299, program filename = '14B' 0010 PRINT 0020 PRINT "INITIAL INVESTMENT"; 0030 INPUT P : PRINT 0040 PRINT "ANNUAL INTEREST RATE IN THE FORM X.XX"; 0050 INPUT I : PRINT 0060 PRINT "NO. OF WITHDRAWALS/YR."; 0070 INPUT M : PRINT 0080 PRINT "NO. OF YRS."; 0090 INPUT N : PRINT 0100 PRINT 0110 I=I/M/100 0120 R=P*(I/((1+I)^(N*M)-1)+I) 0130 PRINT "AMOUNT OF WITHDRAWAL=$";INT(100*R+.5)/100 0140 PRINT : PRINT 0160 PRINT "MORE INPUT (1=YES,0=NO)"; 0170 INPUT R 0180 IF R=1 THEN 10 0190 END