*COMDECK CTEXT
          CONTROL NOLIST;    #CTEXT#
  # * THE CTEXT DECLARATIONS. * # 
          DEF  CT$ATOM  #U(0,0,60)#;
          DEF  CT$WORD  #U(0,0,60)#;
          DEF  CT$ATOM1  #U(0,0,30)#; 
          DEF  CT$KEY1  #U(0,0,1)#; 
          DEF  CT$COL1  #U(0,1,7)#; 
          DEF  CT$TYPE1  #U(0,8,6)#;
          DEF  CT$VALUE1  #U(0,14,16)#; 
          DEF  CT$ATOM2  #U(0,30,30)#;
          DEF  CT$KEY2  #U(0,30,1)#;
          DEF  CT$COL2  #U(0,31,7)#;
          DEF  CT$TYPE2  #U(0,38,6)#; 
          DEF  CT$VALUE2  #U(0,44,16)#; 
          COMMON CTEXTCOMM; 
          BASED ARRAY CTEXTARRAY[0:0] S(1); 
            BEGIN 
          ITEM  CTEXTATOM  CT$ATOM; 
          ITEM  CTEXTWORD  CT$WORD; 
          ITEM  CTEXTATOM1  CT$ATOM1; 
          ITEM  CTEXTKEY1  CT$KEY1; 
          ITEM  CTEXTCOLUMN1  CT$COL1;
          ITEM  CTEXTTYPE1   CT$TYPE1;
          ITEM  CTEXTVALUE1  CT$VALUE1; 
          ITEM  CTEXTATOM2  CT$ATOM2; 
          ITEM  CTEXTKEY2  CT$KEY2; 
          ITEM  CTEXTCOLUMN2  CT$COL2;
          ITEM  CTEXTTYPE2  CT$TYPE2; 
          ITEM  CTEXTVALUE2  CT$VALUE2; 
            END 
          CONTROL LIST;      #CTEXT#
