4024 IF ISP=1 AND NF=0 THEN KE=1 : GOSUB 900 : RETURN