image of READY prompt

Wang2200.org

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