5126 IF J=0 THEN KX=1 : GOTO 5132