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