Amortize30_360(150000, 7, 360)
PROCEDURE Amortize30_360
LPARAMETERS tnBal, tnRate, tnTerm
LOCAL nPmt, nPriorBal, i
m.nPmt = PAYMENT(m.tnBal, m.tnRate/1200, m.tnTerm)
m.nPriorBal = m.tnBal
FOR m.i = 1 TO m.tnTerm
m.tnBal = m.tnBal - m.nPmt + m.tnRate / 1200 * m.nPriorBal
m.nPriorBal = m.tnBal
?"Period Remaining " + TRANSFORM(m.tnTerm - m.i) + CHR(9) + TRANSFORM(NTOM(m.tnBal))
ENDFOR
ENDPROC