3107 IF KX=1 THEN KE=6 : GOSUB 900 : RETURN