\START85\
\COMMENT=Program file dated 05/29/97, 15:30
\NAME=PresValu
\FILE=PRESVALU.85P
:Menu(1,"PV",PV,2,"ANNU",ANNU)
:Lbl ANNU
:0\->\M
:Prompt YEARS
:Prompt RATE
:For(X,1,YEARS)
:M+(1/((1+(RATE/100))^X))\->\M
:End
:Disp "Value:"
:round(M,3)\->\M
:Disp M
:Prompt AMT
:Disp "Final:"
:Disp AMT*M
:Stop
:Lbl PV
:Prompt YEARS
:Prompt RATE
:(1/((1+(RATE/100))^YEARS))\->\M
:Disp "Value:"
:round(M,3)\->\M
:Disp M
:Prompt AMT
:Disp "Final:"
:Disp AMT*M
\STOP85\