blob: 716d2d6a1e11a4e65585084b986c4f201b872730 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
|
Program Example4;
uses Crt;
{ Program to demonstrate the TextMode function. }
begin
TextMode(CO40); {Only clears screen under linux}
WriteLn('Mode 40x25 Color');
ReadKey;
TextMode(CO80);
WriteLn('Back in Mode 80x25 Color');
ReadKey;
end.
|