home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l045 / 1.ddi / DRWPNT.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-23  |  548 b   |  18 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. program ExamplePoint;
  5.  
  6. {$I Float.inc}  { Determines what type Float means. }
  7.  
  8. uses
  9.   Dos, Crt, GDriver, GKernel;
  10.  
  11. begin
  12.   InitGraphic;             { Initialize the graphics system }
  13.   DrawBorder;              { Draw a border around the default window }
  14.   DrawPoint(100, 100);     { Plot a pixel at (100, 100) }
  15.   repeat until KeyPressed; { Wait until a key is pressed }
  16.   LeaveGraphic;            { Leave the graphics system }
  17. end. { ExamplePoint }
  18.