mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 20:19:26 +02:00
14 lines
226 B
ObjectPascal
14 lines
226 B
ObjectPascal
uses
|
|
go32;
|
|
|
|
var
|
|
vgasel : Word;
|
|
r : trealregs;
|
|
|
|
begin
|
|
r.eax := $13; realintr($10, r);
|
|
vgasel := segment_to_descriptor($A000);
|
|
seg_fillchar(vgasel, 0, 64000, #15);
|
|
readln;
|
|
r.eax := $3; realintr($10, r);
|
|
end. |