11040 IF TJ(IP,JP)<>0 THEN 11055