8196 IF KF(1)=1 THEN P(1)=PX