/* REXX   REHELP    Restore all the 'say' commands removed by REHELP.
*/
address ISREDIT
"MACRO (opts)"
upper opts
parse var opts "TRACE" tv .
parse value tv "N" with tv .
rc = Trace('O') ; rc = Trace(tv)

forn = "FIRST"
do forever
   "F ' ' 1  NX" forn
   if rc > 0 then leave
   forn = "NEXT"
   "C '     '   'a281a8407f'x      "   /* say "                      */
   "C 80 ' '    '7f'x              "   /* "                          */
end                                    /* forever                    */
"F P'^' FIRST NX "

exit                                   /*@ REHELP                    */