{ Must be version 6.0 or later of Turbo Pascal!                      }
{ This is the Pascal EVCHK.OBJ unit.  The EVCHK.OBJ must be compiled }
{ as a separate unit so that the EVCHK function will have it's own   }
{ separate segment in memory.                                        }

Unit ChkUnit;
interface

 function EVCHK3( SB : pointer ) : integer;


implementation

 function EVCHK3( SB : pointer ) : integer; external;
{$L EVCHK3.OBJ}

{   A BEGIN statement here is not needed, since there is no    }
{   initialization code needed.  Do NOT add a BEGIN here!  If  }
{   one is added, the linker will ignore the OBJ declaration   }
{   that EVCHK should start at offset 0 in its segment.  When  }
{   the BEGIN is added, the compiler adds some prep code for   }
{   initializing the unit,  causing the offset of EVCHK to be  }
{   incorrect.  This can cause the program to hang!            }
end.
