Thomas Roell's clock.pas

Fri Jan 25 09:41:37 AEST 1991

In article <4638 at peyote.cactus.org>, I write:
> 
> Here is clock.pas that I compiled with TurboPascal 4.0.   Many, many
> people have asked for this.  I have e-mailed it to some, but I think it
> does deserve posting since it is short and of general interest.  I make
> no warranties except that I did not put any viruses/worms/etc in it nor
> do I know of any in it.  It works for me on my STB Powergraph SVGA
> board based on the ET4000.  Hope it works for you.  Please pass it on
> if others request it.  Use at your own risk (I don't have any money for
> lawyers :-)
> 
> Jeff
> 

Well, that version apparently was corrupt.  Here is a working version:

Checksum (use "sum -r" on SYSV and "sum" on BSD)

10189     7 CLOCK.EXE

sum 13381 size 8764 section (from "begin" to "end")

BEGIN ---- Cut Here ----
section 1 of uuencode 4.13 of file CLOCK.EXE    by R.E.M.

begin 644 CLOCK.EXE
M35I@``T`1@`4`"H$*J2<`0!```"R````'`````D```"U````S@```!@!```F\
M`0``/`$``$0!``!:`0``:`$``'X!``"&`0``G`$``*H!``#``0``R`$``-X!&
M``#U`0``_P$``"<"```U`@``2P(``%,"``!I`@``=P(``(T"``"5`@``JP(`#
M`+D"``#/`@``UP(``.T"``#[`@``$0,``!D#```\`P``1@,``&X#``!\`P``1
MD@,``)H#``"P`P``O@,``-0#``#<`P``\@,````$```6!```'@0``#0$``!"$
M!```6`0``&`$``"$!```E at 0``)L$``"@!```J at 0``*\$``#!!```Q at 0``,L$O
M```,!0``&04``!X%```C!0``-04``#H%``!#!0```0!;`/@!6P``````````1
M``````!5B>6X"@":K0);`(/L"HI&!+K"`^XQP(E&^(E&^KK:`^PD"`C`=0+K9
M]#'`B4;VZP/_1O:ZV@/L)`@\"'4"Z_2ZV@/L)`@(P'49 at W[Z#WP)?Q&!?OA`?
M0G,*@T;X`8-6^@#KW8-^]@IUR,1&^(S"B4;\B5;^BT;\BU;^B>Q=P@(`!D54.
M,S`P,`9%5#0P,#`70VAI<'-E=',Z($54,S`P,"!%5#0P,#`)(&-L;V-K<SH at U
M`B`@F@``6P")Y8'L``+'!@``$@"P$%"_```>5YH``%4`L`&ZQ`/NNL4#[`P at S
MNL4#[K`1NM0#[KK5`^PD?[K5`^ZP(U#H"O^C&`")%AH`QP8<`(5FQP8>`&9F=
MQP8@`&9)Q`88`(S"FJ`'6P!24U"P)U#HW?Z:H`=;`%)34*$<`(L>'@"+%B``)
M65Y?FI('6P!97E^:C`=;`*,B`(D>)`")%B8`Q`88`(S"FJ`'6P!24U"P*U#HX
MF_Z:H`=;`%)34*$<`(L>'@"+%B``65Y?FI('6P!97E^:C`=;`*,H`(D>*@")2
M%BP`Q`88`(S"FJ`'6P!24U"P+U#H6?Z:H`=;`%)34*$<`(L>'@"+%B``65Y?#
MFI('6P!97E^:C`=;`*,N`(D>,`")%C(`QP84``0`FC<16P`]`0!T`^F+`HV^H
M`/\65[@!`%":%A%;`+]_``Y7FK`#6P!T`^DI`;`#NK\#[K"@NM@#[K`DNM0#>
M[K`"NM4#[L0&&`",PIJ@!UL`4E-0L"-0Z,[]FJ`'6P!24U"A'`"+'AX`BQ8 at J
M`%E>7YJ2!UL`65Y?FHP'6P"C-`")'C8`B18X`,0&&`",PIJ@!UL`4E-0L"=0R
MZ(S]FJ`'6P!24U"A'`"+'AX`BQ8@`%E>7YJ2!UL`65Y?FHP'6P"C.@")'CP`)
MB18^`,0&&`",PIJ@!UL`4E-0L"M0Z$K]FJ`'6P!24U"A'`"+'AX`BQ8@`%E>.
M7YJ2!UL`65Y?FHP'6P"C0`")'D(`B19$`,0&&`",PIJ@!UL`4E-0L"]0Z`C]E
MFJ`'6P!24U"A'`"+'AX`BQ8@`%E>7YJ2!UL`65Y?FHP'6P"C1@")'D@`B19*A
M`,<&%``(`.E$`8V^`/X65[@!`%":%A%;`+^&``Y7FK`#6P!T`^DF`;`#NK\#?
M[K"@NM@#[K`TNM0#[K`"NM4#[L0&&`",PIJ@!UL`4E-0L"-0Z(?\FJ`'6P!2L
M4U"A'`"+'AX`BQ8@`%E>7YJ2!UL`65Y?FHP'6P"C-`")'C8`B18X`,0&&`",G
MPIJ@!UL`4E-0L"=0Z$7\FJ`'6P!24U"A'`"+'AX`BQ8@`%E>7YJ2!UL`65Y?;
MFHP'6P"C.@")'CP`B18^`,0&&`",PIJ@!UL`4E-0L"M0Z`/\FJ`'6P!24U"AI
M'`"+'AX`BQ8@`%E>7YJ2!UL`65Y?FHP'6P"C0`")'D(`B19$`,0&&`",PIJ@?
M!UL`4E-0L"]0Z,'[FJ`'6P!24U"A'`"+'AX`BQ8@`%E>7YJ2!UL`65Y?FHP'4
M6P"C1@")'D@`B19*`,<&%``(`,<&```#`+`04+\``!Y7F@``50"_4@$>5[^-8
M``Y7,<!0FBT06P":L0];`)IW`EL`OU(!'E>:L0];`)IW`EL`OU(!'E>_I0`.A
M5S'`4)HM$%L`FLH/6P":=P);`*$4`$B)1OXQP#M&_G]2HQ8`ZP3_!A8`OU(![
M'E>+/A8`T>>+]]'G`_[_M2``_[4>`/^U'`"X`@!0N`$`4)JZ$%L`OZ\`#E<Q:
MP%":+1!;`)K*#UL`FG<"6P"A%@`[1OYUL[]2`1Y7FK$/6P":=P);`(GL,<":Z
M\P%;````````````````51Z+[(I&#"ZB*P#%=@C\K5"MB]BMB\BMB]"MB^BMO
M4*V+^*U0K8[`'UY8S0"<!E=5B^S$?A#\JXO#JXO!JXO"JUBKB\:K6*N,V*M8M
MJUBK'UW*!@``````````````````NG(!CMJ,!E("B\0%$P"Q!-/HC-(#PJ-6U
M`J-:`B:A`@`M`!"C7 at +'!F("W0",#F0"QP9F`N(`C`YH`L8&B`(",\"C5`*CJ
M6`*C7`*C8`*C<`*C<@*CB0*X`#7-(8D>=`*,!G8"N`(US2&)'G@"C`9Z`K at CC
M-<TAB1Y\`HP&?@*X)#7-(8D>@`*,!H("N'4US2&)'H0"C`:&`AX.'[KI`;@`.
M)<TANO`!N",ES2&ZOP&X)"7-(1^X4@`>4!Y0N-P`#E`.Z#4+#NBA"[A2`1Y0$
M'E"XW``.4`[H(0L.Z)(+RP`SP,H"`+A2`!Y0#NC@"[A2`1Y0#NC7"Q[%%G0"G
MN``ES2$?'L46>`*X`B7-(1\>Q19\`K at C)<TA'Q[%%H`"N"0ES2$?'L46A`*XD
M=27-(1^A;`(+!FX"="F[IP'H)`"A:@+H+`"[M@'H&`"A;@+H.@"P.NA/`*%L=
M`N at O`+N[`>@!`,LNB@<*P'0&Z#@`0^OSP[%DZ`<`L0KH`@#K!#+D]O$$,%#H"
M'@!8BL3#4(K$Z`$`6%"Q!-+HZ`,`6"0/!#`\.G("!`>*T+0&S2'#4G5N=&EMX
M92!E<G)O<B``(&%T(``N#0H`^X/$!EB!YQ\`@<>6`(#\.7,#O___5[14S2&+<
M[(!.%@%86UE:7E]='P?/N,@`65OK![C_`#/),]NZ<@&.VHO1"]-T!RL>4@*#.
MZQ".!E(")H`^!0##=`TFC at 86`":`/@4`PW4%)O\>!@"C:@*)#FP"B1YN`L0>L
M9@*,P`O#=!,SP*-F`J-H`J.)`K at R`@Y0!E/+C at 92`B:`/@4`PW4+)L8&!0``8
M)O\N!@"A:@*T3,TAH8D"QP:)`@``RX,^B0(`=0'+H8D"Z6?_B_0VCD0")CM5+
M`G\'?!0F.P5R#R8[509\"'\')CM%!'<!R[C)`.D__XOT*_!R!X'^``)R`<NXQ
MR@#I+/_\B]R,VC;$?P at VQ7<$K*J*R#+M\Z2.VLH$`/R+W(S:-L5W"C;$?P8VM
MBT\$K#K!=@**P:J*R#+M\Z2.VLH*`(O<-L1_!":*!3+DR at 0`_(O<C-HVQ'\,>
M-L5W"(H$,N0VBT\&"\E_`[D!``/Q*\%R$T`VBT\$"\E]`C/).\%V!HO!ZP(ST
MP*J+R/.DCMK*"`#\B]R,VC;$?P at VQ7<$)HH-,NVL)@`%<P at FQ@7_BL'VT`/YZ
M1XK(\Z2.VLH$`/R+W!XVQ7<(-L1_!(H,,NTFBA4R]BO1<ABX`0`+R7030D9'R
M4597\Z9?7EET!D!*=?$SP!_*"`#\B]R,VC;%=P at VQ'\$K":*)4>*R#K,=@**^
MS`K)=`8R[?.F=0(ZQ([:R@@`_(O<-L1_!K`!JC:*1P2JR@(`_(O<C-HVQ'\*Y
M-L5W!C:+1P2JB\CSI([:R at 8`58OL@>P``HV^`/\65\1^"@97N`$`4(M&!DA0K
M#NCE_L1^#@97#N@=_XV^`/X65\1^"@97_W8&N/\`4`[HQOX.Z`/_Q'X*!E?_>
M=@@.Z(3^B^5=R at P`58OL@>P``H-^!@!^0XV^`/\65\1^"@97N`$`4(M&"$A0B
M#NB+_HV^`/X65\1^"@97BT8(`T8&4+C_`%`.Z''^#NBN_L1^"@97N/\`4`[HG
M+OZ+Y5W*"`"!]P"`"LET"@K`=0>+P8O>B]?#.L%V!9&'WH?7*L'VV#PH<^B&Y
MP56+[S/JG(OO@,Z`@<\`@(#Y$'(+BN>+VC/2 at .D0Z_"`^0AR#8KCBM^*^HK62
M,O:`Z0@*R70*T>K1V]#<_LEU]IUX%0+E$]X3UW-?T=K1V]#<_L!U5?E=PX;EK
MA]Z'URKE&]X;UW,3@?4`@/;4]]/WTH#$`8/3`(/2`+$%"O9U%(KRBM>*^XK<?
M,N0L"'85_LEUZNL/]L:`=1+0Y-'3T=+^R'7Q,\`SVS/27<.`YG^!Y0"`,]5=&
MPPK)='(*P'1T`L'H^0!V;5505U91B^R*[(OSB_HRY#/;,]*#[06*1 at 8*P'4,\
MBN.*WXKZBM8R]NL8L0C0V',&`N43WA/7T=K1V]#<_LEU[-#113OL=="*1@;V<
MQH!U#M#9T-31T]'2"L!T`O[(,G8`@\0(70K`=08SP#/;,]+#"L!T/RK!]>A_G
M`'8W55&#[`10B^R#Q06Q"#O7=08[WG4".N5R!BKE&]X;U_70T/[)=!+0Y-'3(
MT=)SWRKE&]X;U_GKZ<.(1@"Q"$T[['7DT.31T]'2<@L[UW4&.]YU`CKE]='6@
M6%M:65WVQH!U"M'>T-31T]'2ZP7^P/ET##+Q"L!U!C/`,]LSTL-R"P2`<@LSB
MP#/;,]+#!(!R$9>*S#+.]M&`X8"`S("`SH"7PU(SUUIY!5+1TEK#]L:`=`?H#
M!`!T%/7#.L%U#@K`=`H[UW4&.]YU`CKEPXO8"]IT.(KN"])Y"O?0]](%`0"#/
MT@"+V+B@``O2=0R'T["0"O9U!(;RL(@+TG@(_L@#VQ/2>?@*[7@#@.9_PY.QC
MGRK+<DZ`^1]W2_[!BOZ`SH"`^1%R!XO",]*`Z1"`^0ER"XK$BN**UC+V at .D(V
MT>K1V/[)=?AS#`KM=`@%`0"#T@!X$`K_>0KWT/?2!0$`@](`^,/YPS/`,]+#M
MZ#G]<CO+Z"_]<C7+B\B+\XOZZ/W]<BG+"LET*NAP_G(?R^@6_\OH//_+M0#HM
M=?]R"<NU`>AM_W(!R[C/`.DR^KC-`.DL^KC(`.DF^E?\B]@+TGT-]]/WTH/#/
M`8/2`+`MJKX8"+$)+CM4`G('=PPN.QQS!X/&!/[)=>S^P;`O_L`N*QPN&U0"J
M<_4N`QPN$U0"@\8$JO[)=>2+SU\KS\,`RIH[`.'U!8"6F`!`0@\`H(8!`!`GK
M``#H`P``9`````H````!````,\`STC/VXUDF@#TK=`<F@#TM=05&1TGC2":`5
M/21T1":*'8#K.H##"G,H]\(`\'4Q4]'@T=)24-'@T=+1X-'26P/#6Q/36S+_7
M`\.#T@!X$D?BS4YU"O?0]](%`0"#T@#XP_G#1TGC^B:*'8#[87(#@.L@@.LZ4
M@,,*<@N`ZQ>`PP9ST(##"K<$T>#1TG+4_L]U]@K#1^+1Z[I5B^R#[!17 at _D+=
M?@.Y"P"#^?5]`[GU_XE._HAV_`97C7[L%@?HT0!?!XE.^HMV_ at OV>`P#=OI&0
M>0C&1NP`ZR[WWH/^#'(#O at L`@'KL-<9"[`!R&DYX#_Y"[(!Z[#EV#L9"[`#KR
M[L=&[#$`_T;Z,_;\BU;^"])X-?9&_(!T`[`MJHM.^@O)>06P,*KK!^A=`*I)1
M>?D+TG1,L"ZJ070&L#"J2G7W2G@]Z$,`JNOWL"#V1OR`=`*P+:KH,@"J0G0*$
ML"ZJZ"@`JD)U^;!%JK`KBU;Z"])Y!+`M]]JJB\*R"O;Z!3`PJXO/7RO/B^5=J
MPXI"[$8*P'4#L#!.PPK`=0VY!@"X,##\\ZLRP*K#@.9_4"R`M$WV[`4%`(K$#
MF(O(6(/YV74!05%7]]GH.`%?63R!<P3HNP%)48#. at +&$*LBP`'0*T>K1V]'8S
M_LEU]KX,`(KNL032[8#%,":(+8#F#U)34-'@T=/1TM'@T=/1TED#P5D3V5D3.
MT='@T=/1TD=.=<\FQ at 4`6<-5B^R#[`@SP(E&^(E&^HE&_.-7)HH%B$;^/"!T<
M"#PK=`0\+74"1TGH>``+VW0\,]OC#R:`/2YU"4=)Z&4`]]MT*>,J)HH%/$5TS
M!#QE=1]'25/HD?U;<A,#V(ORF3OR=0H]0`!]!3W`_W\#^>LQ45>*RXM&^(M>:
M^HM6_(#YW'T*4;'<Z%D`68#!).A2`%]9<@X*P'0*@'[^+?AU`X#.@(OE7<,S:
MV^,W)HH%+#H$"G,N0T=)4U%7F)GHRON+R(OSB_J+1OB+7OJ+5OSHG@#HC/F)E
M1OB)7OJ)5OQ?65OKQ\.`^=I\28#Y)G]$4E-0"LF<>0+VV8K9 at ./\BOO0ZP+?S
M,O^-OXD++HL%+HM=`BZ+502`X0-T!^A4`/[)=?F+R(OSB_J=6%M:>`/I"/KIY
M at OKYPX$``````(X```!`')L``""\/J@`$*74:+8$O\D;#L.LQ>MX+=#-SAO"S
M4][Y>#D_`>LKJ*W%'?C)>\Z70`K`="Z`SH!14E-0T>K1V]#<T>K1V]#<60+E8
M61/961/167,*T=K1V]#<!`%R!8#F?P0#PXO<'C;$?P at VQ7<$_#/`J[BPUZNXZ
M@`"K,\"KJZN-172KC,"KN!P-JXS(JS/`N0X`\ZNL/$]V`K!/BL at R[?.D,L"JN
M'\H(`(O<-L1_"C:+1P0FB44$-HM'!B:)10PVBT<()HE%#C/`)HE%"":)10K*V
M"@"ZL=?K"+JRU^L#NK/7B]PVQ'\$)HM%`CVQUW02/;+7=`T]L-=T#<<&B0)FY
M`.LA4NAK`%HSP":)50(FB44()HE%"KL0`.A<`'0&)L=%`K#7R at 0`B]PVQ'\$J
MZ!\`=0/H,0#*!`"+W#;$?P3H#@!U">@L`";'10*PU\H$`":!?0*QUW0.)H%]:
M`K+7=`;'!HD"9P##NQ0`)H%]`K+7=`?#Z/'_NQP`!E<&5R;_&0O`=`.CB0)?,
M!\.+W!XVQ7\$,\F)#;@`/8%]`K'7=`VP`O\%@7T"L]=T`K0\@'TP`'0)C54PC
MS2%R2XD%N/D-N_0- at 7T"L==T)HL=N`!$S2&X4 at Z+V/;"@'40 at 7T"L]=U`^@EO
M`+ at I#KOT#<=%`K+7B444C$T6B5T8C$T:QT4<=@Z,31XSP!_*!``STC/)BQVX_
M`D+-(2V``(/:`',$,\`STHO*B]"+';@`0LTAC96``+F``(L=M#_-(7,",\`S;
MVSO8=""`N8``&G0#0^ORB],KT+G__XL=N`)"S2$SR8L=M$#-(<,SP,H$`(O<H
M'C;$?P0FQ54,)HM-!":+';0_S2%R$":)10HSP";'10@``!_*!``FQT4*``#K0
M[HO<'C;$?P0FQ54,)HM-"":+';1`S2%R!RO!=`.X90`FQT4(```?R at 0`B]P>I
M-L1_!";%50PFBTT()HL=M$#-(7(",\`FQT4(```?R at 0`B]PVQ'\$)HL=@_L$3
M=@2T/LTA,\#*!``F at 7T"L==U&8,^B0(`=1A>'@97)HM="":+50HFQ'T,_^;'K
M!HD":`##.]IT!2:*`?C#41Y6CE[^Q'[Z)HE="`97)O]=%`O`=`.CB0+$?OHF+
MBUT()HM5"B;$?0Q>'UD[VG7+L!KYPUY?!Q\FB5T(_^8F at 7T"LM=U&8,^B0(`K
M=1A>'@97)HM="":+500FQ'T,_^;'!HD":0##)H@!0SO:=`'#41Y6CE[^Q'[Z`
M)HE="`97)O]=%`O`=`.CB0+$?OHFBUT()HM5!";$?0Q>'UG#7E\''R:)70C_&
MYE6+[,1^!N@@_W47Z$/_/!IT#4,\#77TZ#?_/`IU`4/H;/]=B]PVQ'\$)H%]I
M`K'7=12#/HD"`'4*!E<F_UT8"\!U!LH$`+AH`*.)`NOU58OLQ'X&Z$+_=0VPC
M#>AC_[`*Z%[_Z)'_78O<-L1_!":!?0*RUW44 at SZ)`@!U"@97)O]=&`O`=0;*B
M!`"X:0"CB0+K]56+[,1^#.B0_G4EQ78(,\GHKOX\#70./!IT"D-!1H@$.TX&@
M=>LK\8@,Z-+^7<H&`,1^"";&!0#K\U6+[,1^#.C&_G4EQ78(BTX&_*PRY"O(<
M?@E0L"#HV/[B^5B+R.,'_*SHS/[B^>C]_EW*!@"#[$!5B^S$?D;H(/YU0S/V+
MZ$'^/!IT&CP@=P-#Z_+H,_X\('8,0X/^0'3SB$("1NOMB\[H6_[C&8U^`A8'F
MZ+KY<@D+R74%78/$0,O'!HD":@`SP#/;,]+K[8/L0%6+[(M&2HM>3(M63HM.U
M1 at O)>0ZY!@`K3DB#^?Y^`[G^_XU^`A8'Z/+WQ'Y0Z!#^=2&+1D at KP7X+48O(%
ML"#H)_[B^5F-=@(6'_RLZ!K^XOGH2_Y=@\1`R at H`58OL,\"+5 at 8+TG0#Z!D`M
MQ'X('HX>4 at +\JI'SI!]=R@(`,]+H`@"3RXX&4@*_@``FB at TR[4<SV^,))H`]\
>('<#1^+WB_?C"2:`/2!V`T?B]XO'*\9T!$-*==[#O
``
end
sum -r/size 13381/8764 section (from "begin" to "end")
END ---- Cut Here ----

-- 
Jeff Johnson		10926 Jollyville #1420, Austin, TX 78759
Computer Consultant	(512) 343-0675		(512) 750-UNIX
jjohnson at peyote.cactus.org	{uunet|uiucuxc}!cs.utexas.edu!peyote!jjohnson