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