1 files changed, 24 insertions, 0 deletions
diff --git a/packages/svgalib/tests/testvga.pp b/packages/svgalib/tests/testvga.pp
new file mode 100644
index 0000000000..c28e81c028
--- /dev/null
+++ b/packages/svgalib/tests/testvga.pp
@@ -0,0 +1,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.