{$U+}

{@@@@@@@@@@@ copyright (C) 1984 by Neil J. Rubenking @@@@@@@@@@@@@@@@@@@@@@@@
The purchaser of these procedures and functions may include them in COMPILED
programs freely, but may not sell or give away the source text.}

{$I circle.lib}
begin
  hiRes;
  circle(320,100,100,40,1,1);
  circle(320,100,10,10,0.75,1);
  circle(320,100,100,100,0.5,1);
  GraphMode;
  circle(160,100,100,40,1,1);
  circle(160,100,10,10,0.75,2);
  circle(160,100,100,100,0.5,3);
  repeat until keypressed;
  textmode(BW80);
end.