{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.


@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@}

type
  old_filename_type = string[14];  {This type declaration is NOT inside the
                                   INCLUDE file in order to avoid multiple
                                   declarations}

{$I existfil.lib}
var
  name_to_test : old_filename_type;
begin
  WriteLn('Enter filename to test.  Include drive, if not same.');
  ReadLn(name_to_test);
  if exists(name_to_test) then
    WriteLn(name_to_test,' exists.')
  else
    WriteLn(name_to_test,' does not exist.');
end.
@@@@@@@@@@@@@@@@@@@@@}

function exists(ThisFile : old_filename_Type):boolean;
va