/* REXX -- LIST  NX LINES AS NOTE/INFO LINES BEFORE EACH LINE*/
/* AUTHOR: DAVID MCRITCHIE, "THE REXX MACROS TOOLBOX", 1992/02/05 */
ADDRESS "ISREDIT";"MACRO"
"FIND P'=' 1 NX FIRST"
DO FOREVER
   "(LINE) = LINE .ZCSR"
   "LINE_BEFORE .ZCSR = INFOLINE (LINE)"
   "FIND P'=' 1 NX"
   IF RC \= 0 THEN LEAVE
 END
RETURN 0