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
Program Example12;
uses Crt;
{ Program to demonstrate the TextColor function. }
begin
WriteLn('This is written in the default color');
TextColor(Red);
WriteLn('This is written in Red');
TextColor(White);
WriteLn('This is written in White');
TextColor(LightBlue);
WriteLn('This is written in Light Blue');
end.