/* REXX    SEECHARS
*/
address ISREDIT
"MACRO (opts)"
upper opts
parse var opts "TRACE" tv .
parse value tv "N" with tv .
rc = Trace(tv)

"X ALL"
"F ALL '{' "
"F ALL '}' "
"F ALL '[' "
"F ALL ']' "
"F ALL '\' "
"F ALL '~' "
"F ALL '`' "
zedsmsg = "Undisplayables shown"
zedlmsg = "Several characters that are not typically displayable",
          "as in HELP-text by a 'say' statement have been found",
          "in this text.  left- and right curly braces, left- and",
          "right square brackets, backslash tilde, and tabquote."
address ISPEXEC "SETMSG MSG(ISRZ000)"
"CURSOR = 1 1"

exit                                   /*@ SEECHARS                  */