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