program obdemo;
uses crt,graph,graftool;
var
    ch:char;i:integer;
    punkte:punkt;
    rund:kreis;
    strich:linie;eck:rechteck;ell:ellipse;
begin
   Outtextxy(10,10,'Steuern mit den Cursortasten:'#24#26#25#27);
   Outtextxy(10,22,'Beenden jeweils mit der Returntaste!');
   setcolor(getmaxcolor-1);
   punkte.init(getmaxx div 2,getmaxy div 2);
   punkte.sicht;
   punkte.verschieb(4);
   rund.init(getmaxx div 2,getmaxy div 2,30);
   rund.sicht;
   rund.verschieb(5);
   rund.groesser(5);
   strich.init(10,10,100,20);
   strich.verschieben(10);
   eck.init(50,50,100,100);
   eck.verschieben(5);
   ell.init(getmaxx div 2,getmaxy div 2,0,360,50,30);
   ell.verschieb(6);
   for i:=1 to 5 do
      ell.egroesser(i*10,i*5);
   readln;
   closegraph;
end.