
  FUNCTION [INLINE] bai$block_info
    (    file_instance: ^bat$task_file_entry): ^bat$block_info;

?? PUSH (LISTEXT := ON) ??

{ The purpose of this request is to return a pointer to the
{ file block info for the current instance of open
{ of the file.

    bai$block_info := ^file_instance^.global_file_information^.
          positioning_info.block_info;

  FUNCEND bai$block_info;

*copyc bat$task_file_table
?? POP ??
