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.MOD
< prev
next >
Wrap
Text File
|
2000-06-30
|
256b
|
16 lines
IMPLEMENTATION MODULE fileexists;
(* glenn brooke 1/4/87 from TM2 manual *)
PROCEDURE exists(fn : String) : BOOLEAN;
BEGIN
IF Open(f, fn) THEN
Close(f);
RETURN TRUE;
ELSE
RETURN FALSE;
END;
END exists;
END fileexists.