home *** CD-ROM | disk | FTP | other *** search
/ Columbia Kermit / kermit.zip / c / qk3dvr.pas < prev    next >
Pascal/Delphi Source File  |  2020-01-01  |  1KB  |  48 lines
  1.  
  2. {           Copyright (c) 1985, 87 by Borland International, Inc.            }
  3.  
  4. unit Drivers;
  5. { Sample unit to accompany GRLINK.PAS. This unit links all the BGI graphics
  6.   driver into a single TPU file. This makes it easy to link the driver files
  7.   directly into an .EXE file. See GRLINK.PAS for more information.
  8. }
  9. interface
  10. uses Graph ;
  11. procedure ATTDriverProc;
  12. procedure CgaDriverProc;
  13. procedure EgaVgaDriverProc;
  14. procedure HercDriverProc;
  15. procedure PC3270DriverProc;
  16.  
  17. implementation
  18.  
  19. procedure ATTDriverProc; external;
  20. {$L ATT.OBJ }
  21.  
  22. procedure CgaDriverProc; external;
  23. {$L CGA.OBJ }
  24.  
  25. procedure EgaVgaDriverProc; external;
  26. {$L EGAVGA.OBJ }
  27.  
  28. procedure HercDriverProc; external;
  29. {$L HERC.OBJ }
  30.  
  31. procedure PC3270DriverProc; external;
  32. {$L PC3270.OBJ }
  33.  
  34. begin
  35.   { Register all the drivers }
  36.   if RegisterBGIdriver(@CGADriverProc) < 0 then
  37.     Writeln('CGA');
  38.   if RegisterBGIdriver(@EGAVGADriverProc) < 0 then
  39.     Writeln('EGA/VGA');
  40.   if RegisterBGIdriver(@HercDriverProc) < 0 then
  41.     Writeln('Herc');
  42.   if RegisterBGIdriver(@ATTDriverProc) < 0 then
  43.     Writeln('AT&T');
  44.   if RegisterBGIdriver(@PC3270DriverProc) < 0 then
  45.     Writeln('PC 3270');
  46.  
  47. end.
  48.