{Three Myths, figure 2.  Copyright © 1992, Jon Shemitz}

unit SimplUsr; {Sample bindings unit for a DLL user}

interface

type
  Simple = object
           {No fields}
           constructor Setup(Code: word);
           destructor  Teardown;
           procedure   Method(Ptr: pointer);
           procedure   Alias (Seg, Ofs: word);
	   end;

implementation

const	DLL = 'SimplDLL';

constructor Simple.Setup;	external DLL index 1;
destructor  Simple.Teardown;	external DLL index 2;
procedure   Simple.Method;	external DLL index 3;
procedure   Simple.Alias;	external DLL index 3;

end.