{ Turbo Pascal Include function to tell whether a file exists.
  Sept. 1, 1986 by Carson Wilson.

CALLING CONVENTION:

Exist([d:]filename[.typ])...Where "filename" is any legal file name, "d"
                            is an optional legal drive letter, and ".typ"
                            is an optional legal file type.	       

Function returns "Exist([d:]filename[.typ])" = true if the specified file is 
present.

}
type
  FuncString = string[14];  { need for function parameter }

function Exist(filename : FuncString) : boolean;
  var fil : file;
  begin
  assign(fil, filename);
  {$I-}
  reset(fil);
  {$I+}
  exist := (IOresult = 0);
  close(fil);
  end;