8116 IF KF(1)=1 THEN P(1)=PX-1.732051*DEX