,;     COMPUTE PRESENT VALUE OF A BOND
,;     Present Value of a Bond = (B/((1+I/P)^N))+(PMT*((1-(1+I/P)^-N)/(I/P)))
,;     Where:
,;          PMT= Coupon Payment         (%PMT00008)
,;            I= Yield Desired          (%I0000008)
,;            P= Compounding Period     (%P0000008)
,;            N= Number of Periods      (%N0000008)
,;            B= Value of Bond          (%B08)
,;
,;
,;     Name cell to contain Payment
,;
/GN
/F%HERE0008
,NUMBER "Coupon Payment cell?" %HERE0008
,MARK
,AT %HERE0008
/F%PMT00008
,BACK
,;
,;     Name cell to contain Interest Rate
,;
,NUMBER "Desired Yield cell?" %HERE0008
,MARK
,AT %HERE0008
/F%I0000008
,BACK
,;
,;     Name cell to contain Compounding Period
,;
,NUMBER "Compounding Per. cell?" %HERE0008
,MARK
,AT %HERE0008
/F%P0000008
,BACK
,;
,;     Name cell to contain Number of Periods
,;
,NUMBER "# of Periods cell?" %HERE0008
,;
,MARK
,AT %HERE0008
/F%N0000008
,BACK
,;
,;     Name cell to contain Bond Value
,;
,NUMBER "Bond Value cell?" %HERE0008
,MARK
,AT %HERE0008
/F%        /
,AT %HERE0008
/F%B08
,BACK
,;
,;     Generate Equation
:%B08?/(1+%I0000008?/%P0000008?)^%N0000008?+(%PMT00008?*((1-(1+%I0000008?/%P0000008?)^-%N0000008?)/(%I0000008?/%P0000008?)))
,;
,;
,;     Clean-up
,;
@%PMT00008
/F%        /
@%I0000008
/F%        /
@%P0000008
/F%        /
@%N0000008
/F%        /
@%B08
/F%        /
@%HERE0008
/F%        /
/GC
,;
,QUIT