image of READY prompt

Wang2200.org

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