1115 IF NF=0 THEN KE=1 : GOSUB 900 : GOTO 1130