
  FUNCTION [INLINE] bai$partial_block_exists: boolean;

?? PUSH (LISTEXT := ON) ??

{ The purpose of this request is to determine if there remains any
{ data in the record management buffer to be physically output.

*copy bah$inline_proc_documentation

    bai$partial_block_exists := (block_info^.block_position =
          bac$middle_of_block) AND (tape_descriptor^.put_tape_block_buffer <>
          NIL);

  FUNCEND bai$partial_block_exists;
*copyc bat$task_file_table
?? POP ??

