)attr /********************************************************************/ /* Name: WORKWAIT 03/97 BRG */ /* Purpose: Brain food for your users while they wait... */ /* Special thanks to David Alcock, the father of this panel routine.*/ /********************************************************************/ # TYPE(TEXT) INTENS(LOW) COLOR(TURQ) ¦ TYPE(TEXT) INTENS(HIGH) COLOR(GREEN) HILITE(BLINK) ¢ TYPE(TEXT) INTENS(LOW) COLOR(BLUE) ( TYPE(TEXT) INTENS(HIGH) COLOR(RED) ) TYPE(OUTPUT) INTENS(HIGH) COLOR(PINK) JUST(ASIS) ` type(text) intens(high) color(yellow) ~ type(text) intens(low) color(turq) )Body Expand(!!) ¦WW+ ¦WW+¦OOOOOOOOOOOO+¦RRRRRRRRRRR+ ¦KK+ ¦KK+ `Time -~&ZTIME ¦WW+ ¦WW+¦OOOOOOOOOOOO+¦RRRRRRRRRRRR+¦KK+ ¦KK+ `Date -~&ZDATE ¦WW+ ¦WW+¦OO+ ¦OO+¦RR+ ¦RR+¦KK+ ¦KK+ `Julian -~&ZJDATE ¦WW+ ¦WW+¦OO+ ¦OO+¦RR+ ¦RR+¦KK+ ¦KK+ `User -~&ZUSER ¦WW+ ¦WW+¦OO+ ¦OO+¦RR+ ¦RR+¦KK+ ¦KK+ ¦WW+ ¦WW+¦OO+ ¦OO+¦RRRRRRRRRRRR+¦KKKKKKK+ ¦/ \ / \ / \ + ¦WW+ ¦WW+ ¦WW+¦OO+ ¦OO+¦RRRRRRRRRRR+ ¦KKKKKKK+ ¦\ / \ / \ / + ¦WW+¦WWWW+¦WW+¦OO+ ¦OO+¦RR+ ¦RR+ ¦KK+ ¦KK+ ¦WW¦WW+¦WW¦WW+¦OO+ ¦OO+¦RR+ ¦RR+ ¦KK+ ¦KK+ ¦WWWW+ ¦WWWW+¦OO+ ¦OO+¦RR+ ¦RR+ ¦KK+ ¦KK+ ¦WWW+ ¦WWW+¦OOOOOOOOOOOO+¦RR+ ¦RR+ ¦KK+ ¦KK+ ¦WW+ ¦WW+¦OOOOOOOOOOOO+¦RR+ ¦RR+¦KK+ ¦KK+ + ¦IIIIIIIIII+ ¦NN+ ¦NN+ ¦GGGGGGGGGG+ + ¦IIIIIIIIII+ ¦NNN+ ¦NN+¦GGGGGGGGGGGG+ + ¦II+ ¦NNNN+ ¦NN+¦GG+ ¦GG+ (Please be patient, performing: ¦II+ ¦NN¦NN+ ¦NN+¦GG+ + ¦II+ ¦NN+¦NN+ ¦NN+¦GG+ )FUNCTION ¦II+ ¦NN+ ¦NN+ ¦NN+¦GG+ + ¦II+ ¦NN+ ¦NN+¦NN+¦GG+ ¦GGGGG+ + ¦II+ ¦NN+ ¦NN¦NN+¦GG+ ¦GGGGG+ + ¦II+ ¦NN+ ¦NNNN+¦GG+ ¦GG+ + ¦II+ ¦NN+ ¦NNN+¦GG+ ¦GG+ + ¦IIIIIIIIII+ ¦NN+ ¦NN+¦GGGGGGGGGGGG+ + ¦IIIIIIIIII+ ¦NN+ ¦N+ ¦GGGGGGGGGG+ )init )proc )end