






















4
%   Purpose: Routines for playing with files.

:- public
	append/1,
	check_exists/1,
	file_exists/1,
	open/1,
	open/2,
	open_file/1,
	open_file/2,
	open_file/3,
	close/2,
	delete/1.

:- mode
	append(+),
	check_exists(+),
	file_exists(+),
	open(+),
	open(?, +),
	'open file'(+, +),
	close(+, +),
	delete(+).




			% Check to see if a file exists and produce
			%  an error message if it doesn't.

check_exists(File





















































































































































































































































































































































































































































































































































































































































tob

%   Purpose: open files with 





































































































































































































































































































































































































































































































































