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([