Changes: Check for Global error (used to check !1) Check for Object access name error Check that the name is not a global name
#IFDEF UI.EXISTS
#ELSE
USE UI
#ENDIF
#IF ( (!Zl & 1)=0)
#IFSAME FN$!1 __F__
#ERROR 4330 !1 is an internal function name
#ENDIF
#ENDIF
#IFSAME !2 GLOBAL
#ERROR 101 GLOBAL FUNCTIONS CANNOT BE REGISTERED
#ELSE
#IFDEF GET_!1
#IF (GET_!1>$40000000)
#ERROR 4332 !1 is already defined as an object
#ENDIF
#ELSE
MESSAGE$ADDRESS GET_!1
#ENDIF
#IFSAME !2 FOR
#FREG GET_!1 !4 !5 !6 !7 !8 !9
#ELSE
#FREG GET_!1 !2 !3 !4 !5 !6 !7 !8 !9
#ENDIF
#ENDIF