9640 IF KF(2)=1 THEN P(2)=PX/DEX^2