home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / dtx9302 / svga / drivers.pas next >
Encoding:
Pascal/Delphi Source File  |  1993-02-17  |  1.5 KB  |  48 lines
  1. (*========================================================*)
  2. (*                       DRIVERS.PAS                      *)
  3. (*             (C) 1993 Jörg Braun & DMV-Verlag           *)
  4. (*    Bindet alle BGI-Treiber ein und registriert sie     *)
  5. (*========================================================*)
  6. {$I xgraph.h}
  7.  
  8. UNIT Drivers;
  9.  
  10. INTERFACE
  11.  
  12.   PROCEDURE EGAVGADriverProc;
  13.   PROCEDURE CGADriverProc;
  14.   PROCEDURE HercDriverProc;
  15.   PROCEDURE SVGADriverProc;
  16.   PROCEDURE IBM8514DriverProc;
  17.   PROCEDURE PC3270DriverProc;   
  18.   PROCEDURE ATT400DriverProc;   
  19.  
  20. IMPLEMENTATION
  21.  
  22.   USES
  23.     XGraph;
  24.  
  25.   VAR
  26.     dummy : INTEGER;
  27.  
  28.   PROCEDURE EGAVGADriverProc;  EXTERNAL; {$L EGAVGA.OBJ}
  29.   PROCEDURE CGADriverProc;     EXTERNAL; {$L CGA.OBJ}
  30.   PROCEDURE HercDriverProc;    EXTERNAL; {$L HERC.OBJ}
  31.   PROCEDURE SVGADriverProc;    EXTERNAL; {$L SVGA.OBJ}
  32.   PROCEDURE IBM8514DriverProc; EXTERNAL; {$L IBM8514.OBJ}
  33.   PROCEDURE PC3270DriverProc;  EXTERNAL; {$L PC3270.OBJ}
  34.   PROCEDURE ATT400DriverProc;  EXTERNAL; {$L ATT.OBJ}
  35.  
  36. BEGIN
  37.   dummy := RegisterBGIDriver(@EGAVGADriverProc);
  38.   dummy := RegisterBGIDriver(@CGADriverProc);
  39.   dummy := RegisterBGIDriver(@HercDriverProc);
  40.   dummy := RegisterBGIDriver(@SVGADriverProc);
  41.   dummy := RegisterBGIDriver(@IBM8514DriverProc);   
  42.   dummy := RegisterBGIDriver(@PC3270DriverProc);
  43.   dummy := RegisterBGIDriver(@ATT400DriverProc);    
  44. END.
  45.  
  46. (*========================================================*)
  47. (*                   Ende von DRIVERS.PAS                 *)
  48.