*COMDECK GTEXT1 
          CONTROL NOLIST;    #GTEXT1# 
          CONTROL EJECT;
  # *   THE GTEXT DECLARATIONS.  * #
          COMMON GTEXTCOMM; 
          BASED ARRAY GTEXT[0:0] S(1);
            BEGIN 
            ITEM GTEXTATOM         U(0,0,60); 
            ITEM GTEXTATOM1        U(0,0,30); 
            ITEM GTEXTATOM2        U(0,30,30);
            END 
          CONTROL LIST;      #GTEXT1# 
