image of READY prompt

Wang2200.org

Listing of file='16B' on disk='vmedia/glbr_22.wvd.zip'

# Sector 115, program filename = '16B'
0010 PRINT
0020 PRINT "INVESTMENT";
0030 INPUT P
   : PRINT
0040 PRINT "ANNUAL INTEREST RATE IN THE FORM X.XX";
0050 INPUT I
   : PRINT
0060 PRINT "NO. OF COMPOUNDING PERIODS/YR.";
0070 INPUT M
   : PRINT
0080 PRINT "NO. OF YRS. INVESTED";
0090 INPUT N
   : PRINT
0100 I=I/100/M
0110 PRINT
0120 PRINT "SUM=$";INT(100*P*(1+I)^(N*M)+.5)/100
0130 PRINT
   : PRINT
0150 PRINT "MORE INPUT (1=YES,0=NO)";
0160 INPUT P
   : IF P=1 THEN 10
0170 END