* -- Guido Milanese, 2003
* -- Error messages
* -- msg is passed by the calling program and specifies which error
* -- filename is the filename name passed by the calling program

    DEFINE('ioerror(msg,filename)')  :(IOERROR_END)

IOERROR
				 :($('ioerror_' msg))

*-- Error: input file
ioerror_in
	terminal = "***ERROR***"
	terminal = "You entered '" filename "' as input file,"
	terminal = "but I could not find it!"				:(return)

*-- Error: output file
ioerror_out
	terminal = "***ERROR***"
	terminal = "You entered '" filename "' as output file."
	terminal = "There is a problem: I cannot write on this file."	:(return)

IOERROR_END