/* REXX     SNIP    find and shorten any long lines                  */
address ISREDIT
"MACRO"
"X ALL"
"F ALL p'^' 81 250"