home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / MADTRB39.ZIP / CIRCLE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1986-02-05  |  300 b   |  15 lines
  1.  
  2.  
  3. {$I circle.lib}
  4. begin
  5.   hiRes;
  6.   circle(320,100,100,40,1,1);
  7.   circle(320,100,10,10,0.75,1);
  8.   circle(320,100,100,100,0.5,1);
  9.   GraphMode;
  10.   circle(160,100,100,40,1,1);
  11.   circle(160,100,10,10,0.75,2);
  12.   circle(160,100,100,100,0.5,3);
  13.   repeat until keypressed;
  14.   textmode(BW80);
  15. end.