=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: Register_Procedure Message {FOR Class} {{Type Argument} ...} Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
#IFDEF UI.EXISTS
#ELSE
USE UI
#ENDIF
#IFSAME !2 GLOBAL
#ERROR 101 GLOBAL PROCEDURES CANNOT BE REGISTERED
#ELSE
#IFSAME !1 SET
MESSAGE$ADDRESS SET_!2
#ELSE
MESSAGE$ADDRESS MSG_!1
#ENDIF
#ENDIF