*COMDECK  COMDTKEY - KEY ITEM JUMP VECTOR.
          BASED ARRAY TKEY ;       # KEY ITEM JUMP VECTOR # 
               BEGIN
               ITEM KEYL I (0, 0,WL) ;  # ITEM-ROUTINE LABEL TSYM INDEX#
               END                       # ENTRY 0 IS ALWAYS *EXIT.* #
          ITEM TKEYL ;
