home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / l / l043 / 3.ddi / INITGR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-11-02  |  391 b   |  20 lines
  1. uses
  2.   Graph;
  3. var
  4.   grDriver : integer;
  5.   grMode   : integer;
  6.   ErrCode  : integer;
  7. begin
  8.   grDriver := Detect;
  9.   InitGraph(grDriver,grMode,'');
  10.   ErrCode := GraphResult;
  11.   if ErrCode = grOk then
  12.     begin
  13.       { Do graphics }
  14.       Line(0, 0, GetMaxX, GetMaxY);
  15.       Readln;
  16.       CloseGraph;
  17.     end
  18.   else
  19.     Writeln('Graphics error:', GraphErrorMsg(ErrCode));
  20. end.