1500 IF NXX<=NP THEN KE=3 : GOSUB 900 : RETURN