blob: 5f0a59ab7197905a9b72c9f3f5f53112082ceb1a (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %INTERACTIVE }
program testvideo;
uses video,keyboard,{vidutil}tu2002;
Var
i : longint;
k : TkeyEvent;
begin
InitVideo;
InitKeyboard;
For I:=1 to 10 do
TextOut(i,i, 'Press any key to clear screen');
UpdateScreen(false);
K:=GetKeyEvent;
ClearScreen;
TextOut(1,1,'Cleared screen. Press any key to end');
UpdateScreen(true);
K:=GetKeyEvent;
DoneKeyBoard;
DoneVideo;
end.
|
