/* REXX    FLIP      Show hidden lines and hide shown lines.
*/
address ISREDIT
'macro'
"(lastline) = LINENUM .zlast"
do i = 1 to lastline
   "(xst) = XSTATUS" i
   if xst = "X" then "XSTATUS" Right(i,6,0) "= NX"
                else "XSTATUS" Right(i,6,0) "= X"
end
exit                                   /*@ FLIP                      */