image of READY prompt

Wang2200.org

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

# Sector 201, program filename = '4B'
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 D=P*R*M/36000
0100 PRINT "DISCOUNT=";D
0110 PRINT "COST=";P-D
0120 PRINT
0130 PRINT "MORE INPUT? (1=YES,0=NO)"
0140 INPUT P
0150 IF P=1 THEN 10
0160 END