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