% This code is (c)1997 Nathan Hyatt.  Feel free to use this code in your
% work.  If you release a module using this code or a modified version
% of this code, you MUST include the full source and give credit where credit
% is due.  I suggest we all release our source code so we can help each other
% and promote the use of Iniquity BBS Software.
%                                                        -sect[tric.inc.dms]

% example code to determine if a file exists...try it without the file, then
% make a file called temp.ans and try it...

{
  @file f

  outln["testing for file existance of c:\iniq\text\temp.ans"]
  dnln[3]

  fileassign[f,"c:\iniq\text\temp.ans"]
  fileopen[f]
  if ioerror<>0 then {
    coutln["file does not exist"]
    exit
  } else {
    coutln["file exists"]
    fileclose[f]
  }
}