*COMDECK  COMDTITM - KEY ITEM JUMP INDICES. 
          BASED ARRAY TITM ;       # KEY ITEM JUMP INDICES #
               BEGIN
               ITEM ITMK I (0, 0,WL) ;  # ITEM-ROUTINE TKEY INDEX # 
               END                       # ZERO IF NOT A KEY ITEM # 
          ITEM TITML ;
