
*copyc ost$string

TYPE
  rat$scl_string_value = RECORD
            CASE 1 .. 2 OF
            = 1 =
              cell_access: array [1 .. (2 + osc$max_string_size)] of cell,
            = 2 =
              string_access: array [1 .. 1] of ost$string,
            CASEND,
          RECEND;
