/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
Check sygesikringsnr.
Fra : Lauge S Jepsen


Dato : 13-05-01 23:24

Er der ikke een eller anden der har kildekoden til et program der kan checke
hvorvidt nr. på et sygesikringsbevis er rigtigt eller falskt? Jeg mener at
det har været postet her før.

MvH. Lauge S Jepsen



 
 
Tomas Christiansen (14-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 14-05-01 07:29

Lauge S Jepsen skrev:
> Er der ikke een eller anden der har kildekoden til et program der kan
checke
> hvorvidt nr. på et sygesikringsbevis er rigtigt eller falskt?

Hva' er det for et "nr."?

Det eneste nummer, som står på mit sygesikringsbevis er mit CPR-nummer, og
hvis du vil vide mere om det, så er det letteste at gå på http://www.cpr.dk/
Klik på teksten "Personnummeret i CPR" og derefter på teksten
"Kontrolcifferberegning ved brug af modulus 11".

Hvis det er for kryptisk, det som står på siden, så vend tilbage her i
nyhedsgruppen.

-------
Tomas



Allan R. (14-05-2001)
Kommentar
Fra : Allan R.


Dato : 14-05-01 16:12

Jeg har faktisk et sådan CDP-nr. check-program... det finder ud af om
CPR-nummeret overhovedet kan eksistere...
kan det bruges?


"Tomas Christiansen" <toc@blikroer.dk.removethis> skrev i en meddelelse
news:%WKL6.14$%x4.1053@news.get2net.dk...
> Lauge S Jepsen skrev:
> > Er der ikke een eller anden der har kildekoden til et program der kan
> checke
> > hvorvidt nr. på et sygesikringsbevis er rigtigt eller falskt?
>
> Hva' er det for et "nr."?
>
> Det eneste nummer, som står på mit sygesikringsbevis er mit CPR-nummer, og
> hvis du vil vide mere om det, så er det letteste at gå på
http://www.cpr.dk/
> Klik på teksten "Personnummeret i CPR" og derefter på teksten
> "Kontrolcifferberegning ved brug af modulus 11".
>
> Hvis det er for kryptisk, det som står på siden, så vend tilbage her i
> nyhedsgruppen.
>
> -------
> Tomas
>
>



Bjarke Walling Peter~ (14-05-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 14-05-01 21:03

Allan R. <warlock@ostenfeld.dk> skrev i en
nyhedsmeddelelse:9dot47$jro$1@eising.k-net.dk...
> Jeg har faktisk et sådan CDP-nr. check-program... det finder ud af om
> CPR-nummeret overhovedet kan eksistere...
> kan det bruges?

Jeg ved ikke om det er 100% korrekt, men jeg har ellers hørt fra
programmører der laver programmer til Århus kommune, at man er gået væk fra
at bruge modulus-11-check og begyndt at bruge nogle andre (mere simple)
tests, fordi der simpelthen er for lidt CPR-numre her i Danmark. Ved at gå
væk fra modulus-11-testen er der derved langt flere CPR-numre.
Men selvfølgelig kan det bare være mig som har "sovet i timen"!

- Bjarke Walling Petersen

>
> "Tomas Christiansen" <toc@blikroer.dk.removethis> skrev i en meddelelse
> news:%WKL6.14$%x4.1053@news.get2net.dk...
> > Lauge S Jepsen skrev:
> > > Er der ikke een eller anden der har kildekoden til et program der kan
> > checke
> > > hvorvidt nr. på et sygesikringsbevis er rigtigt eller falskt?
> >
> > Hva' er det for et "nr."?
> >
> > Det eneste nummer, som står på mit sygesikringsbevis er mit CPR-nummer,
og
> > hvis du vil vide mere om det, så er det letteste at gå på
> http://www.cpr.dk/
> > Klik på teksten "Personnummeret i CPR" og derefter på teksten
> > "Kontrolcifferberegning ved brug af modulus 11".
> >
> > Hvis det er for kryptisk, det som står på siden, så vend tilbage her i
> > nyhedsgruppen.
> >
> > -------
> > Tomas
> >
> >
>
>



Allan R. (14-05-2001)
Kommentar
Fra : Allan R.


Dato : 14-05-01 21:58

Jeg aner ikke hvad du snakker om, men mit program er lavet på
Datanom-uddannelsen i november 2000, så det burde indeholde de nyeste
informationer omkring hvordan det CPR-shit virker, da det stammer fra
www.CPR.DK

aner heller ikke hva' modulus-11 er for noget... Rigtige programmører
snakker ikke, de koder... ;)



Bjarke Walling Peter~ (14-05-2001)
Kommentar
Fra : Bjarke Walling Peter~


Dato : 14-05-01 22:21

Allan R. <warlock@ostenfeld.dk> skrev i en
nyhedsmeddelelse:9dpgov$e50$1@eising.k-net.dk...
> Jeg aner ikke hvad du snakker om, men mit program er lavet på
> Datanom-uddannelsen i november 2000, så det burde indeholde de nyeste
> informationer omkring hvordan det CPR-shit virker, da det stammer fra
> www.CPR.DK

Du har sikkert ret. Det er nok bare mig som ikke har hørt godt nok efter...
Nu ved jeg jo ikke så meget om det, men for mig lød det som om det sagtens
kunne passe...

> aner heller ikke hva' modulus-11 er for noget...

Det er den test man bruger til at finde ud af om et CPR-nummer kan
eksistere.
Prøv at se denne side:
http://www.cpr.dk/modulus11_beregn.htm

Det skulle også gerne være den, dit program kører med...

> Rigtige programmører snakker ikke, de koder... ;)

Det kan der være noget om...

- Bjarke Walling Petersen




Allan R. (16-05-2001)
Kommentar
Fra : Allan R.


Dato : 16-05-01 00:49

jeg har faktisk fundet en fil fra den tid.. :
http://www.cpr.dk/erstat_pnr.htm
men jeg tror at andre på holdet også har kigget på andre af siderne... men
du kan bare sige til hvis du vil ha' koden til programmet...



