blob: 10f33420a7f6b5d8fe87757bac1587d39c66a33f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
|
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.
|
