ADA, Language Topics, TEXT_IO, SET_OUTPUT
*Conan The Librarian
procedure SET_OUTPUT(FILE : in FILE_TYPE); Operates on a file of mode OUT_FILE. Sets the current default output file to FILE. The exception STATUS_ERROR is raised if the given file is not open. The exception MODE_ERROR is raised if the mode of the given file is not OUT_FILE.