home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWPNTS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  548 b   |  23 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program DrawPoints;
  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;             { Initialize the system and screen }
  16.   DrawBorder;
  17.   for I := 1 to 1000 do
  18.                  { Plot random pixels on the screen }
  19.     DrawPoint(Random(XScreenMaxGlb), Random(YMaxGlb));
  20.   repeat until KeyPressed; { Wait until a key is pressed }
  21.   LeaveGraphic;
  22. end. { DrawPoints }
  23.