mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
23 lines
420 B
ObjectPascal
23 lines
420 B
ObjectPascal
{ %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.
|