home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1989 / 12 / tricks / g_init.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1989-09-08  |  1.2 KB  |  43 lines
  1. (* ------------------------------------------------------ *)
  2. (*                      G_INIT.PAS                        *)
  3. (*     Initialisierung der Unit MOUSE (TOOLBOX 3'89)      *)
  4. (*                für Hercules-Grafikkarte                *)
  5. (*         (c) 1989  Maximilian Mayr  &  TOOLBOX          *)
  6. (* ------------------------------------------------------ *)
  7. UNIT G_Init;
  8.  
  9. INTERFACE
  10.  
  11. USES Crt, Dos, Graph;
  12.  
  13. PROCEDURE Init_Graphic;
  14.  
  15. IMPLEMENTATION
  16.  
  17.   PROCEDURE Init_Graphic;
  18.  
  19.   VAR
  20.     GraphDriver, GraphMode : INTEGER;
  21.     ErrorCode              : INTEGER;
  22.   BEGIN
  23.     DetectGraph(GraphDriver, GraphMode);
  24.     IF GraphDriver = CGA THEN
  25.       GraphMode := CGAHi
  26.     ELSE
  27.       IF GraphDriver = HercMono THEN BEGIN
  28.         Mem [$40:$49] := 6;
  29.         GraphMode := HercMonoHi;
  30.       END ELSE
  31.         GraphDriver := Detect;
  32.     InitGraph(GraphDriver, GraphMode, '');
  33.     ErrorCode := GraphResult;
  34.     IF ErrorCode <> 0 THEN BEGIN
  35.       WriteLn('Grafik-Fehler: ', GraphErrorMsg(ErrorCode));
  36.       WriteLn('Programm abgebrochen ...');
  37.       Halt(1);
  38.     END;
  39.   END;
  40.  
  41. END.
  42. (* ------------------------------------------------------ *)
  43. (*                 Ende von G_Init.PAS                    *)