11020 IF IP<>JP THEN TK(IP,JP)=0 ELSE TK(IP,JP)=1