image of READY prompt

Wang2200.org

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

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