Compucolor.org – Virtual Media

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

5 PLOT 27,11,14,6,3,12
10 PRINT TAB( 25)"DEPRECIATION AMOUNT"
12 PLOT 10,15,6,2
13 PRINT "THIS PROGRAM CALCULATES THE DOLLAR AMOUNT DEPRCIATED IN A"
14 PRINT "GIVEN YEAR,  FOR A DEPRECIATING INVESTMENT.   YOU MUST"
15 PRINT "PROVIDE THE ORIGINAL PRICE OF THE INVESTMENT,  ITS"
16 PRINT "DEPRECIATION RATE,  AND THE YEAR OF DEPRECIATION..."
20 PLOT 14,10,6,1
30 INPUT "ORIGINAL PRICE  = $";P
35 PRINT
50 INPUT "DEPRECIATION RATE  = ";I
55 PRINT
70 I= I/ 100
75 PLOT 15,6,2,3,0,23
80 PRINT "--(ENTER YEAR=0 WHEN NO MORE AMOUNTS DESIRED FOR THIS ITEM)--"
85 PLOT 14,6,1,3,0,18,11,9
90 INPUT "YEAR  = ";Y
95 Y= ABS (Y)
110 IF  Y= 0THEN 155
120 D= P* I* (1- I)^ (Y- I)
125 PLOT 6,3,3,0,26,11
130 PRINT TAB( 23)"DEPRECIATION AMOUNT  = $";INT (D* 100+ .5)/ 100
150 GOTO 85
155 PLOT 15,6,2,3,5,30
160 INPUT "MORE DATA (1=YES 0=NO)";X
170 IF X= 1THEN RUN
190 PLOT 1