Path: utzoo!utgpu!news-server.csri.toronto.edu!bonnie.concordia.ca!uunet!cs.utexas.edu!peyote!jjohnson
From: jjohnson@peyote.cactus.org (Jeff Johnson)
Newsgroups: comp.unix.sysv386
Subject: Re: Thomas Roell's clock.pas
Summary: Here is clock.exe (no flames please)
Message-ID: <4638@peyote.cactus.org>
Date: 21 Jan 91 10:56:57 GMT
References: <1991Jan20.225538.1091@turnkey.tcc.com>
Organization: Capital Area Central Texas Unix Society, Austin, TX
Lines: 162

In article <1991Jan20.225538.1091@turnkey.tcc.com>, jackv@turnkey.tcc.com (Jack F. Vogel) writes:
> Would some kind soul with access to Turbo Pascal be willing to email me
> an uuencoded binary of clock.pas from Thomas's binary X11R4 distribution.
> Thomas?? In fact, I for one think this might be justifiably posted, what
> do others think? Thomas, why didn't you just include a binary in the
> archive?

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

BEGIN ---- Cut Here ----
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  
MD@,  )H#  "P P  O@,  -0#  #< P  \@,    $   6!   '@0  #0$  !"
M!   6 0  & $  "$!   E@0  )L$  "@!   J@0  *\$  #!!   Q@0  ,L$
M   ,!0  &04  !X%   C!0  -04  #H%  !#!0   0!; /@!6P          
M      !5B>6X"@":K0); (/L"HI&!+K" ^XQP(E&^(E&^KK: ^PD" C =0+K
M]#' B4;VZP/_1O:ZV@/L) @\"'4"Z_2ZV@/L) @(P'49@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@
M B @F@  6P")Y8'L  +'!@  $@"P$%"_   >5YH  %4 L &ZQ /NNL4#[ P@
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#H
MF_Z:H =; %)34*$< (L>'@"+%B  65Y?FI('6P!97E^:C =; *,H (D>*@")
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^
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@
M %E>7YJ2!UL 65Y?FHP'6P"C- ")'C8 B18X ,0&& ",PIJ@!UL 4E-0L"=0
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]
MFJ '6P!24U"A' "+'AX BQ8@ %E>7YJ2!UL 65Y?FHP'6P"C1@")'D@ B19*
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!2
M4U"A' "+'AX BQ8@ %E>7YJ2!UL 65Y?FHP'6P"C- ")'C8 B18X ,0&& ",
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"A
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'
M6P"C1@")'D@ B19* ,<&%  ( ,<&   # + 04+\  !Y7F@  50"_4@$>5[^-
M  Y7,<!0FBT06P":L0]; )IW EL OU(!'E>:L0]; )IW EL OU(!'E>_I0 .
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,<":
M\P%;                51Z+[(I&#"ZB*P#%=@C\K5"MB]BMB\BMB]"MB^BM
M4*V+^*U0K8[ 'UY8S0"<!E=5B^S$?A#\JXO#JXO!JXO"JUBKB\:K6*N,V*M8
MJUBK'UW*!@                  NG(!CMJ,!E("B\0%$P"Q!-/HC-(#PJ-6
M J-: B:A @ M !"C7@+'!F("W0",#F0"QP9F N( C YH L8&B (",\"C5 *C
M6 *C7 *C8 *C< *C<@*CB0*X #7-(8D>= *,!G8"N (US2&)'G@"C 9Z K@C
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"
MN  ES2$?'L46> *X B7-(1\>Q19\ KA7S1!?7ET'_L*(%EBHPXL."-3VP1QT
M1+LVJ*!5J->3H%BH]L$8="8\/'4']L,0=2VP'CP>=0?VPP)U(K R]L$(=!D\
M,G4']L,(=1*P*SPK=0KVPP1T!?;% G0"L!FB6*C#]@8(U QT,KLVJ*!5J->H
M@'0GH%BH/!ET("0!# : /E>H*'0"T.CV!@C4!'0)@SX*U$!W M#HHF2HPU6+
M[.@Y^8M&!K/_"N1U%#H&9*AW#HH>R:B*)LJH4_\6<:A;B\.8Z#3Y7<M5B^SH
M#OF+1@:S_PKD=14Z!F2H=P^*'LJHAN"@R:A3_Q9QJ%N+PYCH"/E=RU6+[%<&
MQ'X&_#/ B]B+T+D@ #@&5*AT%*![J/8F?*B2H5FHBQY;J(H.7ZA!JY.K,\"@
M5ZBKH%BHJY&KDJN@9*A JZ!5J*N@"-2KH G4JZ$*U*N+1@:,P@=?7<N /E2H
M '0[,\"CFM2CG-2CDM2CEM2A6:A(HY34H5NH2*.8U.CQ]Z%9J-'XH[K4H5NH
MT?BCO-3'!L34__^X P#H-OHSP*,%U:,#U:!7J/[(HPG5H%BH_LBC!]4SP*!E
MJ.BX^3/ HL[4H[[4H\#40*(,U<8&#=4 P^C!]YH,**(25597M /-$%]>73/ 
MAO")%@'5H__4BAY5J#+_T>/_EPZHZ._]B!92J.AJ_J')J/\6<:CH3/_+Z#/]
MRP            #YPP                  M"7-(<.T-<TAP^CX_^CP_\,S
MTM'@T=+^R77XP]'JT=C^R77XPS/V)HN,!@!!="XFBY0* ":+A0H 4"O"6',)
MB\(FBY4, .L%)HN4#  KPG,')H&D!@#_?X/&$.O*PP  RXOLQT8.__^P ,\>
M4[N^%8[;]P:, /__=!)0BQX" %*T/LTA6EC'!HP   !;'\N+'HP "L!U""8[
MG0X =0'#FGL 814FBYT. (D>C@!0BS:. +^H ":LB 5'"L!U]U@&'@?HU@,'
M"L!T OG#H $ ,_92M#VZJ #-(5IR!*," ,.P 0OV= +^P.O#)HN=$  #VB:+
MA1( %0  N00 T>/1T.+ZB\B+TXL> @"P %*T0LTA6L-04K@0 /?AN?#_]_&+
MREI;"\!U"0O)=0'#4%#K!DA04;GP_U)3H0( 41Z.VXO8,_92M#_-(5H?67((
M"_9U!#O!= /YZP'X6UI96'(&@</_#^N^L ,+]G0"_L#YPT-O<'ER:6=H=" H
M0RD@,3DX-"P@,3DX-2P@,3DX-B!B>2!0:&]E;FEX(%-O9G1W87)E($%S<V]C
M:6%T97,@3'1D+AZP) X?NG$ Z$[^'U,&N.,5CL"P %?HQ?Y?<P/K5I!3)HN=
M#@")'HP 6R:+E0@ @\(#T>K1ZN@ _R:+C10 )HN%#  F*X4* #O!<P*+R":+
MA0H ,]+H"O]RNS/2Z-K^)HN-"  SV^,,)HL6   &Z!0 !W*AG%D?6K DZ-+]
M49VXOA6.V,,+VW4B45*,V+H$ (/Y('8#N2  48/! ]'IT>GHO_Y;6EER*+X$
M $N++(M$ @OM=00+P'02!E(F_S8   /"CL!:)@%6 %H'@\8$XK7#ZI<"817\
M51X&N[X5CMN[XQ6.PX@FD "X$ !)]^&+^";WA08  (!U#%'H=_U9Z/_^<A;K
M ":!C08  ( FBXT& ('A_Q]UT>L+]@:0 /]U ^C1 OGHQ0(''UW+G%!345)5
M5E<>!HOLN.,5CL"+1A:.V(MV%(-&% *+#+B^%8[8M ":D@)A%0<?7UY=6EE;
M6)W+^HS'C-:+S+KC%8[")HX6! "\  '[CL=645 >!BZ,!FX N+X5CMCHTP&X
MXQ6.P(S()BL&   FHP  @#X  /]T#%*T";J. <TA6NA' KKC%8[",_^Y 0 F
MBX4& $!T'R;WA08  $!T$%=1M ":D@)A%5E?<P/H' )!@\<0Z]D''UA96_J+
MX8[3^^H$ 'D* %-14E97'@::L2)[ P<?7UY:65L]  !U$<8&^@!!Q@;[ #K&
M!OP  /C#^<,\.G0*/"]T!CQ<= *P7,..W58STJQ""L!T"#P@= 0\.W7R2EZ,
MPX[=5@/R3JR.V^C._[0 =0/^Q$J^J !6@\9/B_Y"*_*Y4  KRDK]\Z3\7UZ.
MW8O*\Z2.VX@%BL2T  /PPX ^D@ !=BF+-I< "_9T(1ZADP".V*P\.W3[/"!T
M]T[V!/^,W1]T">B#_XDVEP#XP_G#OZ@ N?__L #RKH/O!;Z? +D$ /.F=!&+
M-ID BQ:C (LNDP".W>EH_XLVF0 >CAZ3 +^H +E0 /.D'\/#_ K = 0\!749
MQ@:E  #&!J8  ,8&IP  BQZ5 (D>EP#K1?8&I0#_=2* /I(  W(0]@:F /]U
M">B*__X&I@#K)^A/_W,B_@:E .L4]@:0 /]U&.BJ_\8&IP !Z*C^<@N,W;[Z
M .C8_K  P[ !P[ @\ZY/P[0PS2&BD@ \ G,#Z8  Q@8  /\\ W,"ZP2P(.L"
M,L"B 0 FBQXL (D>DP".PS/__";V!?]T)+Z; +D$ /.FN?__= :P /*NZ^?H
MKO\F@#T]=?%'Z*3_B3Z5 ( ^D@ "=BTS_[G__[  )C@%= 3RKNOW@\<#B3Z9
M #/2)HH%1T(\ '0+Z#?^=?*)%J, Z^S#G)I[ &$5G<.:>P!A%9J<(GL#L/^T
M3,TAPP                                                      
M %JX[0!0Z+ 0_W;^_W;\N $ 4.B1^HE&_(E6_J,L"8D6+@G$7OPFBT<")@M'
M!'0LN.T 4.B"$,1>_";_=P0F_W<"N $ 4.A>^L1>_":)1P(FB5<$B4;\B5;^
MZ\>+Y5W#58OL@^P,5J$L"8L6+@F)1OR)5O['1OA02\=&^@$"QT;T"P"+1OP+
M1OYU ^F6 ,1>_";W1PH @'5WC4;X%E"X! !0Z.PDC4;T%E"X @!0Z. DQ%[\
M)HMW'B8#=R(F W<@@\8HB\.,P@4( %)05NC!)(,^),D ="?$7ORAALJ+%HC*
M)CE7$'(7=P8F.4<.=@\FBT<.)HM7$*.&RHD6B,J+'F3*C40&*](!1PP15P[_
M1PK$7OPFBT<")HM7!(E&_(E6_NE?_UZ+Y5W#58OL@^P(C4;X4/]V!.@61X/$
M!"O 4/]V_E#_=OQ0_W;ZZ&A+4E#H8TN+Y5W" @!5B^R#/B3) '4'@S[$" !T
M$?\VALK_-HC*_W8$Z,1&@\0&_W8$Z(4K7<(" %6+[(/L$E=6OBC)ORK)BQYD
MRHM'"HE'"!Y3BT<4!18 4.CI(U;_-I((_S:0"*',R2L&D A0Z*<C_S0KP%!0
MN ( 4.@.$HE&^HE6_(,^H-8 = C_-.A]_^GH /\V/,WH("N#/I+6 '4J_S3H
M9_^ACLT,(%!7Z"Y&@\0$N#[-4.AD18/$ K@^S5!7Z$5%@\0$Z;  OS[-QT;R
M  " ?0$Z=0J*!2KD!<#_B4;R_W;RZ/7^ P:.RA,6D,J)1NZ)5O Y5OQR&7<%
M.4;Z=A)6Z,\JN(@"4%>X#@!0Z.'HZV;'!C[1 0!7Z/]$@\0"N#S-4.BIZ_\T
M*\!04%#H61'_-/\VD@C_-I (_S:DRNB[*HE&]O\V/,W_-I((_S:0"%#H^2J#
M?O8 ==;_-CS-Z*G^5NAN*J&.S0P@4%?H;$6#Q 3'!C[1  !>7XOE7<-5B^R#
M[ 175KBS E#HW@TKP%"X: D>4+BPOU#H8"J+\(/^ G(#@^X"C4064+@$ %#H
M!!&+^!Y7'O\V9,JX%@!0Z&P2C446'E"X: D>4%;H7A*)=13_-F3*Z-(_@\0"
MB3YDREY?B^5=PU6+[(/L"E=6BQYDRHM'%(E&_.B#_X,^H-8 =!JX/,U0'O\V
M9,J+'F3*BT<4!18 4.C\(>F. ( ^/\TZ=0J@/LTJY 7 _^L"*\!0Z*C]B4;V
MB5;XBS9DRHM\%#E^_',>B\<K1OPKTCM6^'(2=P4[1O9V"[C" E"X#@!0Z*7G
M_S::UO\VF-8KP%#H#"K_-CS-'E:-1190Z,\IC4;\4"O 4!Y6_S8\S>@P1(/$
M"H,^Q @ =!+_-H;*_S:(RO\V/,WH1D2#Q ;_-CS-Z 8I7E^+Y5W#58OL@^P0
M5U:#/I#6 '4W@SX&  !T,+@!"E#HO"BCE-:)%I;6"\)U'H,^#   = >#/@X 
M '4*N.H"4.C/Y>C?$<<&!@   +Z +L=&] ( QT;X@ #'1O8+ (-^] )U!E;H
M=RCK#8O&L033X 40 %#H].:)1OR)5OX+PG4#Z8P N , ]V;XB_B+QBO2]_>*
M3O;3X*/8"*.4RJ.DRHO&*]+W]XE6\HM&^#O0<AJX 0#3X(E&\ $&I,J+1O@[
MT'8'BT;P 0:4RHM&_(M6_@4/ %)0Z!8/*\"CD B)%I((H\S)B1;.R:&DR@,&
MD A24.CZ#J-""8D61 FAE,H#!D()4E#HYPZC-M&)%CC1ZS&!_H !=0K'1O@@
M ,=&]@D *W;X@_Y@<@/I,_^^@ __3O1T ^D>_[A3 %"X"0!0Z!;F7E^+Y5W#
M58OL@^P*5K[<"*%FT(L6:-")1OR)5OZ#?@0 ="G$7OPFQ!\FBT<*)0# /0! 
M=0Y6Q%[\)O]W B;_-^B,((-&_ 3_3@1UUZ$L"8L6+@F)1O:)5O@+PG0>Q%[V
M)O='"@" =0964E/H82#$7O8FBT<")HM7!.O87HOE7<(" %6+[(/L HL>9,J+
M1PJ)1O[H31GH+?ZXBM%0N$  NJ<&4E"X  %0Z.X.N#C+4+B*T5"X: E0N  !
M4.@A#>A)^.CG^>A.((L>9,J)1Q")5Q(KP(E'#HE'#.@E^>A!^HM&_HOE7<-5
MB^R#[ 975L=&_ D OB8 OP$ A7X$= J+!(5&!'0#Z$OD@\8"T>?_3OQUYUY?
MB^5=PU6+[%:+=@3IJP"*!"KD)=\ +4( /1( =W$#P),N_Z?F'(,^B-$!&\#W
MV*.(T>F% (,^0-$!&\#WV*- T>MWQP84 , GZV_'!A0 ,2[K9\<&% "^+>M?
MQP84 %@GZU?'!A0 JB[K3X,^9@D!&\#WV*-F">M!QP84 (PGZSF#/M+) 1O 
M]]BCTLGK*^BNX^LF>!R'')4<G1SA'.$<X1SA'.$<X1SA'.$<I1RM'+4<X1R]
M',L<TQQ&@#P = /I3/].B\9>7<(" %6+[(M>!+ *]B>+R(I' 2KD \$M$ )=
MP@( 58OL@^P<5U:A'-")1OS'1O   +\! .DA!(MV[J 6 #@$=0/I!P2@EP@X
M!'0#Z08$Z?H#B@0JY"7? "U! #T9 '8#Z6$# \"3+O^G,"& 3OP!Z=D#B3Z2
MUH!\ 0!U ^DP [BBUE!&5NCZ"%#H Q;I( .)/HK*@$[] 8 \0W0#Z:P#B3Z^
M".FE XD^D-: 3OP"Z9H#BD0!*N0EWP ]00!T%CU" '0G/4D =#X]4P!T0CU8
M '1+ZV2#/@P  '1&@SX.  !T/\<&#@  =>V 3 8"@&0&[RO B40"B_B)?OSV
M1 8(=1.*1 >8B]C1XP/8T>/VAT(# 71ABSPK? 2+1 1 B02*1 >8B]C1XP/8
>T>.+AT0#2(E$ @O_?A17_W0$BD0'F%#H5@F#Q :)
 
end
END ---- Cut Here ----