$IOCHECK OFF$
(****************************************************************************)
procedure setupfibforfile(filename      : fid;
                      var lfib          : fib;
                      var vname         : vid);
var
  lkind : filekind;
  segs  : integer;

begin
  segs     := 0;
  ioresult := ord(inoerror);
  with lfib do
    if scantitle(filename,fvid,ftitle,segs,lkind) then
    begin
      vname      := fvid;
      funit      := findvolume(fvid,true);
      fkind      := lkind;
      feft := efttable^[lkind];
      foptstring := nil;
      fbuffered  := true;
      fpos       := segs * 512;
      freptcnt   := 0;
      fanonymous := false;
      fmodified  := false;
      fbufchanged:= false;
      fstartaddress := 0;
      flastpos   := -1;
      pathid     := -1;
      fnosrmtemp := true;
      flocked    := true;
      feof       := false;
      feoln      := false;
      fb0        := false;
      fb1        := false;
    end
    else badio(ibadtitle);
end;    { setupfibforfile }


