home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / dobject / rect.do < prev    next >
Encoding:
Text File  |  1991-07-18  |  220 b   |  11 lines
  1. /*
  2.     draw some rectangles
  3. */
  4. #include "bgidef.do"
  5.  
  6. initGraph(DETECT,0,envSymbol("bgipath"));
  7. for(i=10;i<200;i=i+30) rectangle(i,i+10,i+160,i+100);
  8. outText("Press any key to continue...");
  9. inkey();
  10. closeGraph();
  11.