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 >
Wrap
Pascal/Delphi Source File
|
1993-08-09
|
746b
|
22 lines
unit All_In;
interface
implementation uses Graph;
(* Als u deze unit opnieuw wilt compileren, zorg dan dat u de drivers
op de juiste wijze hebt omgezet naar .OBJ files, d.m.v.
BINOBJ EGAVGA.BGI EGAVGA EGAVGADriver
(Voor CGA, Herc en ATT analoog) *)
Procedure EGAVGADriver; external; {$L EGAVGA}
Procedure CGADriver; external; {$L CGA}
Procedure HercDriver; external; {$L Herc}
Procedure ATTDriver; external; {$L ATT}
Begin
If RegisterBGIDriver( @EGAVGADriver ) < 0 then WriteLn('VGA niet OKE');
If RegisterBGIDriver( @CGADriver ) < 0 then WriteLn('CGA niet OKE');
If RegisterBGIDriver( @HercDriver ) < 0 then WriteLn('Herc niet OKE');
If RegisterBGIDriver( @ATTDriver ) < 0 then WriteLn('ATT niet OKE')
End.