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