blob: c28e81c028495e0ff0ffb6e6bd5f859888eb15b7 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
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.
|
