10 CLS 20 PRINT "DEPRECIATION RATE" 30 DEFDBL A-Z 40 PRINT 50 PRINT "ORIGINAL PRICE"; 60 INPUT P 70 PRINT "RESALE PRICE"; 80 INPUT T 90 PRINT "YEARS"; 100 INPUT Y 110 D=100*(1-(T/P)^(1/Y)) 120 PRINT "DEPRECIATION RATE =";INT(1000*D+.5)/1000;"%" 130 PRINT 140 PRINT "MORE DATA? (1=YES, 0=NO)"; 150 INPUT X 160 IF X=1 THEN 40 170 END