home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOM2 / SRCLIST.LBR / FILEEXIS.DEF next >
Text File  |  2000-06-30  |  256b  |  12 lines
  1. DEFINITION MODULE fileexists;
  2. (* glenn brooke 1/4/87 from TM2 manual *)
  3. FROM files IMPORT FILE, Open, Close;
  4. FROM strings IMPORT String;
  5. VAR f : FILE;
  6.  
  7. PROCEDURE exists(fn : String) : BOOLEAN;
  8.  
  9. END fileexists.
  10.  
  11.  
  12.