*COMDECK  COMDTEXT - EXTERNAL NAMES.
          BASED ARRAY TEXT ;       # EXTERNAL NAMES # 
               BEGIN
               ITEM EXTN C (0, 0,NC) ;  # EXTERNAL NAME, 0L  #
               ITEM EXTA I (0,ZL,AL) ;  # CHAIN LINK (SEE BELOW) #
                      # PASS 1 - EXTA = INDEX OF LAST *TREF* WORD      #
                      #          FOR THIS EXTERNAL NAME.               #
                      # PASS 2 - EXTA = REL FWA OF REFERENCE CHAIN.    #
               ITEM EXTW ;              # WORD FOR PACKING REFS # 
               END
          ITEM TEXTL ;
