home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
The World of Computer Software
/
World_Of_Computer_Software-02-385-Vol-1of3.iso
/
m
/
miscpas.zip
/
CIRCLE.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1986-02-05
|
300b
|
15 lines
{$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.