
  PROCEDURE [INLINE] bai$init_boi_tape_position;

?? PUSH (LISTEXT := ON) ??

{ The purpose of this procedure is to initialize fields that are used by BAM to
{ maintain file positions.  The fields are initialized to reflect an
{ open position of begining of information.

    bai$rewind_gfi;
    bai$rewind_tape_descriptor;

  PROCEND bai$init_boi_tape_position;

*copyc bat$task_file_table
*copyc bai$gfi
*copyc bai$tape_descriptor
?? POP ??
*copyc bai$rewind_gfi
*copyc bai$rewind_tape_descriptor
