=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-= Command: Procedure {Set} Message {FOR Class} {{Type Argument} ...} Parameters: Description: =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
// The interface to handle$message is slightly different in the mangling system. // The set is not concatenated with the symbol, because the mangling will generate its own symbol later. #IFSAME !1 SET #IFDEF MANGLE_NAMES HANDLE$MESSAGE SET !2 !3 !4 !5 !6 !7 !8 !9 #ELSE HANDLE$MESSAGE SET_!2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ELSE #IFDEF MANGLE_NAMES HANDLE$MESSAGE MSG !1 !2 !3 !4 !5 !6 !7 !8 !9 #ELSE HANDLE$MESSAGE MSG_!1 !2 !3 !4 !5 !6 !7 !8 !9 #ENDIF #ENDIF