
  TYPE
    amt$erase_tape_block = record
      block_length: amt$max_block_length,
    recend;

*copyc amt$max_block_length
