Listing of file='DEPRAT.BAS;01' on disk='vmedia/ncc_8_real-sector.ccvf'
7 PLOT 27,24,14,6,3,12 10 PRINT TAB( 22)"DEPRECIATION RATE" 11 PLOT 10,15,6,2 13 PRINT "THIS PROGRAM CALCULATES THE ANNUAL DEPRECIATION RATE OF" 14 PRINT "AN INVESTMENT. YOU MUST PROVIDE THE ORGINAL PRICE" 15 PRINT "OF THE ITEM, ITS RESALE PRICE, AND ITS AGE IN YEARS...." 25 PLOT 10,14,10,6,1 30 INPUT "ORIGINAL PRICE = $";P 40 PRINT 50 INPUT "RESALE PRICE = $";T 55 PRINT 70 INPUT "AGE IN YEARS = ";Y 90 D= 100* (1- (T/ P)^ (1/ Y)) 95 PLOT 10,10,6,3 100 PRINT TAB( 15)"DEPRECIATION RATE = ";INT (1000* D+ .5)/ 1000;"%" 110 PLOT 15,6,2 120 PRINT :INPUT "MORE DATA? (1=YES 0=NO) ";X 150 IF X= 1 THEN RUN 170 PLOT 1