Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!mailrus!tut.cis.ohio-state.edu!alix!isolated
From: isolated@alix.UUCP (20 James D. Corder)
Newsgroups: alt.sources
Subject: Yet another Clock, for VT100 types.  dater.src
Keywords: Clock src VT100
Message-ID: <253@alix.UUCP>
Date: 19 Aug 89 16:11:01 GMT
Distribution: usa
Organization: EZ-C-Lite Inc., Columbus, OH
Lines: 50


Hello Net People:-)

	This is a simple date program for VT100 type terminals.  It uses
the systems date command to generate the time.  BB is a small shell script
that I wrote called Big Banner.  The names tells it all.  If you want,
remove the two lines with the escape sequence in them and save it as bb.

	I thought about using the ESC[pn;pnH however some terminals do
not have that function.  Therefore, I used several ESC[A instead.  I
know sloppy programming.  However, I wanted to keep this program as simple
as possible:-)

	SECOND will turn on/off the display of the second filed.  With SECOND
set to ON it takes approximately seven seconds on an AT&T 3B2/300 to redraw
the screen.  If you do not want to use the seconds field set SECOND to off.
You can change, or remove, the sleep command to speed/slow the time it takes
to refresh the screen.

	I have uuencode{d} the file for uucp transfer.

Have Fun,
James D. Corder
...osu-cis!alix!jdc
alix!jdc@cis.ohio-state.edu

# ^[[A Up one line			ESC[A
# ^[[K Clear to end of line		ESC[K
# ^[[C Cursor left one space		ESC[C

--- CUT --- cut --- CUT --- cut --- CUT --- cut --- CUT --- cut --- CUT ---
begin 700 dater
M"B,@4T5#3TY$/2)/3B(*4T5#3TY$/2)/1D8B"@I54"@I>PIE8VAO("(;6T$;
M6T$;6T$;6T$;6T$;6T$B"GT*"E50,B@I>PIE8VAO("(;6T$;6T$;6T$;6T$;
M6T$;6T$;6T$;6T$;6T$;6T$;6T$;6T$;6T$B"GT*"DE.1$5.5"@I>PIE8VAO
M("(;6T,;6T,;6T,;6T,;6T-<"AM;0QM;0QM;0QM;0QM;0UP*&UM#&UM#&UM#
M&UM#&UM#7 H;6T,;6T,;6T,;6T,;6T-<"AM;0QM;0QM;0QM;0QM;0UP*&UM#
M&UM#&UM#&UM#&UM#7 H;6T,;6T,;6T,;6T,;6T-<"AM;0QM;0QM;0QM;0R1[
M4U-](@I]"@HC"4))1R!"04Y.15(*"D)"*"E["F)A;FYE("]<(" O9R<@?%P*U-%0T].1'T@/2 B3TXB
M(%T*"0ET:&5N"@D)"550.TE.1$5.5#M54#(*"0EE;'-E"@D)"550.U50.U50
A.V5C:&\@(AM;01M;02([