
  PROCEDURE [INLINE] bai$sl_position_file
    (    file_identifier: amt$file_identifier;
         skip_count: integer;
     VAR status: ost$status);

    VAR
      label_group: fst$ansi_label_kinds;

    sl_advance_tapemark (file_identifier, amc$backward, skip_count, status);
    IF status.normal THEN
      sl_advance_tapemark (file_identifier, amc$forward, 1, status);
    ELSEIF status.condition = ame$skip_encountered_bov THEN
      rewind_tape (file_identifier, status);
      IF status.normal THEN
        sl_read_tape_labels (file_identifier, label_group, status);
      IFEND;
    IFEND;

  PROCEND bai$sl_position_file;
