{ (c) 1998 CREEQ <creeq@web.de> }
program Text;
uses Crt, Graph;
var
  Gd, Gm : Integer;
begin
  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);
  settextstyle(4,0,9);  
  setfillstyle(solidfill,white);
  bar(100,100,540,380);
  setcolor(green);
  outtextxy(215,80,'Text');
  settextstyle(4,0,5);  
  outtextxy(115,230,'  Text in Gothicfon');
  Readkey;
  CloseGraph;
end.