mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-10-31 20:31:51 +01:00
26 lines
467 B
ObjectPascal
26 lines
467 B
ObjectPascal
program testvideo;
|
|
|
|
uses video,keyboard,vidutil;
|
|
|
|
{$ifndef cpu86}
|
|
{$error This example only works on intel 80x86 machines}
|
|
{$endif}
|
|
|
|
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. |