1785 IF LEN(A$)=0 THEN KF=NC : GOTO 1800