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