(******************************************************************************
*                                OBJ11   .DEF                                 *
*                              ABO Software Dep.                              *
*                                                                             *
* Purpose : To provide a universal base object CLASS                          *
*                                                                             *
*   Notes :                                                                   *
*                                                                             *
*         Version Date : 21/5/92                                              *
******************************************************************************)
DEFINITION MODULE OBJ11;

TYPE
	ObjectPtr	=POINTER TO Object;

CLASS Object;
VIRTUAL PROCEDURE clear;
VIRTUAL PROCEDURE store():ObjectPtr ;
VIRTUAL PROCEDURE copy (VAR o:Object) ;
END Object;

END OBJ11.