mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-06-21 08:00:21 +02:00
29 lines
527 B
ObjectPascal
29 lines
527 B
ObjectPascal
program video2;
|
|
|
|
uses
|
|
video, keyboard;
|
|
|
|
var
|
|
k: TKeyEvent;
|
|
X, Y: Integer;
|
|
begin
|
|
InitKeyboard;
|
|
InitEnhancedVideo;
|
|
repeat
|
|
for X := 0 to ScreenWidth - 1 do
|
|
for Y := 0 to ScreenHeight - 1 do
|
|
with EnhancedVideoBuf[Y * ScreenWidth + X] do
|
|
begin
|
|
Attribute := $07;
|
|
ExtendedGraphemeCluster := WideChar(X + Y);
|
|
end;
|
|
UpdateScreen(False);
|
|
|
|
k := GetKeyEvent;
|
|
k := TranslateKeyEvent(k);
|
|
until GetKeyEventChar(k) = 'q';
|
|
DoneEnhancedVideo;
|
|
DoneKeyboard;
|
|
end.
|
|
|