Procedure TextBackground (CL: Byte) ;
TextBackground sets the background color to CL. CL can be one of the predefined color constants.
None.
TextColor, HighVideo, LowVideo, NormVideo
Program Example13;
uses Crt;
{ Program to demonstrate the TextBackground function. }
begin
TextColor(White);
WriteLn('This is written in with the default background color');
TextBackground(Green);
WriteLn('This is written in with a Green background');
TextBackground(Brown);
WriteLn('This is written in with a Brown background');
TextBackground(Black);
WriteLn('Back with a black background');
end.