3630 IF NF=0 THEN KE=1 : GOSUB 900 : RETURN