idlastro / Miscellaneous (Non-Astronomy) Procedures: TEXTCLOSE

[Source code]

NAME
TEXTCLOSE                   
PURPOSE
Close a text outpu file previously opened with TEXTOPEN 
EXPLANATION
procedure to close file for text output as specifed
by the (non-standard) system variable !TEXTOUT. 
CALLING SEQUENCE
textclose, [ TEXTOUT = ]
KEYWORDS
textout - Indicates output device that was used by
        TEXTOPEN
SIDE EFFECTS
if !textout is not equal to 5 and the textunit is
opened.   Then unit !textunit is closed and released
HISTORY
D. Lindler  Dec. 1986  (Replaces PRTOPEN)
Test if TEXTOUT is a scalar string   W. Landsman   August 1993
Can't close unit -1 (Standard Output) I. Freedman April 1994
Converted to IDL V5.0   W. Landsman   September 1997