fpcdocs/crtex/ex8.pp


1
2
3
4
5
6
7
8
9
10
11

Program Example8;
uses Crt;

{ Program to demonstrate the ClrScr function. }

begin
  Writeln('Press any key to clear the screen');
  ReadKey;
  ClrScr;
  Writeln('Have fun with the cleared screen');
end.