mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-15 23:31:38 +01:00
25 lines
427 B
ObjectPascal
25 lines
427 B
ObjectPascal
program testvga;
|
|
|
|
uses svgalib;
|
|
|
|
var i : longint;
|
|
mode : longint;
|
|
|
|
begin
|
|
vga_init;
|
|
repeat
|
|
Write ('Mode (0 exits) : ');
|
|
Readln (Mode);
|
|
if (mode<>0) and vga_hasmode(Mode) then
|
|
begin
|
|
vga_setmode(Mode);
|
|
// vga_screenon;
|
|
vga_setcolor(vga_white);
|
|
for i:=1 to 100 do
|
|
vga_drawline (100+2*i,100,100+2*i,200);
|
|
readln;
|
|
vga_setmode(0);
|
|
end;
|
|
until mode=0;
|
|
end.
|