home *** CD-ROM | disk | FTP | other *** search
/ C!T ROM 2 / ctrom_ii_b.zip / ctrom_ii_b / C!T / C!T10_93 / PCX / ALL_IN.PAS next >
Pascal/Delphi Source File  |  1993-08-09  |  746b  |  22 lines
  1. unit All_In;
  2.  
  3. interface
  4.  
  5. implementation uses Graph;
  6.  
  7. (* Als u deze unit opnieuw wilt compileren, zorg dan dat u de drivers
  8.    op de juiste wijze hebt omgezet naar .OBJ files, d.m.v.
  9.     BINOBJ EGAVGA.BGI EGAVGA EGAVGADriver
  10.     (Voor CGA, Herc en ATT analoog) *)
  11.  
  12. Procedure EGAVGADriver; external; {$L EGAVGA}
  13. Procedure CGADriver; external; {$L CGA}
  14. Procedure HercDriver; external; {$L Herc}
  15. Procedure ATTDriver; external; {$L ATT}
  16.  
  17. Begin
  18.   If RegisterBGIDriver( @EGAVGADriver ) < 0 then WriteLn('VGA niet OKE');
  19.   If RegisterBGIDriver( @CGADriver ) < 0 then WriteLn('CGA niet OKE');
  20.   If RegisterBGIDriver( @HercDriver ) < 0 then WriteLn('Herc niet OKE');
  21.   If RegisterBGIDriver( @ATTDriver ) < 0 then WriteLn('ATT niet OKE')
  22. End.