home *** CD-ROM | disk | FTP | other *** search
- 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.
-