
  TYPE
    bat$tape_block = array [amt$max_block_length] of cell;

*copyc amt$max_block_length

