Subj : HW 100.2
To   : All
From : Finnigann
Date : Tue Oct 23 2001 03:20 pm

#1) Open a disk file called INPUT.DAT for reading, halt with an error
#   message if the file is not found or for some reason won't open.

!include FILE_IO.INC

FOPEN file O_RDONLY "input.dat"

if_false
    print "\r\n\r\nnError Loading Configuration File - Input.Dat"
    return
end_if

#2) Open a disk file called OUTPUT.DAT for writing, creating the file
#   if it doesn't exist, truncate it if it does exist.  If it can't be
#   opened/created, a) close the input file opened in step 1, b) print
#   an error message, c) halt.

FOPEN file O_CREAT|O_TRUNC "output.dat"

if_false
  print "\r\n\r\nnError Loading Configuration File - Output.Dat"
       fclose Input.dat"
    return
  print "\r\n\r\nnDue to file error(s) All files closed at this time."
                 end_if

end


... DOS never says "EXCELLENT command or filename"...
--- MultiMail/MS-DOS v0.40
� Synchronet � Bits-N-Bytes BBS - One Hellova BBS -- telnet://bnb.dtdns.net