{ (c) 1998 CREEQ <creeq@web.de> }
program Schrift_naeher;
uses Crt, Graph;
var
  Gd, Gm, Gg: Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  Gg:=0;
  repeat;
  setcolor(white);
  SetTextStyle(TriplexFont, HorizDir, Gg);
  OutTextXY(200,200,'Test');
  delay(300);
  setcolor(black);
  SetTextStyle(TriplexFont, HorizDir, Gg);
  OutTextXY(200,200,'Test');
  delay(300);
  Gg:=Gg+1;
  until Keypressed;
  CloseGraph;
end.