bwBASIC/SCBP/DEPRATE.BAS

10 PRINT "DEPRECIATION RATE"
20 PRINT
30 PRINT "ORIGINAL PRICE";
40 INPUT P
50 PRINT "RESALE PRICE";
60 INPUT T
70 PRINT "YEARS";
80 INPUT Y
89 REM - CALCULATE DEPRECIATION RATE BY FORMULA, CONVERT TO PERCENT
90 D=100*(1-(T/P)[(1/Y))
99 REM - ROUND OFF, PRINT
100 PRINT "DEPRECIATION RATE =";INT(1000*D+.5)/1000;"%"
110 PRINT
119 REM - RESTART OR END PROGRAM?
120 PRINT "MORE DATA (1=YES, 0=NO)";
130 INPUT X
140 IF X=1 THEN 20
150 END