Thomas Roell's clock.pas

Mon Jan 21 21:56:57 AEST 1991

In article <1991Jan20.225538.1091 at turnkey.tcc.com>, jackv at 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 at 0  )L$  "@!   J at 0  *\$  #!!   Q at 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 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@
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 at +'!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 at 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[. at 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 at 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 at 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, at 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 at 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 at 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+ at 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+ at 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 at 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!. at 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. at .$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 at C_-I (_S:DRNB[*HE&]O\V/,W_-I((_S:0"%#H^2J#
M?O8 ==;_-CS-Z*G^5NAN*J&.S0P at 4%?H;$6#Q 3'!C[1  !>7XOE7<-5B^R#
M[ 175KBS E#HW at 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 at 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_ at 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 at _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 at 1UUZ$L"8L6+ at F)1O:)5O at +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. at A#>A)^.CG^>A.((L>9,J)1Q")5Q(KP(E'#HE'#. at 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 at 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 at EP@X
M!'0#Z08$Z?H#B at 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 at F#Q :)

end
END ---- Cut Here ----