Procedure TextColor (CL: Byte) ;
TextColor sets the foreground color to CL. CL can be one of the predefined color constants.
None.
TextBackground, HighVideo, LowVideo, NormVideo