a # 1 61 R 'm#amortize nv3;Lio                                           '
a # a,[1]  '"amortize - mortgage calculation by months.                  '
a # a,[1]  '"from ''the apl handbook of techniques'' copyright 1978, ibm.  '
a # a,[1]  '"-displays mortgage table indicating the progressive debt    '
a # a,[1]  '" reduction, and the level payment schedule, as it breaks    '
a # a,[1]  '" down between amortized debt and interest.                  '
a # a,[1]  '"-debt is total units (e.g., dollars) borrowed.              '
a # a,[1]  '"-rate is annual interest, as percentage (e.g., .095).       '
a # a,[1]  '"-months (e.g., 120 if ten year mortgagel).                  '
a # a,[1]  '"-returns a matrix that retains full precision               '
a # a,[1]  '" for summary calculations. (see example)                    '
a # a,[1]  '"-uses: Houtput                                              '
a # a,[1]  ' rate#nv3[2]%12XLio#1                                        '
a # a,[1]  ' months#nv3[3]                                               '
a # a,[1]  ' debt#nv3[1]                                                 '
a # a,[1]  ' m#(months,5)Ri#0                                            '
a # a,[1]  ' payment#debtXrate%1_%(1+rate)*months                        '
a # a,[1]  'back:newdebt#debt_amortized#payment_interest#debtXrate       '
a # a,[1]  ' m[i;]#(i#i+1),debt,payment,amortized,interest               '
a # a,[1]  ' $(0<debt#newdebt)/back                                      '
a # a,[1]  ' ''m debt paymt amort int''output(9 0F0 -4Um),'' '','' '',9 2F0 1Um'
Lfx a