
*copyc tut$key_name_ordinals

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

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