
  VAR
    bav$max_allowed_tape_block_size: [XREF] integer;
