Compucolor.org – Virtual Media

Listing of file='DEPRAT.BAS;01' on disk='vmedia/financial_calc-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