
  TYPE
    cyt$string_index = 1 .. cyc$max_string_size + 1;

*copyc cyc$max_string_size
