9632 IF KF(1)=1 THEN P(1)=INT(PX^2/(DEX^2-PX)+.5)