This page is an example of a program which draws a circle.

program circles;
uses graph;

procedure intigr;
var gd,gm : integer;
begin
gd:=detect;
initgraph (gd,gm,'c:\tp7\bgi');
end;

begin
initgr;
circle(250,250,50);
delay(5000);
closegraph;
end.

Home

This page hosted by Get your own Free Home Page