/*
 *
 *  -----------------------------------------------------------------
 *  Execution of this macro requires a license for uni-XEDIT Extended
 *  for each concurrent user of the macro.
 *  -----------------------------------------------------------------
 *
 *  toggle - macro to extend the uni-XEDIT ALL command; swaps
 *           display between currently selected lines and all lines
 *
 *  Syntax:  toggle
 *
 *
 *
 *  Modification History:
 *
 *  -- --- --     Macro originally contributed by Dan Hofferth, Allison
 *                  Engine Company
 *  09 Feb 96 twg Standard TWG comments added
 *
 *
 */

/* Toggle existing hidden lines on and off.                    -iedh1 */
 
If arg(1) ^= '' Then Do
   'COMMAND MSG Type "TOGGLE" to toggle existing hidden lines on and off.'
   Exit
   End
 
'COMMAND EXTRACT /DISPLAY/'
 
If      ( display.1 = 0 & display.2 = 0 ) Then Do
   'COMMAND SET DISPLAY 1 1'
   End
Else If ( display.1 = 1 & display.2 = 1 ) Then Do
   'COMMAND SET DISPLAY 0 1'
   End
Else If ( display.1 = 0 & display.2 = 1 ) Then Do
   'COMMAND SET DISPLAY 1 1'
   End
Else Do
   'COMMAND EMSG ** Display settings not recognized.  TOGGLE cancelled. **'
   End
 
Exit