Listing of file='12B' on disk='vmedia/glbr_22.wvd.zip'
# Sector 556, program filename = '12B' 0010 PRINT 0020 PRINT "PRINCIPAL" 0030 INPUT P : PRINT 0040 PRINT "NO. OF COMPOUNDING PERIODS/YR." 0050 INPUT M : PRINT 0060 PRINT "SUM AT END OF N YEARS" 0070 INPUT S : PRINT 0080 PRINT "NO. OF YEARS" 0090 INPUT N : PRINT 0100 PRINT 0110 PRINT "NOMINAL INTEREST RATE=";M*((S/P)^(1/M/N)-1)*100 0120 PRINT : PRINT 0130 PRINT "MORE INPUT (1=YES,0=NO)" 0140 INPUT M 0150 IF M=1 THEN 10 0160 END