
*copyc tut$output_ordinals

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

