mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-11 05:22:53 +02:00
17 lines
313 B
ObjectPascal
17 lines
313 B
ObjectPascal
Program svgasel;
|
|
|
|
uses go32;
|
|
|
|
var vgasel : Word;
|
|
r : trealregs;
|
|
|
|
begin
|
|
r.eax := $13; realintr($10, r);
|
|
vgasel := segment_to_descriptor($A000);
|
|
{ simply fill the screen memory with color 15 }
|
|
seg_fillchar(vgasel, 0, 64000, #15);
|
|
readln;
|
|
{ back to text mode }
|
|
r.eax := $3;
|
|
realintr($10, r);
|
|
end. |