
  FUNCTION [INLINE] baf$task_file_entry_p
    (    file_identifier: amt$file_identifier): ^bat$task_file_entry;

?? PUSH (LISTEXT := ON) ??

    VAR
      ordinal: amt$file_id_ordinal,
      sequence: amt$file_id_sequence;

    ordinal := file_identifier.ordinal;
    sequence := file_identifier.sequence;

    IF (bav$task_file_table <> NIL) AND (ordinal >= 1)
{ } AND (ordinal <= bav$last_tft_entry) AND (sequence > 0)
{ } AND (sequence = bav$task_file_table^ [ordinal].sequence_number) THEN
      baf$task_file_entry_p := ^bav$task_file_table^ [ordinal];
    ELSE
      baf$task_file_entry_p := NIL;
    IFEND;

  FUNCEND baf$task_file_entry_p;

*copyc bav$task_file_table
*copyc bav$last_tft_entry
?? POP ??
