6955 IF KX=0 THEN X=I : GOTO 6975