REGS

This macro toggles the Current Registers window, and if it is opened, places it at the top of the screen.

/*REXX --------------------------------------------------------------*/
/*                                                                   */
/* REGS    - Toggle the current registers window.                    */
/*                                                                   */
/*   When the REGS window is opened, it will be moved on the IDF     */
/*   display so that it is the first window.                         */
/*                                                                   */
/*-------------------------------------------------------------------*/

 'Regs'                             /* Toggle REGS window            */

 'Extract Cursor'                   /* Obtain window information     */
 n = Find(display,'REGS')           /* Is REGS window present?       */
 If n ¬= 0 Then                     /* Yes?  Force to be 1st window  */
   'Order ='n

 Exit