{ (c) 1998 CREEQ <creeq@web.de> }
program Dimmer;
uses Crt, Graph;

var grdriver, grmode : integer;
    driver : pointer;
    c : word;

function initsvga : integer;
begin
  initsvga := 0;
end;

begin
  driver := @initsvga;
  grmode := 0;
  GrDriver := InstallUserDriver('Svga256',driver);
  initgraph(grdriver, grmode, '');
  repeat
    for c := 17 to 31 do
    begin
      if keypressed then halt(0);
      setcolor(c);
      outtextxy(135,50,'TEST');
      delay(100);
    end;
    for c := 31 downto 17 do
    begin
      if keypressed then halt(0);
      setcolor(c);
      outtextxy(135,50,'TEST');
      delay(100);
    end;
  until keypressed;
  readkey;
  closegraph;
end.