
*copyc tut$size

  CONST
    tuc$minimum_size_table = 1,
    tuc$maximum_size_table = 4;

  TYPE
    tut$size_table_index = tuc$minimum_size_table .. tuc$maximum_size_table,

    tut$size_table = array [tut$size_table_index] of tut$size;

