[Back to EGAVGA SWAG index]  [Back to Main SWAG index]  [Original]

{
Here's the recipe to get rid of missing BGI drivers!


To get EGAVGA.OBJ use the BINOBJ utility supplied with Turbo Pascal


BINOBJ EGAVGA.BGI EGAVGA EGAVGA


To use this unit just add it to your uses statement once and forget
all about path's in Initgraph (use ''). The unit can be extended to
support additional drivers, like CGA.BGI. Read the GRAPH.DOC file
on the TP disks.

-----------------------<cut here

{---------------------------------------------------------}
{  Project : Turbo EGAVGA Driver                          }
{  Auteur  : G.W. van der Vegt                            }
{---------------------------------------------------------}
{  Datum .tijd  Revisie                                   }
{  920301.1300  Creatie.                                  }
{---------------------------------------------------------}

UNIT Bgi_01;

INTERFACE

USES
  Graph;

IMPLEMENTATION

{------------------------------------------------}
{----EGAVGA.BGI Driver                           }
{------------------------------------------------}

PROCEDURE Egavga; External;

{$L Egavga.obj}

BEGIN
  IF RegisterBGIDriver(@Egavga)<0
     THEN
       BEGIN
         Writeln('Error registering driver: ',
                  GraphErrorMsg(GraphResult));
         Halt(1);
       END;
END.

[Back to EGAVGA SWAG index]  [Back to Main SWAG index]  [Original]