ComInterface

  CLASS ComInterface

  EXPORTED:

     VAR baseAddress,vtblAddress READONLY

     CLASS VAR id READONLY

     INLINE ACCESS METHOD invalid

     RETURN ::baseAddress == 0

     CLASS METHOD InitClass

  PROTECTED:

     METHOD Init

     METHOD MethodAddress

     CLASS METHOD AccessFailed,AssignFailed

ENDCLASS