isolated@alix.UUCP (20 James D. Corder) (08/19/89)
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<B D*B!\7 IS960@
M)W,O(R\C(R]G)R!\7 IS960@)W,O("\@("]G)R!\7 IS960@)W,O7B,O7"\C
M+V<G('Q<"G-E9" G<R]>("]<(" O9R<@?%P*<V5D("=S+R C+UPO(R]G)R!\
M7 IS960@)W,O7B\;6T$;6TLO9R<@?%P*<V5D("=S+R0O&UM"+V<G('Q<"G-E
M9" G<"<*?0H*='!U="!C;&5A<@D["2,@<VAO=6QD(&-L96%R('1H92!S8W)E
M96X*"F5C:&\@(B([96-H;R B(CME8VAO("(B.V5C:&\@(B([96-H;R B(@DC
M"4UO=F4@9&]W;B U(&QI;F5S"@IW:&EL92AT<G5E*0ID;PH)4U,]8&1A=&4@
M*R538#M"0B!@9&%T92 K)4@Z)4U@"@H):68@6R D>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([<VQE97 @,S *"69I"F1O;F4*
end