年數合計折舊
程式編寫日期: 2007年3月30日
程式(41 bytes，使用記憶A, B, C及D)
?→A: ?→B: ?→C: Lbl 0: ?→D:
2(C - D + 1)(A - B) ÷ C(C + 1◢ Goto 0
例題: 機械成本為$30 000，預估經濟年限5年，預估5年後殘值是$5000，以年數合計法計算第一年、第二年及第三年的折舊費用。
按 Prog 1 再按 30000 EXE 5000 EXE 5 EXE 1 EXE (顯示第一年折舊 $8333)
EXE 2 EXE (顯示第二年折舊 $6667)
EXE 3 EXE (顯示第三年折舊 $5000)
計算完結後按 AC 終止程式