1645 IF K=M THEN TJ(K,M)=1 : GOTO 1665