Yet another Clock, for VT100 types. dater.src

20 James D. Corder isolated at alix.UUCP
Sun Aug 20 02:11:01 AEST 1989


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 at 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, at 4T5#3TY$/2)/3B(*4T5#3TY$/2)/1D8B"@I54"@I>PIE8VAO("(;6T$;
M6T$;6T$;6T$;6T$;6T$B"GT*"E50,B at 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 at 9&]W;B U(&QI;F5S"@IW:&EL92AT<G5E*0ID;PH)4U,]8&1A=&4@
M*R538#M"0B!@9&%T92 K)4 at Z)4U@"@H):68 at 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



More information about the Alt.sources mailing list