
  CONST
    bac$default_block_elements = 16;

  TYPE
    bat$buffer_descriptor = array [ * ] of bat$space_descriptor,

    bat$space_descriptor = record
      element_address: ^cell,
      element_length: amt$max_record_length,
      element_offset: integer,
    recend;

  TYPE
    bat$get_put_call = (bac$get, bac$put);

*copyc amt$max_record_length
