Circle                   Draws a Circle

 Circle(X,Y,Radius,Color : Integer);                                  [XG/TP]

    Draws circle centered at (X,Y) with a radius of Radius, using Color.

             X,Y    Screen coordinates (Column, Row); center of circle in
                    pixels.

          Radius    Radius of circle in pixels.

           Color    Color of circle; 0..3 selects appropriate color from
                    palette (See Palette); -1 selects color from color
                    translation table (See ColorTable).

          Notes:    The extended graphics external declaration file
                    GRAPH.P must be included to use this procedure.

                    The video display must be in graphics mode before
                    calling this procedure.

  -------------------------------- Example ---------------------------------

           {$I GRAPH.P }

           GraphMode;               { go into 320x200 mode }
           Circle(160,100,80,1);    { draw complete circle }
           Readln;                  { pause for <ENTER> }
           HiRes;                   { go into 640x200 mode }
           Circle(160,100,80,1);    { draw same "circle" }