*COMDECK ETEXT
          CONTROL NOLIST;    #ETEXT#
  # * THE ETEXT DECLARATIONS.  * #
          COMMON ETEXTCOMM; 
          BASED ARRAY ETEXT[0:0] S(1);
            BEGIN 
            ITEM ET$INFO           U(0,0,60); 
            ITEM ET$GLOBAL$NO      U(0,0,12); 
            ITEM ET$REMAINS        U(0,12,48);
            ITEM ET$LINE$NO        U(0,12,16);
            ITEM ET$COLUMN$NO      U(0,28,8); 
            ITEM ET$PHASE$NO       U(0,36,4); 
            ITEM ET$SEVRTY$NO      U(0,40,4); 
            ITEM ET$LOCAL$NO       U(0,44,16);
            END 
          CONTROL LIST;      #ETEXT#
