1 REM DEPLETE
5 CLEAR 1000
7 DEFDBL A-Z
10 CLS
20 PRINT TAB(15); "DEPLETION ANALYSIS":PRINT
30 PRINT"DEPLETION REFERS TO EXHAUSTING NATURAL RESOURCES. DEPRECIATION
35 PRINT"CHARGES, WHEN COMPUTED BY THE DEPLETION METHOD ARE PROPORTIONAL
40 PRINT"TO THE PRODUCTION LEVEL. THIS IS BECAUSE, IN THE CASE OF
45 PRINT"NONREPLACEABLE NATURAL RESOURCES, WHEN THE RESOURCE IS USED
50 PRINT"UP THEN THE LAND USED IS OF NO MORE VALUE FOR THAT PURPOSE.
55 PRINT"IF SOME ESTIMATE CAN BE MADE OF THE TOTAL PRODUCTIVE OUTPUT
60 PRINT"OF A MINE, E.G. AND OF THE COST OF THE MINE TO DEVELOP THEN
65 PRINT"IN A YEAR IN WHICH 10% OF THE TOTAL PRODUCTIVE OUTPUT IS MINED
70 PRINT"10% OF THE ORIGINAL VALUE OF THE MINE WOULD BE USED AS THE
75 PRINT"DEPRECIATION AMOUNT."
90 PRINT:INPUT"PRESS ENTER TO BEGIN";Z9$
200 CLS
210 INPUT"COST OF PURCHASE & DEVELOPMENT        ";C
220 INPUT"FINAL SALVAGE VALUE ESTIMATE          ";S
230 INPUT"TOTAL REPAIR COST OVER LIFE           ";K
240 INPUT"ESTIMATE OF LIFETIME PRODUCTIVE OUTPUT";E
250 A=((C-S)+K)/E:REM MULTIPLICATION FACTOR ON PRODUCTION
300 PRINT:REM INPUT SEVERAL PRODUCTION LEVELS
310 INPUT"ENTER PRODUCTION LEVEL(-1 TO END)";X
320 PRINT USING "DEPRECIATION CHARGES ARE    $$#########.##";A*X
330 PRINT
340 INPUT"ENTER 1 FOR NEW PRODUCTION LEVEL,2 FOR NEW ITEM,3 TO END";Z9
350 IF Z9<>1 AND Z9<>2 AND Z9<>3 THEN PRINT"ERROR!!!":GOTO 340
360 IF Z9=1 THEN PRINT:GOTO 310
370 IF Z9=2 THEN GOTO 200
