2620 IF J>0 AND NXM>NFM THEN KE=6 : GOSUB 900 : RETURN