🚀 go-pugleaf

RetroBBS NetNews Server

Inspired by RockSolid Light RIP Retro Guy

Article View: comp.sys.atari.st
Article #29227

DC Clock version 3.0

#29227
From: ATARI Computer Enthusiasts
Date: Mon, 16 Nov 1987 14:15
164 lines
10287 bytes
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
Technical Details
Message-ID: <469@uhnix2.UUCP>
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!nuchat!uhnix1!uhnix2!uace0

Show Full Headers
Complete Article Headers
Relay-Version: version B 2.10 5/3/83; site utzoo.UUCP
Path: arc1-ca.pugleaf.net!utzoo!mnetor!uunet!nuchat!uhnix1!uhnix2!uace0
From: uace0@uhnix2.UUCP (ATARI Computer Enthusiasts)
Newsgroups: comp.sys.atari.st
Subject: DC Clock version 3.0
Message-ID: <469@uhnix2.UUCP>
Date: Mon, 16-Nov-87 09:15:17 EST
Article-I.D.: uhnix2.469
Posted: Mon Nov 16 09:15:17 1987
Date-Received: Wed, 18-Nov-87 04:34:15 EST
Organization: University of Houston
Lines: 164
Keywords: Corner clock for all rezs