{ (c) 1998 CREEQ <creeq@web.de> }
Program Shadowtext;
uses Crt,Graph;
var
  grDriver: Integer;
  grMode: Integer;
  ErrCode: Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode,'');
  ErrCode := GraphResult;
  setfillstyle(1,white);
  bar(0,0,640,480);
  settextstyle(0,0,3);
  setcolor(black);
  outtextxy(103,103,'Das ist ein Text!');
  setcolor(lightred);
  outtextxy(100,100,'Das ist ein Text!');
  readkey;
  closegraph;
end.