9300 IF KF(2)=1 THEN P(2)=INT(XMA+.5)