,;     COMPUTE LOAN PAYMENT (ORDINARY ANNUITY PAYMENT)
,;     Loan Payment = PV*(I/P)/(1-(1+I/P)^-N)
,;     Where:
,;           PV= Present Value          (%PV000007)
,;            P= Compounding Period     (%P0000007)
,;            N= Number of Periods      (%N0000007)
,;            I= Annual Interest Rate   (%I0000007)
,;
,;     Name cell to contain Present Value
,;
/GN
/F%HERE0007
,NUMBER "Present Value cell?" %HERE0007
,MARK
,AT %HERE0007
/F%PV000007
,BACK
,;
,;     Name cell to contain Interest Rate
,;
,NUMBER "Annual Interest cell?" %HERE0007
,MARK
,AT %HERE0007
/F%I0000007
,BACK
,;
,;     Name cell to contain Compounding Period
,;
,NUMBER "Compounding Per. cell?" %HERE0007
,MARK
,AT %HERE0007
/F%P0000007
,BACK
,;
,;     Name cell to contain Number of Periods
,;
,NUMBER "# of Periods cell?" %HERE0007
,;
,MARK
,AT %HERE0007
/F%N0000007
,BACK
,;
,;     Generate Equation
:%PV000007?*(%I0000007?/%P0000007?)/(1-(1+%I0000007?/%P0000007?)^-%N0000007?)
,;
,;     Clean-up
,;
@%PV000007
/F%        /
@%P0000007
/F%        /
@%N0000007
/F%        /
@%I0000007
/F%        /
@%HERE0007
/F%        /
/GC
,;
,QUIT