1817 IF NV<>KNV THEN KE=2 : GOSUB 900 : GOTO 1814