/*REXX TITLE:    UNGML  -- take gml statements and regmls them      */
 /*                      so then can be printed to show gml control  */
 /*  USERS:            DCF and SCRIPT/VS users                       */
 /*  CONTRIBUTED: 1988/04/09 DAVID MCRITCHIE -- The REXX Macros Toolbox*/
 /*  EXAMPLE: ===>  ungml                                            */
 Address "ISREDIT"
 "MACRO NOPROCESS (REVERSE)"
/*ddress "ISPEXEC" "CONTROL ASIS"*/
 "PROCESS RANGE C"
 IF RC = 0 THEN do
    "LABEL .zfrange = .A 0"
    "LABEL .zlrange = .B 0"
    LABF = " .A"
    LABL = " .B"
 END
 ELSE do            /* default range is label .a and .b */
    LABF = " .A "
    LABL = " .B "
 END
 IF "REVERSE" \= translate(REVERSE) THEN do
 "C ALL " labf labl "    '&&&&'           '&&&&amp.'"
 "C ALL " labf labl "    ':'              '?#?'"
 "C ALL " labf labl "    '-         '     '-&&&&rbl.         '"
 "C ALL " labf labl "    '^'              '&&&&not.'"
 "C ALL " labf labl "1   '.'              '&&&&period.'"
 "C ALL " labf labl "    ';.'             ';&&&&period.'"
 "C ALL " labf labl "    '?#?'            '&&&&gml.'"
 "C ALL " labf labl "    ';'              '&&&&semi.'"
 end
 else do
 "C ALL " labf labl "    '&&&&semi.'       ';'"
 "C ALL " labf labl "    '&&&&gml.'        '?#?'"
 "C ALL " labf labl "    ';.&&&&period.'   ';.'"
 "C ALL " labf labl " 1  '&&&&period.'     '.'"
 "C ALL " labf labl "    '&&&&period.'     '.'"
 "C ALL " labf labl "    '-&&&&rbl.   '    '-    '"
 "C ALL " labf labl "    '&&&&not.'        '^'"
 "C ALL " labf labl "    '?#?'            ':'"
 "C ALL " labf labl "    '&&&&amp.'        '&&&&'"
 end
 return 1