10 CLS
20 PRINT "SALVAGE VALUE" 
30 DEFDBL A-Z
40 PRINT 
50 PRINT "ORIGINAL PRICE"; 
60 INPUT P 
70 PRINT "DEPRECIATION RATE"; 
80 INPUT I 
90 PRINT "--(ENTER YEARS=0 WHEN NO MORE VALUES DESIRED FOR  THIS ITEM)--" 
100 PRINT "YEARS"; 
110 INPUT Y 
120 IF Y=0 THEN 160  
130 PRINT "VALUE = $";INT(100*P*(1-I/100)^Y+.5)/100 
140 PRINT 
150 GOTO 100  
160 PRINT "MORE DATA? (1=YES, 0=NO)"; 
170 INPUT X 
180 IF X=1 THEN 40   
190 END