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