*COMDECK  COMDTCAP - CURRENT CAPSULE (PASS 2).
          BASED ARRAY TCAP ;       # CURRENT CAPSULE (PASS 2) # 
               BEGIN
               ITEM CAPW ;              # CAPSULE WORD #
               END
          ITEM TCAPL ;
