10 PRINT "SALVAGE VALUE"
20 PRINT
30 PRINT "ORIGINAL PRICE";
40 INPUT P
50 PRINT "DEPRECIATION RATE";
60 INPUT I
70 PRINT "--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR THIS ITEM)--"
80 PRINT "YEARS";
90 INPUT Y
99 REM -CALCULATE ANOTHER SALVAGE VALUE?
100 IF Y=0 THEN 140
108 REM - CALCULATE SALVAGE VALUE BY FORMULA, ROUND OFF, PRINT
109 REM - DEPRECIATION RATE CONVERTED TO DECIMAL FOR USE IN CALCULATIONS
110 PRINT "VALUE = $";INT(100*P*(1-I/100)[Y+.5)/100
120 PRINT 
129 REM - RETURN FOR NEXT YEAR NUMBER
130 GOTO 80
139 REM - RESTART OR END PROGRAM?
140 PRINT "MORE DATA (1=YES, 0=NO)";
150 INPUT X
160 IF X=1 THEN 20
170 END
