
  CONST
    rac$max_tape_sizes = 5;

  TYPE
    rat$tape_size = record
      feet: integer,
      usable_bytes: integer,
    recend;

  TYPE
    rat$tape_sizes = array [1 .. rac$max_tape_sizes] OF rat$tape_size;
