'===========================================================================
' Subject: PB LONG FILENAME LIBRARY V2.0      Date: 07-12-98 (12:33)       
'  Author: Hans Lunsing                       Code: PB                     
'  Origin: jlunsing@doge.nl                 Packet: PB.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"PBLFN322.ZIP",4^6:Z&=16751:?STRING$(50,177);
U"%up()%9%%%d-%\+e2Fkr>yI/%7%%^%%%%0%%%%kn.qj.n%iSine)0?k+nDX[+wA
U"nR:vwET%zMRsmz-HE],YzAHBHp&=mDEn?^^CpBErR%HAE(x[Mw-A#TtRA7oQGq8
U"%UOX[wMMC[tToEsRO\^AY)?_)kg,[&sIHz/p=wt%F^dJ(zpYT+J.-IQ?DdnqbqY
U"[OD%_.+)+MJH85=7CqTg1%Vi6Tm<qMK#ylFx0-)y<=FCD*DA7k1j>=auqQaEu:a
U"TuY5o.hepLRUFfD*A1='QVe&F&%u%p()9%%%%-d%66^aIH$b'w:;%4%QL%%%1%%
U"%%qsl%ksfr%WSgfOxf,JY&TAafx$k<YFanaE*lV+A;(n/<A,ZlWi\*LgQb_RcV<
U"6/G;dieE1aAUX$,XLbzsF.D)<U/j-B\HIq%FFtx33c>&NN4T^nTjdYb:/hD0T]J
U"zBS]rh$Cs>)wNojdd:dn:#.gXn(N=a5w^f9-+qXt.0<A-j%-Drf^BI)n,_Sfv8j
U"^5:m>$[EHL)qV$lN=3BQ4>oWAKX8T,Rc1gk&eFosHYjfcjUbK=JP%F5\l)n4YF4
U"fUSlXwK,U2dwQ9C:w8+?vD5Gz0s381k4ra]8hPm/QoQ8_)odZ$9RWGav8:Kvj[M
U"-Xq1d+$Vs(%nZc[1_RSyQ0R3st17e(f/<$ZKMCM#05.48SiZT,:h9O]C^<#RF+B
U"\J)35jx_A828e'8j]]x9jicAW>uQTdF:P\s8n=c6T#f-s)8j0Bj61kr]t$h-kG6
U"ErfIedd(Rk.=Sc;q80hrWFFLUHhj-h/VEiHN_J0C)k56[qQ7E(bo/b[/'Ea:4Vl
U"Edq-h&KpBKG1qw>lcl9HO&7)9hO=SZ:ZkJajY\p=]_U*)M(WCKC>WPjG_J1H*L#
U"c13,.EL8U9p^\#miZ:dgzrW.]_LDUP,;O76&hx0O5m&(i5q::HnEbILG2Gd3308
U"?Xf#oAo>gK\'GnDJDnCL1.;Po^x(U?h&>&rNFdKOd5F+.Vx1(_lks)63J;P*p=j
U"8LN:7D96fLI1X*29mm%-RZGe\2BViAPjD[pg4ud;BJdc82AK%44\.HiuU]YS1ou
U"wsSDXK9EHH&XeZ*IK3.ir4)Wm;:46Ikl&\D%St(7yAmt%$ZRrY%*;I_):#v(+0+
U"(Vnu\\_9<d-1npg9(\P9X.R$y,ko8lroe'm2FexEUanEf8iNH.=).^c4g?iuf<*
U"6GTaTvE+Il:o]RzfC\<p\wRi.z9f2dy$^].548M)P2,61oYZm.u2W#Z#9-(5efw
U"u#IJ3Ba1Da=aO[Ml=Yc.->Z]kt,*^/Yn3vIgWkH;M:oELPA59T9b=;h1gt=jD%i
U"()onADGIjFt54k:K-F]#-]SkM[3&Iv5x/)qu\'axW-A8s9a7pD*U)WtVU,1G8G:
U"r/1*Zu+OH0J-0RFq*(1M).JPtn5UD_d0:p<v/F-3c8RcG^edq*UYDK>:5Z_'Yf/
U"lAnd?<$u*[%cWbv4Rzp7(Ax21up3OLU&rU*VU'I2_%ix#aC(4Nk&QJ;.0;CB=e3
U"'Uha6P,$E>Ksmuq;:ro:Z&3Lj)2%,T[J&.hHmD/$u'[0stKo\GBkoQ%=XOb6?Tb
U"Niu7]nK$mkX6*x?<;w=O)8gkWn[bChlU,+IpJJ->691Zv4#qH$<Zml\0-aA&R2g
U"Y;Ng\;97sHxOLI>FXZh2P*IP*V%mx&>:o*;TlGs&Uis-ihdb:Y-:B'1;b2cT,v.
U"JfBw#Oy;%U%-/4lD]9?7/rIk[rF;LDEVy.nNJ.\fwk04PWX2bLh-Br=u'5NP$fq
U"uABTt[r,B)d*lmV]LKo8BVFS</5JwKWdRFx^1cHAV)^WZAHs:-RdO%^7<^]BviY
U".Hr5_1oZVFp_/5S=h&Zo0)<:Q5SX;_-.w#e&9t3;Y+-%wMW^[>Kka4LV^q_W6Ji
U"Zd(DJ?Tb#C_o^JMQWa/6k*O7DX\TT4f.JM4%4;++2A8HFhnqSl:0Wnkrax<4kCx
U"fb_EHD_LQI=Ibv_VOqzjRhp?ihEqeu&m5,4=7,%(90e(O<)EKIw)Ino*Ku3kD-X
U"G.bDJJiLYZqGMKkf[)->d7tle\nu6/z1(QDN6Q+B1:%+\TE_m,Qe$=[;,5vdQFG
U"O,4gDz9:]L6Tm&FQ.P,o/'C4.)tPiiv0%oW5LhtBo#.Pe+'FIK&Jq9Egt1=GaY_
U"m:=#t[uLOp;wxS]\S5%Hx>Q2OeDEr'8'(JX_9\K1AMYQ+#Evu.9?r<GFdy\hDbo
U"<(/K2o\Pt?ec$sQFl\Rk_:26[;fRZQ#>w>[B/=p&WODCD3[kD[_Fp+\5=aJH,W1
U"5_tIiQYKA/l0Jm7qbD^pdj_p)HDcVLfheC%9PMRaIX$m\s6hJQ-tbwNVs/np#=>
U"GMg?GDC1:3Gl#Pfbt-[4bbe7L4OZUdG%3WsLZh.GAwCQs%IA31(#D%hL<r*6*Rj
U"V(%Ta_jB9>flosiR/7\9(7wXEkY;4d:QmHflfg^lgS6RG7MRmpJOwU=mKs=uT#y
U"_E0[O&Ok.u5uyBHN$lugY5RXbfMd&7gDnHir-c'ZqJ:).s(0L.T=YXI=<CFcpd7
U"A^7Tr)T5%giLQXc#-LMpgbh0wd/ZbH+X;QJf_Zch.q3np;S<0+2<[GKLAwx[kRo
U"P[u>sFmsCF;84)^5U&pw$'S9TJ'iH\)&q0i$vnUvxM&>2?E)'%eLk-$g^RY+&rA
U"EHpsJMKc$.JLa?:?.&U5<ZfU&vkx/LH_CGe84l*+X-Gl3[&GekCdDFfIBoPD3I_
U"TSPotn5cq]vGK4l(+'a%z3ZtTKqIRv6M6>S2#8/HVD9ybFH3v8rGlMzRO<'A#1%
U"ad/_2y4%6q:A_hlYSKWXhKFLnSrSGejhfV]?KA)/OuobdVTsONh6xRTDvwK*t[l
U".w1czDz9KVeEei*4o2gQh*;U%0dnh_lUD0oXg=_=<iuAqC$ce$sL,Lg76.\9V,u
U"DdAj_*Lh7vN=e\4p'^CnYoZ:D+g;_H2L/Z4:x-i5GW6%#(+_<K=$(C&=E&uB)i:
U"Sf'ZE-xB2A;J,.oY2d&4c'+i--;;0RUZr^VfRw8\R9[Dsj3;Z-3]/.t-R'D5Q*f
U"r4(?_uEPit;5;d(j1jAWf#2VB5geTG1L3tpb\q+rEa5PP'OYtqnEP&:.;c#]9p$
U"VJUDAb1&CWDwWmWA3F]6REB3ff$qmlX[4_4KEtBODLq4mSvv1RMaYnZ;X>Uc5$P
U"$,7fi2-M3,k6JQ;;L5J79w:]Ue%r?^$20gmlYG8DSv'0HgErj34slwX]X$&T/8D
U"$rHai;n79'UUkP<SN0o%ca9_^-^EX+3&2-#en/tq8UM:b6R-M\EE\Q'2&WD?nWA
U"DYD^$fO25LI(-SDEdS1k/?ZT9/<0qlO>?>1i)?pYePQSsOO,mKk=1*kr<%$)YxA
U"4CxShQ<cP8K&WHos6JH>9WS\_/8RvQMA$WKN:)_A1#BOpQNuhC-3D1R)n0*_?6E
U"i-DB+9UueN8EKA4GbkOU:4l1Ig((9EVLg^O<.u_(L.rX<Z6;c4pgw,lPO%4NA^N
U"-NZa-BIC%vJ>+Ldn)+m,WMe9Jd^Pzsp%kNBEcia&'k&<qEu/oD2B.u7jtbOtHs*
U"+33TtckOLM8UViGe:pIK/%MN$nNGrHN&9.(vYLcv+LkoH$$4S;SIUdcD8sX(E'n
U"NJ2v?xB:4kmP4_2_sEfBR6Hb].[iDgifmEq<PH[hzo^ePrsxK%Q]<te3+wHXOI2
U"%M$'2+,U/eT2?Z[tE]CBuZYkuj,]vliYu9pT^2wZ,dkaoo[U0#SKg=NY'EK4.7Q
U"W,RcHjK\[^5,D>i4JO\lwK;CZ?1bmB*86&bAh[onTOsN0UU_R4SLFReakaSOk^w
U"dKc<'%dC9Ciik'Z/fiB%?Ia0k+9>cYQO(B8sveT#(hAUy8QkQLWUq/y$97z65Y0
U"Su1nv3Lr_7-]/_2TY.X8<I3$[NT;mc*zezaxJ[y0K4E%/]4VJwQUVQ:mPJ'_Y&B
U"1IbfQO0?Fj8Obls?q45c.^50omV7=5F>S*N)'UcaYfKotu)k=21Spm]jnA\])5j
U"'Gl*THiVKVNo8FWI]=3Zi9+yR</K3S5URw]+9EH/Y*EW1?'_e5v$,fD4QfLbUXE
U"kNF6$9<qs)u]IVl^e$m9Cv\5FgKPfs..;p7WNLPD-EKI#DgO=5E)m_<5j<>x==.
U"e^9]49v&)w*_*<O-Tt\WbdsmR(7hrCU07>TPHp=vrvh*BSt(_8\\[NHd-/a]Gfv
U"Aob(LZ7TW6<[t\^=?,aHV6p-#I(dvSSA_g+UHVy*e.l=HtQ81#Q8mL9b$*4<&5D
U"[2%y#peD_^8B8<FG)bJPbfhDcQSNi-'XQE^#Eg#Im'(Diti3K<D]C&2CI7$5.bm
U"8o*uBo;tx4#FU8G2/uYoo)M4+z>%6<f34jpwG(IN+P?7]u<Qzg,*FKLfrQCiCg1
U"hS1iYeQcl4eK9IrQ;$Pbb24_.V1plXpoqX)3\DojLHLNu;C#\\*\]P^1e3_1n*2
U"Kqq+dp2vQ<A1J7*D=sUk48?(\3gs3$=Fb[%7zEMDaM9Oxm*d0?5]GvyrJv51NFl
U"8v2rzE[BH2bTe9GIOD]&,QD^[%)$D-YTV,3RFs\Dc\5h^,qmovn4HQL\guYK2[k
U"2H>hXd$i_pbC%Z3ljBQ\gDaT6I5hRo<jZ=PDcqsut9D8n(an)\GMfA\l*1UmDFj
U"uPf^5OMA6XH%kcshNw[DmpfsL5+rV7ZHSNoAhd]EpUl#-^<a5j51#GVKtlF?w3n
U"jHzU15F3cD?/ru9ETI;F.5unf/*d7Tw#X[;_q%l3:%aOigCrq_J.ngO&q$^2xD%
U"PFBv2Ia*\zGX-j$S8k(^mKF^d.\3'&%a4\T)Ph?YZQ$&7Nchad.Yt_>7=lYp\Z,
U"Ip[#iGh_Aky+Sxs''&xejodyeiUR41&7sf4Tf[J=';SQO^VTp#3V6-W$\QTR]W1
U"dsvR'c*y6iVGoYWi08abAnkj9._.cB+zGd9fJ=;TplI/&^$ZNtu?Q3n,G2xBE:p
U"sNgS.iDP<<A92Gkf5]'#Xor=7Ca.T,\5K=w_p;jAxk2xm$[sS[6PLQUViFAE<Z<
U"p,FCpAPjY4_O*Am8^etZ#t\-GkBX\CI4RtOW58^0za>HO'B4k-&,YMV$sz3Aicl
U".a87hh?q0d.%\#&_lLAh*9PEGsj_?V^'hN8>5097T%>p33fH=Z.Pd?$flhevKN*
U"NpBu5_liZuOk%(\*aXvS[R?\3HDn*d-SNfnj3:8o6$SCS48Ea$EEq#y[CJ#l/t/
U"r5V0N?KCn=*(Ra,[Q_<>V&5+itCha(Yhy_\*lGo^9hH3_Yv=R''BDm926QX.wvO
U"bmrn:Zu#>U^i0.LD=R8^DtMDhB>fh$aQ<BVno$>7(0l1>zI#xo;V5L*f4cBo5ND
U"o(U]QXb<'i2(p5Gq^3e7YhDZj%d]3anhb8LBtOP,)72lX0U5q]#Kq'pga=*,j3b
U"-9ARO_-.8\eL=^5g)U1EX4\Jf+/>xJGs]I'Op._b\G/5VTVxf)j&JOf+c7bC.yN
U"457Yrb3ml'cke$%8^mtC&]Jh7sINodQwmWGD3qo<g4br4&kTKv$q%2st7MD%MCt
U"_gH7Vnw,NokXcu*7qsH#rk(gsXxdk)#vgsDRi>AoHYkuqeo/lN<RiHNlIaK>m=2
U"-'>r\j^;Ac4N.unO<pBbNl4msH<,YnBbd;x&4_V$PU*l^ZMFS#u4NZIOCkyWdl$
U"/+.;7&SXt''Sr*Z$d[6<;rlu'kLmIeQpt4/&%eOT7Z0ghT8rT)78[=5w,ibn''d
U"9k7i=8L+SiZ(XsWi0TVleZYQ&^7pn3<Hht&KMV-KkH1/pg.Uuk<A2,O-'\pFs]$
U"Uv#>(=<un/j*&:rm)9GB0K1g.wX)qM3x:FF3K.;TDsDK&&>T?rsLd<gjQCYDbC>
U"$VN]$9F:YVT&;l)+(Fbq_<\j#Za3AUREJSDMXDs(k4,aAsBr3Va#Jx]DV9$V,d/
U"+ht)cLBTIx4>j^MKG%wxU:bxs$37NKNc6(c*<W&8Pf6,6k,$86ktkiOaZQE;ZFJ
U"9PXu0#)d#K=.b]WgsL>XcnRPLX^'Lfuw<GJIU=kdS^R8Z'2qCrOg##q]8y+'40h
U".xO%y;<M1FBJSK:?W7ghI%tuGm54tuU?2)xUXh[jX#i3'.Y[Z;k,qNilq5:w0&w
U"s6Y77,Dc-.t8Um-/RevjGv,xm7C_M:,gXSEgA'?84lZ3q\FO$ip3jv1*&;=zrwm
U"1I^ZFPeKLXOW/.h*Y&1Jy%.<qH>-IGoXe%u95mFT4hakAC?BdF.ikyC&GhhlR<N
U"/D8ChEriFU&[59pqgP_WR%:y/yK[JE7C7Q]9dxQypm=;lvVk6&Pm)7blcdkulmh
U"B(xo'd5/+mS$kgzl+=1oV4x3&Gj_.QdOu<14on\tNZKdBzzjY2RAP,E4>-U:1CN
U"hPmsHVcBT=cd,EIP]W1'CgH/#LQ_1*&kQ*6K[Q[1\OeUbK^*+i..k;mT#1WclQ7
U"0RcW^$YSbk-iI1>VC5^*)hc9;+:a?2?494j37_&U3bpn#4[q<R(6eRbLIFL_V45
U"MKCld'qON>U2($)LSxV-2<VVfqD0E-.6nY%j'Z.U.c\aOWw9(8XP)#,Xc0f<^DR
U"u,>Ulwcuk%b&do4^D;sb]/xd\nYD.tpec^#:Yk'_bevmp5e%HE2sy8Q*3EvgVqX
U"J=mB$><-2.eliB+qg(B,VELT:zqTe,9DTX14N0PA#zERX8OSSt7&_O/Iwd<B+xo
U"3oEYtRHs*bhMXJtlce=fFl37XU$CE8#E$<C=h8hn<PyLvp5#0k7Z07F(y#k0t-L
U"+F=g<]S0la\LK)SZ?lC4s9Inmr-;+L7ueF>(cJibIgPp^hCdjEx99=t\kA)'z9K
U"gA^4S5OYWQk+_w:9e5t;>$>yWp=62Bf[x$66iuK$xEe+((P8&SiXScj->=2GyBI
U"t?=AKnA9:z_&ty_P[snnK=QJiV><7ntNnQ+vLm-4V0aziDU=SM,fmog)f7+,S.t
U"b5$<Ns%dF&AcH5\um/Jn>^^knDa*shFs&^ULIX\:<h#QLB$54G7pQ:>7[VriW7W
U"OHk8;HuqG%?XNi9FG$,Nm0t\mOQrlBXgkj:rbsl;:PJ/CoHPFTWY)Mvn>&=p3^P
U"c=a3Wy\T8Px*Gq(]a0#<^tadJuCI<,Kz(F4TlP[RG[IfzIIgM.giiaVn^2fFYq'
U"ZoJplhG29p9vwqR[Xrq1%em'=<EGM9KV9p46iT:WO3>&;Q3EmFqlW64T=z?EKF?
U"3T[9^Ma36V[i[?K::ET=ljd_Idi4&tULUZ-&$reymC]x#I,#Zm/Zrp*ejfa:%%E
U"C'ec;XTY0p/L\^WnMMc>m%HH4GSrG:-g#9Jls+D/gIoNZ];IJtk3ZS&b>B%f_&n
U"0WET\J43v%&/2H[nB6H;^P&R['S62NR^:n(tdVVm<LO:]A;8xl+zBxXmTsk?PxR
U"O0WO)&G17_I2ncAYL>>QKh-3v[THTTJR(SHptbNP#._MI35l0<z6qL\NCqdY7W9
U"Tb^ZOEbVPa1LTk+u(F;ieu#i'x&up%()9%%%%-%:66^I<cJ<?'i3%%'KR%%%1%%
U"%%qslk%sfrW%SugzEFi0GaxNB9fx\^T+aS)p]aiF-%(i56FNH;(4pT/lPX.\P1V
U"%?c-_7^lT*_#KD+i+j,uf/*)xtO1N8Pnj&B3YQ)bdo:a[,^oQqMp.Ode'*qr.#0
U"qpJ1e>NGxK]2bn>50REpZk8$FoH^x#Wrn#<-rSk.tAn2q%4%soc3E/pU/f4G$NI
U"tRd?4q(g?Myd'*(q%:BeQLX(uq<7+b)pT:tl3kK[S=[zF&U)XA+1P6,ntn]G#,]
U"q(H'(kMr,6[LD*3dmr$cv%^,hmv*\ZKKky)40OmpxJa?Yi4u*YD0VlkJtuTb=dz
U"T8c9%$3B>vf'<mb.(EXeL+'6-1.GUYe.;fU-%qGUL2Op7iIq5cA75x(tf\pYb1N
U"L[8af'-_)Yom)(oY;n%)_6=Ci_PQPqlhM4&gv1Z<#1>$1m4<=1*?:]B?:5nUFZ&
U"MpaRa/32^U0/Nu#TO]Ki?wXGgC:'i/.:fu-0+i/<.fo_T76f/-<?Z9F\Q.GA46:
U"6i)?x-K,YYW6/+SQn(GgQ'Jv-uWCE&)H=Gq%-MuY/ig-uZYI/6s3]ka6];Z/7-L
U";W/pI-;X/K*-eWAoe)TCG'OQ9di)q()n8f/$-Yj*)+)J%GM:f/h-+Ge'FQd#juN
U"Q%#juJDQ96G1i?b-05G'RAQZG'LPQcX+ac7aR:1dS9&CJ+\]9R3WNpfV\r$]+58
U"JlA;48JkGVOG]oc]CJGqt]y<Mqt^hA7$;#p;R9BYMhZ#?^W8%vXljY)M?$M,ZE?
U"+y%jBXA&NqgS]=OAqbA<*OqL^*Soj,6a1_eWrou^-(xD0BoIm_;NF-NpoJ4[flN
U"*iZkrch5w(&?Dcu3.VzQx)W*%PW<7m)M3TBL$3i=:l^$%4s<iy#D8T\#$_tp.8Q
U"pq)LU/DIp\Xfl4SQRcdLR'j:6S?zao'zJJE_Jy8S:1qLVMt&,X.is*ng7N3:ezh
U">>T0Tf+[fkxEvsNxPU2X?l4;lEL,5vQTf:>vW)>_A2R9D(s(Q*8HN0#n$tFNn(c
U"%pZ.xFttQ)'b98R96+TW4Re<eSpvW(<D1W9[Utj3:bTP)o>&gC8zprrnUOlMY&/
U"6hXx)uT)(\7oedq[H4?3XD0#VP,/9::UNRu9YHmV16v<g*&K=JcuSFgNa7^&_qc
U"mT'NMBJpP7&o=JE?=b;Li)ZJ(WwJ&x?z9(v:OnMr'k\Z*sZk8OxiC63(WK6WQ&)
U"*JP4%&tkY(>z\H<Wx)VBiN$(6lV91bw<[WX#?DvOAQYL^Y=j.P3P%NruUXf;3id
U"#^?)?Nj'88$;5/WaNEb8&QUI<5q4vJ0ZXCwp*N*(E/-X<:0q_(v2-+,w:z%eN/j
U"%*??\d4*^<NB-tu-2)SzpVO<7ZkA^QdmtAYWttbvCzg[SRRo.9$/p+E7t>skb$;
U"o'w.TrH28H6SaC^RxkftYm[j?0mG8R=w46CQtV;r,BYqpTb2N4dzzm+\9t[s4#P
U"wpHX>*-XpNg+,wrK#kl06CPsraZquD*SJ,N9,M7rFXqhuKkWcd'yQ++#iL]6]8k
U"=F&42lRI4P3NxI1p=yOT&Ope0Rv>aPv#EKi$yI(r9MhC/ijIX\#kzX1y(H(g3#x
U"fkq>I/cSV%7P^_4]cPaSl(9Jaz?^D,YW34M=GOOR2,rtozopNMVM1LOCejuFNYy
U"KkyfE6I#MAkvxMIN]IZFO($oW1MdCS-z5WNw._342s\/&zJ53N%*CsH.EVRzPJ,
U"KDjBF2ayF43c\gZcg'Q(/wU.YN.fy9<0rSGK,_j'P5&W6ee.6M?>JfueD\ogUHu
U"(aJ=;9&JHj(DC+;N^Vnu#E:K^LqTG&2V\ELPco>&_T5r%(iE?EG6byV>Ir^^mm7
U"W]LgPyV4:Oa?ZuiRsE0.1Zn[SmHFyZL'kyD9^frD),fc0*v<ugz6rc/*1FuQ5Fw
U"i=RS^znIqg151TgKe'aS8jlr:V7)wE7l%]IMPz47bWcncZQmDwFetslD>uqZpKK
U")I;cvvuNW4(#-qL.^p40[NjJg\6HA#Z;z<C%):$-Is2o4i09hiK)';j^Om[U.K\
U"WpK-:1W+Ud3e-Qjou>4P<<1qF9w5x8o5HNdFJo#wGXubl]V=kU?E_8]\jI&3Ew[
U")IpB;N:Il_greVJI)4?Y#(RAY9;^H;U;0)6+W;;eZ(C>AW/mv+%B,Oo1]Ji&fj3
U"9<Q;I8m5G'91K0ASRu9YTP%?mrK%FtSg%-t0rmP=zep2SHMIn/lIE87aj[W,X<>
U"MD3O'X]<#.W4s)eoiXq6X5vK*I]WFMbc1ALJto\Hoh$GYY70IwfP1/mZLjI-t,Z
U"=8IU3_auCONG0:[?aEUV$=dCI++-_tZotGxmAd8-EJh*[47LOnu$SZ>A>t^IkIk
U"P[5f(4y3Ui+6:?O)Lli#DXE7,LImpiN(aGnSos_11'XxI25b'q8qu_2(oxysn1R
U":tGwmUX9#meF0j9XUHNuPd1ERfAdI;_i55i6#5x-\oRtxb6.IKi]V+7[t7/OVnH
U"[T)RjycqK0LI1)hvjHb7o7X[kB1f=2MQVm0A;9eB[O0V%pmAKKq;XFj-wh=/APV
U"\PbqYd$<Jmu,aY,IdcG7F?][cqg3>sK7?OVo;qe=\jn]3j(O:nAcB[U<gkX1\J?
U"Wdekb1h=.BIin3-$7LW*Z=Z1I]a=FIjcX],[c\O;SH8MTlfy,wm*OfVottGxmUd
U"V)xmwmb+LY;9K<M5Sd/>a9<_q=7M9R8?#U3D.P_GL%mPn0:p?1kIZFiF_5&><;*
U"i[Hm<D0F-w'N>R8<dK9G(tqK86-1fyd[CnFpD'KbwuM9$)tBhm$sGlKSx^hIycD
U"cEp,rK2K\#wQ[Gs+LfF6Qh2[iaZ<u*k#0Sj+VdB2zBHKtO8TW$i,-OKAV6TZZSg
U"g_BxN_u%L0Mj1>klH^)'[n\X0MCi(>#<l:&mXO^_mkOdC9$T^t-9aq9$F5SuJe'
U"wk+qFDh6Dv^bGpKa07:K2CK2,MFesCG7/o458fHwDv::yznh%xprDKLW7Z%#Y?-
U"oTF_uo&Vac4$jBB^1II_8w2sxoVyTrYq3Yx;gB*AJi&dl?0Yi)D.^^..ZkgR8$j
U"D1U5(iMG3JAc(*>1i<x4pt4**8Lft*?Ef2+\a<$%v/-)r?lGqRF;0o(G*2JSC6.
U"zHg7OSh96A1MSPWIl.04Bu3A6mWJKId[7SqR.enem^[$cq5Nd&:[>(N'p$#Ak*,
U"f1*:UGYH$.&=8>mEAKs2:#d4PJZ$,:Oa=MY'lB]i%_D<MYS\Kua.Fy'$MwRRT$G
U"-TSPyBUon<]4iAGM;z_bY'',PioBTRU9<f1?Vo-^JW=^#bRtusIi_8[g24uewjI
U"hH&%UqB=RY6=1rFC.HH)jbBk-:_v3xE;'r^Lfr:W/jA?j,R'MXoU)(1#+17]a(C
U"7e&5EcFmsxdL;)nt(0WX9h$mG*pqGTLTqJ>x5nBrEhViS\JkV,89H<H_1[stGN-
U"$=r2+d#^0_?_NL.s9Y_grT.df-xPv'&F_WD%Xfg:,JP^mC2SGt50CDIU3&i'f2s
U"-^tBA/V08gW&X=z8(I0B,QaTX.[1cM*l8guB10bg<LKY$86M5G&romF7<osrZ)J
U"R6_QX=b;oqTRF6(0E,q.9gRa\H6A,hh-#1IYH]PFu0Rp9B_C;0j3SW>\Hd=hgSK
U"W0KgwkxG?A-m'v^#FB'v,Fn6.e]Rj$9Yn0C\rT,]-,RHk7ElN#MFCOJnM^=.)\[
U"0b'60_\K,[(y4>#k0OB7fkYV,Ic,8kf\_)Q+E\JtmofMVvgVuO/R$rx/<B0=7bK
U";%Ra+YsEdC)nU-F\M+l,6,86b1Z6e[9H8vuQAIL&jdcW7\ikkm4km5c:IIZ5>qi
U"d.II0Gj1XRiul5T]BCds,Nr80oE'7,1J:,:SQ<s$mjO=kp^>(0.(kAvbkQ#[h'Y
U"_X:+d%r[_S'ehP_<0D<71<Ams76Xk6=^7Ql-#S<kF01i7WzCD_CFu.c)po^MC2R
U">*E9_H$v),:hQWt-];)-h4PmS596?e0Ibsd/Yx%YML?2[IN2(?[#2]tXEU<*1*l
U";B;EgN6^r9a9uP\tFhgG5OGD1\p,Tn8Ch_(I\JwccMlD:4tPRP#Br1_&#g)paSa
U"D<E7(;ea0fj>8=^IC4)%a1DVJ8\ku=t6b^T6.V(>O,d5]u-g>\KTMgFB2.sEgMj
U"5f&V247(TZ[7Q^h3dA>0<CF=hEcs<zsg:NCtsq[Z$daKJ2rB-$c\243Z#V-<x=v
U"fg4D&*7vj<<'#*'O#wY?WQhu&SQ.4hSlWthGxr8]nbQ%v_pfi0kiJVx%.'Q.TVB
U"AcX'l_I?;'=o&9s\j*34/N7Cchq)1?2r=PhAQfYXs^-(9':Y<]Q1_Vg>5.8\SOB
U"[I;1vKBB[OP._#lgo2V_kDWB:%H($c&rug0$7V&GuMa#'fc666(48R2Y1E^NcA<
U"Fcd%lcmRpOeQcGjfbrA*nX>;e3t7ZJ3nAaT(aS_nv$AjDH[nFsKag#rqUoMHkMX
U"qkx*'q\$q/$jNm\v0hN#<#_]Va?p(gkA&YySo_l$7nvdCM\xTz1:o24;hmmvL#i
U"i]$nm^1)VX4wDC]i*;YSJ1i:M.c\8iV7q7i;uX^w?'#&f</sN=k,5eIbr0R6aA0
U"JEE?#V/ViPUQAZCfIpVvLnx2]1$C1-Rd$S2NnDV&BCt<Z/:GH&lUIj^<>]60jB:
U"k>#3/TIX5m+%sXK-Sd$4:G(<:WH'WDvXN-fn1UGHe364h;[\%_&eM^S1V<#9]P&
U"QxM68qWSBaN=46'q2i;fmJ-[VUVfMPEa^1ZM7:-EiEI.$iM$5%N#nlbam1Xtz#Y
U"[m],VJ_z],UcJ:'OewP(^:.9-L:n)Mkg#a\Q]djY?<;W(Ejr'p2W-U:Vc(1cM(:
U"Jh_7a5u#%up()%9%%%d-%d*B\I\i<$^d+%%%o>%%%0%I%%;=M65=0A<WS158&gn
U",BT[9l#hmjPFYtDGk-B<r/bG]g%$o=%VnU)V8*6?;3Z/^)$t1jB>ndL+D9*#1:6
U"x3[CRdulji%IULe8HS?\DvrJ.0>ujJBdQxnDK<]/P0m80vruHjJj$J>SkXN/W*g
U"(Gn=CNJ#aW=y86i=XTgugkVGtIS'kQVXO$^-V>+/<q8;k2]_Iq.'[nGmxB7<YDe
U"JJ'J:?WQrA07BAbE%.neAjDJsw\u*L.QRm#(^;j,F&=_lV*G;7ijMju7-*De*#B
U"ASCnZ%uvG#Q(9t5PYaMOqtR'\CUImF[9Beoco4J-cWRf2ciJ.QI-]i#/V7-afe,
END SUB
SUB V2
U"r,8c3)OUX&3+BhE<l%EB(QPHBOi7V7U[6Bt\O8xJM5]Y2BRkSwPP)>o)ks+LOA]
U"h(gz4#4u(cq3Dm^Xc+I*\rm81T=s&kt[2zPI3tZ5M9-2$eu5C>$.BK*r?)oR880
U"5GM?m=^qO[)BT?SEg[T^%jAMRe9TBTh/DYSD3oo67]l?iF]^%L(MK2uuIrFruxj
U"Mqj-:?j$_y?How-8F:qhe,E_AY8tt'XhVt))]uwafbn%tDlcJ)$;jVc69e1Irg+
U"\3W'RZ_DCY.$Sf/dP29$<.1VK:^402RFa.Gu+um,I/sh.D*_Oi_T&^u0s_MuplG
U"LIco0+,j8eQxG+a2U]qYfcE5N:&7UfI.F(Of;j%P=HaK;_iCuL>X:0CTO?ShG0q
U"ATt](/#_Bp9\C54n[ia+&30aE5X#3n_j&6&3imV%mO<Q=c8BtwzI]Pfx]5OKd,R
U"XI9I]<g/_W+sKij5#u?,ef=w=UT9A\cEhFjV*''0\+B$fEs2iM(1CU)uZPserM/
U"lu]C,*%O\Ao\++S>)AwJsn34(<(QYn'TT?U'$j,?c?f4^KqYL%7X<6Uh,q#+'mw
U"w/^miKR*_<;N1m0jH#HZ%P-8T8riaV7a%'ps^,VzH#r/fKVIRb;&m6s\km(OaK>
U"2#p'HgAjI/#;4<t'7cN>jLKYr014z^EU#X%ugAlL4=p?G-xQJ*Tg3Rd(lKI\Ysp
U"ft5v_'>8iuD2)tB5uXX5P?OGx+Jg/HT'f9isV*XO##ZoN0k=1XQ=X$%0?4s]nr.
U"Am6Y<<(YvVwC4<^ek8r>&0(1s80H72Bl2,DP-R\k'GxF)[uviT[ihG&?<An\#0]
U"d\JYVo:BZl_28cTMWIQOA78Jhh&kmxpQ_=HP92KjJ*q^Sq^sk<SOoVg>%Y(^L-G
U"T29g$?[wRW;nUIA94B'$_xT8W2psRd,qV[kKLc7R2jrB=nr_ABxj^Wrif>NcXIZ
U"1Eza4_97*$XmjF7CiW4N2$\D3MzIh\mg#t7Jk.kBN^GSDO#p#q2BbP6C\2[BM=w
U"kf0>S(iP9G?=t3qRAXRGn+.==w4u:B=]Aw_P:lgEwX(-t9$^_FSNK#,mNQe5$p/
U"FF#URNr.Us8r#(.uah:Wd9g;boM#mOGDG#+sq>GcDE0I&4tdb,bs?Y--E#rQsnS
U"nbj2eZG0VsoInxTbEg5cney>qMMjT'lpX6_n%Q'57Xl\GJB1='kqWp=2m0^xsS6
U"7$s?23Y4nGvVU1-A)8p^Vcd<kD*>5^%,zQghyLqh*pTcK3TOf2z;go01ZR<DxER
U"U[zE(n%p1C2*z6<OUjK'.pH9^ie[[1H(eW.P%>EbI9tH:%I5DwTM%wAt&NxuC5W
U"&+/fjdpR77)0s[I[X)K-aaG)K;lR6BZ>Pn&-1onA$4l5uk(a+Op=fi%##eE.f[&
U"cR&nT=Cx.5*VR1u#J3CuDF+C$^DWG$'>='sSEt[62_tUIVZ^NF&7P)/r4hY5QLk
U"U(F_c&pF=KSZShkIJL<*D$vCFv40_S#u*eA4ify(Fq;$\WE%%/o_-,Vc=z*ZlL)
U"JmeWNxIOGKt3\1:rIZb'eRf$NUsNKQVa8NUMTK8eqI(ez)9UaSXUc*NBvbG=p:N
U"AYbz2Wa/TVJvUzJ?7mh\D7,QF<Ozb'1onL;WSv[<oxwtJ4NCENZ5Fhy,<rz8POB
U"V6d]co)gT4X+rqkx9?w)MRrC,N'U4e4^G1FD%BvRpq^[:sr.d&CL[Cy4l7TEwbe
U"EY-e:j8Sq.5e(U+>PTY$Dz_^]T8VuOluH(c%Pd4X[qqzlJ](SU-_nY8NY;6?_Hc
U"47oq]1lx_-j6L()p68f;^VLYT,G*nd6jRVNs]-RPa5S(-U&[z)TnR<KG^NEDV=W
U"H8z4$F?UfP7YDBkjx9jQBFN\ZMI')bo+$'-Revaz+6G^KGdUBN/ivFZ,^/Kvng#
U"TC_SN%up()%9%'%7-%4w'cI;S.0js6.%%1Y%%%1%%%%qs%lksf%rWSiRth>);<B
U"\]YAw5&QRxO;6_+m_q\1Dl$[#z+t$#o'S9YocZf2FL%ofII'jq6_GQ-kj1dnv#4
U"ERoIWH-^y8q4+j^'\k8scV9p>Nqw4COKc.4q(>s4lXZl^4%>fN+Kz9J6y=Z,TsZ
U"PIsl9m<^uIPK\y%wiHE2C^0[pM63-Zw$(kIkn6x3EL;9s-Vxr]tp_HxwX1xwqL0
U"vuD6Z+1F>V8sdnMI&t<&zEoPd_>D2%idN=OpegcVDNfQ.T4q^040A)05m9^NMM#
U"i=lAn;I<D/oTuNKJG&DS:E$CIU:u%;t9MnqkPBURF(EseIo$ie$S\xh9X1NT45a
U"bN#,iTq;cg-SQ6I8xH3AOtdp5zC:_xiOXzG[dZ'ave-RO^C]F)B_)NbzpkuZeY)
U",l2tPdXxlNl2jvZckom?rn%36N6\>2Ago79S:&H7IX,E+C=XyB0I\qRN<awJ_Yk
U")9cGFVa$eQQ%6Cd>gz(dY-v;1n?0VE4E/wmtO2H:ljacTr&uNn?3L1#2o7k<n<%
U"uXiOL*zDOkE_K0p1lfh,0w,VDhInHMe#gMx5/%(IH2nl*g(qJxnA,oc/'ZHoEr<
U"6[$5sQZxi[8f,#WMOx_K-+;z_fH4<6AJc.Km5tEDum_$dkjjvZi>S383>M)Lb%I
U".Do92qX%aPC$+o&&[I9c.KKj$ZW?)R9U+ILTKI\Du.=S(M4PH*g2<4_M4&A%]^B
U"9ii5s_2rQ*JO+4a6b>G?.J]Q2J1PA<NT.D_lf:*/aG_ISdR03[KPaj=AGdGA0zg
U"(W>^;9/o:wMP>;XF;Qpsa-D$9mifK]inW-.GGD[HcPiTasW4a+ULlvEwRCEmhiJ
U"DdF3dk[(D30EJ4b7#lHZ)F14:/av1P^1B#P1O3mw9oRQGjurB<ct+;=;rm+9cGZ
U"aJ#01???]^-vn4^IAgDHZ.-nQ&\h5/=pm=HqvAQnL#6:*bQ+;J4HAlL)u9_Tugv
U"?i((Mv>V&xEVX,8t5E\]<\K<urkdn*T9UgoF&XLca^g4F.'A-7>6]6LA\QZnGI>
U"Nn+HhOg6COr_KcM9mQ>3e^1Y-*9KZf\qH9VIi1kVdVqZk;^K8<:UX<*LH6Lumj<
U"<cV]g.mD1qR4y\yOc,RDj<tW\guY_^,llgF_JTRX8UDM2kiUx7SPV^4%eY6.g+U
U"]jY\qSV]%j\K?lY#/9VD%3YhnJub[L1OHg,-W3V+?ICqQnw#Fx3V.7bFnd4*w4G
U"TGx*Dr.fIn23IDD483ua<O\q]/hsJpPLE3S6wm#l([nCHKREw-TnmU_.&YnHnAf
U"G.,lj/C9hcfQ>?0[*=Gle^oXF<%?m\7u0I/Va?WT&U?<=OmQJ^)f4976I^qY2F7
U"An?YIMR46-XsMk1&u,z&<YGf#H*ILJ_Tl/=K.?Fcq/vd*J;fEXz\t04d$Ri^8J0
U"4a\u'(\dC0]E_z%.pBlTHA&\(DFV6B.c+)Sg<#N7g*mo>i7OE;:&Ev(sLVe(8)n
U"K*A_rw[D[;0hD%GE;K=VGb7,J6US7p.hz>a?E=,[C;pP$d%:$d+[D)L++:S1sgZ
U"Vqp?_j*kRPN/V+R>]AEIESZs&LdE_;N/dww1i-To.0MA#(nD'-h1CYE'?vlbQ.)
U"N$Cb04cgwy\fCq9eyOA$hE1TK5<5UC^dtcAL_3>O'ljcAm58%Z6xiQtV'tl^kGR
U"$W-;ZJ,gph'b;DC6+Z.sX#CkFuMLkNB+'v4LIg</^<SAes4WTns1[J9(r,_sO-w
U"9-lLUd?ehn%4xI+lYvB(c<m;jO$_m=X0HT;-<J)STiZ9-/ghR3?BqvijR.'p(K-
U"UjK%PW]8^mH[(ZfeCGt++9k89xSuO<.h)G_gPzcNLevT.+H'B/8X<sLo\om:EIC
U";7>]2ciZI9M-?LJAvK\n08aGTLJNd%7t&-2>I_d?li'x^SgDI3F.gOZh_fdwr,>
U"^TIT4'Iko?nji]Aogf?\f0,nA)SmK\\4'8UxY&tH9'BB]LWOlqp4)>R9'E&fPA0
U"8kJfcV9L+;+X-4$QQ-g7C#XSAOn^[Cu'l8L06Tn:DC:m'ey+GgWf(0'm4xxmz98
U"%h)<pDgW&BQD)$3zc(N4e3spa8MG8\TFN)ZdP7Qs+qYTQ\u^ar>t-+Ixk*_K(^&
U"3&n4T8?qAZ56sc($i(W^a/UE;a:b*]ey/[c#mUii\7L.v&:Np>\P\8P2ucQO6tQ
U"ER74J4]xd)r#uKR-.H99[ggFVc^F0+VBE^,QmeKq6n)jBN;2>q70yhxnF,k2-K)
U"GeosiE[$j(H=9_uj<96yje+*6nC<B3n&]uf3K])\-^ABK&#JcaEB\UN'qYOo9e[
U"Np5->TRfd.YW_AM1f&4[^uw#-wR(Od/^ac.6DD-I[7I0aftE#dOEXrN^x=Q2*r_
U"kP;lKW.GTBr;fOTE&I2hp6,(9ad9pR)gXd^DsBJA*eMXtfu[$NVuV<Nv.hhr.:0
U"+^*1'sYmQ-WQ)6lJpQH26F9XUJ4zKtTOup\&xnf9nf:e-\lB$3M>]G05i)8R=B,
U"IZ[OKiYl$k2Xw/v35H?*kKMxg*5f;eaHQ+t/5dd:.&d%$Qap?xZ9kmsIaKYG\V5
U")dhVxW/pFZ-X[<]alH/i:uC_QG.o/yYhSQX#ui7)&T*<SAuje*W-SR7iBbT&9b5
U"t'CLXV&OefJCfK^r>xJ#ejHn,,=\I&P./>4b$hld=oBf)'reDIAKb9PI(y[T;-R
U"V3DM:ZZP.Ki-_[dkSJvD3V62H:pTab^Q<1jGUuuU4IJ?b1;=R13f(tAU#Lh;dAf
U"yPwY6Ei_^)F)nZ&Sr_#)HfpAYcqvdLiY2/sEY;n$exK$0o^:LE]rk]*wWV6Og+9
U"mgTs:&w1b>fMH+__DXu-NOrwAth2#dNKgnM9sNKLqBQ$CT&6P73$)t=AzwS'pe=
U"/&Lqc+wB:fTjDuUId$M4nN2inlXn+-VD9hg(<E<P>mOga14rD3T;YNA*<k%wSb-
U"x)h:]6j2[Gr,;:/FpB*UtEejn;F(lp>PA4XmHeY(Zl%n2BYr^m-u6xOgvJ3nAlp
U"-+U8>MZn(DF$h-kNVwV[$bfiM'8I=hwjP;&F)(mz>GhWCg*JWU0L67htP89Uptp
U"ad'57jH,CKDLQOfi-9Oy&wl&q>X51lA6G=C/^=J^8X<st;\Bbl1+5V*p.%b+&E#
U"Ixo$aWK\&KQrHkAFL4bQPpGO+tXs)&uXu,33VTRr-E$sstgWMW>p0_PjoXzfg_G
U"J0?OdZ88qm-03jz8[Dk_6UX3=XB&s=x+]]L_=ix5828;spSI&Z=PZuYh;%wkYVh
U"'YS?LZ&0<\JKm+?XjoRoDg=Tlaqpbc2el#V<B6tC?FBwCL^E6#/bHSg?h9>dvwf
U"eLQ/(C*hi/WYB'oHbYRMdl.hantiLjb=-1M0E'rvEnQ&+[XKV.3%e__Qq()taHl
U",Ko)jt9/tj,9Y11thxc=_QcniI3jVvvvrs38%Qg7DWoDk&H>1uZaecjCQfLkOA'
U"8s*SqPygW%lt9ZFIw($':Q0DcTc*g7[Hv=RBV_[H0>/PJ:FRQ:KTeKk2m58QIDB
U"I/(NShOFXYExI=Zoo-]L3x1a4tR-1$\&T(MwwDffw:He4Bp_URhh/PU4BG;MJtH
U"nf,TZ6&dYZd6h7s0VBW#(>qJjydD094v(\e9$O985N0BN1rIR8ImI3u.a?2nE((
U"c$?L-O>90^B9%q3bsE)A-K#9ok<F:g_5(Xiw&^)DKf74zBtx0C&R]:qLYWa4ujX
U"3prG9qiWuo$od[6gYw%Mr(e?&Ok1]KH7[(EgOwa.u''lu=m[14cw2K\04T5w;WF
U"4O)&+UUT4afWp*n=v#CI=Z.Y5__lJu+ftKC,6oP+]=B<,*Tob.364=&/3c<x'p?
U"](gP]r\j[9bEZ3%Sy/XM%P;^i9q^]QDI^ZSKue&yxBt7*^mG_HH<BB$4-=5)fQK
U"Jn5:iPx#\ED<bRuMilTSM;]:PL?D:Db3_feFNy/lv(qMRhvw1cxBTp7]mVBYh'Y
U"mlA,.cU0<B\cR1Nx#V=vu=o5tunnB)'D:eLSGdQ<Js.h'GnFs%t*qgURPRJ_4K;
U"./JnrImR37#<':Su,G\Q=DeSI04,>%cahc1:(4Mf&GUPYtdF4YAx$g(^Gc0$?nw
U"(*2CS_f5v$(?wDS=1rjf%5jWc=V)Y4Kbec3JIj\lD_op4(\OlpSjJ5:fFb#ae43
U"z-]^g<RM>K<q+^O6R)6Gh.;*gZT%k4asTRJT)X5I1q7-wA)H:g-(Fux^ok>]I;(
U"V4_yEPDn#)[:1)D2c*0(xKcI=0F?PFhv6,orE+f2LWDboDX0m&8W_r?#MFWLpe\
U"c'BXH*8+v10Jf+1V/teQ:tm+-b\.<;7V%e3w/qXR2u/d%p4ylD2NDv5A%n,u^+u
U"KEA:dD6>Slx-W]:gzI7YCbbeAsx1[SF]=h)UE3C+sNjDMFjx;88kyL?x*rA-8l-
U"oiX6;M-k/a>UN2dgCp[:/tBr$\xf>1AK\c-(Z)Q$KYZSeYGKScpyig:_zMxt_?x
U"Ar..&UW\dsx';22)DM.j:mbMEZM)6l_b0dC]sOtWxz_xi?C'rVP\GUeWv#h*nL$
U"6s;bPnwCIZkcVX&IX_BB6$cda(EP=&UA_qr&.\uuFjj88lA8Cr7Lx_fFsdhn#Pu
U"_l(26r7dx4UB<GLifx94dH1VNikjH.RoTL:\MbBDpl4L:jV5Cgj^RsM'se>4L5B
U"YwL^=;/flClg\uP$c:Iw/P$5#xNCaDoD8U^&\Sh]<PE8YqO&E#>$yZDI<>HX6$&
U"8n],8_ozo4M\5mlDz*+-OFvZ&chv+vSBZD<LG=5l=At0'L.Yf\5;1JG)m^_c-.X
U"o7*V9$6f[nr_QXB:I[8/9(X]jk\&gkr2fj/qr8o.WFi\oMcAiDruC:2Fy=#3/i'
U"bVZttWD[^2(.z)imZu0=8dc)3+r53JTaNW<N-J9]'8iA;lkq?ZYa=BT[xtzTx-a
U"^)VYvH^fobRG9Xge<U9f.t:mSHr[A8(Ap6IHt>E\G:IWjp(f(.j\OnX&5yf)mk6
U"m]_S$ap(rvw,+9.ka7J>Ew.8(e6*.tFk$=_chd2V3M31nD]MC&+I-7gEppjr66n
U"kcR+#D]H/XUq0>J-X6;Ku=k]T)o1%I>BvZ'GYKt'_fy0jrk<0iN%uY\8^$$^k4j
U"=QWR#)ps+-j2kx)j,Uv2&[%I$Y-MZdeI2Ul+xS[iWmBUaev*[l1I5wXgk8K&m1Y
U"J2%$[q8_SU:2=_'0Wu^glF+=<TFkRLERxsP%Ho>=)xYhoI8K\3Z/KV9mgbZM&NN
U":Dtn'J%L-BrVN_?<b,3VB(>jBE3CMEcqF/7<*)JcjN6i$aQ$4l&MK]HN5<\KD,P
U"PoBPt/u3gtq\h5^6uTUc4]imS8p*e)62w3X9lgDZJMkP[aJyVx)i#qEfAl79k#R
U"m*D9o,?j2/56mLtAVNrRushU>Wb*s=,/wcNSI/M04<+[TQ\650UkFSIknJ*eHnA
U"D(iBxv#:aDUB0$&eVkp%N*c,r9H(QR9K8f6vlJNBjpc81hcBDjclck>f/Wc=^Vt
U"zl+LprEeh-)sKLTXo\)\Pz\Hs1XfkI3e^Ka>e1e,+1[t6\cO4&Jghq*jtj7IYpg
U"Z#e_(]SodDUdK-$Jr9qGlA&-5z6%YJa8-+v0TL4[khY]xwYnUo(/B#li^;MgXHH
U"t^UjAJ)*P:)JAuITdU#a+8F5LcD$$jagprhnA'-m5XcC<as(4[HH6l)TMlV=148
U"N&g\q]2$wZONC'%VL2=\nb.u03XUQ.'vTup%()9%%%%-%:;(TICxij:':%%%&m'
U"%%%.%%%M?1;5A=Sj'Ojl\iu#9=9<9o9E?Aixd[<((\%#nXE/.3W>R>k:?4,xPe-
U"h8C(LhOb^;jn*6MR*151s9YgLw9A128#ygDMig=29=Mv/tg#kAMvn1)IyGTSfoH
U"X'7#bL_i.-mIBu*wQ<IF/kZ$(>7RC4>+>GO;d^+GmCB?u*ZEA)^)b0d,B<s3U0H
U"pEM_imzeU^o0g8Xf(8Yg1Q\uxxR#69)b8OMPBo-h?S;JUBYy/6:FU$qkzUXJA)T
U"ul%[d%t%up%&'9%%9%%%d-%\+e2Fkr>yI/%7%%^%%%%0%%%%%%%%%&%%E%%%%%%
U"%%%knqj&.niS.in)u%p&':%09%%%%-%6b6^IH=$bw:[;%%Q&L%%1%%%%%%%%%&[
U"%E%/,PX%%%%qsl%ksfr%WSgf%xup&%':09%%%%-d%66^jIcJ<+?i3%+%KR%%%1%
U"%%%%%%%%%%E4%/PC%<%%q%slks%frWS%ugzu%p&':%09%%#%-%d-*\I\ki$^d%+
U"%%o%>%%0%%%%%%%%%&[%%%/&P]K%L%;=6M5=0<IWS18%up&'%9%9%%'%-%94wcI
U"%;S0j&s6%%&1Y%%%1%%%%%%%%%&%E%%%%qR%%%qs%lksf%rWSi%thup%&':0%9%
U"%%#-%;(BTIxi:j::%.%%m'%%%.%%%%%%%%%%%R%%xP%?d%%M?1;5A=Sj'%jup*%
U"+%%%%%+%+(%&&%%%'e%%%%%
END SUB
V2
CLOSE:IF S=81AND B&=Z&THEN?" :) Ok!"ELSE?" :( Bad!
SUB U(A$):FOR A=1TO LEN(A$):C=ASC(MID$(A$,A))-37:IF C<0THEN C=91+C*32
IF K<4THEN K=C+243ELSE?#1,CHR$(C+(K MOD 3)*86);:K=K\3:B&=B&+1
S=(S+C)AND 255:NEXT:LOCATE,1:?STRING$(B&*50\Z&,219);:END SUB