Tomas Christiansen (14-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 14-05-01 23:14

Allan R. skrev:
> da det stammer fra www.CPR.DK
....
> aner heller ikke hva' modulus-11 er for noget...

Sig mig en gang: Er du helt fra snøvsen?

Du svarede faktisk tidligere på et indlæg af undertegnede, hvori der står en
beskrivelse af hvordan man kommer ind på CPR-kontorets hjemmesides
beskrivelse af "Kontrolcifferberegning ved brug af modulus 11".

Samtidig proklamerer du at du har hentet oplysninger fra samme hjemmeside
for at kunne lave et program til at kontrollere CPR-numre med (hvilket jo
gøres ved hjælp af kontrolcifferet on en modulus 11 beregning), men ved
intet om modulus 11...

Og for at det ikke skal være helt off-topic, satte jeg mig ned og skrev en
rutine til modulus 11 kontrol:

Function Modulus11(ByVal CPR As String) As Boolean
Modulus11 = (4 * Mid(CPR, 1, 1) + 3 * Mid(CPR, 2, 1) + 2 * Mid(CPR, 3,
1) + _
7 * Mid(CPR, 4, 1) + 6 * Mid(CPR, 5, 1) + 5 * Mid(CPR, 6, 1)
+ _
4 * Mid(CPR, 7, 1) + 3 * Mid(CPR, 8, 1) + 2 * Mid(CPR, 9, 1)
+ _
Mid(CPR, 10, 1)) Mod 11 = 0
End Function

Bemærk at funktionen forventer en streng bestående af nøjagtig 10 cifre -
altså ingen mellemrum og ingen bindestreger.

-------
Tomas



Allan R. (16-05-2001)
Kommentar
Fra : Allan R.


Dato : 16-05-01 00:54

Hej hr. mærkelige fyr...
du er fra snøvsen, kan du ikke fatte at jeg nok har OVERSET ordet "modulus
11" ?????
jeg ved intet om hvad der ligger bag ordet/jeg kender ikke ordet , men
jeg ved hvordan man tjekker om CPR-nr. er korrekte. Dette er simpelt at
forstå!



Tomas Christiansen (16-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 16-05-01 07:35

Allan R skrev:
> Hej hr. mærkelige fyr...

Personlig smag kan jo aldrig diskuteres.

> du er fra snøvsen, kan du ikke fatte at jeg nok har OVERSET ordet "modulus
> 11" ?????
> jeg ved intet om hvad der ligger bag ordet/jeg kender ikke ordet

Okay, du har overset overskfiten på siden og teksten på linket for at komme
til siden med beskrivelsen af hvordan man checker CPR-numre.
Det er jo hvad der kan ske...

> jeg ved hvordan man tjekker om CPR-nr. er korrekte. Dette er simpelt at
forstå!

Ja, ikk'? Og så vidt jeg kan læse ud af CPR's sider, så kan modulus 11
kontrollen foretages på alle CPR-numre - uanset om det er
erstatningspersonnumre eller almindelige personnumre.

Alle går fra Snøvsen, og det er så synd for ham.

-------
Tomas



Allan R. (19-05-2001)
Kommentar
Fra : Allan R.


Dato : 19-05-01 00:19

HURRA!!! DER ER BLEVET SPOTTET ENDNU EN NAR PÅ USENET



Lauge S Jepsen (14-05-2001)
Kommentar
Fra : Lauge S Jepsen


Dato : 14-05-01 22:49

Ja det kan. Har du også koden til det?

Allan R. <warlock@ostenfeld.dk> wrote in message
news:9dot47$jro$1@eising.k-net.dk...
> Jeg har faktisk et sådan CDP-nr. check-program... det finder ud af om
> CPR-nummeret overhovedet kan eksistere...
> kan det bruges?
>
>
> "Tomas Christiansen" <toc@blikroer.dk.removethis> skrev i en meddelelse
> news:%WKL6.14$%x4.1053@news.get2net.dk...
> > Lauge S Jepsen skrev:
> > > Er der ikke een eller anden der har kildekoden til et program der kan
> > checke
> > > hvorvidt nr. på et sygesikringsbevis er rigtigt eller falskt?
> >
> > Hva' er det for et "nr."?
> >
> > Det eneste nummer, som står på mit sygesikringsbevis er mit CPR-nummer,
og
> > hvis du vil vide mere om det, så er det letteste at gå på
> http://www.cpr.dk/
> > Klik på teksten "Personnummeret i CPR" og derefter på teksten
> > "Kontrolcifferberegning ved brug af modulus 11".
> >
> > Hvis det er for kryptisk, det som står på siden, så vend tilbage her i
> > nyhedsgruppen.
> >
> > -------
> > Tomas
> >
> >
>
>



Allan R. (16-05-2001)
Kommentar
Fra : Allan R.


Dato : 16-05-01 01:02

yups...
her er den... jeg samlede hele holdets øvelser... det
kan godt være at der er en minifejl i programmet,
men så er den nem at rette eller jeg kan finde en andens.
God fornøjelse med programmet.
Og Tomas... lad Snøvsen være... han er min gode ven..

/´´´´|´*
,''''' o |
'''''-- |
| |
| |
_ / |
'.,^~~'



begin 666 eks9-1.zip
M4$L#!!0````(`.2P62EUF8_L'@```"H````,````4')O:F5C=#$N=F)W^U%F
MJ6"K8*"#0,XZ"D9&$&QB;*JC8&QA`13DY0(`4$L#!!0````(`.6P62FGMV>?
MFP$``(("```,````4')O:F5C=#$N=F)P55'-:MM $+X;_ Y%OK2%BK43"C[H
MX-A6*J@L$:D*!5U6TCC9='_$:J0X+>USYE%Z[([D)'19EN]G9W9F-G]J(=B?
M8#X+C56![Y=N%U=)>KWYLRR?"[9VQ]H/;^+Y[ :.8$'7$'PLKW\QQE;L\H)]
M<N!\;%_0M"X__UZL?+9@BRGM;738);=9F7W/\GU<=M@8"2L?9;5(ON[?;7HT
MBJ,P>CZ+:J/'@KR_P]J;SS+D%OOVA7X!V89"0N YD@LD]#R [(!<U\Z!*[A8
M!5YJS0/4N/3A!,[9&J6X;LAQC"Z]73FGW1J-<,)H%WALBFA=396$V#0P:3%_
M,+8`&RP=%GK"C.8SB,Z5?Z;43Z1K"PHTGK4,[ `VZ]O66*0..E+I$2''UG/Z
M#R<E+0HE?OZGA7PP-G7)1*]<U>]1?9BB&R@$/.Z@ZN\B?30D'LQ&"MX)?4?L
MRO2ZZ;;W4/\8D[L:CM(\O@JA3(W0^,9W4?%*OFE+X="$Z=@"?<4XC-'CB$#F
M- #D0D\XO[? FQ1L4M%X28KYZ="KRDG'R>UH@O\`4$L#!!0````(`+>P62G/
M:=6QYQH```!P```,````4')O:F5C=#$N97AE[#I_=)-5EB]I6@*$)@C%*K^B
M5(8=$8K\D"(<0^F'X#:0I$W%M0PM;3[2&IJ:)@A[[)QRVHS])GP[E6UG< 0W
M.EV'<=#MNN78Z8!6Z=C.'-AEUBJ=L2IZ<*=(=V3W<(39[?CMO?=]2;ZF+:C+
M'WO.]IV^^]Z]WWWWWG??>_?=?%_M?]7$4AAC!JB*PE@'X\7&;ER0-WU^9SIK
MGWSFC@Y=_ID["KT5-=;J@']7H'2WM:RTJLH?M.[T6 .A*FM%E35O:X%UM[_<
MLV3:M"E9JHQ'?_BG]^=?_5%CK!Z^]$SC/&@=[SY'[:OO_IA:5T69%Y_'=#L$
MQO)U*2QSW=6<&.T\,^NFZM*X\59.*YD!P((#$+/QOH7/5\=X2Z6:TV]]@3$]
M$2R<-][&&RH-&QA;A)T2QJ)&]K\NB_2JR: D4S<^WY*@9V\0VJ[5G)?FJC6,
MD9R2)>6EP5+HSYS"^-SC/D@4&-JU)% 3*&/J'$I4OI)1?+93NY?F:-78"XIR
MB^RKLI?DY>>SB3)1)LI$F2@39:),E(DR42;*1)DH_^?+XE:SV/6H6:QJM(@?
M?]\B/L<LXN9"O3CE(;U8`_TUG^C%_85F,7677C0"7QD\FYNO%RO>FB:NRDP7
M5\*SVXY9Q%DO6\3=/[.(\S?HQ=>LZ>(9H)]QF\6'=1:Q^>_-XNP7T\5+>7KQ
MB7=TXC__W"+>#O)/@CSS9WHQYT6SN KXYCXR3?S1%KWHV&86]\/8.I"Y2[:(
M/W@T7?S@A72QX:ET\;=@[\+Z::(.GNN*S.*]@EX<VJ075P)>O=4LWODA$P\"
M7T:31?Q-FD5\&<8O_8%%7&NPB'\`O>)/S.*/']2+"V>8Q<] [[-@\^,ZL[@&
M9,QPZL4W>Z>)Z)=)S,B>^0L;FWVWC:5 1?RE)3;V(=17H4X&_#=+;>3#WR[E
M^)ELCO=!:P8\_SX;.PNU$*H.<-]J&TN%=M8:SC=W#9?KL=G8KZ#Z;/SYOO7\
M>=UZCG\WE^/A7"[GD0VV^/HI=_DL-H!-!*,$MQ&T$>P@F$7P-,%B@KT$3Q \
M1/!)@LT$%Q,T$+Q,D''*=(1MU"\GV$!PF. U@GL)#A L)+B(8"9!$TEP4-]*
ML)M@-L&9!*\07$WP*,&U!%<0/$^PBV [P0O<0I)L)-A'%"_!5H(6H@>IGT_0
M2' .P<,$-Q%L)%C"1Q'L)WB,8![!(3X7@H,$#Q"L)EA'\*P%5\D;S;"QP3\J
M^&X-2S9+O%L+*RWKOM?NS_WY*Y^]_.$#?_T8I^++GSL+*P(UY8Z O])3%ES&
MK% VE-;0>I]>QE++[MR_^U6_F%>7GKYW\CV;'GGLPA?[=G;;-[[4YCKLJW]^
MWYJM+R]_1OR7Z:^9V$NLY)V_95^A"*!W`W92V+4].6R:SL3*J@/68(7/6EX:
M]+/;="R7+8!Y*%FI;*,_L'L96[D6V!^!<2=F,?: B;&-*8IN(=!TDUC9[G)A
M;T60&72I;"'O-:97&_\A]7/== -34O#]GSX-V5S[RH'+P!92IS&]S4!,*<"$
M+]A2C,A4$"P-H+ TME#M-J9?9L2H!\&@PLN#>X.:JZE"0Z0U>W65V;LHN
M_2V,+4&/-NFZ^G1LFKW 6E!:56,M\ 0JQ.53V;W9R[)79=_S`!00\P`PIDYF
MOIV^K:$@RM&EX,*E>G5M!A*F8S-T=W%Q`T\FBU/T!OZ*+7EYQG)WDWXL*F//
MJ>_^VF;8&+Y8*\I=><=S=WY[!,]W1V!3V&1#`ELQR\9F789=!H;C*SV=6B]"
M=<!6Q.H#V7L!WP]5@OI]-KK$]U[_'H^OQI.CH; K('#.7!OQU=UE8W40CTQ3
M&#,Z;.QM.&<,VF^S8K8>O!%@?E;)/*R,!=FR,?1,E/\?!?<=%MR+L;W3EF7#
M;4J1L1IHN'^PM/>5C!@[F&FC<9?5<7$\D^-#T*:I^%3VFL[+?.S\;39VP<6?
M%U;L8&R>C5F@VM@M; 70K//P;DV)ZS#=;F,-NW>P;)5N8],9OF(_!KA>P^<#
MOF;@.Z'2;6P^PS#8/2\Q%RR]P-<*?'TJ'>795'DZC;SBV5S>@$I'OCR5+T7#
MUZ'R75#I-I;)-@'],N &#=_,.3;6#GQL/J<W`_X\U%>@_A)J+]1WH7X"]7.H
MPU G@U]GJ;Y%'U9#W8CQ!ZIKAHW=S))YVVCYOP<;;D:QC2%[O'+E)NF\4?&.
M8=.9FZ2[:0S9?[A)LCO&D*U3]XBVI(]!^Z9EOR_+@"?HXE6C!NE,UR#R+1H$
MO^W%D9J9',$[_.+&V1RY#Y&?J0AF-Q>+YW+D?D0^7\"1!Q%Y(4N#M-REVK08
M8M)E39R:`_C<V]ZLRW%TY;[\S)_7_OMW6M=-@9-K@%J=Y(NS@./=G*;>SWCE
MHT]1UNKY(WD'YF+L8BPZUT;?8>OK>")@`KZ94.= S8*Z>#X?CT\GL=$E<4LS
MRN.24\.FN8]=*F&-6Z/-+[STK_^4VIJ<JQBW;)AUI>W5A\+]E]?DO%!I_OV6
MD:ED(C>"Q&K=?P__5]1K^>EJ([M[^>/'-ZPI=O!OO[L]@6)[15G 7^,7@]:B
MBII0J<]:$ R55_B+BW)S5@-8M61K?B[F-XRMA1B&!6/X9*CY@-=!/:O&;RS&
MPAWL/Y-L49-'EISN8G:*8V(Y:#Q_A/))DHQXR@AE@\/U:8"W04]-D+EW>?)*
M=S%F_[3*`VI8'N3!A16^0OP`:V*%<=L@\V4%[!JK8N6LE.V*T^R :6FPD6%4
M!>1$-7$J\FT%KII1?/Y1?!N!XDG2D0]Z`TFTATAO"& @3ML((W=J:%-4^P*0
ME]6H^'I6#7@%W)Y\+?!Y);1&DAD"F14T-H;[5-Q$8T-@00ADD2OAED6?>$!B
M$.!NT.TAS3BWK>PQH/KC-/RNO 7P/2,X.3V/<L>1=#Q'2]7V"=5V*W%6T3=T
MI"]AB?)QTIK_+@G_CR0<Q]\#-1.J&V:U#V9:#G/=15I*R78L\T8]#P+'!O*B
M%6Q!:XMRUZ^*?2/?L6//SM+-]VY>$>L7E0;R0M6\OS'@\6S=69E?41.,\^9[
MJG)K@H$XKO+$<>@7>(*\+U25C^ K" 9&R )\0VDPW@?5=O\>3]R.PIK@@QX-
M+SW4V!D?NRG@J0GY@AN\GK+'M+9LK-Y\KU:7OWK?B/&[JQ/RA4# ']BZQQ,0
M??XG$CQV?WF\#V=X"_ZG@W8^"1^N`(Z$+D"*2GVT)-KY"(]K<)"WN:HBJ-&E
MF1_*!]H(?W&;\ST:?'V5:E^NW^\#?$O(YTN6H1V_OKP\MN8)>[EM(^3"WZXM
M?A$$:'2K_L,<N01^8V'9IK9>M:U6VTW0.M2^49<Z*9:%0IY8TKZ TV-EWL)L
M9M+]*2V1J::4="?S+%VZT*B;')<#>63)B62>[&S0]>>X',A=2XZ-XED`/+JX
M',B72UK'L.<*T-;B/*&>A7YFUDB>Y!*[0[6T!G5,%,;'JK9@M([]3)XS-S$^
MF2]&;X#[!W\C],$=A'W,Q_O5/N;Z`VH?\^_ST/]5H*80]V#^M9V>+;#6!675
MM!<*U$ND0+U$"H!V6E,N0M'B[LA0_9#)BS^CRY]'`8YRB7*1_4,'4%S1PY+G
M2H]P+1,8EG\AA88C@M$1,2I.0\1MD4*#4JA?"O5*H0XI=%0*'9)"C=+QO3 G
MZ;@78&0EOK.2[4>5]R)G91E)2@:^P));L"\+1W^IKV/,Y>@1HIAA2-L/]0AM
M?V?&WE$E`U]^B9%K?*!X]2/9?<@Y6W$]J&3@"S'Q:O_L+MO4:Z&LB-LDVW&D
M#U*4'N$H!E3E/0>(E^W]#N?%7P,>UTC*HN:8LJ=F?"UEYG G"(O4HL+(.1A_
M%YE]M$=H*J->HT:QDH&O^!R1<[*,/L$G[D99Z'4YE(S#Y)@.9,(W@$#!5X!B
MN"NX%OC'FHW[J"STX]!^SG^,)/1+PJ"2@2\.+^8`9VSL6>U86 `8WN]T77I+
M#I,;@. $-S3.B+G!?VN2&UIB;A .N68KCF2?5VE<L&:T"^(:QW"!T"C;>W'>
MY )WA\.5[ )SPRX=FM]FA%E<;-,GKU[UK3&SO[7@:Z[>?-V(U<OBIO,U<ZAB
M8 WNN[X?QUV#V+ U27*'DN4:OYG<Q&[+N4F[;5*/,(CGW;OH;MA">W7)OEZT
M(.9K\[>^WK%\4>-G%K<[ZR;9/?8*W?B4C/;D3=NTO_A24=1CJVH9%8D>& ;/
MNCMP=D2H3%$R\)- ?;?E5"P^HI6G*,Q:%)<Q(LP4(_9!48+><,0^M.,[Y=(T
M=.>CD4^WOV5A32/+=>*Y4:>)YXLPGK\O;4_$\S?05NE(":Y]"T%[K[1]0-H.
ML%O:WB5M;Y.V1Z7M3=+V.NE(-<;X(PZ"-H+9!*T$302'P1^OIY)4G)ETLH3F
MAQ]".G04DI$@4422PIM091@ENF0913KD%I3@E,,F(MH''$XNHR>\#2"FX=))
M,N&DC23CAY;(.OSH<O\I<\-.W,ON`3F,0V ODQ[\#=M#%+QXE'.XE1;$YCO
M>8P)'EP^,CAB-\GN-ED8$.O_J',YS'45>MQV- ]8<_(=K1\?:+3A0/PL),LE
M-!=W%/<5?B*2A:AL[\*]U,HW$'XK,K_QGM0R!-/E<W\_3'UW4T\8473B!T<N
M`&E 1OC!$?361^>/3C.'W\=I"K WU>@!%ZV]EQL-:J S7579!MM-']MNIKAG
M^)SQC1[Z:*1G4E]'7\@RKH/<@LO@!!?@Z<*O7Q=_"&1P3 ?.'B;X.KY0D$B$
M)$0E>1LM&RUID6QO@M6CI ".!7F-'G!'D5O<3;+0A;(U;OG@R&I:F5Z^1*"]
M#:W,5GTB'5]$,[#&K,ZX0"[/YBZOBT=4F5@<"AS+KLAEU2GV.M )(J,NA^8<
MBE<_G V)3O>S7N-2&[NT..%$&3<]2I6%)MB.4=#0YG15IL:&9IZ2P^0I&3V5
M\'9DI47UN7T`HTRO\I[V?%O@?'>/<[Y-X.1/<&OCE\?KGN_Z(4O\<*\>*UF+
M"";,U^XUO\$VU5]+>^(!)2MLR+:QSDWS89J+.HNQN:.S&IO;.QNPF=%Y"!M3
MYS%L4CN[YJ/7()#BUU#O`+IG"N'HGE.G8MJ,I&U0TH\]HZ:#,/ 9J%&H/X7Z
M"M3C4$] _4KSVW3C^4U]8B?,S[@,YM>'QO]EYR V>9W#V*SK-%FA6=4Y!YNE
MG8NLY(+55G+!)BNYH-A*+@A:R06-5G)!U*IUP4?9W\P%$24`(_=!K8/Z%-2_
M@=H"]3#4GT!]">H_0NV ^D:VC7V%^.[3QO=M<1=M-Q9$4A2'(6*WP(5,9U4*
M'9#=!R2A61(.2,O@B)Z&75NID^4G<=]*QQ%U:I+[;BG4+H5:I5!4"AV6CB.7
M=-Q'L)A@/L&U!!<3G$.0[H'C>":DXT,$!PB>('B,X&&"AP@V(SS9A_<HV:2)
M#BVHE<YJ4H!HI]B$LF1[:T\8.Q@:8A$P&CN\--Y]``ZL>BS)%7 JN1]D<$62
M9H<LDV-2N/)X_ Z3*#C_SNN8TCN^*>I4#D#82<1C'D3MZJHXY192G<J5N1SC
M>$6=%=TMXYK2/[XIZE0.C+@:N"[PU1L8_=7M\;"Z.^!G0S/^L.T1#J#%7W6=
ME(SS7#$E8N.L2&0J!DEA4&ZA[1!&,U3UD)<Y7 5<FQZU/7TMC;'[WZZ]Q8L=
M+WYK*P!=^#\;8B1\B*9_@J;?+DKA;G(>XHDKO:.#SG(KU\-YN-N=M!E.TV;$
M,9%U^&\A+KH^>AWQW7 .KA52(?O(,TAPM\OA8EHQP)2,M;1(2 `CFD@!\CK5
M9>6>-\0\/U/,.8Y,YH898&8'>O\7:*1$TY9(&1Q3=ZLDD\ER-R?08RZ,;.B-
M[1HP6,9!#E4MV2RT<XLX<PN>76\7:($MM)JV-U+4S#DR5>*^=$=EZK@<!<K3
M^"6 7(^=$:Z/V*-.;Z\5UQO_PT8*Y]$:]])<7%(80T1/&#=G/\T+]V4L1S\L
MM]#Y#R.,I#A=!4J3(:;),$J3<)C6;B8((.D2I8E2&..)3(KDEL4T31=$K9YP
MJZJ4EHT.ACPGX04<RV]O[K7#W&L8M!)>P^!%_$H&_N<09EK=2L:5D8=[@/0/
MT8I0XN2(94[A.;3F,EDEMZSEQ'Q.+%82RS1B=YABNV/%I?3.\[1EN_GU\ZSW
MTGUP_SSYA3!L"$XF,IG@/LQS&CA5W;3_R"0^%W6.:HHBM\SA^A9S(]9R8CXG
M%G.BCQ-IT_.H%3?)=HKG-A!CU,0&CAN"UEB*$[\+N\=-![[:[Y?Z(6/\<O-.
MQ_4W1GKK/]9)]N&L+QT28)!-P4G"?_+J$89Q2,* ,10;V(WTS8SKJT9](6/D
M[?KS.DD8KO^W+XLD0-,Q\9A5I/Z 5@X:(8F.S,7_-8/M,NA0WHE<\^*"/1PQ
M*T^W`DNXZ_U/8"]CUWL!'ZA[F1((_$\UD*8<-*6P,00X"VFTN;+0>V7<H4;M
M4%)KT,?58O<Z:IEV;"4W^D#":.QZ#7<D1D?6F:9S&>=HO$$S_G(E*P+WC#F^
M2*/]G+I2WD5KXHF4*9%(\?QXW+6[03YDTN9#===;PN5*D50[*-5>D&K/2[4#
M4FV_5-LGU79+M>U2;:M4VRS5-D@G@QA>3I83+"281W %00O I"W0CZXPRNX+
M<'U3<%*>CH)E]_> 0S(C= *]T=A><,;<"NQ*!O[SXO)?UU^;8FY^\^KO1$DV
M8'RR7XC]<NGG?A)S3N(#<X.(K[4T.X!4IQ<I3R,NN_L<+L"%?H@1DG :8IF#
M7R.U_9%U>&L[73W""?P$UR.TTZTN=..'45A9H4^V-V!Z%,;I.RHGR2WH`1A
M(383%K0GC![@/YHQ2%!V0.Q<5!^CID&5N Y_D,E"JRROH,#B;E:O4I0KR^C9
MI!@[J,98=Q^]VL&XMHCB&O*J]LA",X2J()?8X'2A`GL[]+LAO3"JZ45:?7=V
MD=)$/J$W3[#3(4MW/!RY53EX_0.J.GRYHO%J/WGU&RRP;(=M=H'/*C)+#EMH
M<<\[G+" PYC6]( 1P[&T)G9@Q$B+RBA*+?3A8-1F8+094L#OD;2DB5I@]SAC
M9A[4F-DRTDS7.&:FP8]7V7W^?]J[NMBFJCA^-AK:&-P:`X88DO7!AST(;F,A
M$C ;&YU.96S=J!_1C+JV8[,KM6ME&F5-$,.8"\0,Y8$H\9F0/?# C)HN+&)\
M,2$^H.YA,3XH)KCX8N.JQ]_YG_MQ[MWMV%3DY?S&[YY[SCT?__-]VOOOGYZ(
MR-=OR!CPNV2<#"]TFZ-WZM#"R6+M1W-3X<7([]^BVS",I=CS0>/CL%OR14A!
M#;S)'K83)\6S>U4?6?BAA0CM)'U4QI9)JH>Q$IO]*KY004WM;?? -_1EHCE<
M3\QO_?E[2#4KOK>ZZF/5A8D#TQ,XPARX,G6.CDEB<EZ8"%^:"']ZG8X%(9I=
M^XW9Q;<LT,R9QO8J#IIBD,\/!U%\'Q4WC1F->7 %YX;Y[IY?!M=14*M708>F
M,8DB8A;U8!H-!R-&0;8`*!_UM8^OU'5,G1O#W)H9[[J[R-H1S"ZRQ@-UMD_I
M[*5GHY,/\O>L+#RW$R/QQ%OE(U^W8CMY?BJ\(&85YB=Z88/1*V)!NRD_[M B
M<HX6$5I\U 6$UA-'-0/VH<?^P'_'(\::SA=G[[PYJ?OS%K&_4)O4*,U:88NU
MVF1RWS_98M<D_\6UG8]\*\]'PWS=YPSUG++N<\;9MG4VPIJ^CYI9I?XO;4I.
M[DF>X UO;L1U]_%N7+?GGL+UT=S^63G=Q$\8DGM*N>;9^U5_\CJJFJ^C6F_V
MBQJB?IO=2]1:#KL!Z\#T(7"IG=$Z+# OE#]=]AQ,W,"S!? 6^ <8##,6`IO
M-C *O@QFP7? :?!C\(-J5M@.?H+[K\#OP%M@&>Q%^'T=C&T#=X!MX!C"GH'[
M`I@&CX.GP?/@9? J^ 7X`U@"-S[!V%:P'MP+=H$O@L-@#CP-7@`O@Y^#-\ ?
MP3ACA=_@"D76&G ;6 _N`CO *'@8S(!O@&^#[X,7P1DP##E%N[AM4?2W=PX<
M':6[6'RX/YG)Q=+D\]+]<.E?5-#F4#1F5M'-<>N0F#HY)$5\Z+7^D5W-:GQ5
MWT=*FDV,-"IE"JT;5EGOQLYW9Y-2'[=^B4/W1M&%,4(,+2)'?HV[AAPE9,T@
M3_V7]L[1(;N%VX^\,IH3/V8)1\-=??V]G5U/]^^+QR.)I%-&6S_'U(F2;1"3
MW:6DCB12B=AHPBSKU6Q.R6D?-;(2NR>?R+[>F<XELLG8@%7O\-A (I-[,I:.
MIQ)99XN[:TJ=Y*T%U-$M\QDZ:M?7H8%DI;)[SM#^(=E31P>M6"XM*%=_KFA_
M&62-#%6_RJWOY4CES#EK2=7LH:UD^X1>FIF[HMD5E5I:2CU=>EZ6'EE[I]&/
MIL36K(NE4B/YE(SCFIFFUA<]2XQEW#5T^(U9H*&AH:&AH:&AH:&AH:&AH:&A
MH:&AH:'A!=N&OK0X\QQC!?$[_5:XXE5D/9/OV>QX561_IU A_/R*\ VL,2_L
M\[-"$]POX>Z$.^.17MC+*$F/(UP@4.4=OK5">'V%\,?@=,<@#]P9XT?!#0/2
M-IOI/SP@TYO^4W'&?JJV_9E!Q%>>FUBL$B^/HJR7]>,:9A'<=;*#K O^3EP[
M<"_PF>_7OVSK7$QQ)7PK0AC9!1)Y"ZL-'62G(8$\TRQIV"-XF%+UX6F,+$JD
MR%;!$)[22Q:T[8ROM4KDVXMP8>DAS08]<MI&<1I8,[B;W#9JFP861+BTZ15G
M>;+IU84R1AB]V&$WR8)#"B4GF&CP1YBPC&+F'R7[#:.*/(UL!_)LH/L&BNO,
MVYU"C=_,'D!\(7..8J4A1TJ1QLORV'[V$-(<I)H/4NU%&E.^=,6T.W W9M21
M?NG.0J%J&NMB!#3F0R'1+CX:'TWY8%#ZQ.C9F<?<H=?Y(4HI!TN154)!SHA"
M03KB3P3A4BR*5)S^,<ZE(_XXZ0Y4RI 06!*O%P.<+QW+L%K$7LHPZ3*'6Q"1
M:PNL9E'<U-R6SJ)GGFY(.< SF+]81(JH?=$/UGIPG+'K7$G#Y?^E$6+2-J+9
M3H7J2J45[DH[_:<XP_T9U<>Y_Y@1$)"J'OYC,L!4_3"?6WXCNNDW\_I__*=.
MJ7[;)_S"=_NVZ7?Z!%;SW6-P3\QQ7F;CF !UV'O\H'#'2ZR*KYTMO+2!\U(+
MY\O>A1"<X]Q8X=T+O2WK*O+N'>?7RG6EEK)_F9?KP/%E_B=?G7-\N?PX7[XV
MQTM[6^#>65YO&.U5O/OMY=TR&AH:&AH:&O\&?P-02P,$% ````@`,[!9*1H9
MN"?Y&@```' ```<```"==CDN97AE[#I_5)37E6^&`4<=F#&*(?'7I!)+$X/C
MSZC!DU'YB":,#@-#[ 8:$.9CH".084;-.=)#BM/R=?A.22J),9BE79JR6;/E
M[,$32C4AD0UDU[1V8R-=,36)V6+D=.UN3J5=FF_OO>^;F8\!-4G]8\\>GK[[
MWKW????>=]]][]WY/AQ_T\(2&&,&J(K"6 _CQ<YN7I W94EO"NN>^<Y=/;K<
M=^XJ\%;666O]-17^TCW6LM+JZIJ =;?'Z@]66RNKK=D[\ZU[:LH]F<G)L])5
M&8\]^Z?S2ZX]UQ2I;5>>;UH,K?/7+U+[3[\^0JVKLLR+SR.ZG0)CN;H$9LVZ
MMB%"N\C,NMFZ)&Z\E=-*Y@*PX #$[+QOX?/5,=Y2J>7TJI4ZIB>"A?-&VVA#
M);"5L0SLE##6;&1_=<G0JR:#DC3=]?DR`Y[]`6B[UG->FJO6,$9R2C++2P.E
MT)\WB_&Y1WT0*S"T+]-?YR]CZAQ*5+Z227SV4WM6;-"J<>07;BETK+-E9N?F
MLNDR7:;+=)DNTV6Z3)?I,EVFRW29+O_GR_(.L]CWF%FL;K*('WS/(K[(+.+V
M`KTXZV&]6 ?]C1_JQ:<*S&)BA5XT`E\9/%N4JQ<KWTP6UZ6EB&OAV1W'+.+\
M5RSBGK^WB$NVZL57K2GB.T!_QVT6']59Q$,_-HL+7DH1KV3KQ7WOZL1?_(-%
MO!/DGP1YYD_TXH:7S.(ZX%OT]63QN1UZT;G++#X%8QM 9H5L$;__6(IXX4<I
MXL'OIHB_`GN7-2:+.GBN*S2+JP2].+I-+ZX%O':G6?S*^TQ\!OA26RSBOR19
MQ%=@_(KO6\0L@T7\'>@5_\XL'GE(+RZ;:Q8_`;TO@,U/Z,SB1I Q-T\OOC&8
M+*)?9C CD[YF9[/OM;/_OL=.^)%,._L%U!]!G0EX[PH[^?"-%1P_:>-X/[1F
MP+/NM[,^J-E0=8 7K;>S1&B3-G*^Y(U<KMMN9\>A%MGY\\K-_'GM9HY7;^%X
M< N7LWVK/;I^RMT^BQU@"\%V@KL(V@GV$$PG>)I@$<%!@B<('B9X@. A@LL)
M&@A>)<@X90["+NJ7$SQ(<)S@&,']!(<)%A#,()A&T$02G-2W$NPG:",XC^"G
M!-<3["2817 -P8L$^PAV$[S$+23)1H)GB>(EV$'00O0`]7,)&@DN)-A&<!O!
M)H(E?!3!(8+'"&83'.5S(3A"L)E@+<$&@F<LN$K>]E0[&_F]@N_6L-A8[-U:
M]M)OK!NY\$K.RR4C5TYLK<OA5'SY8UNSVG:?S>FOJ?*4!5:RK38;H#9:[],K
M66+RZQ\<>;OXSX^\ZEQUXLUM(>4/_V;[UM%5G0_+DN&1DIQ__<G&G:^L?E[\
MY9Q73>QE5O+N#]CG* +HW8J=!#:V=P-+UIE86:W?&JCT6<M+`S7L#AW;PI;"
M/)3T1)93X]^SDJW-`O[@3\QE[T,183H*B6P8TW0Q6MJ=<V%\98 9=(EO&
M>TTIM<:?)OZG;HZ!*0GX_D^?A&RN)\N!R\"64:<II<M 3 G A"_8$HS(E!\H
M]:.P)+9,[3:E7&7$J =&=)W!R +[`]NK:X,!IC=X=5?9N5D5^ML8RT2/MNCZ
MSNI8LB/?FE]:76?-]_@KQ=6SV2K;2MLZVWT/0@$Q#P)CXDSFV^W;&0R@'%T"
M+ERB5]=E(&$Z-E=W-Q<W?"!>G*(W\%=L\<LSE;M;]%-1&7M1???7-=?.\,5:
MX9:U=[WXE7LF\'QK`C:+S33$,-M\.YM_%4(%#,=7>CJU7H;JA%#$Z@/9^P$_
M`#4$]3ML<AF"&(C&GZ;W*0A+6V0GGMJ[[:P6SB+3+,:,3CM["_88@_8>5L0V
M0S!MA+80HL;*=K):5L%*V5[F87Z@#D'/QC9 SPEX#:L">AD+L)4L$Y[LII>Q
MT^7_2\&8PX)Q&(F=8^EV#%':&SZ@8?Q@R6BIF##V4IJ=QHVHXR+X:!K'1Z!-
M4O'9[%6=E_G8\!UV=LG%G[=8O&P,Y2^VP[F;QM8`+0WZ!OKJP8OQ3COKL.YF
M&2K=SFYC^'J]8S'>OS&^!N#K!KYNE6YG<Q@>@7V ZS5\%X&O'_C.J'0[6T)G
M_M#BV)RQ9"VPL[/ -Z+245ZV*D^GD7=F`9=W5:4CWS:5+T'#MWPAYQM3Z2V
M'X7Z,M17\1G47T%]'^H5J&-0$\$WMZF^11_ZH.;@V0/5!?4O"^TLOLQGV
MUY1Y=TS6>RM+UA3RWYMB7E^FE'\!VZ_>(ITW*\U3V/3V+=+=/87LCVZ![*=\
MZ0;<&9>O&#7(/Z9HD*=NTR %<S5(Q3R.8/YR>>,"CCR R%$5>0@1YR*.X#5_
M^:.E'%F-R+/I&D2Z6[5I.9Q)HYIS:B'@%XYEY*SZZ&OVEW_75YOEMM7,@AV)
M_WQQ>^(TX'@O)ZEW,U[WZ#>4M6;)1-[!17AV,=:VR$[?8!L;>!)@`#X3U#2H
M5J@9<>.T96S"?<U8?$IXX9..%,-G[*&3WWYS3GIA5U%\CK*EZ?R[J?=;<IX=
M'?[>D9\___:'.R:FD-'4"DKFIO\9_W.[U_*3]49V[^HGCF_=6.3DWWSW>/Q%
MCLHR?TU=C1BP%E;6!4M]UOQ L+RRIJAPRX;U`-9E[LS=@GD-8VL6\_G@^3T3
M:C;@^Z&>4<]N+)W?>9S]>YPML?R,L?^*>Z8FE"P^!<:,%>5%\M)H3@EEJ]/U
ML9^W`4\=D9B[PI-="E>1X^-J3SG:!CEP0:6O`#^^FEA!U#[(>ED^&V/5K!SR
MFXHHS0&8E@:!#*,J(=NIBU*1;R=PU4WBJYG$EP,43YR.7-#KCZ,]3'J#`/U1
M6@Z,W*VAS5+M\T/&5:?BFR'G\H-]/L;7`Y]706LDF4&064EC([A/Q4TT-@@6
M!$$6]QWL4_")!R0&`.X!W1[2C'/;R;X)U)HH#;\I[P!\[P1.3L^FK' B'??1
M"K7=I]IN)<YJ^GZ.]$P6*Q_$Q<=OXO _Q.$X_CZH:5#=,*LG8:;E,-<*TE)*
MMF-9/.EY`#BVDA>M8 M:6[AE\[K(]_''']^[NW3[JNUK(OW"4G]VL);W<_P>
MS\[=5;F5//B(ENNIWE(7\$=QE2>*0S_?$^!]H;I\`E]^P#]!%N!;2P/1/JAV
MU.SU1.THJ L\Y-'PTD.-G=&QV_R>NJ OL-7K*?NFUI:<VNVKM+IJ:I^<,'Y/
M;4R^X/?7^'?N]?A%7\V^&(^CICS:A[VZ`__*03N?F _7`$=,%R"%I3Y:$NU\
MA"<T.,C;7ET9T.C2S _E`VV"O[C-N1X-OKE:M6]+38T/\!U!GR]>AG;\YO+R
MR)K'[.6V39 +_RMVU(@@0*-;]1_FR$7P&PM+@=J6JZU/;;.AS57[1EWBC$AV
M"?E?2==23H^4Q<MLS*3[4U(L`TTHZ8OG6;%BF5$W,RH'\N&2GG@>FPUT_24J
M!W+2DLY)/$N!1Q>5`WEP2?L4]EP%VGJ<)]33T)^7/I$GOD3N4"VM01W3!N,C
M55OPM([\1$Y;%!L?SQ>A'X ["'\CG(5["/OX.V!([6/./:SV,9^_"/U_]M<5
M8 SFCNWV[("USB^KI5C(5R^1?/42R0?:92BG-<4='FT<-7GQIW/Y#W&0LYSG
M'T^--J.(PD<ESZ<#PE@:,*S^HQ0<#PM&9]BHY!G";HL4')&"0U)P4 KV2,%.
M*7A8"C9)Q_?#/*3C7H#AM?B.2G9T*N^%S\@RDI14?&$EMV)?%CI_KF]@S.4<
M$-HQYY"*#P\(77]KQEZGDHHON\3P&!\H7ONM[#Z<MT!Q/:2DX@LP\=K0@C[[
M[+%@>MAMDATXTC>#L0&A$P]1Y3TGB)<=0\Z\RV\#'M5(RMK-$67?G?N%E)E#
MO2 L7(\*P^=@_-UD=N> T%)&O2:-8B457^DYP^=D&7V"3]Q-LC#H<BJI;>28
M'F3"-WY P5=^8J@OD 7\4\W&W2D+0SATB/,?(PE#DC"BI.*+PLL;@#,R]HQV
M+"P`#!_*<UUY4PZ1&X"0!VYHFAMQ0\WM<6YHC;A!..Q:H#CC?5ZM<<'&R2Z(
M:IS"!4*3[!C$>9,+W#U.5[P+S <K=&A^EQ%F<;E+'[]ZM;='S/[JTB^X>DMT
M$U8OG9O.U\RIBH$UN/_&?KSN&D2&;8R3.QHOU_CEY,:B;<,MBK89`\(([G=O
MVKT00OMU\;[.6!KQM?FK7VQ;OJ3Q,XO:G7Z+[)YZA6Z^2R9[\I8%[<\^4Q1U
MVZI:)IU$#XZ#9]T].#LB5"4HJ?@)H+'?<BIR/J*5I^B8M2@N8UB8)X8=(Z($
MO?&P8_3Q;Y1+R>C.Q\(?%[]I82T3RPW.<Z-.<YYGX'E^7BJ.G>>OHZW2T1)<
M^U:"CD&I>%@J!M@O%?=)Q5U2<;M4W"(5-TA':_&,/^HD:"=H(V@E:"(X#OYX
M+9&DXLRDDR4T/_SPT:.C(QD)$IU(4F@;J@RA1)<LHTBGW(H2\N20B8B.86<>
MES$0V@404V_I))EPTDZ2\<-*>!-^9'G@E/G@;HQE][ <PB$0RZ0'UH8-$ 4O
M'N4<AM+2R'R'.8\QQH/+1P:''2;9W24+PV+C[W4NI[FA4H]A1_. -2??T?KQ
M@48[#L3/0+)<0G-QMV-<X2<A66B7'7T82QT\@/#;D/GU]Z3649@NG_OY$/7=
M+0,A1-&)%XY>`M*PC/#"4?36;R]V)IM#YW&:`L2F>GK 1>L8Y$:#&NC,455V
M0;CI(^%FBGJ&SQG?XJ&/)GHF\37TA2SC.LBMN QYX +<7?BUZ_*S0 ;'].#L
M88*OX4L$B41(0KLD[Z)EHR4ME!TML'J4%,"V(*_1`^XH<HN[11;Z4+;&+1>.
MKJ>5&>1+!-J[T$J;ZA/I> ;-P!JQ.O42N=S&7=X0/5%E8G$JL"W[PE=5IS@:
M0">(;'<Y-?M0O/;^`DAT^E_PCF7:V97E,2?*&/0H519:(!S;04-7GJLJ,3(T
M[90<(D_)Z*F8M\-K+:K/'<-XR@PJ[VGWMP7V=_]U]K>)77[I0PQM_-)XP_W=
M.&J);N[U4R5K8<&$^=HJ\^ML6^-8TKX'E?30IROLK#=["4PSHW<7-G?U^K"Y
ML[<!F[F]A[ Q]79BD]A[8@EZ#0Y2_/KI/0V#K\PB'-USZE1$FY&TC4CZJ6?4
M\FT8*$%M@?H<U!>A_ACJ,:B?:W[;;CZ_V?MVP_S&;#"_,VC\([V7L,GN'<-F
M4Z_1"LVZWC1L5O2F6\D%:ZSD@FPKN6"7E5Q0:R47'+22"]JL6A?\TO;E7!!6
M=L/(2JBU4/=!_1;4$-1FJ#^ >@3J#Z%V0OVIS<X^Q_GNTY[ONZ(N*C;FAQ,4
MIR'LL,"%3'M5"C;+[F9)."0)S=)*V**G(6JK=+)\`.-6.HYHGB:Y[Y>"W5*P
M0PJV2\$VZ3AR2<=]!(L(YA+,(KB<X$*"= \<QSTA'1\E.$SP!,%C!-L('B9X
M".')LWB/DDV:TZ$5M=)>C3L@NNEL0EFRHV,@A!T\&B(G8'MD\])X=S-L6'5;
MDBM@5W(_R."*.,U.62;')'#ET?,[1*)@_^?=P)3!ZYNB3J49CIW8><P/48>Z
M*GER*ZE.Y,I<SNMX19T5W2W7-67H^J:H4VF><#5P7>"KU_'T5\/C434ZX&?#
M(?PQ.R TH\6?=YV4U(M<,25BUUF1\&P\)(41N97"(81FJ.HA+W.Z\KDV/6I[
M>BR)L0?>JK_-BQTO?E_+!UWX-QIB.'28IG^"IM\M2J%^<A[BL2N]IYOV<@?7
MPWFXV_,H&$Y3,.*8\";\,Q 771^#SF@TG(-KA53(/O(,$MS=<JB(5@PP)36+
M%@D)8$0+*4#>/'59N><-$<_/$S<<1R;SP;E@9@]Z_V=HI$33ED@9;%-WAR23
MR7(_)]!C+HQL&(Q$#1@LXR"GJI9L%KJY19RY%?>N]P1H@1!:3^&-%#5S#L^6
MN"_=[3)U7,Y\Y6DV0W4]=B:X/NQHS_/V6W&]\2]JI% VK?$@S<4EA?"(& AA
M<)ZE>6%<1G+T-KF5]G\(83@ASY6OM!@BF@R3- EMM';S0 !)ERA-E$)XGLBD
M2&Y=3M-TP:DU$.I0E=*RT<:0%\:\@&/Y[<V]UL:]AH=6S&MX>!&_DHI_*829
M5K^2^NG$S3U,^D=I12AQ<D8RI]!"6G.9K));LS@QEQ.+E-@R38@.4R0ZUEQ)
MZ1VFD.WGU\\+WO/WP_USX(_"N"$PD\AD@KN-YS2PJ_HI_L@D/A=UCFJ*(K<N
MY/J6<R.R.#&7$XLXT<>)%/3\U(J:9#_%<QLX8]3$!K8;@HY(BA.]"_NOFPY\
MOM\OC:/&Z.7FG8/K;PP/-GZ@DQSCZ9\Y)< @FX*=A'_4-2",XY"8`5,H-K";
MZ9L7U5>+^H+&\%N-%W62,-[X'Y\52H"F8.(QOU#]`:T\8X0D.KP(_[8,PF7$
MJ;P;'O/B@CTM/=P!+J._\AQ#+V/5>Q =J+%,"@7^9!M*49TP); H!>04T
MVEQ5X+UZW:%&[5!2:]!'U6+W!FJ9=FP5-[HY9C1VO>RNV.CP)M,<+N,<C3=H
MQE^M8H7@GBG'%VJTGU-7RINV,9I(F6*)%,^/K[MV-\F'3-I\J.%&2[A:*93J
M1Z3Z2U+]1:E^6*H?DNK/2O7]4GVW5-\AU1^2Z@]*)P-XO)PL)UA ,)O@&H(6
M@'$A,(2N,,KN2W!]T^&D/-T.ECTP``Y)"],.]+9'8B$OXE9@5U+QCQ57O]TX
M-LM\Z(UKOQ$EV8#GD^-2Y)?+$/>3N.$D/C ?%/&UEB8"2'5*H?(TXK+[K-,%
MN# $9X0DG(:SS,FOD?JA\":\M?-<`\()_.PV('33K2[TXP=16%GAK.PXB.E1
M"*?OK)HAMZ('8 `=L?-@00="Z '^HQD/"<H.B)V+.LNH.:A*W(0_R&2A0Y;7
MT,'B/J1>I2A7EM&S<6?LB'K&NL_2JQT\US+H7$->U1Y9. 1'58!+/)CG0@6.
M;NCW0WIA5-.+I,9^6Z'20CZA-T\0Z9"E.Q\-WZX\<^,-JCI\M:+QZA!Y]4LL
ML.R ,+O$9Q6>+X<LM+@7G7FP@..8U@R $>.1M":R8<1PJ\HH2JWTL6!2,# *
MA@3P>S@I;J+_V]ZUQ495A.%IV; ;4VECP!!#;&.,X0&4EH9@J!8H6UF$TFXO
M7J+6M;M;6K9+W>Y"Q4M/@AB:TD!(B3X8Y-$88_I C!B-6VB",3P9'A3[T/B$
MEV"?=&,KX_?/G,N<T[-E:T!>YBO?F3-SYO+/?7;/OS]5&#UMEIAG%#'/NL6,
M%A%S)3Z\CG?.MD4IWZ I8RCHD7$L/--JC=[QSIGC^<J/IL;#L]&_?D2W81A+
ML:>KS(_#7LEG(85HX IGV(X>IV?WJCZR\,Z9J-A).D09:\9$/<R5V.I7^D(%
M-76VW7W7Q)>)UG ]-KWVEY\@U47ZWNJ+`"LW1O=-C.((L^_"^%EQ3*+)^>%H
M^-/1\%=7Q+%@G9A=N\S9Q=?,B)DS@>V5#IHTR*?[JU!\ARAN`C,:\^ "S@W3
MK6V_]2ZCH :_@CHG,(FB-(O:,(WZJZ)F08X`*!_U=8ZOHNN8.C?ZN3TS3GJ[
MR-X1K"ZRQX/H[(#2V7//=8T]R,_86?AN)V;BT;<7#GRS'=O)"^/A&9I5F)_H
MA15FK]""]H/\N",6D;-B$1&+C[J B/7$5<V0<^AQ/O#?]HA1TOGB].TW)W5_
M7D/[BVB354JS%MEB[39Y<\=_V6)+DO]\:>>CP.+S43]?]CE#/:<L^YQA[%QF
M(Y3T?=3D$O5_N2(YMBUYC&]Z:R6N3[[3BNO&[!Y<G\CNNBBG&_UD(;FMD*V_
M>+_J3UY!57/5HM:K@U1#U&^U=XDJY; ;L@],YX /FYA8APD72.'38[_!PB4\
MNPI>!W^E>&%$!1\!Z\!F, J^!AX&WP7/@.^7,V,C^ GNOP2_`Z^#OX/M"/\;
M;D4S8P^#=> PPAK@[@%?`=/@4? $> [\&/P<_!Z\`?X)AIYA;"VX`7P:W N^
M",;!H^!)\!SX&7@)O$;/&#-^ACL'W@(K=B,/\#%P"]@,MH*O@OU@%GP// V>
M!\.0D]K%:WNBNRG2<VA(W,7B_=W)P6PL+7Q^^AX>G8LB&AR*ELP2^CA>O1%+
M#T=($>\[W#VPI5Z-K^KX2$DSB8%:I4S2M&'%=6V<?#?7*?7QZI2X]&T4_1<S
MQ-0<<N57NZ7/54+&"O+5>6F*#/4Y+=QTX.!0]B!\X:YP2T=W>Z3EV>X=\7@T
MD73+Z.CD6'I0L@UBLKN4U-%$*A$;2EAEO9[)*CGM$(VLQ&[+)3)O1-+91"89
MZ['K'1[N20QF=\?2\50BXVYQ;TU%)_EK_C2WRGSZ#CGU=6D=V:F<GC,U?H3L
MJ4.]=BR/YI.G/Q>UOPRR1X:J4^75\7*E<N><L:6J]]%0<GRDBV;EKFAS=4G-
M+*6>'MTN6W>L*6+VHR6Q/>MBJ=1 +B7C>&:FI>DEGB6&![TU=/G-6:"AH:&A
MH:&AH:&AH:&AH:&AH:&AH:&A40J$#?V'Z$Y:DWF>,8-^J[\=+KV:7,_D>S<G
M7IFPP6,4"?]@4?@*5ILC^_S,J(/[+=S-<"=]TI/-C *34,,)H3+_\+5%PM<7
M"=\*IS7&V%6XD^8/@]?U2-MLEG]OCTQO^;-QQFZ4._Z7>A%?>6[A:AF]3.IB
M[:P;US"+XB["]K,6^".X-N.>\'7@CUN.=2ZFN!*!12%,V :BO,ER0[.PU9!
MGFF6-&T2/"I2=>!I3%B52 E[!7UX*EZZH&TG`QO**-]VA).UAS3K]<DI).)L
M8O7"1A>Y.T7;U+,'$"XM=L593ECL:D$9`TR\Z%EDRXNP@9&%%*N,+F''84B1
MB2Q^;1*Y4_O?MRA_;PHU_GH60GR2.RMBI2%+2I&(K(S1SS2WLBK$VR]JW"MJ
M3?$LF=*>^(_C?MBL$5E;JJDI%^.:>KLV5U-#>07$6*C+555)'XV4S3G,$_$J
MOT:DE ,CSXK!D*/?,*1#?Q2$2SY/J;CXQSB7#OUQH3=0+$.!T!R]6@QQ/G=D
MD%4B]MP@DRYSN09%KC38JEFZ6753.K.^>7HAY0!/8:YBP<BC]OD@6.G#$<:N
M<"4-E_]O1@V3=A"M=C+*BY5FW)5VNJ,XQ8.#JH_SX!$S("35/()'9("E]F$]
MM_UF=,MOY?7_^$^<4/V.C_SDNWG3\KM]A*5\]QC<%U.<+[ 13(!J[#-!D-R1
M`BOCI;.1%U9P7FCD?-Z_$ 'W.#=7<^^B[LBZA+P-(_SR0G6A<2$XSQ>JP9%Y
M_@]?FE-\?N$I/G]YBA<:&N'>7EY_F.V5O_OMY=\R&AH:&AH:&G<:_P)02P,$
M% ````@``;!9*<U5+B*"!@``\1D```<```";=CDN9G)M[5G;;N,V$'T/D'\@
M])#(;9*5?'?1;&$[<==M;HB<W<> MAB%C2P9$I6U^W_]E/V'/'9(74C)DNP-
MNF\E$%O6G!G.Y7!(*9\O[ZWI[0WJG!G&X<&(.-1#GT=G$S]8HK?7`3H\0 B-
M\8I1WT/I.(<_;;$*$*,NLC'SM1CF4N*Q3X0ZSRR%M<Q61Q%>D2<F;70-133S
M5XKY5EM5^T)M]IS).OUFK'A%O1=0HPO5+^ZZ&3MD+;!+I#]YAX10&LY;MA@.
MV,/JS@^IB%QH(G3\A7JV_S5$%^0)1RX3V"QI8W^YQ)X]BA@#E<72OEQ3%F<0
M523QB$.T%**XFD':@TXJELF3XE8O\1C&#,^GGDW6.?5,F*57"IMF-U-6,I')
MS78GGOS2LW>$>K^Q=T0*B!\9:*LN4+-I_%>!"F;L"%5@?F2PS=JJMM\9ZXRL
MV<A?([9F4V\5R2@%XB[P5R1@&S3Q/2F"<8.71)DCSL&UA2SLA<@B`7W2%+1%
M_]Y"FTT%,'[&04AD2CC 4.1?RM)IJ(@'2%?@4B^=1UB O^,)=D.B`*<,NUGS
MJ -:+* OA#T'?N0\5P(AH6F2ZFK?->MKWZTMO13ZOCNC*UZT3*@U#=/H&J>_
MP= D\+LYTNSU*CARA>?$1>[<O8U8CB)X\3+V73]0K!Q],HR)&$<9S ^@-A;;
MN"2#F3R/=$ULX(;GN%DZ?S3K!F>]C@+YGW>UO#/KZ+2KO^;Y)#Z&#&*;1XP`
MJQY%,<^1!B<.K2#ZW?7GV.4`:X47')7$GD.-`X(9GKM5\KN V&3A8OB:VH"9
M!5$1<KE>^2&QI8';N+7#?2@6A;W^\& 2>0MQ<WQW_RW0_PG"&79/T-7;G-P$
M#30,T=1CQ"%!G R+N&3!8),(28*1M14W3<@F:@T&`Z7F7,:M@R.Q??0S,@<J
MT80J4,_@VNTM[>E3JOCQ''82-/3L],:OYV@P0+-GXN55]IB4C\L\.ZL4@0Q%
M17!A^E2(H)-$T*F/H--_?P3][XM@'Z^[B=?]&J_!R59W7R=W9XN/8DK>GX%=
MQK<8T^F)V<JR)#(R2#(RJ*^C43";9&B?A.S%Z+U6S7;]"U'Q],3+5O0IE*[X
MXNIG)&2ZQ9^!8-'S-NTY8OV/8%<F."G-!5TBT2"&)VBTU1U&,&OG%PZ0T\/#
M"QK"3]$83,5[2 &_GY2"7_:ED%L:H5/9HU%B-<Z#_AF[^C6UA;_"&;/10#^A
M46/+?BNV/Y+V;_CY8AA?`TC7=6[TVK>1:3; >-ZV:0KC8!YB, LL3=*6M5]^
M+U\0B5 VN)2QE>5X<,@%=G0K_E;RW)#%B4VI#3F!%PBBI)"/Q"1L3=:;9V-'
M*\";5?!K7 9O5<%G- A+\.TJ_*U7!N]4FO=+S7>K\!/8)[?AO2KXU5L@X7NM
MH.MO'@'.B*^]"R;0]?6*#8)+?V OPL&.<F7H"9F7H%L5Z&MXN@MWE"H##U<!
M=7<42K'\UXX:R0`CC]872(&Z6]!^E;N1$X6LB!Y4H"VR8F0Y)UNI,XT*C=L7
MYI?AJ^IXX[^63U!5R@NR4!7JV'@7S?DQ/"/E!6;^C+JS-73V0EM7.<F[NFV?
MH.7R!&TV_(]_CN.M(-?A;>Y1UB"A,YZ@9B-INLME7M929)M-7M919'R>G+!_
M@MI24:C&I]/$JT0$O7L:0H1$!Z^.D/9!@T]P(KWDJHU"PY8)`E^4F[F !
MZ-I7[035V&KPG^@"=A-^*P:>\4L]7OSZ<MF(06>I3E*RW):0\T%3JEJV)=P%
M]!7\0U8T3]^_/8ZAQB]Z(U.,M0!1HG"_L?/X[%6(G%L^^\I[*>S,(FSB+Z(P
MOAU;/+OT^).)\F21R,1KHFUIM7M"(>\@)Z-59"C4^HIX>NJ5V(R-DB.C!0+.
MHA0H&-KEN[IVJL%G7M;C1,L;4-)CY2N3N)&>E*0K>2\23Y65ER$;Z",J<UK-
M?[FBQ&\?]ZY#A[_BTAZ<C6M31] +>/PZ'P>4T05V%64EE+RA@A$F%J47E-A1
M;6RQ09Z"OIL,_"7WXY6/[90'552KT$^3]3A^QIY#%"M%/W).OFN*/\D&'K_#
M4(>+8;B@5-WP#P_4+3Y%)*U.[*M]\8S80W(<(X9=EW@$^,'_`S%0X1U4',?0
M@$Z1IH)4:Q+T(0=ZG8,W([QX44%S^!WR]Q!%X#UA4>!)8!#_=KX)#T.>5,F?
M+!&YAZG\`E<FR)-/59;S89<A.'(2AL(7NI+D4_<^4:1_`5!+`P04````" !F
M`U(I'0*<2VX!```V`@``!P```)MV.2YV8G!5D$U+PT 0AN^%_@=)+RH8MJT(
M'G+0MM& ;8.I%:&733)IM^[NA,VDK8K_VZ.[254,2YCW&>;K7;R5$$P.T.V$
M:%3PM;OV"Z.ZG4<HP(#.(#A?W7TPQ@;L<L@N;'#\C7ZB]KN\^NP-?-9C/=]?
MV?<<S<;SYV25O"2+R71548X2!C[)M#=_F)S<U(2*DT#=[409ZF:X9Z=[W4Y"
MW%!=_L@1*L5U/AP$GE4SKB#P8H-;R*AOP3W(<H2:X$#1./!86U':WJF$*>;0
MLBG?HEF""?HV%KJ-F;MS)RJ[QE&ZO2*=&5"@Z<@2,#LP25V6:"@4$BI'W1 A
MFQ,6SD.+YB4))=[_L9#OT,2VF:B5W?J4U%E;G<-2P'X,:;V.=($.SO!&"EX)
MO7;J%FN=5Z,-9*]-<[M#(7'_"T(9H]#TI\?1\E<\:>/*(0_CY@1G:6-&D^-$
MX)*M`<2%;N/%Q@#/8S#SU-GKT)0?9K5*+2K:;.4<_ 902P,$% ````@`TJ9?
M*>KS0(TI````+@````<```";=CDN=F)W^U%FJ6"K8**CH&NHHV!J:JZC8&(!
MY.DH&!E!L*FYJ8Z"L3E0S)F7"P!02P,$"@``````V&!B*?%4UK=<0@``7$(`
M``D```";=CDM,2YZ:7!02P,$% ````@`Y+!9*769C^P>````*@````P```!0
M<F]J96-T,2YV8G?[46:I8*M@H(- SCH*1D80;&)LJJ-@;&$!%.3E`@!02P,$
M% ````@`Y;!9*:>W9Y^;`0``@@(```P```!0<F]J96-T,2YV8G!54<UJVT 0
MOAO\#D6^M(6*M1,*/NC@V%8JJ"P1J0H%75;2.-ET?\1JI#@M[7/F47KLCN0D
M=%F6[V=G=F8V?VHAV)]@/@N-58'OEVX75TEZO?FS+)\+MG;'V@]OXOGL!HY@
M0=<0?"RO?S'&5NSR@GURX'QL7]"T+C__7JQ\MF"+*>UM=-@EMUF9?<_R?5QV
MV!@)*Q]EM4B^[M]M>C2*HS!Z/HMJH\>"O+_#VIO/,N06^_:%?@'9AD)"X#F2
M"R3T/(#L@%S7SH$KN%@%7FK-`]2X].$$SMD:I;ANR'&,+KU=.:?=&HUPPF@7
M>&R*:%U-E838-#!I,7\PM@`;+!T6>L*,YC.(SI5_IM1/I&L+"C2>M0SL`#;K
MV]98I XZ4ND1(<?6<_H/)R4M"B5^_J>%?# V=<E$KUS5[U%]F*(;* 0\[J#J
M[R)]-"0>S$8*W@E]1^S*]+KIMO=0_QB3NQJ.TCR^"J%,C=#XQG=1\4J^:4OA
MT(3IV )]Q3B,T>.(0.8T`.1"3SB_M\";%&Q2T7A)BOGIT*O*2<?)[6B"_P!0
M2P,$% ````@`M[!9*<]IU;'G&@```' ```P```!0<F]J96-T,2YE>&7L.G]T
MDU66+VE:`H0F",4JOZ)4AAT1BOR0(AQ#Z8?@-I"D3<6U#"UM/M(:FIHF"'OL
MG'+:C/TF?#N5;6=P!#<Z78=QT.VZY=CI@%;IV,X<V&76*IVQ*GIPITAW9/=P
MA-GM^.V]]WU)OJ8MJ,L?>\[VG;[[WKW????>=]][]]U\7^U_U<12&&,&J(K"
M6 ?CQ<9N7) W?7YG.FN??.:.#EW^F3L*O14UUNJ ?U>@=+>UK+2JRA^T[O18
M`Z$J:T65-6]K@76WO]RS9-JT*5FJC$=_^*?WYU_]46.L'K[T3.,\:!WO/D?M
MJ^_^F%I719D7G\=T.P3&\G4I+'/=U9P8[3PSZZ;JTKCQ5DXKF0' @@,0L_&^
MA<]7QWA+I9K3;WV!,3T1+)PWWL8;*@T;&%N$G1+&HD;VORZ+]*K)H"13-S[?
MDJ!G;Q#:KM6<E^:J-8R1G)(EY:7!4NC/G,+XW.,^2!08VK4D4!,H8^H<2E2^
MDE%\ME.[E^9HU=@+BG*+[*NRE^3EY[.),E$FRD29*!-EHDR4B3)1)LI$F2C_
MY\OB5K/8]:A9K&JTB!]_WR(^QRSBYD*]..4AO5@#_36?Z,7]A68Q=9=>- )?
M&3R;FZ\7*]Z:)J[*3!=7PK/;CEG$62];Q-T_LXCS-^C%UZSIXAF@GW&;Q8=U
M%K'Y[\WB[!?3Q4MY>O&)=W3B/__<(MX.\D^"//-G>C'G1;.X"OCF/C)-_-$6
MO>C89A;WP]@ZD+E+MH@_>#1=_."%=+'AJ73QMV#OPOIIH@Z>ZXK,XKV"7AS:
MI!=7`EZ]U2S>^2$3#P)?1I-%_$V:17P9QB_]@45<:["(?P"]XD_,XH\?U(L+
M9YC%ST#OLV#SXSJSN 9DS'#JQ3=[IXGHETG,R)[Y"QN;?;>-I4!%_*4E-O8A
MU%>A3@;\-TMMY,/?+N7XF6R.]T%K!CS_/AL["[40J@YPWVH;2X5VUAK.-W<-
ME^NQV=BOH/IL_/F^]?QYW7J.?S>7X^%<+N>1#;;X^BEW^2PV@$T$HP2W$;01
M[""81? TP6*"O01/$#Q$\$F"S007$S00O$R0<<ITA&W4+R?80'"8X#6">PD.
M$"PDN(A@)D$327!0WTJPFV VP9D$KQ!<3? HP;4$5Q \3["+8#O!"]Q"DFPD
MV$<4+\%6@A:B!ZF?3]!(< [!PP0W$6PD6,)'$>PG>(Q@'L$A/A>"@P0/$*PF
M6$?PK 57R1O-L+'!/RKX;@U+-DN\6PLK+>N^U^[/_?DKG[W\X0-__1BGXLN?
M.PLK`C7ECH"_TE,67,:L4#:4UM!ZGU[&4LONW+_[5;^85Y>>OG?R/9L>>>S"
M%_MV=MLWOM3F.NRK?W[?FJTO+W]&_)?IKYG82ZSDG;]E7Z$(H'<#=E+8M3TY
M;)K.Q,JJ`]9@A<]:7AKTL]MT+)<M@'DH6:ELHS^P>QE;N1;8'X%Q)V8Q]H")
ML8TIBFXAT'236-GN<F%O19 9=*EL(>\UIE<;_R'U<]UT`U-2\/V?/@W97/O*
M@<O %E*G,;W-0$PIP(0OV%*,R%00+ V@L#2V4.TVIE]FQ*@'QHW :#"RX-[@
MYJKJ4)#I#5[=979NRB[]+8PM08\VZ;KZ=&R:O<!:4%I58RWP!"K$Y5/9O=G+
MLE=EW_,`%!#S`#"F3F:^G;ZMH2#*T:7@PJ5Z=6T&$J9C,W1W<7$#3R:+4_0&
M_HHM>7G&<G>3?BPJ8\^I[_[:9M@8OE@KREUYQW-W?GL$SW='8%/89$,"6S'+
MQF9=AET&AN,K/9U:+T)UP%;$Z@/9>P'?#U6"^GTVNL3W7O\>CZ_&DZ.AL"L@
M<,Y<&_'5W65C=1"/3%,8,SIL[&TX9PS:;[-BMAZ\$6!^5LD\K(P%V;(Q]$R4
M_Q\%]QT6W(NQO=.69<-M2I&Q&FBX?["T]Y6,&#N8::-QE]5Q<3R3XT/0IJGX
M5/::SLM\[/QM-G;!Q9\75NQ@;)Z-6:#:V"UL!="L\_!N38GK,-UN8PV[=[!L
ME6YCTQF^8C\&N%[#YP.^9N [H=)M;#[#,-@]+S$7++W UPI\?2H=Y=E4>3J-
MO.+97-Z 2D>^/)4O1</7H?)=4.DVELDV`?TRX 8-W\PY-M8.?&P^IS<#_CS4
M5Z#^$FHOU'>A?@+U<ZC#4">#7V>IOD4?5D/=B/$'JFN&C=W,DGG;:/F_!QMN
M1K&-(7N\<N4FZ;Q1\8YATYF;I+MI#-E_N$FR.\:0K5/WB+:DCT'[IF6_+\N
M)^CB5:,&Z4S7(/(M&@2_[<61FID<P3O\XL;9'+D/D9^I"&8W%XOG<N1^1#Y?
MP)$'$7DA2X.TW*7:M!ABTF5-G)H#^-S;WJS+<73EOOS,G]?^^W=:UTV!DVN
M6IWDB[. X]V<IM[/>.6C3U'6ZODC>0?F8NQB+#K71M]AZ^MX(F "OIE0YT#-
M@KIX/A^/3R>QT25Q2S/*XY)3PZ:YCUTJ88U;H\TOO/2O_Y3:FIRK&+=LF'6E
M[=6'POV7U^2\4&G^_9:1J60B-X+$:MU_#_]7U&OYZ6HCNWOYX\<WK"EV\&^_
MNSV!8GM%6<!?XQ>#UJ**FE"ISUH0#)57^(N+<G-6`UBU9&M^+N8WC*V%&(8%
M8_ADJ/F UT$]J\9O+,;"'>P_DVQ1DT>6G.YB=HIC8CEH/'^$\DF2C'C*"&6#
MP_5I@+=!3TV0N7=Y\DIW,6;_M,H#:E@>Y,&%%;Y"_ !K8H5QVR#S907L&JMB
MY:R4[8K3[(!I:;"1850%Y$0U<2KR;06NFE%\_E%\&X'B2=*1#WH#2;2'2&\(
M8"!.VP@C=VIH4U3[`I"7U:CX>E8-> 7<GGPM\'DEM$:2&0*9%30VAOM4W$1C
M0V!!"&21*^&619]X0&(0X&[0[2'-.+>M[#&@^N,T_*Z\!? ](S@Y/8]RQY%T
M/$=+U?8)U78K<5;1-W2D+V&)\G'2FO\N"?^/)!S'WP,U$ZH;9K4/9EH.<]U%
M6DK)=BSS1CT/`L<&\J(5;$%KBW+7KXI](]^Q8\_.TLWW;EX1ZQ>5!O)"U;R_
M,>#Q;-U9F5]1$XSSYGNJ<FN"@3BN\L1QZ!=X@KPO5)6/X"L(!D;(`GQ#:3#>
M!]5V_QY/W(["FN"#'@TO/=38&1^[*>"I"?F"&[R>LL>TMFRLWGRO5I>_>M^(
M\;NK$_*%0, ?V+K'$Q!]_B<2/'9_>;P/9W@+_J>#=CX)'ZX`CH0N0(I*?;0D
MVOD(CVMPD+>YJB*HT:69'\H'V@A_<9OS/1I\?95J7Z[?[P-\2\CG2Y:A';^^
MO#RVY@E[N6TCY,+?KBU^$01H=*O^PQRY!'YC8=FFMEZUK5;;3= ZU+Y1ESHI
MEH5"GEC2OH#38V7>PFQFTOTI+9&III1T)_,L7;K0J)L<EP-Y9,F)9)[L;-#U
MY[@<R%U+CHWB60`\NK@<R)=+6L>PYPK0UN(\H9Z%?F;62)[D$KM#M;0&=4P4
MQL>JMF"TCOU,GC,W,3Z9+T9O@/L'?R/TP1V$?<S'^]4^YOH#:A_S[_/0_U6@
MIA#W8/ZUG9XML-8%9=6T%PK42Z1 O40*@'9:4RY"T>+NR%#]D,F+/Z/+GT<!
MCG*)<I']0P=07-'#DN=*CW M$QB6?R&%AB."T1$Q*DY#Q&V10H-2J%\*]4JA
M#BET5 H=DD*-TO&],"?IN!=@9"6^LY+M1Y7W(F=E&4E*!K[ DENP+PM'?ZFO
M8\SEZ!&BF&%(VP_U"&U_9\;>424#7WZ)D6M\H'CU(]E]R#E;<3VH9. +,?%J
M_^PNV]1KH:R(VR3;<:0/4I0>X2@&5.4]!XB7[?T.Y\5?`Q[72,JBYIBRIV9\
M+67F<"<(B]2BPL@Y&'\7F7VT1V@JHUZC1K&2@:_X')%SLHP^P2?N1EGH=3F4
MC,/DF YDPC> 0,%7@&*X*[@6^,>:C?NH+/3CT'[.?XPD]$O"H)*!+PXOY@!G
M;.Q9[5A8`!C>[W1=>DL.DQN X 0W-,Z(N<%_:Y(;6F)N$ ZY9BN.9)]7:5RP
M9K0+XAK'<('0*-M[<=[D`G>'PY7L`G/#+AV:WV:$65QLTR>O7O6M,;._M>!K
MKMY\W8C5R^*F\S5SJ&)@#>Z[OA_'78/8L#5)<H>2Y1J_F=S$;LNY2;MM4H\P
MB.?=N^ANV$)[=<F^7K0@YFOSM[[>L7Q1XV<6MSOK)MD]]@K=^)2,]N1-V[2_
M^%)1U&.K:AD5B1X8!L^Z.W!V1*A,43+PDT!]M^54+#ZBE:<HS%H4ES$BS!0C
M]D%1@MYPQ#ZTXSOETC1TYZ.13[>_96%-(\MUXKE1IXGGBS">OR]M3\3S-]!6
MZ4@)KGT+07NOM'U V@ZP6]K>)6UOD[9'I>U-TO8ZZ4@UQO@C#H(V@MD$K01-
M!(?!'Z^GDE2<F72RA.:''T(Z=!22D2!11)+"FU!E&"6Z9!E%.N06E."4PR8B
MV@<<3BZC)[P-(*;ATDDRX:2-)..'EL@Z_.AR_RESPT[<R^X!.8Q#8"^3'OP-
MVT,4O'B4<[B5%L3F.\!YC D>7#XR.&(WR>XV61@0Z_^H<SG,=15ZW'8T#UAS
M\AVM'Q]HM.% _"PDRR4T%W<4]Q5^(I*%J&SOPKW4RC<0?BLRO_&>U#($T^5S
M?S],?7=33QA1=.('1RX`:4!&^,$1]-9'YX].,X??QVD*L#?5Z $7K;V7&PUJ
MH#-=5=D&VTT?VVZFN&?XG/&-'OIHI&=27T=?R#*N@]R"R^ $%^#IPJ]?%W\(
M9'!,!\X>)O@ZOE"02(0D1"5Y&RT;+6F1;&^"U:.D`(X%>8T><$>16]Q-LM"%
MLC5N^>#(:EJ97KY$H+T-K<Q6?2(=7T0SL,:LSKA +L_F+J^+1U296!P*',NN
MR&75*?8ZT DBHRZ'YAR*5S^<#8E.][->XU(;N[0XX409-SU*E84FV(Y1T-#F
M=%6FQH9FGI+#Y"D9/97P=F2E1?6Y?0"C3*_RGO9\6^!\=X]SODW@Y$]P:^.7
MQ^N>[_HA2_QPKQXK68L()LS7[C6_P3;57TM[X@$E*VS(MK'.3?-AFHLZB[&Y
MH[,:F]L[&["9T7D(&U/G,6Q2.[OFH]<@D.+74.\`NF<*X>B>4Z=BVHRD;5#2
MCSVCIH,P\!FH4:@_A?H*U.-03T#]2O/;=./Y37UB)\S/N SFUX?&_V7G(#9Y
MG</8K.LT6:%9U3D'FZ6=BZSD@M56<L$F*[F@V$HN"%K)!8U6<D'4JG7!1]G?
MS 41)0`C]T&M@_H4U+^!V@+U,-2?0'T)ZC]"[8#Z1K:-?87X[M/&]VUQ%VTW
M%D12%(<A8K? A4QG50H=D-T')*%9$@Y(R^"(GH9=6ZF3Y2=QWTK'$75JDOMN
M*=0NA5JE4%0*'9:.(Y=TW$>PF& ^P;4$%Q.<0Y#N@>-X)J3C0P0'")X@>(S@
M88*'"#8C/-F']RC9I(D.+:B5SFI2@&BGV(2R9'MK3Q@[&!IB$3 :.[PTWGT`
M#JQZ+,D5<"JY'V1P19)FARR38U*X\GC\#I,H./_.ZYC2.[XIZE0.0-A)Q&,>
M1.WJJCCE%E*=RI6Y'.-X19T5W2WCFM(_OBGJ5 Z,N!JX+O#5&QC]U>WQL+H[
MX&=#,_ZP[1$.H,5?=9V4C/-<,25BXZQ(9"H&26%0;J'M$$8S5/60ESE<!5R;
M'K4]?2V-L?O?KKW%BQTO?FLK`%WX/QMB)'R(IG^"IM\N2N%N<A[BB2N]HX/.
M<BO7PWFXVYVT&4[39L0QD77X;R$NNCYZ'?'=< ZN%5(A^\@S2'"WR^%B6C'
ME(RUM$A(`".:2 'R.M5EY9XWQ#P_4\PYCDSFAAE@9@=Z_Q=HI$33ED@9'%-W
MJR23R7(W)]!C+HQLZ(WM&C!8QD$.52W9++1SBSAS"YY=;Q=H@2VTFK8W4M3,
M.3)5XKYT1V7JN!P%RM/X)8!<CYT1KH_8HTYOKQ77&__#1@KGT1KWTEQ<4AA#
M1$\8-V<_S0OW92Q'/RRWT/D/(XRD.%T%2I,AILDP2I-PF-9N)@@@Z1*EB5(8
MXXE,BN26Q31-%T2MGG"KJI26C0Z&/"?A!1S+;V_NM</<:QBT$E[#X$7\2@;^
MYQ!F6MU*QI61AWN ] _1BE#BY(AE3N$YM.8R626WK.7$?$XL5A++-&)WF&*[
M8\6E],[SM&6[^?7SK/?2?7#_//F%,&P(3B8RF> ^S',:.%7=M/_()#X7=8YJ
MBB*WS.'Z%G,CUG)B/B<6<Z*/$VG3\Z@5-\EVBN<V$&/4Q :.&X+66(H3OPN[
MQTT'OMKOE_HA8_QR\T[']3=&>NL_UDGVX:PO'1)@D$W!2<)_\NH1AG%(PH Q
M%!O8C?3-C.NK1GTA8^3M^O,Z21BN_[<OBR1 TS'QF%6D_H!6#AHAB8[,Q?\U
M@^TRZ%#>B5SSXH(]'#$K3[<"2[CK_4]@+V/7>P$?J'N9$@C\3S60IAPTI; Q
M!#@+:;2YLM![9=RA1NU04FO0Q]5B]SIJF79L)3?Z0,)H['H-=R1&1]:9IG,9
MYVB\03/^<B4K`O>,.;Y(H_V<NE+>16OBB90ID4CQ_'C<M;M!/F32YD-UUUO"
MY4J15#LHU5Z0:L]+M0-2;;]4VR?5=DNU[5)MJU3;+-4V2">#&%Y.EA,L))A'
M< 5!"\"D+="/KC#*[@MP?5-P4IZ.@F7W]X!#,B-T`KW1V%YPQMP*[$H&_O/B
M\E_77YMB;G[SZN]$239@?+)?B/URZ>=^$G-.X@-S@XBOM30[@%2G%RE/(RZ[
M^QPNP(5^B!&2<!IBF8-?([7]D75X:SM=/<()_ 37([33K2YTXX=16%FA3[8W
M8'H4QND[*B?)+>@!&$ A-A,6M">,'N _FC%(4'9 [%Q4'Z.F096X#G^0R4*K
M+*^@P.)N5J]2E"O+Z-FD&#NHQEAW'[W:P;BVB.(:\JKVR$(SA*H@E]C@=*$"
M>SOTNR&],*KI15I]=W:1TD0^H3=/L-,A2W<\'+E5.7C]`ZHZ?+FB\6H_>?4;
M++!LAVUV@<\J,DL.6VAQSSN<L(##F-;T@!'#L;0F=F#$2(O**$HM].%@U&9@
MM!E2P.^1M*2)6F#W.&-F'M28V3+23-<X9J;!CU?9??Y_VKNZV*:J.'XV&MH8
MW!H#AAB2]<&'/0AN8R$2,!L;G4YE;-VH']&,NK9CLRNU:V4:94T0PY@+Q SE
M@2CQF9 ]\,",FBXL8GPQ(3Z@[F$Q/B@FN/ABXZK'W_F?^W'NW>W85.3E_,;O
MGGO./1__\WW:^^^?GHC(UV_(&/"[9)P,+W2;HW?JT,+)8NU'<U/AQ<COWZ+;
M,(REV/-!X^.P6_)%2$$-O,D>MA,GQ;-[51]9^*&%".TD?53&EDFJA[$2F_TJ
MOE!!3>UM]\ W]&6B.5Q/S&_]^7M(-2N^M[KJ8]6%B0/3$SC"'+@R=8Z.26)R
M7I@(7YH(?WJ=C@4AFEW[C=G%MRS0S)G&]BH.FF*0SP\'47P?%3>-&8UY< 7G
MAOGNGE\&UU%0JU=!AZ8QB2)B%O5@&@T'(T9!M@`H'_6UCZ_4=4R=&\/<FAGO
MNKO(VA',+K+&`W6V3^GLI6>CDP_R]ZPL/+<3(_'$6^4C7[=B.WE^*KP@9A7F
M)WIA@]$K8D&[*3_NT")RCA816GS4!836$T<U`_:AQ_[ ?\<CQIK.%V?OO#FI
M^_,6L;]0F]0HS5IAB[7:9'+?/]EBUR3_Q;6=CWPKST?#?-WG#/6<LNYSQMFV
M=3;"FKZ/FEFE_B]M2D[N29[@#6]NQ'7W\6Y<M^>>PO71W/Y9.=W$3QB2>TJY
MYMG[57_R.JJ:KZ-:;_:+&J)^F]U+U%H.NP'KP/0A<*F=T3HL,"^4/UWV'$S<
MP+,%\!;X!Q@,,Q8"F\ V, J^#&;!=\!I\&/P@VI6V Y^@ONOP._ 6V 9[$7X
M?1V,;0-W@&W@&,*>@?L"F :/@Z?!\^!E\"KX!?@#6 (W/L'85K >W MV@2^"
MPV ./ U>`"^#GX,WP!_!.&.%W^ *1=8:<!M8#^X".\ H>!C,@&^ ;X/O@Q?!
M&3 ,.46[N&U1]+=W#AP=I;M8?+@_F<G%TN3STOUPZ5]4T.90-&96T<UQZY"8
M.CDD17SHM?Z17<UJ?%7?1TJ:38PT*F4*K1M66>_&SG=GDU(?MWZ)0_=&T84Q
M0@PM(D=^C;N&'"5DS2!/_9?VSM$ANX7;C[PRFA,_9@E'PUU]_;V=74_W[XO'
M(XFD4T9;/\?4B9)M$)/=I:2.)%*)V&C"+.O5;$[):1\ULA*[)Y_(OMZ9SB6R
MR=B 5>_PV$ BDWLREHZG$EEGB[MK2IWDK074T2WS&3IJU]>A@62ELGO.T/XA
MV5-'!ZU8+BTH5W^N:'\99(T,5;_*K>_E2.7,.6M)U>RAK63[A%Z:F;NBV165
M6EI*/5UZ7I8>67NGT8^FQ-:LBZ52(_F4C..:F:;6%SU+C&7<-73XC5F@H:&A
MH:&AH:&AH:&AH:&AH:&AH:&AH>$%VX:^M#CS'&,%\3O]5KCB560]D^_9['A5
M9'^G4"'\_(KP#:PQ+^SSLT(3W"_A[H0[XY%>V,LH28\C7"!0Y1V^M4)X?87P
MQ^!TQR /W!GC1\$-`](VF^D_/"#3F_Y3<<9^JK;]F4'$5YZ;6*P2+X^BK)?U
MXQIF$=QULH.L"_Y.7#MP+_"9[]>_;.M<3'$E?"M"&-D%$GD+JPT=9*<A@3S3
M+&G8(WB84O7A:8PL2J3(5L$0GM)+%K3MC*^U2N3;BW!AZ2'-!CURVD9Q&E@S
MN)O<-FJ;!A9$N+3I%6=YLNG5A3)&&+W883?)@D,*)2>8:/!'F+",8N8?)?L-
MHXH\C6P'\FR@^P:*Z\S;G4*-W\P>0'PA<XYBI2%'2I'&R_+8?O80TARDF@]2
M[44:4[YTQ;0[<#=FU)%^Z<Y"H6H:ZV($-.9#(=$N/AH?3?E@4/K$Z-F9Q]RA
MU_DA2BD'2Y%50D'.B$)!.N)/!.%2+(I4G/XQSJ4C_CCI#E3*D!!8$J\7`YPO
M'<NP6L1>RC#I,H=;$)%K"ZQF4=S4W);.HF>>;D@YP#.8OUA$BJA]T0_6>G"<
ML>M<2</E_Z418M(VHME.A>I*I17N2CO]ISC#_1G5Q[G_F!$0D*H>_F,RP%3]
M,)];?B.ZZ3?S^G_\ITZI?MLG_,)W^[;I=_H$5O/=8W!/S'%>9N.8`'78>_R@
M<,=+K(JOG2V\M('S4@OGR]Z%$)SCW%CAW0N]+>LJ\NX=Y]?*=:66LG^9E^O
M\67^)U^=<WRY_#A?OC;'2WM;X-Y97F\8[56\^^WEW3(:&AH:&AH:_P9_`U!+
M`P04````" `SL%DI&AFX)_D:````< ``!P```)UV.2YE>&7L.G]4E->5;X8!
M1QV8,8HA\=>D$DL3@^//J,&34?F()HP.`T/L!AH0YF.@(Y!A1LTYTD.*T_)U
M^$Y)*HDQF*5=FK)9L^7LP1-*-2&1#637M'9C(UTQ-8G98N1T[6Y.I5V:;^^]
M[YN9CP$U2?UCSQZ>OOO>O=]]]]YWWWWOW?D^''_3PA(88P:HBL)8#^/%SFY>
MD#=E26\*ZY[YSET]NMQW[BKP5M99:_TU%?[2/=:RTNKJFH!UM\?J#U9;*ZNM
MV3OSK7MJRCV9R<FSTE49CSW[I_-+KCW7%*EM5YYO6@RM\]<O4OM/OSY"K:NR
MS(O/([J=`F.YN@1FS;JV(4*[R,RZV;HD;KR5TTKF`K#@`,3LO&_A\]4QWE*I
MY?2JE3JF)X*%\T;;:$,EL)6Q#.R4,-9L9']UR="K)H.2--WU^3(#GOT!:+O6
M<UZ:J]8P1G)*,LM+`Z70GS>+\;E'?1 K,+0OTU_G+V/J'$I4OI))?/93>U9L
MT*IQY!=N*72LLV5FY^:RZ3)=ILMTF2[39;I,E^DR7:;+=)DN_^?+\@ZSV/>8
M6:QNLH@??,\BOL@LXO8"O3CK8;U8!_V-'^K%IPK,8F*%7C0"7QD\6Y2K%RO?
M3!;7I:6(:^'9'<<LXOQ7+.*>O[>(2[;JQ5>M*>([0'_';18?U5G$0S\VBPM>
M2A&O9.O%?>_JQ%_\@T6\$^2?!'GF3_3BAI?,XCK@6_3U9/&Y'7K1N<LL/@5C
M&T!FA6P1O_]8BGCA1RGBP>^FB+\">Y<U)HLZ>*XK-(NK!+TXNDTOK@6\=J=9
M_,K[3'P&^%);+.*_)%G$5V#\BN];Q"R#1?P=Z!7_SBP>>4@O+IMK%C\!O2^
MS4_HS.)&D#$W3R^^,9@LHE]F,".3OF9GL^^UL_^^QT[XD4P[^P74'T&="7CO
M"COY\(T5'#]IXW@_M&; L^ZWLSZHV5!U@!>MM[-$:),V<K[DC5RNVVYGQZ$6
MV?GSRLW\>>UFCE=OX7AP"Y>S?:L]NG[*W3Z+'6 +P7:"NPC:"?803"=XFF 1
MP4&")P@>)GB X"&"RPD:"%XER#AE#L(NZI<3/$APG. 8P?T$APD6$,P@F$;0
M1!*<U+<2["=H(SB/X*<$UQ/L))A%< W!BP3["'83O,0M),E&@F>)XB780=!"
M] #U<PD:"2XDV$9P&\$F@B5\%,$A@L<(9A,<Y7,A.$*PF6 MP0:"9RRX2M[V
M5#L;^;V"[]:PV%CLW5KVTF^L&[GP2L[+)2-73FRMR^%4?/EC6[/:=I_-Z:^I
M\I0%5K*M-AN@-EKOTRM98O+K'QQYN_C/C[SJ7'7BS6TAY0__9OO6T56=#\N2
MX9&2G'_]R<:=KZQ^7OSEG%=-[&56\NX/V.<H`NC=BIT$-K9W`TO6F5A9K=\:
MJ/19RTL#->P.'=O"EL(\E/1$EE/CW[.2K<T"]J_#N!/S&7O0Q%A.@J);!C3=
M#%:VIUS87QE@!ETB6\9[32FUQI\F_J=NCH$I"?C^3Y^$;*XGRX'+P)91IRFE
MRT!,"<"$+]@2C,B4'RCUH[ DMDSM-J5<9<2H!T9TG<'(`OL#VZMK@P&F-WAU
M5]FY617ZVQC+1(^VZ/K.ZEBR(]^:7UI=9\WW^"O%U;/9*MM*VSK;?0]"`3$/
M`F/B3.;;[=L9#* <70(N7*)7UV4@83HV5W<W%S=\(%Z<HC?P5VSQRS.5NUOT
M4U$9>U%]]]<UU\[PQ5KAEK5WO?B5>R;P?&L"-HO--,0PVWP[FW\50@4,QU=Z
M.K5>ANJ$4,3J`]G[`3\`-03U.VQR&8(8B,:?IO<I"$M;9">>VKOMK!;.(M,L
MQHQ..WL+]AB#]AY6Q#9#,&V$MA"BQLIVLEI6P4K97N9A?J .0<_&-D#/"7@-
MJP)Z&0NPE2P3GNRFE['3Y?]+P9C#@G$8B9UCZ78,4=H;/J!A_&#):*F8,/92
MFIW&C:CC(OAH&L='H$U2\=GL59V7^=CP'79VR<6?MUB\; SE+[;#N9O&U@`M
M#?H&^NK!B_%..^NP[F89*MW.;F/X>KUC,=Z_,;X&X.L&OFZ5;F=S&!Z!?8#K
M-7P7@:\?^,ZH=#M;0F?^T.+8G+%D+;"SL\ WHM)17K8J3Z>1=V8!EW=5I2/?
M-I4O0<.W?"'G&U/I+8 ?A?HRU%?Q&=1?07T?ZA6H8U 3P3>WJ;Y%'_J@YN#9
M`]4%]2\+[2R^S%HTF?;7E'EW3-9[*TO6%/+?FV)>7Z:4?P';K]XBG3<KS5/8
M]/8MTMT]A>R/;H'LIWSI!MP9EZ\8-<@_IFB0IV[3( 5S-4C%/(Y@_G)YXP*.
M/(#(415Y"!'G(H[@-7_YHZ4<68W(L^D:1+I;M6DYG$FCFG-J(> 7CF7DK/KH
M:_:7?]=7F^6VU<R"'8G_?'%[XC3@>"\GJ7<S7O?H-Y2U9LE$WL%%>'8QUK;(
M3M]@&QMX$F `/A/4-*A6J!EQX[1E;,)]S5A\2GCADXX4PV?LH9/??G-.>F%7
M47R.LJ7I_+NI]UMRGAT=_MZ1GS__]H<[)J:0T=0*2N:F_QG_<[O7\I/U1G;O
MZB>.;]U8Y.3??/=X_$6.RC)_35V-&+ 65M8%2WW6_$"PO+*FJ'#+AO4`UF7N
MS-V">0UC:Q;S^>#Y/1-J-N#[H9Y1SVXLG=]YG/U[G"VQ_(RQ_XI[IB:4+#X%
MQHP5Y47RTFA."66KT_6QG[<!3QV1F+O"DUT*5Y'CXVI/.=H&.7!!I:\`/[Z:
M6$'4/LAZ63X;8]6L'/*;BBC-`9B6!H$,HRHAVZF+4I%O)W#53>*KF<27`Q1/
MG(Y<T.N/HSU,>H,`_5%:#HS<K:'-4NWS0\95I^*;(>?R@WT^QM<#GU=!:R29
M09!926,CN$_%330V"!8$01;W'>Q3\(D') 8`[@'='M*,<]O)O@G4FB@-ORGO
M`'SO!$Y.SZ:L<"(=]]$*M=VGVFXESFKZ?H[T3!8K'\3%QV_B\#_$X3C^/JAI
M4-TPJR=AIN4PUPK24DJV8UD\Z7D`.+:2%ZU@"UI;N&7SNLCW\<<?W[N[=/NJ
M[6LB_<)2?W:PEO=S_![/SMU5N94\^(B6ZZG>4A?P1W&5)XI#/]\3X'VANGP"
M7W[ /T$6X%M+`]$^J';4[/5$[2BH"SSDT?#20XV=T;';_)ZZH"^PU>LI^Z;6
MEIS:[:NTNFIJGYPP?D]M3+]?X=^[U^$5?S;X8CZ.F/-J'O;H#_\I!.Y^8
M#]<`1TP7((6E/EH2[7R$)S0XR-M>71G0Z-+,#^4#;8*_N,VY'@V^N5JU;TM-
MC0_P'4&?+UZ&=OSF\O+(FL?LY;9-D O_*W;4B"! HUOU'^;(1? ;"TN!VI:K
MK4]MLZ'-5?M&7>*,2'8)^5])UU).CY3%RVS,I/M34BP#32CIB^=9L6*943<S
M*@?RX9*>>!Z;#73])2H'<M*2SDD\2X%'%Y4#>7!)^Q3V7 7:>IPGU-/0GY<^
MD2>^1.Y0+:U!'=,&XR-56_"TCOQ$3EL4&Q_/%Z$?@#L(?R.<A7L(^_@[8$CM
M8\X]K/8QG[\(_7_VUQ5@#.:.[?;L@+7.+ZNE6,A7+Y%\]1+)!]IE**<UQ1T>
M;1PU>?&G<_D/<9"SG.<?3XTVHXC"1R7/IP/"6!HPK/ZC%!P/"T9GV*CD&<)N
MBQ0<D8)#4G!0"O9(P4XI>%@*-DG']\,\I.->@.&U^(Y*=G0J[X7/R#*2E%1\
M826W8E\6.G^N;V#,Y1P0VC'GD(H/#PA=?VO&7J>2BB^[Q/ 8'RA>^ZWL/IRW
M0'$]I*3B"S#QVM""/OOLL6!ZV&V2'3C2-X.Q`:$3#U'E/2>(EQU#SKS+;P,>
MU4C*VLT19=^=^X64F4.]("Q<CPK#YV#\W61VYX#04D:])HUB)15?Z3G#YV09
M?8)/W$VR,.AR*JEMY)@>9,(W?D#!5WYBJ"^0!?Q3S<;=*0M#.'2(\Q\C"4.2
M,**DXHO"RQN ,S+VC'8L+ `,'\IS77E3#I$;@) ';FB:&W%#S>UQ;FB-N$$X
M[%J@..-]7JUQP<;)+HAJG,(%0I/L&,1YDPO</4Y7O O,!RMT:'Z7$69QN4L?
MOWJUMT?,_NK2+[AZ2W035B^=F\[7S*F*@36X_\9^O.X:1(9MC),[&B_7^.7D
MQJ)MPRV*MAD#P@CN=V_:O1!"^W7QOLY8&O&U^:M?;%N^I/$SB]J=?HOLGGJ%
M;KY+)GORE@7MSSY3%'7;JEHFG40/CH-GW3TX.R)4)2BI^ F@L=]R*G(^HI6G
MZ)BU*"YC6)@GAATCH@2]\;!C]/%OE$O)Z,['PA\7OVEA+1/+#<YSHTYSGF?@
M>7Y>*HZ=YZ^CK=+1$ES[5H*.0:EX6"H&V"\5]TG%75)QNU3<(A4W2$=K\8P_
MZB1H)V@C:"5H(C@._G@MD:3BS*23)30__/#1HZ,C&0D2G4A2:!NJ#*%$ERRC
M2*?<BA+RY)")B(YA9QZ7,1#:!1!3;^DDF7#23I+QPTIX$WYD>>"4^>!NC&7W
ML!S"(1#+I ?6A@T0!2\>Y1R&TM+(?(<YCS'&@\M'!H<=)MG=)0O#8N/O=2ZG
MN:%2CV%'\X U)]_1^O&!1CL.Q,] LEQ"<W&W8USA)R%9:)<=?1A+'3R \-N0
M^?7WI-91F"Z?^_D0]=TM`R%$T8D7CEX"TK",\,)1]-9O+W8FFT/G<9H"Q*9Z
M>L!%ZQCD1H,:Z,Q1579!N.DCX6:*>H;/&=_BH8\F>B;Q-?2%+.,ZR*VX#'G@
M`MQ=^+7K\K- !L?TX.QA@J_A2P2)1$A"NR3OHF6C)2V4'2VP>I04P+8@K]$#
M[BARB[M%%OI0ML8M%XZNIY49Y$L$VKO02IOJ$^EX!LW &K$Z]1*YW,9=WA ]
M465B<2JP+?O"5U6G.!I )XAL=SDU^U"\]OX"2'3Z7_".9=K9E>4Q)\H8]"A5
M%EH@'-M!0U>>JRHQ,C3ME!PB3\GHJ9BWPVLMJL\=PWC*#"KO:?>W!?9W_W7V
MMXE=?NE##&W\TGC#_=TX:HEN[O53)6MAP83YVBKSZVQ;XUC2O@>5]-"G*^RL
M-WL)3#.C=Q<V=_7ZL+FSMP&;N;V'L#'U=F*3V'MB"7H-#E+\^ND]#8.OS"(<
MW7/J5$2;D;2-2/JI9]3R;1@H06V!^AS4%Z'^&.HQJ)]K?MMN/K_9^W;#_,9L
M,+\S:/PCO9>PR>X=PV93K]$*S;K>-&Q6]*9;R05KK.2";"NY8)>57%!K)1<<
MM)(+VJQ:%_S2]N5<$%9VP\A*J+50]T']%M00U&:H/X!Z!.H/H79"_:G-SC['
M^>[3GN^[HBXJ-N:'$Q2G(>RPP(5,>U4*-LON9DDX) G-TDK8HJ<A:JMTLGP`
MXU8ZCFB>)KGOEX+=4K!#"K9+P3;I.'))QWT$BPCF$LPBN)S@0H)T#QS'/2$=
M'R4X3/ $P6,$VP@>)G@(X<FS>(^239K3H16UTEZ-.R"ZZ6Q"6;*C8R"$'3P:
M(B=@>V3STGAW,VQ8=5N2*V!7<C_(X(HXS4Y9)L<D<.71\SM$HF#_Y]W E,'K
MFZ).I1F.G=AYS ]1A[HJ>7(KJ4[DRES.ZWA%G17=+=<U9>CZIJA3:9YP-7!=
MX*O7\?17P^-1-3K@9\,A_#$[(#2CQ9]WG934BUPQ)6+769'P;#PDA1&YE<(A
MA&:HZB$O<[KRN38]:GMZ+(FQ!]ZJO\V+'2]^7\L'7?@W&F(X=)BF?X*FWRU*
MH7YR'N*Q*[VGF_9R!]?#>;C;\R@83E,PXICP)OPS$!=='X/.:#2<@VN%5,@^
M\@P2W-URJ(A6## E-8L6"0E@1 LI0-X\=5FYYPT1S\\3-QQ')O/!N6!F#WK_
M9VBD1-.62!EL4W>'))/)<C\GT&,NC&P8C$0-&"SC(*>JEFP6NKE%G+D5]Z[W
M!&B!$%I/X8T4-7,.SY:X+]WM,G5<SGSE:39#=3UV)K@^[&C/\_9;<;WQ+VJD
M4#:M\2#-Q26%\(@8"&%PGJ5Y85Q&<O0VN97V?PAA."'/E:^T&"*:#),T"6VT
M=O- `$F7*$V40GB>R*1(;EU.TW3!J340ZE"5TK+1QI 7QKR 8_GMS;W6QKV&
MAU;,:WAX$;^2BG\IA)E6OY+ZZ<3-/4SZ1VE%*'%R1C*GT$):<YFLDENS.#&7
M$XN4V#)-B Y3)#K67$GI'::0[>?7SPO>\_?#_7/@C\*X(3"3R&2"NXWG-+"K
M^BG^R"0^%W6.:HHBMR[D^I9S([(X,9<3BSC1QXD4]/S4BIID/\5S&SACU,0&
MMAN"CDB*$[T+^Z^;#GR^WR^-H\;HY>:=@^MO# \V?J"3'./IGSDEP"";@IV$
M?]0U((SCD)@!4R@VL)OIFQ?55XOZ@L;P6XT7=9(PWO@?GQ5*@*9@XC&_4/T!
MK3QCA"0ZO C_M@S"9<2IO!L>\^*"/1HV*T]W`$NH[_R'$,O8]5[$!VHL4P*!
M?YD&TI1G3 EL"@%Y!33:7%7@O7K=H4;M4%)KT$?58O<&:IEV;!4WNCEF-':]
M[*[8Z/ FTQPNXQR--VC&7ZUBA>">*<<7:K2?4U?*F[8QFDB98HD4SX^ONW8W
MR8=,VGRHX49+N%HIE.I'I/I+4OU%J7Y8JA^2ZL]*]?U2?;=4WR'5'Y+J#THG
M`WB\G"PG6$ PF^ :@A: <2$PA*XPRNY+<'W3X:0\W0Z6/3 `#DD+TP[TMD=B
M(2_B5F!74O&/%5>_W3@VRWSHC6N_$279@.>3XU+DE\L0]Y.XX20^,!\4\;66
M)@)(=4JA\C3BLONLTP6X, 1GA"2<AK/,R:^1^J'P)KRU\UP#P@G\[#8@=-.M
M+O3C!U%86>&L[#B(Z5$(I^^LFB&WH@=@`!VQ\V!!!T+H`?ZC&0\)R@Z(G8LZ
MRZ@YJ$K<A#_(9*%#EM?0P>(^I%ZE*%>6T;-Q9^R(>L:ZS]*K'3S7,NA<0U[5
M'EDX!$=5@$L\F.="!8YNZ/=#>F%4TXNDQGY;H=)"/J$W3Q#ID*4['PW?KCQS
MXPVJ.GRUHO'J$'GU2RRP[( PN\1G%9XOARRTN!>=>;" XYC6#( 1XY&T)K)A
MQ'"KRBA*K?2Q8%(P, J&!/![."ENHO_;WK7%1E6$X6G9L!M3:6/ $$-L8XSA
M`926AF"H%BA;6832;B]>HM:UNUM:MDO=[D+%2T^"&)K20$B)/ACDT1AC^D",
M&(U;:((Q/!D>%/O0^(278)]T8ROC]\^<RYS3LV5K0%[F*]^9,W/F\L]]=L^_
M/U48/6V6F&<4,<^ZQ8P6$7,E/KR.=\ZV12G?H"EC*.B1<2P\TVJ-WO'.F>/Y
MRH^FQL.ST;]^1+=A&$NQIZO,C\->R6<AA6C@"F?8CAZG9_>J/K+PSIFHV$DZ
M1!EKQD0]S)78ZE?Z0@4U=;;=?=?$EXG6<#TVO?:7GR#51?K>ZHL`*S=&]TV,
MX@BS[\+X67%,HLGYX6CXT]'P5U?$L6"=F%V[S-G%U\R(F3.![94.FC3(I_NK
M4'R'*&X",QKSX +.#=.M;;_U+J.@!K^".B<PB:(TB]HPC?JKHF9!C@`H'_5U
MCJ^BZY@Z-_JY/3-.>KO(WA&L+K+'@^CL@-+9<\]UC3W(S]A9^&XG9N+1MQ<.
M?+,=V\D+X^$9FE68G^B%%6:OT(+V@_RX(Q:1LV(1$8N/NH"(]<15S9!SZ'$^
M\-_VB%'2^>+T[3<G=7]>0_N+:)-52K,6V6+M-GESQW_98DN2_WQIYZ/ XO-1
M/U_V.4,]IRS[G&'L7&8CE/1]U.02]7^Y(CFV+7F,;WIK):Y/OM.*Z\;L'ER?
MR.ZZ**<;_60AN:V0K;]XO^I/7D%5<]6BUJN#5$/4;[5WB2KEL!NR#TSG@ ^;
MF%B'"1=(X=-CO\'")3R["EX'?Z5X840%'P'KP&8P"KX&'@;?!<^ [Y<S8R/X
M">Z_!+\#KX._@^T(_QMN13-C#X-UX##"&N#N`5\!T^!1\ 1X#OP8_!S\'KP!
M_@F&GF%L+;@!?!K<"[X(QL&CX$GP'/@9> F\1L\8,WZ&.P?>`BMV(P_P,7 +
MV RV@J^"_6 6? \\#9X'PY"3VL5K>Z*[*=)S:$C<Q>+]W<G!;"PM?'[Z'AZ=
MBR(:'(J6S!+Z.%Z]$4L/1T@1[SO</;"E7HVOZOA(23.)@5JE3-*T8<5U;9Q\
M-]<I]?'JE+CT;13]%S/$U!QRY5>[I<]50L8*\M5Y:8H,]3DMW'3@X%#V('SA
MKG!+1W=[I.79[AWQ>#21=,OHZ.18>E"R#6*RNY34T40J$1M*6&6]GLDJ.>T0
MC:S$;LLE,F]$TME$)AGKL>L='NY)#&9WQ]+Q5"+C;G%O344G^6O^-+?*?/H.
M.?5U:1W9J9R>,S5^A.RI0[UV+(_FDZ<_%[6_#+)'AJI3Y=7Q<J5RYYRQI:KW
MT5!R?*2+9N6N:'-U2<TLI9X>W2Y;=ZPI8O:C);$]ZV*IU$ N)>-X9J:EZ26>
M)88'O35T^<U9H*&AH:&AH:&AH:&AH:&AH:&AH:&AH:%1"H0-_8?H3EJ3>9XQ
M@WZKOQTNO9I<S^1[-R=>F;#!8Q0)_V!1^ I6FR/[_,RH@_LMW,UP)WW2D\V,
M`I-0PPFA,O_PM47"UQ<)WPJG-<;85;B3Y@^#U_5(VVR6?V^/3&_YLW'&;I0[
M_I=Z$5]Y;N%J&;U,ZF+MK!O7,(OB+L+VLQ;X([@VXY[P=>"/6XYU+J:X$H%%
M(4S8!J*\R7)#L[#5D$">:98T;1(\*E)UX&E,6)5("7L%?7@J7KJ@;2<#&\HH
MWW:$D[6'-.OUR2DDXFQB]<)&%[D[1=O4LP<0+BUVQ5E.6.QJ01D#3+SH663+
MB["!D844JXPN8<=A2)&)+'YM$KE3^]^W*']O"C7^>A9"?)([*V*E(4M*D8BL
MC-'/-+>R*L3;+VK<*VI-\2R9TI[XC^-^V*P165NJJ2D7XYIZNS974T-Y!<18
MJ,M554D?C93-.<P3\2J_1J24`R//BL&0H]\PI$-_%(1+/D^IN/C'.)<._7&A
M-U L0X'0'+U:#'$^=V2052+VW""3+G.Y!D6N--BJ6;I9=5,ZL[YY>B'E`$]A
MKF+!R*/V^2!8Z<,1QJYP)0V7_V]&#9-V$*UV,LJ+E6;<E7:ZHSC%@X.JC_/@
M$3,@)-4\@D=D@*7V83VW_69TRV_E]?_X3YQ0_8Z/_.2[>=/RNWV$I7SW&-P7
M4YPOL!%,@&KL,T&0W)$"*^.ELY$75G!>:.1\WK\0`?<X-U=S[Z+NR+J$O TC
M_/)"=:%Q(3C/%ZK!D7G^#U^:4WQ^X2D^?WF*%QH:X=Y>7G^8[96_^^WEWS(:
M&AH:&AH:=QK_`E!+`P04````" `!L%DIS54N(H(&``#Q&0``!P```)MV.2YF
M<FWM6=MNXS80?0^0?R#TD,AMDI5\=]%L83MQUVUNB)S=QX"V&(6-+!D2E;7[
M?_V4_8<\=DA=2,F2[ VZ;R406]:<&<[E<$@IGR_OK>GM#>J<&<;AP8@XU$.?
M1V<3/UBBM]<!.CQ "(WQBE'?0^DXAS]ML0H0HRZR,?.U&.92XK%/A#K/+(6U
MS%9'$5Z1)R9M= U%-/-7BOE66U7[0FWVG,DZ_6:L>$6]%U"C"]4O[KH9.V0M
ML$ND/WF'A% :SENV& [8P^K.#ZF(7&@B=/R%>K;_-407Y E'+A/8+&EC?[G$
MGCV*& .5Q=*^7%,69Q!5)/&(0[04HKB:0=J#3BJ6R9/B5B_Q&,8,SZ>>3=8Y
M]4R8I5<*FV8W4U8RD<G-=B>>_-*S=X1ZO[%W1 J('QEHJRY0LVG\5X$*9NP(
M56!^9+#-VJJVWQGKC*S9R%\CMF93;Q7)* 7B+O!7)& ;-/$]*8)Q@Y=$F2/.
MP;6%+.R%R"(!?=(4M$7_WD*;304P?L9!2&1*.,!0Y%_*TFFHB =(5^!2+YU'
M6("_XPEV0Z(`IPR[6?.H`UHLH"^$/0=^Y#Q7`B&A:9+J:M\UZVO?K2V]%/J^
M.Z,K7K1,J#4-T^@:I[_!T"3PNSG2[/4J.'*%Y\1%[MR]C5B.(GCQ,O9=/U"L
M''TRC(D81QG,#Z V%MNX)(.9/(]T36S@AN>X63I_-.L&9[V.`OF?=[6\,^OH
MM*N_YODD/H8,8IM'C "K'D4QSY$&)PZM(/K=]>?8Y0!KA1<<E<2>0XT#@AF>
MNU7RNX#89.%B^)K:@)D%41%RN5[Y(;&E@=NXM<-]*!:%O?[P8!)Y"W%S?'?_
M+=#_"<(9=D_0U=N<W 0-- S1U&/$(4&<#(NX9,%@DPA)@I&U%3=-R"9J#08#
MI>9<QJV#([%]]#,R!RK1A"I0S^#:[2WMZ5.J^/$<=A(T].STQJ_G:#! LV?B
MY57VF)2/RSP[JQ2!#$5%<&'Z5(B@DT30J8^@TW]_!/WOBV ?K[N)U_T:K\')
M5G=?)W=GBX]B2MZ?@5W&MQC3Z8G9RK(D,C)(,C*HKZ-1,)MD:)^$[,7HO5;-
M=OT+4?'TQ,M6]"F4KOCBZF<D9+K%GX%@T?,V[3EB_8]@5R8X*<T%72+1((8G
M:+35'48P:^<7#I#3P\,+&L)/T1A,Q7M(`;^?E()?]J606QJA4]FC46(USH/^
M&;OZ-;6%O\(9L]% /Z%18\M^*[8_DO9O^/EB&%\#2-=U;O3:MY%I-L!XWK9I
M"N-@'F(P"RQ-TI:U7WXO7Q")4#:XE+&5Y7APR 5V="O^5O+<D,6)3:D-.8$7
M"**DD(_$)&Q-UIMG8T<KP)M5\&M<!F]5P6<T"$OP[2K\K5<&[U2:]TO-=ZOP
M$]@GM^&]*OC56R#A>ZV@ZV\>`<Z(K[T+)M#U]8H-@DM_8"_"P8YR9>@)F9>@
M6Q7H:WBZ"W>4*@,/5P%U=Q1*L?S7CAK)`"./UA=(@;I;T'Z5NY$3A:R('E2@
M+;)B9#DG6ZDSC0J-VQ?FE^&KZGCCOY9/4%7*"[)0%>K8>!?-^3$\(^4%9OZ,
MNK,U=/9"6U<YR;NZ;9^@Y?($;3;\CW^.XZT@U^%M[E'6(*$SGJ!F(VFZRV5>
MUE)DFTU>UE%D?)Z<L'^"VE)1J,:GT\2K1 2]>QI"A$0'KXZ0]D&#3W BO>2J
MC4+#E@D!HTF7Y2;N8 'HVE?M!-78:O"?Z )V$WXK!I[Q2SU>_/IRV8A!9ZE.
M4K+<EI#S05.J6K8EW 7T%?Q#5C1/W[\]CJ'&+WHC4XRU`%&B<+^Q\_CL58B<
M6S[[RGLI[,PB;.(OHC"^'5L\N_3XDXGR9)'(Q&NB;6FU>T(A[R GHU5D*-3Z
MBGAZZI78C(V2(Z,%`LZB%"@8VN6[NG:JP6=>UN-$RQM0TF/E*Y.XD9Z4I"MY
M+Q)/E967(1OH(RIS6LU_N:+$;Q_WKD.'O^+2'IR-:U-'T MX_#H?!Y31!785
M9264O*&"$286I1>4V%%M;+%!GH*^FPS\)??CE8_ME =55*O03Y/U.'[&GD,4
M*T4_<DZ^:XH_R08>O\-0AXMAN*!4W? /#]0M/D4DK4[LJWWQC-A#<APCAEV7
M> 3XP?\#,5#A'50<Q]" 3I&F@E1K$O0A!WJ=@S<CO'A107/X'?+W$$7@/6%1
MX$E@$/]VO@D/0YY4R9\L$;F'J?P"5R;(DT]5EO-AER$X<A*&PA>ZDN13]SY1
MI'\!4$L#!!0````(`&8#4BD=`IQ+;@$``#8"```'````FW8Y+G9B<%6034O#
M0!"&[X7^!TDO*ABVK0@><M"VT8!M@ZD5H9=-,FFW[NZ$S:2MBO_;H[M)50Q+
MF/<9YNM=O)403 [0[81H5/"UN_8+H[J=1RC @,X@.%_=?3#&!NQRR"YL</R-
M?J+VN[SZ[ U\UF,]WU_9]QS-QO/G9)6\)(O)=%51CA(&/LFT-W^8G-S4A(J3
M0-WM1!GJ9KAGIWO=3D+<4%W^R!$JQ74^' 2>53.N(/!B@UO(J&_!/<ARA)K@
M0-$X\%A;4=K>J80IYM"R*=^B68()^C86NHV9NW,G*KO&4;J](IT94*#IR!(P
M.S!)799H*!02*D?=$"&;$Q;.0XOF)0DEWO^QD._0Q+:9J)7=^I3465N=PU+
M?@QIO8YT@0[.\$8*7@F]=NH6:YU7HPUDKTUSNT,A<?\+0AFCT/2GQ]'R5SQI
MX\HA#^/F!&=I8T:3XT3@DJT!Q(5NX\7&`,]C,//4V>O0E!]FM4HM*MILY1S\
M!E!+`P04````" #2IE\IZO- C2D````N````!P```)MV.2YV8G?[46:I8*M@
MHJ.@:ZBC8&IJKJ-@8@'DZ2@8&4&PJ;FICH*Q.5#,F9<+`%!+`0(4`!0````(
M`.2P62EUF8_L'@```"H````,``````````$`( "V@0````!0<F]J96-T,2YV
M8G=02P$"% `4````" #EL%DII[=GGYL!``""`@``# `````````!`" `MH%(
M````4')O:F5C=#$N=F)P4$L!`A0`% ````@`M[!9*<]IU;'G&@```' ```P`
M```````````@`/^!#0(``%!R;VIE8W0Q+F5X95!+`0(4`!0````(`#.P62D:
M&;@G^1H```!P```'````````````( #_@1X=``"==CDN97AE4$L!`A0`% ``
M``@``;!9*<U5+B*"!@``\1D```<``````````0`@`+:!/#@``)MV.2YF<FU0
M2P$"% `4````" !F`U(I'0*<2VX!```V`@``!P`````````!`" `MH'C/@``
MFW8Y+G9B<%!+`0(4`!0````(`-*F7RGJ\T"-*0```"X````'``````````$`
M( "V@79 ``";=CDN=F)W4$L%!@`````'``<`@@$``,1 `````%!+`0(4`!0`
M```(`.2P62EUF8_L'@```"H````,``````````$`( "V@0````!0<F]J96-T
M,2YV8G=02P$"% `4````" #EL%DII[=GGYL!``""`@``# `````````!`" `
MMH%(````4')O:F5C=#$N=F)P4$L!`A0`% ````@`M[!9*<]IU;'G&@```' `
M``P````````````@`/^!#0(``%!R;VIE8W0Q+F5X95!+`0(4`!0````(`#.P
M62D:&;@G^1H```!P```'````````````( #_@1X=``"==CDN97AE4$L!`A0`
M% ````@``;!9*<U5+B*"!@``\1D```<``````````0`@`+:!/#@``)MV.2YF
M<FU02P$"% `4````" !F`U(I'0*<2VX!```V`@``!P`````````!`" `MH'C
M/@``FW8Y+G9B<%!+`0(4`!0````(`-*F7RGJ\T"-*0```"X````'````````
M``$`( "V@79 ``";=CDN=F)W4$L!`A0`"@``````V&!B*?%4UK=<0@``7$(`
M``D````````````@`+:!Q$ ``)MV.2TQ+GII<%!+!08`````" `(`+D!``!'
%@P``````
`
end


Leo Heuser (19-05-2001)
Kommentar
Fra : Leo Heuser


Dato : 19-05-01 09:13

Lauge

Måske kan du bruge nedenstående, som både kan udregne
om Cprnr, Cvrnr eller Pnr er OK. Du kan selv tilføje nye funktioner efter
samme princip. Du skal blot angive vægtene (og være sikker på,
at det er modulus 11, der bliver brugt)
Funktionen "FjernTegn" fjerner tegnene: mellemrum, "-" eller ".", hvis
de er brugt, så du kan angive nummeret på flere former:
23 04 27 1234, 23-04-27-1234, 23.04.27 1234 osv.
Du kalder funktionerne ved at angive argumentet som en
streng fx CheckCpr = CprNr("23 04 27 1234")

Hvis du bruger Excel, har jeg lavet en matrixformel, du kan bruge
direkte i en celle. Denne gælder for Cprnr.

=HVIS(REST(SUM(MIDT(HVIS(LÆNGDE(A1)=9;"0" &
A1;A1);RÆKKE(INDIREKTE("1:10"));1)*{4\3\2\7\6\5\4\3\2\1});11)=0;"OK";"Ikke
OK")

hvis nummeret står i A1.
Funktionen tilføjer et foranstillet nul, hvis der kun er 9 cifre i A1.
Da det er en matrixformel, skal den afsluttes med <Shift><Ctrl><Enter>
i stedet for <Enter>, også hvis du redigerer den senere.

Med venlig hilsen
LeoH

------------------------------------

Function CvrNr(Nummer As String) As String
Dim Vægte As String
Vægte = "27654321"
CvrNr = CheckNummer(Nummer, Vægte)
End Function

Function Pnr(Nummer As String) As String
Dim Vægte As String
Vægte = "1567364891"
Pnr = CheckNummer(Nummer, Vægte)
End Function

Function CprNr(Nummer As String) As String
Dim Vægte As String
Vægte = "4327654321"
CprNr = CheckNummer(Nummer, Vægte)
End Function

Function CheckNummer(Nummer As String, Vægte As String) As String
'leo.heuser@get2net.dk, april 2000
Dim Counter As Integer
Dim Checksum As Long
CheckNummer = "Fejl!"
Nummer = FjernTegn(Nummer, " ")
Nummer = FjernTegn(Nummer, "-")
Nummer = FjernTegn(Nummer, ".")
If Len(Nummer) = Len(Vægte) Then
For Counter = 1 To Len(Vægte)
Checksum = Checksum + Mid$(Nummer, Counter, 1) * Mid$(Vægte,
Counter, 1)
Next Counter
If Checksum Mod 11 = 0 Then CheckNummer = "I orden!"
End If
End Function

Function FjernTegn(Streng As String, Tegn As String) As String
Dim Dummy As String
While InStr(Streng, Tegn)
Dummy = InStr(Streng, Tegn)
Streng = Left(Streng, Dummy - 1) & Mid$(Streng, Dummy + 1)
Wend
FjernTegn = Streng
End Function

-----------------------------------

"Lauge S Jepsen" <laugesjep@mail.tele.dk> skrev i en meddelelse
news:9dpk1b$ndc$1@news.inet.tele.dk...
> Ja det kan. Har du også koden til det?
>
> Allan R. <warlock@ostenfeld.dk> wrote in message
> news:9dot47$jro$1@eising.k-net.dk...
> > Jeg har faktisk et sådan CDP-nr. check-program... det finder ud af om
> > CPR-nummeret overhovedet kan eksistere...
> > kan det bruges?
> >
> >
> > "Tomas Christiansen" <toc@blikroer.dk.removethis> skrev i en meddelelse
> > news:%WKL6.14$%x4.1053@news.get2net.dk...
> > > Lauge S Jepsen skrev:
> > > > Er der ikke een eller anden der har kildekoden til et program der
kan
> > > checke
> > > > hvorvidt nr. på et sygesikringsbevis er rigtigt eller falskt?
> > >
> > > Hva' er det for et "nr."?
> > >
> > > Det eneste nummer, som står på mit sygesikringsbevis er mit
CPR-nummer,
> og
> > > hvis du vil vide mere om det, så er det letteste at gå på
> > http://www.cpr.dk/
> > > Klik på teksten "Personnummeret i CPR" og derefter på teksten
> > > "Kontrolcifferberegning ved brug af modulus 11".
> > >
> > > Hvis det er for kryptisk, det som står på siden, så vend tilbage her i
> > > nyhedsgruppen.
> > >
> > > -------
> > > Tomas
> > >
> > >
> >
> >
>
>





Tomas Christiansen (19-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 19-05-01 22:34

Leo Heuser skrev:
> Måske kan du bruge nedenstående, som både kan udregne
> om Cprnr, Cvrnr eller Pnr er OK. Du kan selv tilføje nye
> funktioner efter samme princip.

Meget fikst, Leo! God idé at have kontrol af flere typer "numre" samlet ét
sted, så er det meget lettere, når/hvis man en dag står og skal bruge det.

Jeg har lige to kommentarer til din kode:

> Dim Vægte As String
> Vægte = "27654321"
> CvrNr = CheckNummer(Nummer, Vægte)

Rent principielt vil jeg aldrig oprette en variabel til dette formål, men
blot bruge:

CvrNr = CheckNummer(Nummer, "27654321")

> Function FjernTegn(Streng As String, Tegn As String) As String
> Dim Dummy As String
> While InStr(Streng, Tegn)
> Dummy = InStr(Streng, Tegn)
> Streng = Left(Streng, Dummy - 1) & Mid$(Streng, Dummy + 1)

Du erklærer variablen Dummy som en streng, men bruger den som om den er et
heltal (Integer eller Long). Det virker i de nuværende versioner af VB, idet
VB blot konverterer typerne "bag om ryggen" på én, men det kommer vist ikke
til at gå i fremtidige versioner af VB...

-------
Tomas



Leo Heuser (20-05-2001)
Kommentar
Fra : Leo Heuser


Dato : 20-05-01 12:16

Tak for kommentarerne Tomas!

Jeg foretrækker skrivemåden

Dim Vægte As String
Vægte = "27654321"
CvrNr = CheckNummer(Nummer, Vægte)

fordi det forklarer, hvad "27654321" er.

I dag havde jeg nok deklareret 3 konstanter

Const CVR_NR_VÆGTE = "27654321"
Const P_NR_VÆGTE = "1567364891"
Const CPR_NR_VÆGTE = "4327654321"

og så skrevet funktionerne således:

Function CvrNr(Nummer As String) As String
CvrNr = CheckNummer(Nummer, CVR_NR_VÆGTE)
End Function

Function Pnr(Nummer As String) As String
PNr = CheckNummer(Nummer, P_NR_VÆGTE)
End Function

Function CprNr(Nummer As String) As String
CprNr = CheckNummer(Nummer, CPR_NR_VÆGTE)
End Function

----------------

Dim Dummy As String

er en ren tanketorsk. Det skal selvfølgelig være

Dim Dummy As Long

Jeg kan ikke huske, hvad jeg gjorde, da jeg for et års
tid siden lavede koden, men min fornemmelse er, at
Dummy sikkert har været brugt som streng. Så har
jeg lavet om på koden og har glemt at rette i deklarationen.

Tak fordi du gjorde opmærksom på det!

Med venlig hilsen
LeoH






"Tomas Christiansen" <toc@blikroer.removethis.dk> skrev i en meddelelse
news:sFBN6.318$qE1.6061@news.get2net.dk...
> Leo Heuser skrev:
> > Måske kan du bruge nedenstående, som både kan udregne
> > om Cprnr, Cvrnr eller Pnr er OK. Du kan selv tilføje nye
> > funktioner efter samme princip.
>
> Meget fikst, Leo! God idé at have kontrol af flere typer "numre" samlet ét
> sted, så er det meget lettere, når/hvis man en dag står og skal bruge det.
>
> Jeg har lige to kommentarer til din kode:
>
> > Dim Vægte As String
> > Vægte = "27654321"
> > CvrNr = CheckNummer(Nummer, Vægte)
>
> Rent principielt vil jeg aldrig oprette en variabel til dette formål, men
> blot bruge:
>
> CvrNr = CheckNummer(Nummer, "27654321")
>
> > Function FjernTegn(Streng As String, Tegn As String) As String
> > Dim Dummy As String
> > While InStr(Streng, Tegn)
> > Dummy = InStr(Streng, Tegn)
> > Streng = Left(Streng, Dummy - 1) & Mid$(Streng, Dummy + 1)
>
> Du erklærer variablen Dummy som en streng, men bruger den som om den er et
> heltal (Integer eller Long). Det virker i de nuværende versioner af VB,
idet
> VB blot konverterer typerne "bag om ryggen" på én, men det kommer vist
ikke
> til at gå i fremtidige versioner af VB...
>
> -------
> Tomas
>
>





Tomas Christiansen (20-05-2001)
Kommentar
Fra : Tomas Christiansen


Dato : 20-05-01 21:58

Leo Heuser skrev:
> Const CVR_NR_VÆGTE = "27654321"
> Const P_NR_VÆGTE = "1567364891"
> Const CPR_NR_VÆGTE = "4327654321"

Det er selvfølgelig den helt rigtige måde at gøre dét på!

Så er det også lettere (hvis altså at man er til den slags), at dokumentere
hvordan man er kommet frem til netop dén værdi (f.eks. værdien 4327654321).
Det skrives blot i kommentaren ud for konstanten.

For konstanters værdier beskrives/dokumenteres jo altid, ikke sandt?
(host-host-host)

-------
Tomas



Søg
Reklame
Statistik
Spørgsmål : 177501
Tips : 31968
Nyheder : 719565
Indlæg : 6408527
Brugere : 218887

Månedens bedste
Årets bedste
Sidste års bedste