雙倍餘額遞減折舊
程式編寫日期: 2007年3月30日
程式(58 bytes，使用記憶A, B, C, D及X)
?→A: ?→B: ?→C: Lbl 0: ?→D:
C-1(C - 2→X: B - AX^D:
2AX^D ÷ XC - Ans(Ans > 0:
Ans(Ans > 0◢ Goto 0
例題: 機械成本為$30 000，預估經濟年限5年，預估5年後殘值是$5 000，以雙倍餘額遞減法計算第一年、第二年及第三年的折舊費用。
按 Prog 1 再按 30000 EXE 5000 EXE 5 EXE 1 EXE (顯示第一年折舊 $12000)
EXE 2 EXE (顯示第二年折舊 $7200)
EXE 3 EXE (顯示第三年折舊 $4320)
計算完結後按 AC 終止程式