
  CONST
    bac$record_header_unique_id = 1e(16);

  TYPE
    bat$record_header_type = (bac$full_record, bac$start_record,
          bac$continued_record, bac$end_record, bac$partition,
          bac$deleted_record, bac$end_of_data);


  TYPE
    bat$record_header = record
      header_type: bat$record_header_type,
      length: amt$max_record_length,
      previous_header_fba: amt$file_byte_address,
      unique_id: 0 .. 0ff(16),
    recend;

*copyc amt$file_byte_address
*copyc amt$max_record_length
