mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-18 05:19:26 +02:00
16 lines
417 B
ObjectPascal
16 lines
417 B
ObjectPascal
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.
|