Changes: Check for Object access name error
#IF ( (!Zl & 1)=0)
#IFSAME FN$!1 __F__
#ERROR DFERR_COMP_ILLEGAL_METHOD_DEFINTION !1 is an internal function name
#ENDIF
#ENDIF
#IFDEF MANGLE_NAMES
#IFDEF GET_!1
#IF (GET_!1>$40000000)
#ERROR DFERR_COMP_ILLEGAL_METHOD_DEFINTION !1 is already defined as an object
#ENDIF
#ENDIF
#IFSAME RETURNS !2 !3 !4 !5 !6 !7 !8 !9
#ELSE
#ERROR DFERR_COMP_INVALID_METHOD_SYNTAX MISSING KEYWORD RETURNS ON FUNCTION DECLARATION
#ENDIF
HANDLE$MESSAGE GET !1 !2 !3 !4 !5 !6 !7 !8 !9
#ELSE
#IFDEF GET_!1
#IF (GET_!1>$40000000)
#ERROR DFERR_COMP_ILLEGAL_METHOD_DEFINTION !1 is already defined as an object
#ENDIF
#ENDIF
HANDLE$MESSAGE GET_!1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF