
  TYPE
    bat$tape_block_type = (bac$good_data_block, bac$error_data_block,
          bac$error_without_data, bac$density_mismatch, bac$read_past_phys_eot,
          bac$tapemark);

