/* REXX    SKINNY     Prepare a REXXSKEL-based routine for upgrading
                      to a new version of REXXSKEL.
*/
address ISREDIT
"MACRO (opts)"
upper opts
parse var opts "TRACE" tv .
parse value tv "N" with tv .
rc = Trace(tv)
 
"X ALL"
"F '*/' 1"        /* end of primary comment */
 
mhtag  = "Modification History"
lmhtag = Length(mhtag)
do forever
   "F ' ' 1 prev"
   if rc > 0 then exit
   "(text)  = LINE .zcsr"
   if Datatype(Substr(text,6,6),"W") then leave
   if Substr(text,6,lmhtag) = mhtag then leave
end
"F 'REXXSKEL'"
"F word 'info' 1"
 
"F '/*@ HELP'"             /* end of Help pgf */
"F '/*@ TOOLKIT_I'"        /* end of TOOLKIT_INIT pgf */
 
"F '/*' 1"             /* start of imbeds, if any */
"F '*/' 1"             /*   end of imbeds, if any */
"F 'DEIMBED:' 1 first "
"F '/*@ DEIMBED'"
 
"F first p'=' nx"                      /* position cursor at top     */
 
exit                                   /*@ SKINNY                    */