summaryrefslogtreecommitdiff
path: root/fpcdocs/crtex/ex4.pp
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.