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