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