Path: utzoo!attcan!uunet!pmafire!uudell!chinacat!cs.utexas.edu!peyote!jjohnson From: jjohnson@peyote.cactus.org (Jeff Johnson) Newsgroups: comp.unix.sysv386 Subject: Re: Thomas Roell's clock.pas Summary: Updated CLOCK.EXE, I screw up. Message-ID: <4705@peyote.cactus.org> Date: 24 Jan 91 22:41:37 GMT References: <1991Jan20.225538.1091@turnkey.tcc.com> <4638@peyote.cactus.org> Organization: Capital Area Central Texas Unix Society, Austin, TX Lines: 176 In article <4638@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@0``)L$``"@!```J@0``*\$``#!!```Q@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@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-K5YH``%4`L`&ZQ`/NNL4#[`P@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@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,: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=`*,!G8"N`(US2&)'G@"C`9Z`K@CC M-@`*,!H("N'4US2&)'H0"C`:&`AX.'[KI`;@`. M)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@C)@!`,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!E6`(#\.7,#O___5[14S2&+< M[(!.%@%86UE:7E]='P?/N,@`65OK![C_`#/),]NZ<@&.VHO1"]-T!RL>4@*#. MZQ".!E(")H`^!0##=`TFC@86`":`/@4`PW4%)O\>!@"C:@*)#FP"B1YN`L0>L M9@*,P`O#=!,SP*-F`J-H`J.)`K@R`@Y0!E/+C@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%!' M-L5W"(H$,N0VBT\&"\E_`[D!``/Q*\%R$T`VBT\$"\E]`C/).\%V!HO!ZP(ST MP*J+R/.DCMK*"`#\B]R,VC;$?P@VQ7<$)HH-,NVL)@`%*R#K,=@**^ MS`K)=`8R[?.F=0(ZQ([:R@@`_(O<-L1_!K`!JC:*1P2JR@(`_(OP``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@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@.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>*^XKA_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+K1V/[)=?AS#`KM=`@%`0"#T@!X$`K_>0KWT/?2!0$`@](`^,/YPS/`,]+#M MZ#G]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=``PP9ST(##"K<$T>#1TG+4_L]U]@K#1^+1Z[I5B^R#[!17@_D+= M?@.Y"P"#^?5]`[GU_XE._HAV_`97C7[L%@?HT0!?!XE.^HMV_@OV>`P#=OI&0 M>0C&1NP`ZR[WWH/^#'(#O@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!K1V]'8S M_LEU]KX,`(KNL032[8#%,":(+8#F#U)34-'@T=/1TM'@T=/1TED#P5D3V5D3. MT='@T=/1TD=.=<\FQ@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;LQ45>*RXM&^(M>: M^HM6_(#YW'T*4;'0+VV8K9@./\BOO0ZP+?S M,O^-OXD++HL%+HM=`BZ+502`X0-T!^A4`/[)=?F+R(OSB_J=6%M:>`/I"/KIY M@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]#K1V]#<60+E8 M61/961/167,*T=K1V]#@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-@7T"L==T)HL=N`!$S2&X4@Z+V/;"@'40@7T"L]=U`^@EO M`+@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$`(OI M-L1_!";%50PFBTT()HL=M$#-(7(",\`FQT4(```?R@0`B]PVQ'\$)HL=@_L$3 M=@2T/LTA,\#*!``F@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@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*!EAC_[`*Z%[_Z)'_78O<-L1_!":!?0*RUW44@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-+^7C]_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@O)>0ZY!@`K3DB#^?Y^`[G^_XU^`A8'Z/+WQ'Y0Z!#^=2&+1D@KP7X+48O(% ML"#H)_[B^5F-=@(6'_RLZ!K^XOGH2_Y=@\1`R@H`58OL,\"+5@8+TG0#Z!D`M MQ'X('HX>4@+\JI'SI!]=R@(`,]+H`@"3RXX&4@*_@``FB@TR[4('<#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@peyote.cactus.org {uunet|uiucuxc}!cs.utexas.edu!peyote!jjohnson