/* XCLOCK: Shows the time in the upper right corner            *
****************************************************************
* THIS PROGRAMM HAS BEEN WRITTEN BY:  RUPP THOMAS              *
* VORARLBERGER ILLWERKE AG - BREGENZ  10/04/91                 *
* VERSION:  1.1                       12/10/91                 *
*!!*************************************************************
XCLOCK:
Shows the time in the upper right corner of your XEDIT-Session
 
 
XCLOCK <Color!OFF> Hilight
 
  OFF      Turns off the display
  Color:   Default (Green), Blue, Red, Pink, Green, Turquise
  Hilight: None, REVVvideo, BLInk,UNDerline
************************************************************!!*/
         parse upper arg color;
         /*************************************************
         * Show Help Info. It shows all lines between the *
         * first and second line containing "!!".         *
         * The lines with "!!" will not be displayed.     *
         *************************************************/
         if color = '?'
           then
             do;
               'VMFCLEAR';
               ende = 0;
               do i = 1 to sourceline() until(ende);
                 if pos('!!',sourceline(i)) > 0
                   then
                     do;
                       do j = i+1 while pos('!!',sourceline(j)) = 0;
                         say sourceline(j);
                       end;
                       ende = 1;
                     end;
               end;
               exit 100;
             end;
         if color = ''
           then color = 'BLUE';
         'WINDOW DELETE  STATUS';
         'VSCREEN DELETE STATUS';
         if subword(color,1,1) = 'OFF'
           then signal exit;
         'WINDOW DEFINE  STATUS 1 7 1 73',
                '( FIXED NOBORDER POP TOP SYSTEM';
         'VSCREEN DEFINE STATUS 1 7 0 0',
                '( TYPE PROTECT' COLOR 'SYSTEM';
         'WINDOW SHOW    STATUS ON STATUS';
         'SET LOCATION STATUS OFF';
exit:    exit;
