Listing of file='11B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 670, program filename = '11B' 0010 PRINT 0020 PRINT "SUM AFTER N YRS." 0030 INPUT S : PRINT 0040 PRINT "NO. OF COMPOUNDING PERIODS/YR." 0050 INPUT M : PRINT 0060 PRINT "ANNUAL INTEREST RATE (%)" 0070 INPUT I : PRINT 0080 PRINT "NO. OF YRS. OF INVESTMENT" 0090 INPUT N : PRINT 0100 PRINT 0110 A=S/(1+I/100/M)^(N*M) 0120 PRINT "PRESENT AMOUNT=$";INT(100*A+.5)/100 0130 PRINT : PRINT 0150 PRINT "MORE INPUT (1=YES,0=NO)" 0160 INPUT S 0170 IF S=1 THEN 10 0180 END