/* 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 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;