Compucolor.org – Virtual Media

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

5 PLOT 14,27,11,12,6,3
10 PRINT TAB( 25)"SALVAGE VALUE"
11 PLOT 15,6,2,10,10
12 PRINT "THIS PROGRAM CALCULATES THE SALVAGE VALUE OF AN ITEM AT"
13 PRINT "THE END OF A GIVEN YEAR.   IT IS NECESSARY FOR YOU TO"
15 PRINT "PROVIDE THE AGE OF THE ITEM,  ITS ORIGINAL PRICE,"
18 PRINT "AND THE RATE OF DEPRECIATION...."
20 PLOT 14,10,6,1
30 INPUT "ORIGINAL PRICE  = $";P
35 PRINT
50 INPUT "DEPRECIATION RATE (%)  = ";I
55 PLOT 15,6,2,3,0,23
70 PRINT "--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)--"
85 PLOT 14,6,1,3,0,18,11,9
90 INPUT "AGE IN YEARS  = ";Y
100 IF  Y= 0THEN 135
105 PLOT 6,3,3,0,26,11
110 PRINT TAB( 23)"SALVAGE VALUE  = $";INT (100* P* (1- I/ 100)^ Y+ .5)/ 100
120 PRINT
130 GOTO 85
135 PLOT 15,6,2,3,10,30
140 INPUT "MORE DATA ? (1=YES 0=NO)";X
160 IF X= 1THEN 30
180 PLOT 1