1826 IF NXX<3 THEN KE=3 : GOSUB 900 : RETURN