9096 IF KF(3)=1 THEN P(3)=R