{ (c) 1998 CREEQ <creeq@web.de> }
program Weihnacht;
uses Crt, Graph;
var
  Gd, Gm : Integer;
  XM : Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  setcolor(white);
  SetTextStyle(7, HorizDir, 9);
  OutTextXY(50,10,'Highscreen');
  setcolor(white);
  SetTextStyle(5, HorizDir, 7);
  OutTextXY(200,100,'wnscht');
  xm := -400;
  repeat
  xm := xm+20;
  setcolor(lightred);
  SetTextStyle(TriplexFont, HorizDir, 5);
  OutTextXY(xm,250,'Frohe Weihnachten');
  delay(100);
  setcolor(black);
  SetTextStyle(TriplexFont, HorizDir, 5);
  OutTextXY(xm,250,'Frohe Weihnachten');
  if xm = 640 then xm := -400;
  until keypressed;
  CloseGraph;
end.