{ Interface Driver for DLL } Block( Func('DLLInterface',Global,Internal, Param('DLLID',AnyType,0), Block( Func('LoadLibrary',DLLID,External, Block( Param('Win16DLL',String,0), Param('Win32DLL',String,1) ),,), Func('FreeLibrary',DLLID,External,,,), Func('Client',DLLID,External, Param('ClientID',AnyType,0),,), Func('Instance',DLLID,External, Param('ClientID',AnyType,0),,Result), Func('DropClient',DLLID,External, Param('ClientID',AnyType,0),,) ), ), Func('DLL',Global,Internal, Param('Name',String,0), Block( DS(Name,DLL), Const(Name,String,Global,Name), DLLInterface(Name) ),), Func('DropDLL',Global,Internal, Param ('Name',String,0), Block( DropDS(Name) ),) )