,;     COMPUTE NUMBER OF PAYMENTS
,;     Number of Payments = -(LOG(1-((PV*(I/P))/PMT))/LOG(1+I/P))
,;     Where:
,;          PMT= Payment                (%PMT00005)
,;            I= Annual Interest Rate   (%I0000005)
,;            P= Compounding Period     (%P0000005)
,;           PV= Present Value          (%PV000005)
,;
,;
,;     Name cell to contain Payment
,;
/GN
/F%HERE0005
,NUMBER "Payment Amount cell?" %HERE0005
,MARK
,AT %HERE0005
/F%PMT00005
,BACK
,;
,;     Name cell to contain Interest Rate
,;
,NUMBER "Annual Interest cell?" %HERE0005
,MARK
,AT %HERE0005
/F%I0000005
,BACK
,;
,;     Name cell to contain Compounding Period
,;
,NUMBER "Compounding Per. cell?" %HERE0005
,MARK
,AT %HERE0005
/F%P0000005
,BACK
,;
,;     Name cell to contain Present Value
,;
,NUMBER "Present Value cell?" %HERE0005
,;
,MARK
,AT %HERE0005
/F%PV000005
,BACK
,;
,;     Generate Equation
:-(LOG(1-((%PV000005?*(%I0000005?/%P0000005?))/%PMT00005?))/LOG(1+%I0000005?/%P0000005?))
,;
,;     Clean-up
,;
@%PMT00005
/F%        /
@%I0000005
/F%        /
@%P0000005
/F%        /
@%PV000005
/F%        /
@%HERE0005
/F%        /
/GC
,;
,QUIT