
*copyc tut$init

  TYPE
    tut$init_ordinal_array = array [0 .. ORD (tuc$screen_init)] of record
      start: 1 .. 65535,
      length: 0 .. 65535,
    recend;

