Checks to see if the specified file is currently open.
FUNCTION Text_IO.Is_Open
(file file_type)
RETURN BOOLEAN;
file | A variable that specifies the file to check. |
TRUE or FALSE.
/*
** Determine if the output file is open. If so,
** then close it.
*/
IF Text_IO.Is_Open(out_file) THEN
Text_IO.Fclose(out_file);