
*copyc tut$init_ordinals

  TYPE
    tut$init = record
      ordinals: array [0 .. tuc$init_max_ordinal] of record
        start: 1 .. 65535,
        length: 0 .. 65535,
      recend,
      chars: string ( * ),
    recend;

