攤銷進度表
程式編寫日期: 2006年7月22日
程式會計算攤銷進度表(Amortization Schedule)，每一期的貸款利[息(Loan Interest)、償還貸款(Loan Repaid)及尚欠貸款(Outstanding Balance)。程式假設利息每期結算、息率不變及每期供款不變 (最後一期供款可以較少)。注意程式每一次計算準確至小數後兩位，與實際情況一樣。
程式第一部份: 10步 (儲存於P1)
| A 1 | B 1 | C 1 | Kin × 2 | 1 |
| 2 | 0 | 0 | Kin ÷ 2 | D |
| MODE . |
程式第二部份: 19步 (儲存於P2)
| Kout 1 | × | Kout 2 | = | Fix 2 |
| RND | NORM | HLT | - | Kout 4 |
| X←→Y | = | HLT | Kin - 1 | Kout 1 |
| HLT | x > 0 | Kin + 4 | Kout 4 | MODE . |
注意: 最後一期的尚久貸款若為負數(不等於零)，表示最後一期的供款較少，這時最後一期尚欠貸款正確應為0，而最後一期的償還貸款正確應為前一期的尚欠貸款。
例題: 某銀行提供私人貸款，年利率 15%，提供貸款當日起計之後的每月結算利息及供款。張先生銀行申請得 $ 40 000的私人貸款，並同意每月供款 $9000給銀行直至貸款全數清還(最後一個月的供款可以少於 $9000)，試完成以下攤銷進度表。
| 月 | 貸款利息 | 償還貸款 | 尚欠貸款 |
| 1 | |||
| 2 | |||
| 3 | |||
| 4 | |||
| 5 |
按 P1 40000 (貸款) RUN 15 RUN (年利率) 1 RUN (一個月結算) 9000 RUN (每月供款)
再按 P2 (顯示第1個月的貸款利[息為 500)
RUN (顯示第1個月的償還貸款為 8500)
RUN (顯示第1個月的尚欠貸款為 31500)
RUN (顯示第2個月的貸款利[息為 393.75)
RUN (顯示第1個月的償還貸款為 8606.25)
RUN (顯示第1個月的尚欠貸款為 22893.75)
RUN (顯示 286.17) RUN (顯示 8713.83) RUN (顯示 14179.92)
RUN (顯示 177.25) RUN (顯示 8822.75) RUN (顯示 5357.17)
RUN (顯示 66.96) RUN (顯示 8933.04) RUN (顯示 -3575.87，負值表示最後一期，亦即是最後一期的償還貸款為 5357.17 及尚欠貸款為 0)
RUN (程式執行完結，顯示最後一期的供款為 5424.13)
所以答案為:
| 月 | 貸款利息 | 償還貸款 | 尚欠貸款 |
| 1 | 500 | 8500 | 31500 |
| 2 | 393.75 | 8606.25 | 22893.75 |
| 3 | 286.17 | 8713.83 | 14179.92 |
| 4 | 177.25 | 8822.75 | 5357.17 |
| 5 | 66.96 | 5357.17 | 0 |