[comp.sys.atari.st] DCLOCK.ARC: Part 1 of 3

trb@stag.UUCP ( Todd Burkey ) (08/03/87)

This is a posting for a friend. DCLOCK is a digital clock, probably a bit
more detailed than you are expecting to see on a computer. The program (and
graphics) was done by Steve Pauley, a graphics artist who is learning how
to program in his spare time. Source (OSS Pascal), executable, and docs
are included in the ARC file (note contents below). This is one of those
programs that you can leave running at work to show off the computer without
appearing to be showing it off :-)...oh, almost forgot...it is for color only.

    -Todd Burkey
    ...ihnp4!meccts!stag!trb

Steve can be reached at ...ihnp4!meccts!stag!sep


What my arc tells me about DCLOCK.ARC:

Name          Length    Stowage    SF   Size now  Date       Time    CRC
============  ========  ========  ====  ========  =========  ======  ====
DATE.PAS          1182  Crunched   50%       594   6 Jul 87   8:21p  7c73
DCLOCK.DOC        4186  Crunched   47%      2241  25 Jul 87   7:13p  f76b
DCLOCK.PAS       16440  Crunched   60%      6609  25 Jul 87   5:39p  8593
DCLOCK.PRG       21756  Crunched   39%     13451  25 Jul 87   5:41p  daa2
DCLOCK.RSC       12567  Crunched   26%      9320  18 Apr 87  11:56p  aac0
DIGITS.PAS        6840  Crunched   72%      1962   6 Jul 87   9:03p  1bb1
REZCOLOR.PAS       687  Crunched   31%       478   6 Jul 87   7:58p  0706
SRCNLOAD.PAS      7659  Crunched   55%      3519  25 Jul 87   5:03p  88d0
STOPWATC.PAS      3313  Crunched   55%      1523   6 Jul 87   8:14p  78a4
TIME.PAS          2116  Crunched   52%      1024   6 Jul 87   8:12p  91c0
TIMESTUF.PAS      1915  Crunched   45%      1061   6 Jul 87   8:04p  e525
        ====  ========            ====  ========
Total     11     78661             47%     41782  


