home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWSQ.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  686 b   |  28 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program DrawSquares;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel;
  10.  
  11. var
  12.   I : integer;
  13.  
  14. begin
  15.   InitGraphic;                    { Init the system and screen }
  16.  
  17.   DefineWorld(1,0,0,1000,1000);   { Define a world for drawing }
  18.   SelectWorld(1);                 { Select it }
  19.   SelectWindow(1);
  20.   DrawBorder;
  21.  
  22.   for I := 1 to 20 do             { Draw twenty squares }
  23.     DrawSquare(500-I*25, 500-I*25, 500+I*25, 500+I*25, false);
  24.  
  25.   repeat until KeyPressed;        { Wait until a key is pressed }
  26.   LeaveGraphic;
  27. end. { DrawSquares }
  28.