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