{
{ BAI$WRITE_BLOCK_HEADER

    block_header^.unique_id := bac$block_header_unique_id;
    block_header^.padding := bac$block_header_padding;

    record_info.current_byte_address := record_info.current_byte_address + #SIZE (bat$block_header);

{ Caller must set block_header^.block_length.
{
{ end of BAI$WRITE_BLOCK_HEADER
{

