5171 IF N<2 THEN KE=3 : GOSUB 900 : RETURN