mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 11:24:16 +01:00
18 lines
260 B
ObjectPascal
18 lines
260 B
ObjectPascal
program testvideo;
|
|
|
|
uses video,keyboard,vidutil;
|
|
|
|
Var
|
|
i : longint;
|
|
k : TkeyEvent;
|
|
|
|
begin
|
|
InitVideo;
|
|
InitKeyboard;
|
|
For I:=1 to 10 do
|
|
TextOut(i,i, 'Press any key to end');
|
|
UpdateScreen(False);
|
|
K:=GetKeyEvent;
|
|
DoneKeyBoard;
|
|
DoneVideo;
|
|
end. |