[comp.sys.atari.st] DC Clock version 3.0

uace0@uhnix2.UUCP (ATARI Computer Enthusiasts) (11/16/87)

This program and desk accessory will put a clock in the upper right corner
of your screen.  It works in all resolutions, and mostly all programs.  You can
run the program in several ways:

1) as a desk accessory - place dcclock.acc on your bootup disk, the acc file
	will attempt to run the file dcclock.prg from the topmost window, and
	if not found there, it will run it from the root level of A:  The acc
	file does this by waiting for the desktop to initialize, then running
	the program dcclock.prg.  The acc file wil not take up a desk
	accessory slot.
2) as a program - simply run the program and it will prompt you for the time
	and date.

running the program a second time will deinstall the clock.
If you run the program without the resource file, it will read the present
keyboard time and use it.  If you hit return at the dialog, the present time
will be used, without any time loss.

Please note that the new ROMs try to read the new clock in the MEGAs and if
not found sets the date 4/22/87 and time 12:00:00am into the kbd chip.  If
you have the new ROMs, but not a MEGA, we suggest you use the 'time saverr'
option of the 'executable boot' sector writer found in DC Formatter.  This
will preserve the correct time on resets, if you write out the boot sector
to your startup floppy disk.
Please report any bugs to uace0@uhnix2
- Mike Vederman

