image of READY prompt

Wang2200.org

Listing of file='5B ' on disk='vmedia/glbr_22.wvd.zip'

# Sector 293, program filename = '5B'
0010 PRINT
0020 PRINT "PRINCIPAL?"
0030 INPUT P
0040 PRINT "DISCOUNT RATE?"
0050 INPUT R
0060 PRINT "DAYS TO MATURITY?"
0070 INPUT M
0080 PRINT
0090 I=R/(100-R*M/360)
0100 PRINT "INTEREST RATE=";I*100
0110 PRINT "ACCRUED INTEREST=$";P*I*M/360
0120 PRINT
0130 PRINT "MORE INPUT? (1=YES,0=NO)"
0140 INPUT M
0150 IF M=1 THEN 10
0160 END