
  TYPE
    bat$tape_read_block_description = record
      case block_type: bat$tape_block_type of
      = bac$good_data_block =
        good_block_length: amt$max_block_length,
      = bac$error_data_block =
        error_block_length: amt$max_block_length,
        data_failure_modes: amt$tape_failure_modes,
      = bac$error_without_data =
        no_data_failure_modes: amt$tape_failure_modes,
      = bac$tapemark =
        ,
      casend,
    recend;

*copyc bat$tape_block_type
*copyc amt$max_block_length
*copyc amt$tape_failure_modes
