5347 IF NXX<1 THEN KE=3 : GOSUB 900 : RETURN