Compucolor.org – Virtual Media

Listing of file='COMPAP.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'

1 PLOT 12,14,6,1,27,11
10 PRINT TAB( 15)"DISCOUNT COMMERCIAL PAPER"
15 PLOT 10,15,6,3
20 PRINT "THIS PROGRAM CALCULATES THE AMOUNT OF DISCOUNT AND NET"
25 PRINT "COST OF DISCOUNTED COMMERCIAL PAPER.   YOU MUST PROVIDE"
30 PRINT "THE FUTURE VALUE OF THE PAPER, THE DISCOUNT RATE AND"
40 PRINT "THE NUMBER OF DAYS TO MATURITY....":PRINT
50 PLOT 14,10,6,25
52 INPUT "  FUTURE VALUE      ";T
55 INPUT "  DISCOUNT RATE     ";D
65 INPUT "  DAYS TO MATURITY  ";N:PLOT 6,2,10
70 D= D/ 100
80 D1= T* D* N/ 360
90 PRINT TAB( 15)"DISCOUNT = $ "; D1:PRINT
100 PRINT TAB( 19)"COST = $ ";T- D1:PLOT 15,10
110 INPUT "DO YOU HAVE MORE PAPER ?   ( 1 = YES / 0 = NO )  ";X
112 IF X= 1THEN RUN
120 PLOT 1