home *** CD-ROM | disk | FTP | other *** search
/ Game Killer / Game_Killer.bin / 113.INITGRPH.INC < prev    next >
Text File  |  1992-07-12  |  761b  |  31 lines
  1. procedure InitGraphics;
  2. var
  3.   path     : string;
  4.   grDriver : Integer;
  5.   grMode   : Integer;
  6.   ErrCode  : Integer;
  7. begin
  8.   if SVGA then
  9.     InitializeSpecialGraphics
  10.   else
  11.     begin
  12.       grDriver := Detect;
  13.       InitGraph(grDriver,grMode,'');
  14.       ErrCode := GraphResult;
  15.       if ErrCode = grFileNotFound then
  16.         begin
  17.           write('.BGI file not found.  Please enter full path to .BGI file:  ');
  18.           readln( path );
  19.           Initgraph( grDriver, grMode, '');
  20.           ErrCode := GraphResult;
  21.         end;
  22.       if ErrCode <> grOk then
  23.         WriteLn('Graphics error:',
  24.                 GraphErrorMsg(ErrCode))
  25.       else
  26.         SetTextJustify( CenterText, CenterText );
  27.     end; {else}
  28. end; {InitGraphics}
  29.  
  30.  
  31.