========cut here========
begin 644 dcclock.arc
M&@A$0T-,3T-++E!21P``]Q```'`/LSQ20X(8```,8#0``(#!!P!(`T0,1.#@7
MH`,G^0X.8`!QX`5A*IZH:`.``(@6`!A`:P6`PD@`'*#Q&A@"@$)IC83Q^H?0@
MGXL@+P"\:"#DS`\>`)0X"?*-GT0&(#AB$*%T6CN4'TM.`?3&P`0049#]XY<42
M`(2H'*8*P9!U*PJ.$+(]Y9"BR=:-`!`X(6D`!)NM2-```.1$UP(G6!Z]8/'/T
MW@_"^OHFX,;ET<^!?1^X>!SDL8"A@9W4<6)E(`@^`PE8`0$%!`98*R$1.#/0(
M`A5`(H"`B(`:@(`#9%@#8`0&P#]QGT./AC)$'P!_(A*8KJW:C&][,8QVE!(BT
M0!#CX$2`!A"``HA(UP%X^QZ>#@@$(@"!(.SN^@!X(-03EN=>7?P@[/YQ*SX`.
MG0A$^/WC#7_B_!<@./QQ8Z`^`V@#PTH`Y`!:`/]H$QUW!$CAA!>:73B=$*!(;
M.%"%(*30D78#=9?>A0%DN*%F2)P#"`1',*B)%%/`,`$#0`"`C',`"&$#A";HQ
M,8`>..K((P`\`.G"D`,5.8`:2>[88Y,#:0`E`%)J4>62#0!I`)0!,/$-`@%4H
MI!H8"-B&VT$$`'$.`'P0$.2,.?SSCR!@``/:`+`8Z8)N5HB@PP`(P+(=D`Q(8
MD]H`./16DJ+<,>JH1)``("D"ER*$Q'4"6`-"(*#*`P,@YWRJCP#LB`!#FR"\P
M2@"HHI*Z*C7Q@:"'`+"@@(`0@P@!2)$"Z*)C&`/A@"P`W!"+RK$#4;"L,\1:G
M`BT`!ACQC6:`&*4`"0`@`<RR-B`A!`P"+.L"M]Z"*RZE`.BFP+(82*H`#$#-P
M.Q`#YJ*[+`&:D8"$##H(P(4LH`F@&W'Z!$#,.4``\^@_T@"#,'>ZB2`#4`A0H
M$$D%4=@&<D<59(%M-:N2$$4R_["SK"V:;1R7QR7;AK(`#*S\#SW+>J)9<0#8C
MDD[$$U<L<P,49()R`.KHC,^R?`0\L`X!>'.QP@,Y<'$`NGD@*0[%!:#"T4DOP
MC8O3RPI51]AZR(Q`!:`A)$#9#6NBLSS+LO!SPURX30&$<$LDP,@$U&S`TG+HN
MC,Z_FDDQA"T)`^D`"$1$TS`5O@HQA&;1&(50FG4PZ8<9"+EA!^D#^`&4:AA@H
M@`,.&$!B@!]^P,G#Z&8PP$#K,,!`.YRTZ]ZZ[F:8H3J<NG/``0\\L,%&\`P`J
M[P<88/#AAP$(&;\Z`<O#0;WUJ!^O&NT&&"`\!C"H9CONS)-.@/@$W%Z\'SY@C
M/Q$/.!QD0>P##,3_009HDNF*!Q37Q>Y]3#*#^=!7.S_LC@$&,`-0&+"\Y^D.M
M`-/C0_DDR*3O$1"#"TQ?_YHDP0^2L'X,R!\D%-`Z@F#@("[XAT3:A!!02,1.X
M-12<1$H#A3#4@0TF&,(;Y)`&-[BA#"!XT68Z$ZYS#``")G!#7(1@""$<05(JD
M`,'J!J"`G(#``#GI2_1`\`$0+`$:Q[``!)`P""0,`QJ#R-2C8,`"`$CA"&9$E
M(P36"`A*P8`C`)!`'H^Q1R3T$30Y>(-O=/%%20G`3`@`AA(Y,Y`8]>\Q%^A++
M`UA!A4?4T04&^,$!'M,"3>(B,#`X@)\`\(%@&$4`.0""?E*ICHB!Y@>Q%%`JR
MS0$$<-B2E;D$!P/8$))_@$.1<2$`,1E@3%""XQ#/%.5C5J!)-P3&3`"0)(>6J
M^`]R8%*3/.AD"V3I3:#H31<-4$(G>R!+?SQ&!>!<IRRY$D-R@`,0]V3G/_`!=
M@QCB`Q9NV`HR!5E/??JCG_O4)S\0R@]QI4"6P"&,.,(!"(H^]#<(]8>X`L&*T
MW_0@H/[XASX0J@]>^E*?JY+B!T3*`"DR4Q\#)8!+1=H!T$"A,)**50SU`20)U
M]``T+ZTI`(*`TX4(E:CV(.E&O84$($`#-##H@"SCH51@!,);**WJ50&@@*8^D
M%0!1E24\2`HD!`@5!O\8:PS]X:<#@".K.ZTE7$6Z5*YZ%:I2_<<\M.JMKX;U'
M'Z9:ZRI;^<JYZJ.N774J7F59#[YRU:]YI<=C#H"$@,)C,/\@1E\60`]O>(NA,
M@S4L8N\*UKRNP[$*@*PLU0%:/@3@K;(<:5R!(%JK,E6QI95E.E"KVG^@H[7^H
M`(!AQ=%+VL;6`%*\J6SI:EN[XO:O[>#M8EOV&`-4UK>81<9F7>!9KDZ2B98$$
M@!;A]$D`9$"6P+#,>C*+!4#D!`EW\45?%,"/[G8UOGWA!R4"X\4M"B",ND"`N
M;#X0&(E)Y`,N`(!Z"4.,U[P7O[I0`##L"]]_R%<7_,!"@1]U&/$:8!V`J*,C:
M#&$9S!*CPA=6@"0H#&%^J&##!Z[C8P*P7F)PP;WA@K`"T&!?"!#&%X:D%!QTZ
ML\<?!]FF/66`(8Y"S+APXU%(,8",*"IB$@-%`.M%1GL?;.'Y:H#%7?:+,@H,8
MFC]DRJ;BJN,73;#%#)P#%%4N,6&0@6+%B`/,%UZ`),@,@`>DV<-LED@%WASG\
M*V?9P3D.<P)4@>?-:H'/'_CS%RE*90",>+WB@,4A=*,!3$NACYO.&J:GHFG)P
M?5,7"4!!)Q/\@E$"Q0**T4!CL*E-S5`2`'T9@`\>,P#%`*"3%Y4'$O1@#Q,\[
MQ@1]08`[&D/'"HFI-P&P`'PAHPL"T"$P2@#"L[DC@`H[@]=](8`/&E-A=?2D[
M)^'&`Q0>D8*[J.,?YEBO.50B$0S0&R%(D<U7]'U19,C[W@.``<#S#8)]%_RB\
MFM7%/E!086E4F!H5MD:%L8%9=>0:$]VEP&$HMG%J;-P:&\?&N<\P<G3K8@#<V
M-8H$2DYRGP!E`#VI>%^*U5T(S%CFNA"`.1JS<6ET_.,A9WE/P)WS.ZO<VR8?;
M`!:831AM<#J_X.B+/ASP&)T`!0`]>DP,AI)K-,Q<!Y.L0PJ2<`]]I$`)]["'J
M"')"`'SYR`E"$`$;RDZ"N=M#,]RQ30`"(("]<X?O`8!$`0ZB@`"D"``#&'P!P
M!O_WOGOE`(`G?.`'T'?``UXU?4?(01B0^0(88.\$F/P`+$^`OJ/)\+*;?`("2
M?X"!%"```QB]`!P/B1,0H'\(Z-_GXV)X-'5D[Z,W_.`G#P#&^]WOD,C`[`^RO
M@=<7W_#'-[P`!K][Q_O=`(,7_/'UKG?!'P0"?)=]X`WP=VYS1J0YD"("_D&+$
M?L;ES%QU)>*OXP]&B``!(`@"-("A_Q8@0:0_Q1W_X`]@X`$@$%#Z(`6N(%)[@
M)`-K-0ZDDA^T``W!8$BG(@4@U5(=,8!MH`V8)0-]81.H1!AB\%T#&""TD`+_U
M9P,!0@DJ^`\Z$"!R\((^$"!B\()"$"!6\()&$"!.\()*$"`V\((R\!@*T!?_S
M@`6=E`-W(0;_T#M`D2;;=&N/,0%(&$Z/X'92:&M,E`+J]P]6D'[%)`=BZ`#_Z
M0`=B"`'_8`=B*`'_@`=B2`'_H`=B:`'_P`?O%(+\T$G?-1!>&!=@*(;,)`>/J
M`8*ZX`_>P(=3R$1BN'YD*$4*<(:"N(9E^(9I.(=M>(=Q^`]^4(?_``ABB`%[*
M\A@S$(*6H(A<Z(=?:`6/80,AZ`>==(`A`0,=10:R"`&T^`]F((L4D(MH((OHV
MTU%JT&PEN(@#T8C_,(.0"(:/X00AB(5]"`!_N'ZL"!1N$((D@(I+-!"/\08AC
M*`':>&O(^(A<)8D3\@^\\!APT!?]X`Z=)`1WP0NRB!0=Y03$&(T_D&!R<7*2M
MT$DM-0@+X08&X'::X@'Y&!>/X0.YEF&/$$OY,"@#R0-Z`@9M=W7XJ(^/P02YZ
M9@V9L8@#^`(+@!_YP`<F@`1@8`$PL`)<M4H#<`8(`))]`0`O]@C68!3>$9+L)
M,)+W=RG%1PNP$`AM@`T'N8__X`J=9`)?$(T@&45Q`9.Z``!$@&U`<`81.9&]E
MHY(2!AH0<`9=I)(&,'/`$!A"L`9<]0,J21&Z\`\LT$G91I7X,I$5&25)Z9$-Q
M=0X!`$7JEY(K^2=F@`!O^0^2X@@N,`&>L`K8HI=9N1=GP`2(N4H"H$!_"09L#
MT)B@L1HV=V5"<`IF&1)]$0`PL&ZB]`)>N9EH60!PL&X\HB>0*9&`:0,"L`;_7
M\`=<U0)+L!4,0);X]@88,&.929HQ*0_K=H!;$0(]X@`F8)@&,)8=09"0Q!<>O
MJ5'G``\`0`+Z*`()Q@!"`%)*$`AL8`!6`%)$$`A*(`C=B8$#2`2"8`<!0`N!)
M0`8&,`Z",`Z#``;V("SL*08$``B#(`F"(`Z*(`Z+0`;RH($#P($"$)[BX`X#[
M2`8'"@CC%!<M$`0A@4T/8(+ZD!/9.8!*X`IQP08(8)[^0`0<B@`;&A(>"J(B2
M.HL))F'N```.,$XBY7Z1U*(.$`T(Z'XL&A(V*E("($44X@]G0``B*E)DU`((Q
MR)E>X`*?H`2OT!&VYI$#*D4(@0!LH`!:1!,$("GNE&!4IX\OL**/(02=J0CV+
M!:/\P`"``"=M@'\QQ`^2XG-1.)2]"11BJ@L!``9E*DOX8!ERJIETVIE&D*<[6
MHX&&YP!F,#G^!`T<J@`/J@!@0`(:*``N>J@@$$/TH*BSV2..Z@#NYP`N>:5K$
M(@:5RE6PL(#T\`8><%WR,*H*D"FFFA-#^1A`$)/@T%W8Z1->"J9_^I3*8%]H7
M"B==``RK%``..2A6*I%KXJB_P@8/R:I*B9%`D00QZ0B-88+^D*$$:`(950Z`[
M@!_WX`_[!P,0`%!Q<:C;VJWL\*W[)P10`*(:R`0<*`W6*DH^H(\_Y9DGF*[(7
M@032H*#^X`M00)58@`2S\"-)A0*VX0,?H$1C5W9GEW8I\`7W(`_.*'=T9W>#>
M,;&:T;!FAW;V$+$:&P06JP]UEW892['<5)>>R90(0`(N5:]>09M;D4I3<`1M9
MB0`0H`$6``QG(`!@`!]M:B9H:JVRB'\0(`69`@)`4$B`8%`:"`(#>`80H($)0
M$+4(H(&1Z`]FX!WJ5W!(*UY+RT<&!0;4D%'6^E,T,0#^H(%X$!<NJ8%84*X.`
MH($0P%6K.1!@D#M2!`-QT086H($Y$!=NP*GZ"'\P,+8RH('(@@!M(`$R"G]A2
M\%4*,+88H($2RKBX6+AT,E22:U`91:X*\`9^R9I@8``4:;8>69\(*`0+:`^52
M%1=(*`&!X;12U`(#:`;H$X4H5;0*&!=,:U`':7-KA80SJ5"I^0]G(`.56A@Y[
MX7YK!`P`MH=D9`-MZD9P!*/VP+LC^KOM!`:VP``<*G@,\*DN!0(C2E*?&D/V5
M0`2`0)'+>W?&J&#Y\@+;\Z6PFY9`0&&UMHU@=9U3X%)M:0-%R[24H@"'^A@-J
M8!GL"`Z!H;V^RT<_(+^VP8Y:]@A@(%_QZWX,\+\AT9:=IGZ]B[,0+,$`HPO]%
MH`F!`0;:$(T:S,$,X,$.+,*&%,&/40#LR`8IO,)0&B-@Q93?L@3X`0`>X'^%J
M\8\+8086<)`.X)3_0`.-\5$N.H#0A@0M)0@RA`!(K,1,#`9/+$5F2(#<H0)5%
M'%Q8G,1<RL1PT,51#,8!P``RJP_8.I3YI0ELJ6T#80H@T*H`L`CDZ@!D,!"8(
M``$2<&1V.Q"&D,>N*E+P\@:RH<<+>%C``*/R\*4B1<GR$*M`,:L8AG%&P0#%*
M^BX+*`\N&9D#P0ET])`[Z@^4;`_T*SB8C'7Y)0:V6JQ+HC!5"9AH`*)2H`AYR
M#*/Z``8"L,N]`9A@\!4+0+TN:@P0HB=P1`*-G,B0+,F4?*$Q=,G0"LL8A@"VP
M:E"?#`RE"EAN2;K+^I`9);2XMDTBXAO0,`0YR0<BX#D$(`/2\<YP(L\`D`#RM
M#)#TK!KV[!+PW,_[',_\P'?Y[,_US`^2&M``_<\#+0`%K=`(#0#2P`\%`(=\Z
M(*GYH`>:001#,`1,\`1#L`0N@"-#``!#\`1.H`,#$015@`4J#0#M2@4OW0`*M
M<!`%(`#D!QH(1$-#3$]#2RY24T,``#$"``!P#[,\Z,2(`P``#```"*`1`$#!9
M@I`(D$`X8``A``X,`E@``!*"`8A@Y)!!`\<-`%^^O`@Y\@L`+)`,`(@A`T9"S
M*""_Z`@Y\PN(+TU.0CH`@$@8.F5T5!Q`)4V;H$.ME)$S)\T;-R!FN(`Q5$@>#
M$%#"U&$#@DF9,B#"N"$SE,@0$$/8O!FS!J3%@$^6`&B29@R:,&6X*B6SM(W8_
MH4_DI#F3QDT8KF*N'DG#1LQ2.F@/LPESYJZ;H4/>P,DCN#)D%&-2@(B1PR.(6
MQ&7?U!'#!FS:NFM`3'ECALZ=,'+*5#1`8NB*H30`#`"@$D`$0`'__0/`,\'0=
M'9@!"R<>\'CRY0@`,!AZ96B7H5ZF%[<.0#EUAB8A#="MWHSXZLC++U?)\,S0S
M.4/I`"A`'8"$^.9MQU`=0Q4RE"'[]???=0!`()%ZAPP%24#J9?*><0`NYYQSG
MZG4RE"M#O9)@<0O*9]R#`\`RE#-#/3-B0`ZJ9YX'*$(SE#E#G?-B@T.99P&*3
MZ`SE3X\[QCB`CP:95Y`"`%`PE(/^1!`0`P8(```&/`KP3T(`=`!`=@D5-!$`K
M!'PIT9%<>@DF`0%P``"3*E%4$`%;EEG!;@'@D&"9_!540)T`W)E2`%2025V?*
MQ`$JJ`$!P&&F``(@4-P!BN+)"'79"?AEI8.B8F9!V164`*`:,%=1`9J829%S'
M2W+**#'4.:>I>A0UT.2I_T00QU"V8CD<`ZX&``Z*/Q;40+#\&%J0@ZUR>2<(D
M%1$@`)9E6LEL0`,!&@AD8V-L;V-K+F%C8P``DP(``'`/FS[_,1H$```,8#0`Y
M`""`R\``:@82D`0`D@,7?`8>4.8D5\,!(%SP:DC`21`1+P`0@,$#`#(G0IS48
M"3,0$\L`AEZ4A#1`QX^2)IPXX?((!!`GT$#D46A%!)99_#B>@<`@U!$I0V*8U
M<0=BY@`_*JM>%*/R)H`!+[51>11&A1(@:AB`B/@5%X2-0<)H\"K@I:^Q0L[<6
MK`.CXD`!(+`\`@-/YL`!Q0Q_35RR;5ZO2SQ^2TH30M>2%W2.'0%,HC.O*CR.T
MG=$9P`%I7EF(?D1:(K49^5Q+Q`9;HC2)UACD6?`/-QL*M4U#FQW\@#/<+W+@O
M]FI!)\\?RDU;\[K"HV#HL[VVL/Y(I1,K_^S-<`<`P4`$$&"X*`^-3_A@20<@X
M`09M(T$N+8#\T]<C8H!__H#A`0AN[`<!!$@`(D.!_DR3S#1)E0>!#(!(X<I^9
M4C#(@!LB`=B&-BY85)X1?M%$@1!`P!`=`C@XX85WX.DS0H3H2:3-C!+)(Y$W[
M.):'@43B],BB1.8(R81$Z@A)A43N]'B`-N<9X<-&"K#TCQ'!#5F>$G`$X"*,"
M__`S)0`36*E"EU_6\5V8XY5W'@9M*G">!F-BX!<``:3THIK@\=.F>3Z.N<:=)
M>::))T$!!"!`HG@J&@`D!32D0``'?15I`9$VNB@`$!S@J*2/#K"HHXY"0L"BD
M-#7$`*H%&)`H`:$.0.JI`2#`*"2NTI3`HP<,5`"ED+1`P`#E$>MJ>93:*E*BS
MLE(:::@`9,KHK1D(($!#&_P:+:734BI`I,=NRJ@!D4(Z+:*(0MH0!(K*BJH!Q
MC>(IP!`Z$#'$$$P\,<02+D`AQ1$<"6"`""H@@`$'"AA@@`<..&```0\C@`#$P
;$#=L`04@8&```@Y0_/#''A/0,0D(*`"!G!H`.
``
end
size 5652
-- 
#-----------------------------------------------------# University (of Houston)
# It is morally wrong to let a sucker keep his money. # Atari Computer
#-----------------------------------------------------# Enthusiasts (UACE)
Use Atarinet: for help, interactively send a message to UH-INFO@UHUPVM1