10 CLS 20 PRINT "DISCOUNT COMMERCIAL PAPER" 30 DEFDBL A-Z 40 PRINT 50 PRINT "FUTURE VALUE"; 60 INPUT T 70 PRINT "DISCOUNT RATE"; 80 INPUT D 90 D=D/100 100 PRINT "DAYS TO MATURITY"; 110 INPUT N 120 D1=T*D*N/360 130 PRINT "DISCOUNT = $";D1 140 PRINT " COST = $";T-D1 150 PRINT 160 PRINT "MORE DATA? (1=YES, 0=NO)"; 170 INPUT X 180 IF X=1 THEN 40 190 END