home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpm / turbom2 / srclist.lbr / FILEEXIS.DEF next >
Encoding:
Text File  |  1987-01-31  |  256 b   |  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.