home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 269.INITGRPH.INC < prev    next >
Text File  |  1991-04-01  |  369b  |  19 lines
  1.  
  2. procedure InitGraphics;
  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.     WriteLn('Graphics error:',
  13.             GraphErrorMsg(ErrCode))
  14.   else
  15.     SetTextJustify( CenterText, CenterText );
  16. end; {InitGraphics}
  17.  
  18.  
  19.