------------Cut here-----------------

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 DCLOCK.ARC
M&@A$051%+E!!4P      4@(  .8.KJ)S?)X$   ,#11 D?)D2!$B5:04 4$Da
M#)TR.P(**7(DB9. (" -0)*&3)DO3=[4F5,&1$0%&0= "9/&#9TO0]ZP>2,'a
M!0@8(%*8S-A@#X@R<L*0! &GS8LP;4"T"2-G#5 0?3!J7-GRI90R8^C8E'$#a
M!HL8,;S*\!HVITFI ZB4P?,RYLR:(&3D/)F22- [7Z;0D=/RC,T8,EC,\'H"a
M!(@F3YQ009(1 9$@63(NR%(DB!00A772A83!YY@P;,;48>.PY!TT:<:@ 4$Fa
MS9DT=.: N).&#1L08DJ2N>L&Q)O><\;(*5.F=U24&I,881@F#X@>-T$L+N(Da
MHP&?#9T?3SFQXD7D!K)_B0%"!W2<F\,W'X_3?/3- Z@305N$R92%W2U*59^'a
M?7GHV3&4A!4@E)6>>.3]QYQSB!%1('KT.>$@?,H=]MMST4U7'2376>C2:MMIa
ME-]WUH7DQG@*0@B>B?ZYIV)*\M%G'WX4Z;?B;RU"9Z* !!JX'XL)NK=C@P^>a
MA5Q\$E*X7!9R8(B3AAD=X%,693 %%5HC[L<DBBX::=V6974)7XQ'UG<?"%F"a
M!V9[T#')8Y'I@6F8>VX2Z6.92:)%!$@X&I@1!3XQ=!=#KL'F6V]TH%%2<,,5a
M=^611&"AX PV>*G1GD04JI6'*&JFIZ3NA?7BI5]D^MJF".+D*:2@0A<##3A8a
M.@"FFMJ$H%GP1:J@#(#)2NNI-JV)ZZ>[VC#JK*76"H*<JZ;T!!MD\-F;D!?"a
M]VRT ;H7H+70?N&F@M_"-P4:;^ 5TD@EG23?3B#X](89S#WT:$ :"$1#3$]#a
M2RY$3T,   #!"   ^0ZNF6OW6A    Q$AC!Y,F2)"RA2CK  $7!@01=2I@P!a
M$<8-&8ILV("8\Z:.G#%E0(QY0R9DG3EE+M)Y(U).F3!T0M)!$Q*.G#=GY(1Ia
M,X>BRP8*X+ ) _)B&C<@9M:L(X9-FC$@R+QI$^8H"#%YDM*D6&?F&SDN@ )Ma
M2- @PB,@[H3I>4=.&CHQD6(%,26FG9!0PM1A4R;/PALO9-1X@>/&0JM0RLCAa
MZ":,QKQSQC@&8>9F&Q!/IDP)JR )G8UTPLB)>;'CY[44-Z9I(S3DG)VM0=C$a
MJ?/RRJ1RLE:\.+*-F*,RMYX,^<:,UC) Y^29$_/R&#9OQJRA:/$X"!DP8*#1a
MDW1U&1<@0%PIDQ'$6Q!QZCQ=PR;KF3>?38,H#@+-;NH7DX H8S$ET#IPI.46a
M'4>=D9H9>VEDQDMT>!02$6F<\=9D0T G75IOH<$03"$AZ,88!+[A1D_WT;52a
M@&K1,08:G.FWDWD?LE$'&05:QY%'((E$4DAW9*A5&CW-EM.+9GQ%71XBAG14a
M3"XQEQ)X('AFWAQ O4?2?GC QM=\QJ'QQAU1 ?G5&16EH4=*LMTTI',[BE31a
M567T%A(*^]V%%&)K2:91"D#=01-22-81E8@G?,:<:/%UA>%,J0E5$912JG'2a
M9_;! 0=_:'(T&I>0@K"&&U]&Z:8;0(VAJ%(ZED21&/)991\;QJ5AG'XKO3$=a
MJ@2V4<9"8BCJ9U:L*B6'>72<T%-E982T&U#GR5''B)R)I4!X*D!20'A4H 'Da
ME*F)X589QJ$47ZPCTN$LB&F(>*R1SKKA1HUD/706"-46("U0670$@AO)JD03a
M2DG=P9(9:?#5DU6HOJ8K96^P4=*PN[U@)(USW,I2NS\&J69MT4X+R07QFI50a
M>"6&#)%$]RJ0;4A-CFL=P0;#F#$(04@Q$<S*NF1C1Q^%-)*J.)-8G6@A@4H'a
M4/RFA.9M&*,J),?2.O$$%47H@*VV!Y,(PA%%-''56F@^_2)'Q&)8GM$@8%S9a
M5-317 453S#LL&*<^<D?"(%>]09\>/,, E4K M?Q%7]:)_9E!"_V6;L'?]9Ca
M>6>4\5G"RS77W<+WD<$A?F'.X6A6;P$EXLM$$6<<JL]%MP:4>4N&E%)(-;U5a
MZM(M)+MK)Z8%TXHLE$K3A:AJ'M-"*U84N76Y$C>L\,IO)+F-E9=AFW?S+;_Ya
M;4H!E7SU45UOWV<A<TOQYP5V#!02BI5A;'VAHMHK7.JF]=4:.D@;1'EYVW=7a
M4BQ)Q3\(PYD/O[ADG?$-)0]H>M]*1L0M.+QA2?\[3X\8E3T%V&=HU7G.>JS#a
M%S-\I@T= 9@"1=0I$#+'32CIB=,V]B*UO&5=PPJ4]BY&GI< S'U=62"<BJ0Sa
M"19,(Y*10V[F<ZJMH(0OZ")AE(R3-Y0$!SE!>: ;F$29H<Q!0\4QCMT I2^;a
ME&$.*MS*"+DHJ,=IY%/M^U[9@OBMTG0%*($:UA'C%"(WF$\!4H@0&D[#JOT%a
M+T(O%*!U:#<=HA40D)\9BAC(,P=(G8YZVUID@8!BP# @\")Y,Z/SGB@_.9!Aa
M#E9#PA.J((6%@* )27#"VXI@RBD480A/< (1-A.>)!B'>=R2I!O.0$D@?0Y-a
MF?SA)JTC,$^"\I2QI (23$F$(&3!E%DH0LWN6 4HO( (3[B"$\)3,RED\RHYa
MC-^S'K8?HF@(#E49%GUH)"$Z4$D!^-*7ZT3BE N-3BD $\U-P#1&%;+D*&-Pa
M"=BX5Y* VC D+UE1F-HIFW2*;H C>=9G>%A.A8(P@&.DYWJ@5(4;_BLD_?Q?a
M\7;YQ%YZ[H!+H][$.'3'9E(M/"; 5A*:4 1IY4M0\QSI\=9V&5Q6,BO8H]Y/a
M.2<&HDQG+@Y<4HV6I0 -2J=&]]R*2XO /2K,E*H9A8EU@K42Y_"'BO1!G856a
ME[(IO. *TII"#=&URYF] 0YU-)M&FO0\L:KN?V>Z"><.M:E<U<@I:U 64.KRa
M5O'LCD7A<0)\RF"U[;5A4A@1*!F %9*?HHFB,]G66^-ZFV*250$56L]2G3>2a
MZFQ/D\PI+*I2I-#,^?* +SO*9)('GIL"Y;$G=.JMMG)1$883*4GZVU=D0CVFa
M2<XCKV,)J.1 %8W0-F52J((3TKI6 K4ULSW)*&I#T]>MH&JYS:7G7=OUKETNa
MY*>3;*I'7#+%C43O,DC@64^:<)2N?)%S:BWM)Z&D6 +E"%4Q(*V(+M*DAG4Ea
M7:12P%&<%(;2G$XX<ZC#9&0@X.HHQTF7*;",ZGA'5U*!NDBTKH&P.Q^X(EBNa
M(KG@\2B'8?':TWHQ^9^?M%J&NPP+2,GQTAV0LL6^"0H.&R3Q9A'LR,LIJ2>6a
M)<-"+FRYTPISD;XSGDQ8@BNAOM:2:(JJ:PS*GR+C<EM)7O)[*;DY32XRQ5)6a
M"975&-:M)+E[,8$2X>[6Q.K2I0@?5D 9,J08][88ET9R<GG.K-.4\$I1: N6a
MAK2:L)T05U=W?((1C !B.M9(TD9 ,7_\51,6MD'.:F1D&7Z0LOXR]FK;.AR*a
MU6:9_?!Y6 .Y0GB,1%,B)*$*7M/P@4=W'S,"Q24-D@,99:PMA=:XS[J.JP11a
MPU?24,8R'1ZES:@*2R)0-6C2,AD4@C %$$#" $VH"E*@X.F-\"Q'/X.BR2(Ra
MD6]/@<M($5X8&#8L0E*F="#80]I>DA'=@( *3L@"90H6DCX 10I%T (L!R*%a
M@W#;VP0 J(R 1O!\[YLC&S[QBN*TAA<4FG,C@8X<&V0&XQA< 5.PF1,&$@0Ba
M.+S;D(AXC&;4H8KK&SH-YMQ0 2YP'E+E,T653DXZ4AWZ$/+D5J7I%*A0!2.\a
M'.(2I_G MZ3OY)V70PO!CG:XDSR(5>?8[85.89E3AY*#X.2V/D(2J+"9;</<a
M %&G.-73%)V4. B&LH$.7&K$SD".+C(NN1O2K_IT2" @[C6?>VEM[$X_-[FXa
M5(;/9%"BWYZ<?.E/@,(5@D"%(11>YL^1.LXL?CO0%):U&D([YXM0^,//7.XAa
MT7?D/H-+GCI>>F=/&1H(1$-,3T-++E!!4P   -$9  #Y#OF,DX4X0   #%"Da
M/#DB)4@3$$2&,'DR9 F('2 @$=@#0DP>$%/HE+%3!@24,'78E+D(XL8+&35>a
MX+@!HD\#!1$I4 P#@DR:,VGHA&$#8@R;-V/6O*"3IDW'.G/2N#D#0@8,&&CTa
M@"!J5$[+ER^'/'$RA<K+B /VD$@"XDB1)EJY4G$!)<@4ES A#=!21LX;$#U a
MP'CX52Z1+'A!S*C!5P&5+%"*] T[%L29,FWHY(%3Q@6<,'/Z1)P(PLT;C5/1a
MA*'3$W-',F_*S'%S@G2;T1JMP@6+0@4(%W)!Y'E3Q^KAQ'-NYU:18C&4-&.^a
M$!D=N&W#(D1 !)%2$/ 6$#%<N)CA= 8-$%U O#$#0D@>C3OZ0J!(!TV:X.]!a
MF'ECE7=],^3GC)%3IHR;BG7@5]=5<0V@GQQN?&%4&_1=E)=S2T G'75!9+%%a
M=MLY)5=XXY5W7AGI%3C%%U#0855>7AR8X((-0@1) 13!\892L4UUUX']_4?&a
M:#3-)M='[7TQA&AR!/=@$,]%-UUU(%R'(0Y[A?>$$2 ,&895(;YDQ72+U2;<a
M +K9!\*64J01AA@B!8<;F,0MA@<+ND4D@0X@T%C&8U@NEM&5=+ PQ1M?&'%Ea
M1 K0^=-27]B)9XA@4?'93E],4<88$35 )Q-O()J$&QKA61A83\AQDU*02DHIa
M)(6"@*FFG-XY(*-R40$9')%.RH(3$3%P::9G?+%IIZ\N)H2I< K1A%+%(F$5a
M) ?0^:NK>8IH*PC'N@&GLH0ZVZJGL X@:QNT4E%4&7!^2^MRH(&@+;#1@F7Ja
M%S' ^6X,>T&2P+K0?BI7M?#"R2^]$=T+PK/<+J9LOR" <## J.);<(%/L$%&a
MK<G%"T+$$\^[E\/!0BSQ%__"B3'(2L&[\<#;=@SJQPO#>3'+<IB<,,?M^A5&a
M'OYF"F<6RZ9*L,IRC;S<19 \0+.^ XS<1*81&8TRNTB/S'-$$!S=[= (8\VPa
MP#_7/,#2"5H,MLSV6KT8SPB#@#;#/J?L-11-!,I&&&? N41_M$I1AQMN*,44a
MG4*\\89(8?QW-18Q69UPC&ED2D=P=-SUTQBC-?Y?AS;A1!K3./I'(%A,1%2!a
MXB!0-)]51CPA!0@_O0''YS\B]X40 49D )W')8<N1*6#0!,<<X_14>0@\!<&a
M&2# @1P=O75D1AHBU<1CG9S>Y>, 4XR1H!BU0W([""HJ"%F+F\V4?/##WZC3a
M'&B$UE'G_UV??8)PF&@[G2.6*(>+,/J>_(RML@KQX >[ :"+1/;S'NEB](:Da
M$(5I'7)#&?! &N7A 7K2TPGU/"([VI'G2G*X60'G-[L (= JZGI:OGC'0 =:a
M3CSDD2 %DY>&"_)D1QI4"D:T5\(/RB&$%Y&?3N1 %$1)H0Q266#Q5#.X.CSPa
M/W"PRQE"V 80W $SQ=N;?.Q2Q>OE[@M'E(H"5<BMQ8$O<ORAX1B8ET;^S*&)a
M3P2!'792AXY<;PF#HP\8[Q0P.BVI0M>!@79B0!@I4:EK+#PC?533DSQ:A3\Xa
MF4-L@B-$/OGM"WC\2<R.> 8_4LA">AED(2]V2+<E4I*+#,X8'+G$2$ZR@%B(a
MU'YR%)$"[(I54(,(10@XN<HQC3]L_(\9N @"/(BA<:K<"4^NM[0TEJT\@B.<a
MX<R8!O*8J([@0\,;[N [S[1G0,I;8_,*:(6=I&%B3@B#4< "N&B6H7 N"HM\a
MYL:4T\G1G,A[7O3<H,Z.3% C;B##@*YGA"^DTRAP@H)!^YE"(*%AH>M,I#X[a
M4KCDC:9]_#1*<.SYF"K:9"=O>$Q%WH ' BU&+&3IZ!SJ((;,$&HF 0T-<T3 a
M%K>(H$[!$:@90,(&TEP/I4O4PRHUJ9D74<2-<'SA&- P*:$LM7 B+1SRADJ?a
M,P:(/#]MS!SDH+V?'*^H_?,J\J1:D_< 3X3B<L-%3O<:TH@A#$&9(F]BVB&?a
M &4-!00J553#/#. E3WC@A,.R=64IT1E*N.R"EDWXA_2M.YUDKQJ7AN3N9RXa
ME%DQLHOPR-"\C585>)\I(E,J^SCQ_(> 627+7HN: (H\IK1[W>(;JCB'/$@2a
M,MV<:J8X0D3(W25R.N')'";E@M0J$@Y7I,,8_IK%_WSSN%8<S5*3I]DR<#:-a
MQATL:UU;AM(.5K:TM:U&NH@5!;PD( R!3A6D4 00W*T,X1I7B,BTF#NX9ZDLa
M6 QGV] &G"UF#2/Y@B1'0]@K? ' _BW0F^)$)T4!;0!MF,/?J*6:.="M##TTa
M0\>$4(0C),$)BW%4<"FFKKS H%M(.">&EX:4CG2+O8D) A4J19$KYD0^5>4>a
M'2+WGSJ\SD<&L"]RVJ>#O!RANU\H D<XA0(0%.$+XJH*"/C@Y!+N6&<@( $,a
MY&(Q&,#)RWUY@)=[%]M5[FUSY-%#7>[2 A#$H0YIP"LP>Q._,.^4#</]LI[Ua
MLN<[YYG/@![SF"GBF26N\024#'.$ZP8" ]\-9V"IL6A(@V#8/6"__15L'?@+a
MZ05#&L$"U@EH4H"T*CB!"DD(G9"7ZH,9S.#%18BQ5^)B (H<F30T$8D97,.;a
MX0+HRO]A+*=<T!.F!@7'5M$QCY.'E/8-,'*OL^NQ@;QJ(AL9R4IN;).?'.4!a
M4?G)M ,VG+3,Y3V#.2X:&#1BUVEF3L$0!&JV"PC:_.8X+S&8L-. GPDK:'/#a
M:=_^#C2<"'T7_APZT>A>-)P</1(XR472S*FTCS2 :4A7'$Z>AA.H!SQJ?1G@a
M3X$:5)%!(*Z@! =6!C 7B4<.<D%9I<U[(N)#>J=-;KY&K>";5*;( +EQ!<<Ia
M>Q$-1RPJ2=BE?%8KSXO*3860)%BAL'M)Y"K=P%O2#%#G 46X[41<JDF5^&*Ba
MP@D_V4#B%9 <Z4Q/)'U&-?9U=\3LL2W#W"@S7.0!F2(JL$TU'6.\&K6GHC+Xa
M#AJ*=$8^-?+,?A,/;T&0=Z,G@4I<)SO3?0 "'-A@!CG( <F14 00TYK#'O:\a
M[;AK]7&!MY4A&51M;UM%:>.5K&(P'EYI=)?!S\$%<&J#4FZ?VYR/H;A]24#,a
M23/RDJ]A#BYZP"Z'*-K_T0C9OM_YX0,(NP2HO-M?I\(7;AW;Y),>?.+%;6Q]a
M)'ROC[S)US>]"003 Q"DP$4-H(BI=AX<V\B@^DQGN=?MKZ\$5.OK4X $4M!Da
MZ(=TV+=^3A$#-N!^+$ 8[V=&U>)$C$1^V *  EB X )E@14#[?=^%($$]A$<a
M;:9[;) 35Q)$P5>!(X<MZS<#[0<KK54:;# &J0<:P+43T9=UIZ=[9- W9X &a
MFW-:X==ZDX-7Y!=Y2:<7_;=TYI<7V *#3$@IYW=V&6@J*C #-O 4[@>%CR)Ya
M34B%M))VP1>%7_=_4(AV7XB!83@I*I"%[K>$79B$2,AT9D>&9UB%7RB&<6%]a
M<9A_2M>'7E>':$@I=[B&4OB'(Z:' 1,J;-=UATAR@$B(P==R(J=TR'%\2SB(a
M  @H+C=O&,%\,T<1-0<"-W<1PS5U/.=V/Z>%0M<1EU%T1ZB)Q:>)1.!T4#=Sa
MO3-U56<C.9B*1QB)7\>(8N>((""(>$B(I;-VP\@3L05WIB=W84!WU@5DG4<$a
ML+( %+%4305]<%!%5:5.;K=!ITA_O3=<F],;\T0W1@<W<J..(R<H>.9B?6$ a
MCP>)B>AUE$<#+IAYF]=Y'A$W1D!/V2<'V'2-!,=-L?=.>(4:=_ ?<^AUM <"a
MVM0;<Y![2B&!P4%6XZB#0(8M(_=A5(!^P%B+3X>%6DAJ*(<K*U@S*0>,Q0>,a
M;>8$5YB%43>/__>1IR:2]T@I) D";HB2\ZB2>6&&\_B0CVB4GBB3;HAR?C@Pa
M.6F/Q B4M%:/V$)Y,7!_5,!YN.*13OARV'%_*$>5)Z*$6>F/7/F5'K<P&].5a
M3?=T (-R"_-U"F,53? $T?&6\UB/3&=B_2AZW@-Z'S:)DP(O7W=B@EDQ:ZD7a
M*%>-\U@$3# %[068?EE^B F 7M>3>+F'\V*9E%*7=UF3M%:-84DE_\>79>F7a
M!B"9P?<OA0F#_Y*8AAF:3D $C?F8D=EA@;F'KUF&.H29H!DPK#ER_^>9V/&;a
MWB.:?9$!%)$$Y$%:P=&*Q095'4$$(<1-3E &W$0$HQ*$[@,^L^0Y0*:7@]E^a
M/$!Y([.9ISF/JKF'1( X(R<#2QE\1* <V]EDFRF5MH.<4TDE&@,"Y?DR&3.>a
M>Y&>GX>;D]F>7R<#5]E_\ZF=FF.? OJ&BSF;HTDM)4.>YODQK$F@MK.> 8.@a
M(Q<#-( ##$J?#VJA82.AC4FA>4F:%[H7_ZDT+]J7ZFF@\NF>>4$OQID #5J?a
M*"HS^'F<++J?<TF8,0HSA,FA?VFC[(FC@K& ,-BC)QJ706H ^FD[8BDS1SHQa
M:MF7"3.?78IRLD)!0N)(379_[]>B_]B.3'&:"%&=D6(B?G.F-R #+,"!.< "a
M)P W)^!^?1$!C@F9;QH&=Q"GHK(4=&JG>*JG!M&G:4IK(Z.61::6$!&I,1,#a
MDWJI*">C80,#1?::E:JA%_JI%[JI'Z,Q1:8QH1J@%9.JX]DMIH9JJG9?:, #a
MWM$M4U!S(--K\J@ HFE&'?)>\;5.<%%>Z#4$ZL5>52(:2X%AW18B'BH7*290a
MN]IB48.D])*I)K.J7[ PVAH#W<*I)D.JG<JM_T*N\!*NIRJ@KHJ8W#HO[9JNa
MBU&/388%K;87I!8$LPD"]<H#-8"F7@IVC>B%CRB,I$*PQ?BD3]$M] H"]OJOa
M;ZBOT=&O-S #;^BF KN,26BP8T=B;6:2L0D6#6NO5PFP$LNO#LL#(OH=I.:Fa
M'$N,(_>R"&MV6<BP5%*O/K"R$;NO_:J #NBE,KNQ87>P'NN3(2L7(^L#"MJ!a
MTL&S*2L#W'&Q6IFQ1-N404N'V&&S*&NO4&NR3HL%/( 2+ NT0]NQ5ENVQ-AFa
MX-H7$X!W>D<>4_1.?L>L32%XA#=@,M=NS?<&B]=XUU./5XN/E7=Y_(BQ@?N(a
MQCD @(NV",L#2ABPA_MUEH=YFM<M2!FSC$MBNM09V"D>C!N./M*VQ;:-]M2-a
MGNL[511;.K21J:B1W24>Z&@& NE% "F0[[@3OJ:U2)F/^ZAY;LJ. >F.2D>0a
MO1H1HNL9""E[-;%-#@F,$3F116*1;H"1Y8AUOF@P5H&3(0F5"-N3(*NB!2*4a
M<XDTEXN(:0L",OF]W7*3>0&2.DF,/?F32".^1%D@Y<N]1:N4B=N4[HN_3!>Da
MBDLE58F6;GJ6V**V8#FO CR6 SJU9[F@*':IB8DMOHDT<3ERXTN<F2FR_.EUa
MIJF5PL*DMK.9(W>T'Q>A)=PMC%D@@7J;H3>/_:E_/&F+&^P]))P73*?!B7NEa
M2.NB__'!G1?"+TQKP6EB*+>;*;P8*PP6+5P>(NP]2#R4O4G#QFD 18RBU&*7a
MQ8DT/'P!R]F<V_F<83!T3]6L@VJ=G>N@-\8TSX5:"HP1X^F?&<JJ20K"!1*Ma
M!@"B>0&?52RE.0&A%0.^3#RD' S'E;FE%",S2CH >*S'30'!\^C'= #(0,K%a
MA-S#/XJA $HR*;K(C>RD(DJB*"?)3<:: ,S# 9S),#K'G*S(=@P6G_QU.NIQa
MI*S*@BP7J)REFFRI=1S$=_S$>>RD6$C+)OK'1<JT*GS)J=REB-RE& NF$DR^a
M_U2FFG2F6_C&P"N0;DJ=A&JH<]H4=7JG,9"G>]H$CMH7#M#$W%RH&7&H9Y"Ha
MXDS.C7K-'L.E$ORM)[;)WMH#"Z.N$_.:Z$HOYCJJ/? O_IS(V=H#JKK)\*K0a
MKZHGNLIBN?L2O]H['6(ES:J!Q%I>YR40R$H$Z]5>&/T8RD%@T/K$ S"M*\:Ka
M2$,1(]T18-,><#(TIYL%[R0;;XRS,X"O33NQ*0NQ+3NUO5,%M (V!83'1BV<a
M3&-V+ZBF1FV56#FU29VCEAP=6HNS0-W36\L#%2NU_OAP",&\NUIGOSS$MC/5a
MU,(T:NMQ]6C4CMM^;HK6D,S"^WK5#INS,N"U/@VV.AO4_CC4YR)"U]/((C1Ra
M-,W4;$TE-$UY+NBE-!VB58TT2=O76MVS-O"S&$L11"#6-#W8P/S8>4'3:UVAa
M-/W6CEW8>='8R6R-.7W72[NS>QVV4>O7N +87S UGFW6WC,U(S<UB+W:DGVSa
MKCW;E?VT-3"VF1W6#7G;.%W6N6D[O)T74S/::CHUC@LE),=4_Q'=E0<#2ES7a
MY0466I.8-%W!5W,SA/EU-*W#2#,V */4_V'>B^'>,S.43,/>W;(VB3DU\ET@a
M]:C?($!YOCNU -[;T:RVB;LV]:TV=*G%F7E27UJ="+&=,D4:T%G&CX$\;,Q4a
MWLD?X/G&;LW*1NW)GSW6,C/*P@RED5S,DYS6*7K*X.W?BBU"B$S3)*[;P2S+a
M6CC*+-YDXWW+.1ZB(TK,:MSB6G/+ U"-P<W@<KS)4W/CS^T]CJR@"4QKM0S@a
M53KE\6GE/<[@A GC5AW>0:.A3 /?USHQH(T0(G304_-U;9XE(A+1+!TB2JYVa
MY/'2)0T:Q6I>"G"LR=I>W58K=#!?7%(@1] G"+%I_;49.N!@^_,2T2I/R%L1a
MRLN0S;N3U$,\T%N1I'B1&I&1,<6Z6A<KLI@7D1O!7]>_9.B]-(GDXON$(5;Ja
M8)B_,[GC\ZU#VJN&)!:_/-TM]*M#EBOK9!B3;;B_7ZCJM&B+ -LMA_YU388Ma
M]@<#0TYJ9E?*.F0;Q%WMAHSD1*#H%U%\@KY73=;L #Q\V7>))T?1=0VLY!'Ha
MDN)3'-WG'OWG:JX1@D[H4K 8AS[3WL[HCG[2NBWIVT3I"KF\#>F_$%D]$AF"a
MTDN]KHN*HSX S3Z%*, S+0 EI&8;-;"@U(ZR1HWM *OM- W W<YIV2?H@S7Na
MI"&5=<[N]8YA[VY2?.[G(*VL3U _EO,%F.(Z^+X83X ?V0)-@_-.AA-BX\*Fa
MC"[TTH0TU99?!7)Q_Q5@'%=@!S82,T-&#[9H*=0$%79A&;9A*/WSY'&[\4B^a
M1Q^\?S.\!;D8,%8$,C:/MO:ZN58&NT:*+*UL3"-L=$!L0-;V;[^'U?9UMY9Da
M2];BW)984U9EX<9CX[9E ]!E>M87$J!N9397: 9O:^:)]29GW45GL",! "=Pa
MHA_Z_2;Z!&=H=(!HGZ]PC89)#1=I5C1I("!QDG]Q->'M& <GGR;UHM8151JKa
MJ1;[0]9JKS:/?C]K 1/X(S?XV<9D5=9M5O%M5L;X6>;XD,]GDD_YIJ>W[Q9Oa
M;.9F<,;Y^.8CH(^[_!9P8T;ZZ#]PG5%PDY+ZHRX!K,]PD ;6]A5Q5D_^MF_[a
M&3?[O$]@0 [\LSIDMDH#<(ZE5((XC#W.7NJDB/.Q3H&+V4@?!D<:]D20?)-Xa
M470&Q#9,LT6*UN4"_"$5>XZEPIT%.0LP^>JT6?#6>>W5N$(1/O8"ENX[/S3Pa
M"#;JJ?G$"5"/@8[V@4$%Q!NP>-YMP=?$>(XNQ2NDK,WG6"K<69"SEP?;*)L%a
M;WT#"TC;O2-!@^(Z<83W;C#JJ?G$"3#98WNR_7IY7HTK\O<"5R >.,\TX01@a
M=A=\T<H ]1CH:$^C<<$ T?H D5O"^O( YEY\Z*XO#Y 1KO,%5R!=[0,K#]#\a
M=*#S@O,ZL/( V <K#%#GP<?#"9"TEP?;6YT#"TC;N4(14F!JXH'S3!-. &9Wa
MP1>M#-"P@8[V7HTKD("- V--IF<3<W!6)/%-_T&0_^%ZL,, T?H PJK1Q0L)a
M#,##"<##"3#9,< 2^?JU*BN_;@H)"*#9,M9>Y!>M#!#H:/]U\#C1<<$ Z%*\a
M]L+#"3#9\GNR_>H4 .NFD(  %(%J3=!>Y!>M#!#H:#^0:Q\7#(!],,C#"9"Ta
M,I ;^?JU85L#"TC;$8$ \E<$,_9=535^P1>M#*#2U3K1<<$ ]1CH:!\85$"\a
M >ONW=47#-#$+R_H^L( J;,Z);_HD$T%3U"<N4$$3U ^X%."/T@: C4W*!@7a
M#!"M#U#RBV[8_0XK#%#G?<$ N;I-U3K1>\C#"9"T*+& ^?JU88L#FD?;$8$ a
M%#$E5$)^T<H 8C^0:[^'/&RER@S\H7,Q0$_GZV[1Y''S3Z3S@O-C\2Z9HT>*a
M8:!#41125%1 ];@I.;%]N.4#0(R:T5I^=%"MPU7*L],?]!PP4S#&&)9)]'%Ra
M5'-4[Y2*5/5(=_(>KT1^PW=)F:1'G/1UF:1'G!2*%0%7:] "/O9N>-M\5$5Xa
MY#=\EQ1& /B="1)&H>@8W14<_"$5?U=!4D1%T14<!"E,Q$1^L90]'OX?(X<Ia
M.$$YDO>=;I!(KQ4<=O >:8 F9? "/X$3E"-<W_D?QT,&;C3J"?!%8528H<@Za
M \\?4D%^[RY+'NX&]2I+'FXM#BM+'FXM')0<8;2%N<BL(A5.;-01_"$5>QXPa
M!750'3%R)Y 0"]$0+B %4S $?0J#(X(IQ^,BHBM6Q4.H&403.L0] M+< 5,%a
M"9)6%^$B$4 1>[-*X.)&.34]&HE&':%#W",@S1TP1X1*_(%)CG1R+Y5SI25!a
MW!1.;-015$5X%*ABU3I<,'A$DB1+;N B$4 1##)TX<1&'<$] B) =V$'[Y$&a
M:/(^WTG6 :-RZ-(1X'YKW^4B!_!]-/A#C95!SD-,JS=>U9?FNHXN'=&"R+R:a
M98[#%XBR*H<N';%^(XJO#7C+"=#F+'>!**MRZ.+[+*!Y09H ;6[@"8O=,"@Ua
MV<N7YEKF?,FM:1YUO:,4-_9-OC9'HG(F:5)]V >#N;I-U3K1FHED$ET&I4PBa
M $0'W4I6C[J(.)\I.B\XKP.#[UZMPU7*7Q $/S3PCQHPF:1'G 2 S'=)F:1'a
MG-1_[RY+'NX&]2I+'FXM#BM+'FXMGVA)1H1$6]@[;H1&'<$?4D%^1X1*_(%)a
MCG1R+[5$J)1& C4'> 5ML^](HYX 17!!=+!]N 7<=#Z;+O 2&@A$0TQ/0TLNa
M4%)'    BS0  /D.*HVBVOQ4   ,8#0  .!$((  R ;ZLP4 D@,0;P 0$($&a
M (9IZ !P&)%LX!-Q'#V:&Y$0P!-U+)YTX_?O'S8 O9*-H>#"22=D+QR\0"#Da
MS \> )0X">*-'P %0C+]2B9&GY \'MUU<N8DW\ ;4IQ8&?@3P  GD 9X<5)'a
M*U>@!,"*)6L6P \7 !"\@*M@+@ '70NH]0+BRY-W1YU :_LV;F$%70_L[?M7a
MHN"<+)!H_:<OB#X /%H@^<=/B!O*#-P >$!9-  5,%Q0'@?DA5O5^GZV=*+Ka
M'RT1 $!\"&(UP!)S,0(-E/)9'QBJ7EA\(0M9LI5_^"P#L*&9LV?HH4=#-TWBa
M+?34T%GS/OC[!XR!M/^1Z0&$,G'H8*@Y2;Z\3O/)T2]SJ<X/3@#VE(D@&@1Pa
M  !!"@,!B ]X^L#R&3ZFB2 @  PP2,* ,L!&!P 4R  ! !,( L _[QE'S80,a
M7&A@@1"H,!P0<H HW#_S*=<7%(\(1AA<<M'550]#S<<88 ;HN-5KA@'E0Y!\a
M^068 $8.9%>/%!8&05<_,#ED8(,=V16488UEGP.13<:/=";PEQXX(P!#GC8Ba
M0.6;-D58!8 SVL# PP<_D)!-%,AP5F-]]SUWYF5I;L9/>JJT^6:<;]8Y$)YZa
M\BF"-H *2A]S9#K'CR?2V<,?$G(R 0@2;GQ*FS^FH/KIE^DIP!X_^J1&JQ) a
MK#$0"&_1JF<?(B !C&ND#A0%+NEIT (0_+@#QD"@#*%/ "04X8X__%!@% #2a
M @".M?QD:Q0.<-Q P9^!\M.M)];V(RX +L#1PKF9+IK+0$(AH0< @'25UKU!a
M@>$J/[+1"+ 2 KOA;L%.'"SPODITM4##^((APA?68@M'G^AR%L2U_/SU#P Ba
M/+&Q"-C4VQ/%  B!SJSX]*K/JE3 /"A976P!@@I.5$'%%"J T 4 6\B0LQAEa
M\/&&&R#0@489(,P11AM0DR%'&G9 '88;9(  1QA.\Q'&'$VCD0;9<,CQQAERa
M3!U"$B",\48=;'3MQAMT@&!&&ER#0 ;88?"Q-QMED$W$$$P\,<02+D@QQ1!\a
M@'!XXHLW_C@(;=0Q1]Z%0B>=,?Q=MZ!J^(R#!("UYD >.#*H[ILWTA2WX7@ a
M1'$+!3!\2+LSV40@(@ PN+X$.%( T3IYL!<G11"SVVD[[KK;R;OO P6_N@% a
M  #*#&[Z!H[UWL/"1Q\ 1 0\^,-C/P@"W*^./CCB:V^^!.]C_X\8[7L/'C[%a
M*[B_@Q0RPXB,,*B^4"%'T.A<?@"@"_[X!W4]$ T#O@,;!VUG()YXW_%>USQCa
MW2YW -A=[W[WON)M< G>6%X':_?!Z$UJA-43'CBPI[W\#>]]XB.?^6!0/R"La
MSX;?DV'\0#&_'MX/B"5ZUC^T4, O'/ QG9J,."PS #<X, ! 9)'J:H<+ *$#a
M/.B0@P!@$80BJ@8=5P""#<GQK*/,P!W_R(AOR($^<N#J"L*HHQP"0,8K#(,0a
M0Q"'$,C@%=R=48QD-)\7KD./[)"&'J9A GCH83HNP"B$SKL%_082CB3T( @4a
M_ <EC4<Z&JB&DDI8I!TPZ4$+P  $ )#&$,;C&^ (!P#OH0<86-%&+3#2D:*,a
MY"1-1X5+TLYVFP1 )S\9RE%F"#JF%.4XE& %(:SRF+=P)2QE2<O?!&<XG]$Ea
M*^ @ @"9 XR(+.- $  '$Y@3/.:($3:3V4EX%F^%SSM/+(7 3'G LYCRS"0]a
MDP!/*P !GQ\<B#3X"4IXP!,+0 "0.\#C#FA\1AXV] 9%+?H/>4PAHNUA!WC@a
M83J.L@- ZJ!H0#V83"4$08 $H:A!WZD:=Q1OI2P<*$6+B5#<*92A_R"'=\A!a
MFWY@ 'W>*&9&5<K*G.K3/[( @A?R6%.<(E.?LN #O[HP#&($<I #L0%%^]>>a
M<U:UJ5=-$"B%JAJBZH(?L$"J4KN'0J;.\ZD!B"I,J2!3D/[#K/^PJ3$%JL]Za
MUI2G:$WH/IDI#N^(@S;[D -2GRF.<00!&D%8ZEGO.A X_"&JYA/"6/UZ3AX$a
M  #/=$=/00B)E@&HL:IYK"[VH8')QG8<2<!L1B/XU\!2U(+LF"I2+:@.+_SQa
MJX3T1U8V518O 85G09@/6[S$HZZL0$M. @"4NG06 +" 2=/E2G6!T@+L-F:[a
M;9E25T!@7L"D)8%1?(X[I ,#!P+ ->F1QK(ZJB<"Z$)8^W6'@ +;@BC\PQYSa
MZ6AZ:+%?>8! -?:XV9C*]!S,7L86#@2!& $1A!^X!2@!Z$E/"N0:$9_!Q"@^a
ML8I[@JI_0*/%]FBQ/&3<8GRT6!\MI@?+AD # #E4-?"00P@2B0HX:%@ '/9Pa
M5T*L8A*W;,503K&)6_SBS\3XHC1^T(USO.,>M^?'_PBR",C(!E1(N'/TL$P a
MT,&?KGP%8#\ A/5J1PN(>A@.(RB>A^<<!5K0< -WSC,0/,PR'?B S[0P:*"+a
MN><M]OG/BQXT00!F:$0S&@!X5C3P'.WG[ $:TR/0=*$/S6FR?H?3?T:==_"!a
M9SN_AC*MEO2H5XUG+4C:._JHM:PI[0-:C\"22H8-GH$]Z8$8VM=>N+6P1Y!La
M0O,:5G#N%Z=CW6ACU?G60!G!J!'MZJZ, -$TY("2L[UM5&=/W*"&PJZ-[8H?a
M3'L$ZG8VN]UM;5W+&P Z:#>(619G>M,YTY)&M*:]76YKT[ #@=;SI@V>/82#a
MNMG%QO>2F-NY0PE $FT&RINY(F=S R !@:8AKQ9.YX.'/'LC+SB=XPUJ&H:@a
MVB7/G@=.#H"71[S2G(8XGFDH I@_.GM\:GGV>GYS4EN;V#O/W@A\WNG<T'SIa
M14>TSD= P^Z0_.< "'K2 6!UE?>9Y5LO =-I.'.A T#L4?<XR,UN@K$WG.9Ma
M+SJT.8YH6S_=[1^G>="]WG2';WWOE'8%N+-G\ZU#O=""][C?J9Z]$]P[WX//a
MN]D=?_/$6]ON9C]\X)?,[XY;&^R,!P#EN2UIPS_>Z"LO?>@!S^[(E_WO>">Za
MZ=/.< "\/O241_R9X^NY:>$CXU[I/*)-O2"/;T#5I-OZ#X(-Z] O7^[)#[VRa
MFT_#=4O<US3L\*MS'7KMSSKZ-!0"\[D?_M-;6O4T',+XMZY^VM-9TULGPOI#a
M+W_W]]G56R_"_&FH?[D#!4K1YF]]MG6]=G5-AVX$:'X>AX"A9P2/9WETAG\-a
M^( "2 M;)WZ55X$)F('[%H#OEGY,!W\3:']]1W//%WF+QW^GMWL4UGL"@ / a
MMW%N 0A;MP *LG4A@#K#-WW%9VT*AVM\=VFK=G[CQW<#1SH"-WTSPVNDQWP]a
M&('HAW(*>'D\6'=1F'532&?$-H2<AG2A5W9\!W%<:&U39W+^IUV=IX&A9W-Ja
M2$.(08*@YX8/B&AQ^':5EX0T1W2(MX-Y2($=2'><5H>V%X)7J'G&AGI]IG"Sa
MAWAM.'1S6&I7N'92%XDK2'&\EQ\O&(.=%W8W&'H[H(.0Z(1\N'U!6(6<)H2Pa
M882F:&U'2!E\)X$T%'=-2(I,R&F8MW6C9XM*R'=>2$,HP'1;F(JU2(97F ),a
M)X;">(AS-X.->'9*]H'9PP-9^'57*(UW&(C%^(BL>(5=%WBCN'7=.&]_.(-Ta
M>(6_:( B2$.&*''?&'KKF&_-&([X!H&)>(4]<(SV6(G*P2DMB(F&H(G1AF?$a
MAX.@6'M!-X8QAX5FYW!\)W*BZ'$CMW5@.(P)R89(Z'&%MWK3V'1$AY!8)WNAa
MEW(4B750AV>7%GE0!X0CV716!W!X9W4J>8B1AW;49H TA'8Q>7W_)WP>%W<Xa
MB'<^.0*NUI".^&$ H&W>Z'%E1W!)67NW9X9[Z'$E&7IZV)0)29-4Z8<'P9-.a
M27-EAY)W1X(W&99167M!R7/:F) IF6V1%Y2BQFLLZ!PNZ D R7&<V!ZL%GI%a
M4) )J76A9XPV"71%N)(.:7;G&'DCEY,X5WL924.YR)B#*9,>!Y*Q&'N1R8Y2a
M^9"U-Y4T5']$R76:F9 M&7KM]YDX>9&UAY7E=X8 "(AF27-HUY8TAX&?29G9a
MXX#7V)5FAYMEF9!/F3V V9LD27/R"'D>IYK94YSZMI71YGHT=YB9F7D;.9;2a
MF9L)>9;)F9;#N9M 27.E"9>6V(*'TC*A<P8L P02T!41X&U=@1A (1D LP,Ra
M  ?TT#YTQF>(L$=D!%,*0!OZ8 =%A0!Q:2;2(03E>9[I"13KF6WMV17P.1#Ra
M29_VV6=\A@KZ^5(#T9^ZH \D0!O\8 L#:BAJ!@0'"C#H68'L"12_^)XL(Y^Ia
M02%MY ZTX0ZL0!OYH T>R@:T,0\Z0!OW8 BT40\ZT$;X8*/"X*%4T$;L,*.$a
M8*.R0!OP0 <^*@8[Z@!M)!^ZX XZJ@OYH E0R@4>B@*T(0_VT$:\0!OT$&&Za
M  ^2P:5^X*$0T$9FEJ5 @*;> *4P %F+H@ORH QMU%HS*J:Z0 _& *48 %ENa
M)0]/J@OVX ]M)*59R@ VVJ.SQ0QM1 :TT0Y[F@\\,UMGRJ>*0!OV8 UH&JJZa
M\ [<T$9$0!OO@*7TH >9BJ7Y "6S10EC*@9MA (,D#T)( :[PAHPL , 4"3[a
MH%W_( #_X '_H +_( 1+] ^?80C_( K_( O_( U-]$3P)9Y4Q )JH@OL8 >.a
M4CM@"JXN,*%^P&=^( <?  R9Y2:UHP=\I@>L,:'RZFA^  Q\< #@H Y(,*%Xa
MH*YRL #B@ 83:@=\9@?LZJX'*P0 $P5@D+#",JY1P 8@X&AL( ,\X  0@ 3!a
MX!HO$  LPP3Z( (?, +!8"QL, +.PP;&$K&.A@<3"Z\5>[$J*P<\ +(B"S Da
M:[(HJ[(V6SM@  T/N[(T"[/&H@<S"[2.-K1%2[%@P+(OJ[)2*[3&0@9/82RRa
MD+!RP ")-!"UY6AV8#_U2;-VX!\3NK5BBRO\"0<,<+!<JP#"$@C!,*&($+=Sa
M&PQ(H$8TJPCSRK8#(0%96SN",+A1  BY.J]R(+? 0+<3ZGGQNKAYN[<3*@A\a
MA@> "P"""Q6U8PB&2PB)&[.2V[AU2[.$<+FC2[>42[- "C!!$#,[Z;I,T!57a
M A0>("T!X $BPW5/H"U'24[TDBXL@P/8 %G*  <D,*&T(("FR@]<  =DH+P"a
MV*1OI00S8!248&T""*1OA0/7"P#4H+V.!@@>:@+7&P $(+[&(@@>2@'+& 22a
MY&BR( Y 0$@ T':F5;L < ?=0@B[2P*]:Q0"<"[G,KS8T$8]E[]=P;^7X07_a
M&\#:1<#98, SX#R(8"R44,'&H@C&8@D:7#N$8"RM]<%18 C&(@DD# C&P@@Da
M_#M1X @L(P06(&%!T 10T 0@  )(\ 15( 4@  D'T 1)T#-44 0_C !34 1#a
M\ 1.0 0Y?%^\9V$#("J*XK ORS*O:V0;IGU+9F).)F51%L94!F-9UE$UMF7Aa
MU&4^-E)"1F0K8Z()&@!X 11NT!7N"Q3]&9_S>61)9I1,-F+W]61@/,AG,,96a
M5L8SIF7%P64 PV,^1AOH( 04BP5!&P58T%H/RP44:[$8J[$ @ P>J[,LTP3Da
M=+(I6SN<?+5$2[5'6\E@  N\<! +\ **1!OG,!(TRP567#N8J@OG8 V37,F7a
M# "9O,F5G+%  <H?>U\[.Q"D[+.G7+..1@:KC,I0Z\H:R[&AS,RC7,HS$,T(a
M*[9+6SMHX,HBX&AH0 ,;V['"$+(OT)H 0+(D\ &M)0C7W+0X*\H \\P?\,W&a
M$K Q.\Y14,Y->\[&@@9TD+,!\,XCRZ'T# #VW,I-:Z]X2[IV6]&JR[<;_+= a
M %.;N[Z&B[@#@0**R[B.2[.0&P5ZD+IZJ]&$>[F9^]&=^[FA^\\L/:&G*[HFa
MW=(3:@A\)@BPP+DO? 8#00'GF[YT)H#LJPOX@(B $-0K3-0<\KWAF]3C2QOXa
MP %\9@A073N2(-5&C;WJV[D^FCK&0@A='06M!=;0*[V.1KWW@ U\I@AI;0ELa
MG;PTN[R.9JKW8 OXF=:4(-5%PJC^\+Y,0,(77#L9[#P<7#L>[#PA7#LC[#PFa
M[-4IO,(M;"R.P,9C%@0NRP]>"C R'*(>,RV@H":NBP]O/! G:EIS# !U#!1Wa
M'!AZ;-A=P0!=<;O3@@8/[+LB  <A$+R" C#$RV><$-.&:PJ&2PHU73N<<-,Ta
M2PK&S=*K:RRFP&>:@-Q"K0J&BPK-'06: -W&@@K83=TN'06JP&>8H-W&X@J&a
include DCLOCb.uue


---------------Cut-------------HERE--------------