

*copyc ost$name


  CONST
    tuc$max_rows = 255,
    tuc$max_columns = 255;

  TYPE
    tut$size_rows_type = 0 .. tuc$max_rows,
    tut$size_columns_type = 0 .. tuc$max_columns,

    tut$size = record
      columns: tut$size_columns_type,
      rows: tut$size_rows_type,
      pick_locate_device: ost$name,
      num_accuracy_char_positions: 0 .. tuc$max_columns,
      accuracy_character_positions: array [0 .. tuc$max_columns] of
            0 .. tuc$max_columns,
      num_accuracy_line_positions: 0 .. tuc$max_rows,
      accuracy_line_positions: array [0 .. tuc$max_rows] of 0 .. tuc$max_rows,
    recend;

