'===========================================================================
' Subject: SPEEDY DISASSEMBLER 5.0            Date: 11-29-00 (20:45)       
'  Author: Danikl van Els                     Code: PB                     
'  Origin: dusp2000@qbasics.zzn.com         Packet: ALGOR.ABC
'===========================================================================
' Speedy Disassembler for PB3.5
' Run this code under PB to extract SPEEDY5.ZIP
DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"SPEEDY5.ZIP",4^6:Z&=17556:?STRING$(50,177);
U"%up()%9%'%I-%9qeLNe,.;7F)7%%0-%%%0%#%%x?M443HIZSCGhC\%F,=Tk5970
U"I$P[JR3*<59#JE#niB=sFoV=lC<6Z\aAha*$4?=gK1QlCLXbM,Px4Mjp+U1*DhQ
U"RrM5Dw.AB<Iuoys^TJNuYt>bk9.q^ndWsXJeCcpcdODGn6Lxpe6cjHKg?uo7$Kf
U"NXYeqOQ_,jXie7wMV-HH,6W+rk5HCh2L^=(H.SnhwK+AzAhq/x]E;i,EAPypdY=
U"RL3^,y=*b\gW2j1jWiTS?Ku)7V7f;y<B,%\9FJ%9e7?5</3P%IRRW8kk]V5lvCf
U"9uJ)NujZLf/nMaW#v5L>OTWklXw'<Z?O:RV$n]Pv.jO?M'+Q(pcpkn'GbwnV>2m
U"ZR2llmm_M6pW#TGuJ-d6+#p,X0:EhGv/EX83oo&GT#2=S$Ccbk<=*g$.y,n%(7-
U"NnRd,Pob<i3i11O4CTboAVISGyk1IE-X4T\+?j&\>otlqh>eI&e99gEs%:kZJv'
U"MA9,._mu*v9tccK+?\G3nhdt2h(4.TrOt.2>3H4*y]q;F^=x5fn7$fk+)g.M=<:
U"pa3%ZS:(17Q[2?XV'H-s0<Lg7?Es%MwKK/-TO*&Dutve:F%-IYq%BM_x$VC1f_,
U"4\aK(M8qXxE-56w.=g;+CRVl]K6B+$Sc;^l3vVZE;,C%q.5zB+,C^qZ699aC?T/
U"]ZLylw7DcxV&>0ZBM'-HF&>V9e=O*Dp/eQ>86Z,4q/,:e-Ojy9xU=9jv3P>Q=vV
U"vNJmKmx**#'lVCe;'f#ec(\'XC6Vq;d#PVoQm..EE7$nnd;^OIYK(V*35D(kRSA
U"3*+Oj]lnWr'8kn,Z$IVvOO&'PbCL]k>r%'(Z[3=RmNA7HA#N-[X6x-3GXB(fx1Y
U"%Jc5)gcP9ITomrGT;Q^J%PA)D?Mj(lv(aj*PP-)voZeq]9k9#.G_(G(2*WXjpvM
U"eR3ZeKJnQzUx5SZ?Q4>kPzo;4DMTA_JWj/B8^&;jAr3rS>Yt$XTuXBYNLL^6P_7
U"Ey.8dRW\(d/nCN/QKB/PY)Fx+8ma#qF_8f_SLce'0Ob=$X*64Vuo+v(AD3L3TFq
U"'v*MVEwP?Ol4CVJ'uT;-0-],Xq5YuBC3mar9CB7=1YQ?Mu5Or:z*T9tSL;C7/h^
U".,lM?W3>9#j65]pgADJ3dMUewDJatPFW6/^s6ZYvf9TWpy.$$Q(+y5vx'w]p?97
U",U]sNriClgR>dmvZEnT&BRLPG8(NYs,eKtTZw4:&>)mH;lfH8,m3q<+YLh1RuGu
U"aZ<El*R>v1n(jHhQ*l;Dhk?y/E,gDR9NUYj$6+h5\m4X3>b*Knj^ReIUni#_o[5
U"4903%bk]vkLdud^[lh0wy1g+]]gB)cE>\T:=UOIo_a2\IW)evS/guFfnnfNb,&F
U"\h\j$dj48G-xfNPpHrr]1R2kI$J>xK6Fc6*t.Km,4TqbkNRgHf'$tT*DGG,UdNG
U"TgWnLv/9W?ctnv)w$qhSbZV4N^?$qv4%up()%9%'%#-%Zn/LNJT)pGo<R%%wE%%
U"%1%#%%r0M:430ACZS1V0B],;<B\[Pawmy0u,mW$02L-aHirkqs+WUgK&d3r4yVF
U"MLB+&#Ifok&pm1fn\Zrn9P%jk:7_^>eHSxl/ca\k5rjC(A7YfiPIf,LMFeN.tNn
U"Stn8tBdP/2+Ih&&&WmtdwpZ8xknpd.vPt^xjlsd6+f*5.nvNY^-KRb-uBTXu(9Z
U"580^4jp>duwsDXZ5is?h/iMWStzvUpP3swEs^QtRzs(Nux62G]TB8rr_f8vr<J\
U"V0UQ&VSK=dkMusL(HN>SL)&CA$XB)h8EN;%Ck.MD.pNiWdcL%Sal.ppa57NQjc*
U"P[nN#N0)Ws<Z$u'>t5B9CsJ>^bmOZcn&f^:o1Qn^z8^5Q1twPXPeqshIkn,&vlw
U"bGTG>dj<JGGnPgSK<zl,pmdYnuD(8k05/z;jNn7XnPfX?%xzE*^=s;Oasc>SoNR
U"1:+':U%(?Ntm?4bKBh:nFrX*3mm\7DU2kz%=lVFc.9lo4e]4t.9_WO0LE?4-oec
U"7>*vDmCj(RB/'U<o8P4MY]w8EDacpj-ict%Kd.4*V6C<&EG?yVlOaw=O9-Q66LK
U")5Q>pT%?1X425>&>&7+JL)o#M&LAOb:+^V\qTP)#o0]^->#P&AGk\DbuW:ipK]R
U"gE;G:/U#Dx_19dseQP*XRI4m*':'*Ql[GXM2CyoW(r/ot-[-]SY$)4kt2uJD'Yr
U"Ay+q0/?/uU#]&8w7_&Lv1zOxPI[MHUSne7q%bi>*P4I?i2J3:;ekw\Y;(-*G)Ge
U"Xk(?'iFutL_CD=F=%UC^*B1ERq8bOE9J?C9LKNB8GaA3PHaqFP5eM2.GDrJ;/v;
U"t]3nJA?urTCEQGn;#Mt:FW+cn'uPtk')Ce2[<\N3X4VCG'D7#_';TXi9[?eex:U
U"BD)dzmT+UZtWnuf/Q#_*)L>KQUS,jl:fh'Kgo<Mq)pUu_*OBpdFKdRUKjN7UBH3
U"YZHd2hC0j52WS?\l'm<Rsw5A.,EG<#3K?9oua68KSOCRp0+LG(;]JZPPPm60qPP
U"u>NGTA1(cg&3I#UUelp)TjGJqo6-[qjw0_46mIQ$b(m[AHLkGW6uNtze-*A,'>3
U"J<PzD(yH+_RSXr)iFBIxR)5S:bR)/p?R+_aH5D(X^\&G0:QSG(h1<fLH_&S:qTL
U"jBJVbp.^mJ;YTtSI6GJUCi+D5;%=KgtetoQqMN91\-yr,7i^YVYTLn);rkfbCA[
U"8nZ:[FkV?1],b]'J+c3AHIlpuD1.z,Qn1c2gX;p1<&Y,[R[<Ur*:on^I:n0cPn&
U"2Bm27IE*-fT3gc:x-6b>Qi'h=f;(U+^50D)0_%bfPEY_Bqi[-xYr(MEIdxO+_dx
U"&1ZM%KgP71Ab4(j\K=]]?4*w%#22_6U,l.RHGR&48RYcGi[tEMdC;+^*0RxIC2M
U"vsS?rdRQgPDji+X/op'dDK*c:[:,T0*.AIJ:'^&^Z>>%1D6EYt.H9b)FK,xR:PM
U"^l8ELJU1g*Soi=;pZE5Mr3EvWtON8\E6/&*9E1=T%=,PAgD'c\72W(N1$uT>bnl
U"-.$4*dj_wv<s+9+OkY7RDHZ>4kHlc,>d&PWh1*otJRjXiV2,o9whm[HX4E/^fum
U"8'iuf[P8'x9T<\aHS^Y=x+\tfJ]k^SUuQ7:D5mR/4P8'0Ul1g3jv08PN,Q[LGaP
U"]8Z^EHv0P3e?EAX?'?^U1=#G//G#oV\:G)\/B#iGQYk*c:mU5ii5Tk\d'=fX2#(
U")9ch9r7XN;qFqZ>6tinAlu$/-Gw($'L5]RE?g]r:*-9eD1Xq\pP'S1:eVNeJumK
U"#PmMtXR\c[&AK()(C4/FAp];3u?tb<9npb:iGW\DzKPe5U=r6ojmjoIwy?+,>&-
U"h_ODF08bp44[9g=fQ\qet9av[=+GDNb=DpFUiN]FGn4smGokYx)?6u1pEq[d]/:
U"-BLf9?qPHb\[k^Hg%b.)B*Jl#:P=IA#i2;2X<NiAkf*(83QS%Al+7YbB=aOod3A
U";-vG$YT1k3E00U,]YQ^.ooa6)_lC]=H/\BAhh8VV^8uCb]in02ZE=.l-D9v[.$2
U"'5McnW&S3dbWYtGL]_+0_hqAW$x_IJv01JCAJYRt^>2PwUpV]&0cqsHjc.gm.Op
U"IF\BPK#^N\hrEbi^8lhldZygSj,QItz4hI.4gCx(1/j4A>=UEU))V,ZW;x0*if0
U"vYDr_=(&\2&P<Sl8ETa:sI8ek,s4/-Y>jqVI1zg+#)1ewT*qDKtL--.,$VB\Bh[
U"j4ZokqjZEc(d+tpGGZRG&ka1*s508N.xI/T)T9I4N-sMG$^SO'+v*$(o0x,Y0ER
U"[vJFJMEqVP.e(PI%,nsIm^8^rS'BdPK,'nlOG5PC3$M(c\G5K8(8&py^>fP\hA4
U"+'P[Dd#B2WSn]ntl?BJV?i)4q0f[FfF>(hY<N*Ws0afc'^4JOVf%1Y9W?.Zi\?&
U"qk2v%X?G=9ffZ5YG1#Qo]&?B\:Fxe1O+Wn7J?YYRB#2&Okgd$VJ4]-4>2&k]glk
U"_7[)>(_[r8:'Q,,Z/X39;+BMY_2wHCuF8bUm4nMQE%)Du<VQC[R&Kl)'%fFfF0>
U"hY<CNmkO8<-9,iQ\/ehRyP28H:tnK]dbM/U'+1BmOU8q8Q.kO9SqOLrK-'%TtQ=
U"4P_H2cr+?aE.]GQKZdbMIo&Cj1?zHakZ+E(EP:l9Cc$i,C^mE;GY)^adi4-b&iH
U"#ltjq:Tu1SUVfVfjnB%rG19an;PJjU^4d0d5OFz4b'/fUA=)Xg^iPAnku_hC;Ih
U"^a=pQ6'/T$#$#Xf/0N>GyW[Y0CI$;AawirMw;osSmykx%7z9vV\Wcske=5%;v%+
U"#&b4HBN%L3kOX,4^$:42eonz<K]t,hof?4]B#Gh[+csZVRE9cjMACq[cE+LfJa6
U"^IBqQ97V'AmPmg^6Ff%,SdSq]9J1bEK;5eRq+-'Qe3ORs_,qJ=DTCq,s,?^\v[_
U"#09jp,i?X<,cK*2t.D?GT<R7Q\XAjw3Bt6[DeJquR;ewW::hOUZfIKVPorg%]6/
U"S)]%oHK,c\b$<Nd.f(4RUG\$I(F[2qtd,tA/?<\]a?\%=TKA0+jIRW>4#lXce%;
U"oCORTOZ%oh97mC(?x*]B\S&m>fO7-O[%c^^oGyC1ktC$\c1zr5EMGyHCE7rI'rh
U"BJCy#kniYLdBpKU2rACg_85-2.'F5W8.z6sP]skicAP9C6Z24#vCi\*8^M.D>f*
U"W#UXA>*eVq?b-c)]RmjhOJs)p_u%D%x6eqIfa6KIMg24+>%zpfrJUt'q:kgMM;q
U"^V'C>)^\mAAovImeX+ua7M5Hi[zAsLMlg+8AY*jZICS3tSH,1oCBh\;EMrq/K1f
U"4m=>:^Wb+7b,=jvU+ZNltw>mVBDWV]3<AXo$'i:s4+/_DM\0L*g)Xkq[t&RQf7H
U"=/UbLy&&KVR'*d*kElqG9QYOMsb=oU<KIzkWnrD>oX<,Od&v[r<7?*PV8mmSQrT
U"J88HhGM-..z=%=VH]P_vmZ/gnmJatf?ecA*;_41Q/27D;.efO)^SIzJ-M$H,8V=
U"t2'GBj9+#AB*&s=Y[q&wMplh-NJ7XD'f-HV8<v[n<M2_K_Gph;bUw]R6xtHgZn<
U"b6=KhMdQ-eF5,if+J)QVcn'cn9#aYgK*_<YcnJt%M^71L8c7dX)\'DSH=sO.'h\
U"w\jw3$OP\-=s8DH&#b8VmdCk.5FDoC,)2FoD,M)FoDL,)FoeD,KicCH=)6rYHGY
U"#8Z&,$$H>jyAiEVCw&to,_f0XSPU+t#b/Ots[kY4L18\,A0yCP7^P%UC7^Pe%C7
U"^DP%C7Z^UXH?k9KS9hqw;Z28G9BHhsc4HxkIJB(3=dQJ22.;pqc($51(Z/K,0;t
U"6<oNHUdm%2Pb#_%I[%3m;'rS5(XrMtAsdFH&A8'^mPln)^KCTJmr)gH.:]h:\K&
U"b$(Zko.k7OcAP8]h:\K&b$(Zko.k7OcAP?r/)H.47(-t[<T_H[;^Vdr;B0WU(7A
U"6j[;#nkgHxP%.1?&D:9*Jx9vmdln)dKs5$O^19vmdl>Uw:>'>(p%HG_1M05P;O%
U"9Ns:55m_\=sBZ-2>odhjLs$O/^1l8A)OBbso8bIefmPE56[VQuaZL.&lZ*?+C]W
U"W?==8/,[[o<odyWh)w8RM;dK,Pe[9R#hRDqLEOms91h(zkEjRo<RDX,3t7W\9o;
U"z]m=_9xYKk4xU8>]:w;<;:w/<hPcRr0m8,))y$'pq2?4z6wvkq:20qrl3UT;bFD
U"&0yhKiP+N%XvA:Nu&3LO;M7Eg>5IeK\OO9_KBV>53O55FLZ79ECiv_WD(:;9kRW
U"g3fd>]FYKjwxqeX3hWL_u,TFs($tnq+ukW#4uq-eLuLBt^K057x(#SI[LdKJGb8
U"#y;k6d6;R_d>j$7HiT.,Qf)&sC.*TC/rId7%NTtsb)i<l]?[P*Z9^SgG,3_+9hr
U"xPZp^rtae*Q-fa0*FXwIPgW9x5W9=&HT<.K?\>22pfO)>1N2UUj\:wsjkU4:A-1
U"4Ki/w;uw2g7m_E-y:>CX%zzIc[RW]5,u):H.A;^7MgSVgTEo/Ha_*Cf::\M(jhT
U"iMoxR:6lcEP5&(wg2I2cZ'F;5;s^Xn#RltT]awso5dSlX)Hf3WD=/+P+mf,?^Bl
U"\55fFw<>,casopfFT;I_I#[b.?rMmx)3Q3[32H1PJnDm_Jx$(uWKk56K1\rSJ(B
U"Wm/ucch,aWEo<r:;y^<LjP-M/(Tn**C7N$VulgSU?lIpg8N#I%ton7)l0v?52w4
U"'i2k/-8zzE&7?#mQBA&#UaxBDbk$IL/nvO-jEKrjl2G9Xl21[40;X\,ABF?0j2E
U"x0phYn]cWUm&t)ZXR8h/[2<.ZaNIu%J_,kQD8]eo?\sN%\0xM\0x:HPWhErI^Sb
U"QU/gr<k7ISSFVquCN^+\i$'-]J)rl'9P:fDRclThV^zrtuSdt^QkZMX<G#aNM2:
U"\JT.P)7p]_.:0'ZjbWX2I^Ma%p4pC4a?$aoW-s?uSYTLB.xRBCO$NmViwuvdnvm
U"/bU(O'qSn0d=Bw%k/fIO(Nr\tjS1naqo.NEQy?*Xz\$x_M>zvrWysvsqndt7QbL
U"FutA6,DR5$hNniqiKeYhz?\b,,s)5o'aar,uumZl-\lZEi<86\l-JdX4ms^U%<2
U"0HlYckq_<JH4X_8q/<AL?jF&yEt>#*RO[SMaS.dQTLwG*g'2:cAi(d,dCi#H,dE
U"Bi8,N8D^S/;hR%kt[qA:m4AuI$:^Au-Q:tA*ux6UbiW=7*Yo>L;g#;>gLi#[I>L
U"h#:QoAA::h<G2B+33P[E$$[^YW#Uk;Y'_i/#o[6D^q)PRD_3q$RDO$qXRJ>VqBt
U"(J2ENa+EC#Sh_fUJlDc$G4p$R[+[Z*Ne6DO^qPRRD_q$\RD$q2XR>VhqB(JZ2Ea
U"+)ECShC_fJlWDcG4DZDi/b&3^p0'yzr.nKTPd[LI66lmIlVy#JKG_RGcDAd_QDg
U"(jJV(tthL)lPPhu[/CL-v[7NCWv[k3CgGSVh7l&o6AY'\)Xs+]\iX7sa\IFXG9c
U"qI/rHhH.tEo0yhfm>bW3<e8(B,agse1)2X1933svJx=rxpVxEs1r/e?u,m4LtsY
U")L;,M%(3n3,nZs-JT]MQBssSF#H2CesPm1r1A$ry7>Ay>:hEewxQsKtDtCsjsp_
U"DzBX(ZgdppP:l-ISq(2C,uk'4^pd-GN]wTG\CqFmPXX&Ik.>4>55NMZ^&Ek$0iL
U"6?uwHYE&$a3BZ*;-,7Zj;;-;ZJa;WQn>10)Q[E00Ao;'+)&OQQEm00A;O'+?P*E
U";MXX#EEUaX,&F&;mX#6MEUZVBQV*-)gRuKp;sJ=0I6*H$W'Bn>f20GOuw0u3U,>
U"siw8W6P0&f>;DGC-Te^xA4Ird/$ZhW_q4aFo/+ZQ5kO\RSkZ/GHOQ')M2Z7\^Rs
U"Z/YgOQQP)\[9/\R/Yr/OJQ.'k20C=\R/jY/OJ]Q'k\.1=\Zo5ZOqEO'(+M2\?\a
U"Z=ZOO=P'RP+\]A8\REZo/]PQL',2Z_C\RMjZ/'PNQQ,BbI-Pl'3]=.t^w\0&6,+
U"C3_yXX#94r+AvO'Z;?7Zj7S**jX]*i%[;*;-;bPTtiGPu&6<27Yk6>]ONB+CD'r
U"jgXZ=Xut[3wH\%EZW37wHlE%ZW3w+HlEZ%W3wH'lEZ_'jE:^3qPRDO_q$RRD$qX
U"bR8?j%tamjp3MYYeV3M]HY#3MQ[Y*\lqU8qqqBuqOjjb6,PAz6B1Og&Oj]yWJ,:
U"XzK;cfm(]lj3YMYYVp3M]Yf#3M[QYT\G]kQ52.O'&jNayW+4:*zGA#z]\C^E_Zs
U"Au9:m4BuA$:^Bu6=:n?F&4(Mnp(FA)Io>>0R[r$HoCm:XoGxO,HYh07_^FQ341i
U"hdo;i,AQ^Pk*,q^P5m,a^;:DrJ^()d*2J/oN^HgW;.NHiWB[NHhLW5F)&IWhh;5
U"?A1(4h&G.Xi3+GXEU$flJKwkv_Iw1n8m.;]'I6d0a1:#lQ%X7*F*edI;[]RptYf
U"dw3p%,G*hy/3CqGBl5:\I3v$HDWYkV,wAai(jrhyn3I5=Gdj7&0Cp+^^T#J6<=d
U"n7G&Sp+AHT^ifq7&_1p+xTt#^7=Gdu7&fop+bpT#^8-]xa&(SnafHuMAgg]b/[3
U"EQXX72KGaAg]80Q[ESX%X:Kl2B0vr1sbk;d^2AST\Y#8.2^m8(86wqDk(V#Yu>=
U"hI<8611qkhVq#u?#q\AS]OYB8$0LEvbgsBkOI5l]+-7M.[3+n/H0l)j:gWL=&?S
U"+m^RxLP5GZatN6Rw6c2?O::RTb5/j4usLeeh%/XI++4D$dR\N%;H3&4pIP/*K(6
U"Q#L=dr^#0CQk5*4tHY&+Oaj%(1CHzQHH5ze5VWyTkhhmxW2,n4jHcJ5acf6Wold
U"0Dc7kf5q:S81s8tBK;6>f)+'rzhrZNe,%<u'v-srHSWuj.nu\pwFt\HX9PVvjkL
U"Z0SGrrb#wS?-t8ue,0[s&*kRjpgOA,Kos$sE)HW\-,ibK,\d0RdTrZ8g/jKJugy
U"a^T.OQ][QoxD<$DM<pZiJi?8&e*76TuHu5vIMX#1.#+HAA\nBCgY8nYB1'BQm#3
U"6A-MaD+aA:.(t+*u.:9Yqo#clXE^FT]Php;[:S1;+&&3CgYs.(n:di(L+tP(fv*
U"XdXsG3d6*DIkU6REa6,n%7dHci&K+rj*nBcjxc2c>fMXuB'th1Ih4G/HaZ(<(07
U"15NYN7ZmPKF7]Kim$?VKH$()n%c^FKGq<9[d76q%S9%+N1w(=sUm;0_;E&Tf/PJ
U"xCsIG_cfyC,xCs;I_cf_y&w4uVKXf^5K'qkSiXYF8<LPZHcURo'KZi:?EhGtJ>X
U"1ZG7TWQ6O,K1zh.N?c&jR;.+k[11]K2Z$iV7u1frpkKK<tfab=r?4Q^0$\j2d>X
U"8GB-lh#&=-8Z\?rfk2ii>fsOrqWxm57[FZkRV<Xolx,&5Kum[Lx8^K_*B_J9(/$
U"Mm)ooPZ1Pp4iN%hs(e.5.9*2H&BX0r/*-tuO&MvpD$34epWYDKB-*6?SlEPoe9Z
U"&L]MWwL--Cq(7?03vI2A]oXHf:52x4'=L=gy0,+j%);hHBjF/BE\-B/*N+u&eD9
U"TPbNh(rm_C4X>*e?=P'(kRj>[VnFSHNXRe*As%%%up()%9%'%m-%P/n^L*P1Xdd
U"'7%%J(%%%/%#%%y4)BCUkLS0B<O:JHg\]z=#-jXbx41>FgR?NW(DiujusGL[k%;
U"gN87ONKS]t;GnkaC%RN+%70Mw;tcffn1S(l(k0Xx/*^]+qj2fHDntZ3G,L,ndAI
U")cQwv1?YpA;cZkuWU>-Clr'Rd?[33cG=)pS.\lTVLc[800E3rE5[>0Q#4HgTAw-
U":rd7yYC%u^KQm*p>KK)=eRN^1HgtFF4_Y,l'HlP5:WjZh)ak)a)ak)a)ak)a)aP
U")a)SC:1j'LV%Qd214'^7nGB8+nZXna6BGRPfB0hCA#;6LxPYsUuXCkH<2ypUO_C
U"H(yr_ZL]ni+me?.1k_S+=6>MpS.V6Z8.p5Zmj<b#KC8sl3)W[]>%.WGWgj5kEC)
U"h6(#GPs%5Q%WpTA;R#0+83lA+o3fJ#^&?XJn1Y6s]AZ*P?R257ADYpG^d2SP#2X
U"T?Y:NNw5#ZJ7OiXl_[%Jagq;/j70XTLj:#V91x-6HrUj*lSJm4i2VJbi9LC]/MC
U"o8_lH5XrgV=<T[6jw&GqaS/m5M)LtY=q-4aftVIXWqg4LL\Zs2w=)OGo1^9R=E0
U"L10MKHU[6$>BGe$i?\;abhk3j<UZgIJ<]Co-#\?W3#g4ipYJN\\<8=%iVnq4;(X
U"N21ygKDuZ>1huG,5aFW9,r=;_iL;>ZFlu^F>b+_v9SK;imYGX(L7E;+m[Q;p=jw
U"jpq%mQ8DSZt=AFc^XN2=T'NV%XN1q\W=$e1R.)e]T(HR+vA&GKF\KiDFKH749*v
U"0uMM7bjQQ/i)d1*=ruETW[&jj-QG3v?;h[4i*b,e:;JQpbxQLo&BeA9PV=0]JWW
U"]Yjd>.[==#>.[swSwO;xWN#^JsZZx=x6%%up(%)9%'#%-%O'._MY/P+)K['%%;%
U"'%%2%%%%y24BCU%URkkLS0B<j:I4IAd/9T?ZP?AM;;;;q;[*n6SVlXkE0&^j$QH
U"f?ggg_cQf&eWg=6/jC=hnuuT,oSm2*W7rA[7+4[L5%mmG7MbSs_%qI^N%mnOw:h
U"i-7'bmt+(Wa.W;6$BoO[+bRDk_0A+P]FT-rAt&.M-TyI/xSqC9r]cDOa?t[Mr>C
U"Rw3C&Mw'xAqdyNwMx-r5l&SDcWOzXo;0r?rei[:Whq4zOY<S/:EXpHlKa1,o^PC
U"(3fL(Io6cVvT?vaH%d+WW:^10M<a=G-w/4Ir=S\33O^SqpajW3Q';q:=)%JVge%
U"1m&^So)MO(+pE'1F$_i.mKs5.w.8=&/-=GDUSF2#M=OU9?=?WG]jq/gGbgEC9uW
U"\Hbu\2Z_%RBl_Gj8V/0)$1jZfQG,/A%09o'*YzP%,$0m2)>#L_RP*0<6m,$R>Y=
U"o)f5LeV(\?53:&0]'lKZ=SR^-Sj;g70h)^g'J%D0QN/DYg7uM[x/yng?#ZB=ns#
U"F?G)6/k2k$#4<S-6[kd-%6FGk)sWAv^G9i,]))p-7Ip/9+p.Y#G*)j*i+4**Lz*
U"B?.)lCI(lE9lPD-z+Q\s\jHU[[Fc1Dbg3lOVaB[VtGfCXml;Qfi/t-xv;X#W7JZ
U"xZ\vrH.7w$hQP1nqP2+Pz1yz5H:OLDGqLHN+vGyqvLtwu\$(X(vqgy&[ov^SyiN
U"wc_\07oap7eXP7c:&N%up%()9%%'%-%2JoLN<A&Z+%k#%%*CB%%%0%%%Lx?44)3
U"HZSh8=2=javBTE/ad.G6sd/49ReGBSFN*VedAI1r3.$Wli]tW2JP#ALBwqJ;[qw
U"Mac4FfWDN4'qE&'_s7$2,v=[je/<Zvn-%]:k0bBnQD#ZZub(]gH]AKVJ3?u-8ik
U"wW=miTKn,D1/M<bn%<,rdW?epXBiuZK.uH8Ca&/)gcEXUNPKxC(Ge8kUoS?euVp
U"Qg>lbOEN.d&Hfno(kp.;wJ:d9?prou7>*]7<^3<Qr#G8K577AA;/_aV^dpIIF6o
U"-Fnm:_oHj#s75H37DB9KzP[rq%I9T[gUD\'gVX0Wd2b4N4R.?I&ph&<4+W3_jb8
U"9$.al&?hZ_VPE^&.8VEtguvT*m[Wk3a%OLnKbG:6X5,'[,I.6Y?KXF0_I+:6>ne
U"N7SzH:JDx1Q,TGb2$D_ih0iUj(oo3)B_Mm-SH#aeOE?hf7+lFK0tS-dXIZF<=kI
U"tCpn]qxDbFokW1W5?1^qcEUFNtV<htZQsbsd(HNJ1u)<$<dZ6t#WVklRvjLiB&T
U">/q>g?XIq+j11ms1%m+IEJ*/RRn$-7?B:MI9YJ'a,][i?_abPdd,qD^''cppWYp
U"t'h-.0(^INnf,I+V'5aN(Oh(GpQ9vF_auBW1>453VU2I#J4VY&D9Pys-.dp5Bev
U"pE9u4QhI>.?,T7Ng&[jv5mf)Q)J]'YOsG8>.5hf^s.&_b/6W#,9ri8Hn?53NoX<
U")ZC,GVo6*(TF?Jb)=Kg$8&w=u1Zow;O:I3.Da5aQ5]:L;l%_/S0:/ST4v<_Y)ou
U"'.0I&CwOQFHR01oCUUI^ZYSY)agL3vf\<qPY>LM;Y=A8_I(1quf^%J1r(Uou<&T
U"IXlK&5Pef79iFI][13XeU>Pwb#k%V6Li5:E:;/M#Uy2wSwj>7Hc4r7Hc427#'y2
U"7&yj*Y4J:\XJG)nohNg5Y)4Aw=;U5e6lIak5DQQl#T>m:r2gp/eo2ipF&C*$wED
U"rc%CLSF9%em2G6m1RfCXI+R5*Z$m<#pN-A(+PWuOV;dR3+F7eyjEj\Mocx6sjqc
U"Cy&*%%xl?kgj;xd:m7(G5%3Eji5\flGc_a;R;-2??aM<zF;UyTS:1//F5ZGkPHa
U"YW605X8GWtY;FSUL/JOQ;E#i_E&I0I<P]j&0:\.8_bH(Dg[+ibs;Rk&]MSBNjo'
U"[Rt(9e=+:])JD%JsM8P]d8i+UnRX20AUa5DDs/Xmw/H54)313Sc(_wcs<&Q(e)h
U"t[*O;um=GYfpW]8e)g'?)gazG^?F$a(IF(.PDLOHSDSJ>>h8YCd^Jg?P?\S%F%^
U"ic&=y9s<&Ccq/9<(4/pWUaHS\\PXE;-OjCF8qQ%Hi&8BE6yr1elyeJO^:P2paUe
U"PuYP?+-A$>SDBtj>7gWQuk?##K4_Q_nq-[=Ym8GaQjR?&qFcPZd_k2>g_6]o[=L
U"%8:jG#^TT&8\Gb26MXsZdYUCu(d4-w3)*mFEe7>>ZX7+dQ&en*([I>6;%;.%\f\
U"N<,*k*5,^=S-2iMhH\l7B(ii()<[Jq&>x$QscfnK'&kj6^QLADG^hv?JhG%r5%V
U"qp,3*m)=w,&7kg$yK.B]v]hGCpM(Gw^cQ:0Z4oIR%a-nKnfLl_Uob%A;q*u:Qow
U"4sJj$WOi2fSEg[2o[:]Qb^RMXnP0KplWNRCk]E/mMtR&GxMuT]orO>%-e3;RXhq
U"=U+XbBAH,2<tl#f9$=rY%u^AChcK25)ut+Do2(EaYe:^S3]O*&Kj\ZTIE],CrU2
U"d-\*,Kc^Gi0A<9:tWUDD#g#uwN_/'/Ds7BA2/OwMsH%BJ/GIk\[L0;->ihFXO]O
U"Kck9ce[NR7uVG-*a.WM%MwC*+*2,DfG>CU,12g*/C>omqjV(9C1tfb93ftO+Q]_
U"WQ2JLvA.ZOV6=M,o*QxO2I+B6/C^,8g&2xUN*450uLTjLoo$:_-MMGrujhwR-O;
U"PhD0(DR8UJl'R>/wi$.j?$sAW0r<LP5Ng_#HN,JvS(>N9S5g5&iS7I71gHCMH&m
END SUB
SUB V2
U"J19\_M^Vd\FnYRpN3wOc:W)&V$mdVJ/&9\f_,2yPbgMZ?VD\d3V0=][,YPUt*?-
U"?Yru?^JV)k5?esC#JjHW3ddrkJ1m/OG.KjW-CSkS4fZ?tt2+O(HN3h3<fEJeLcf
U"%J+)'?h,pnu:t;-J$b5on^/)XcbO*$LJ;WpxI6*AH<i2.Phk0Lv&[R\9Wk1dhlh
U"di]T:.fwX'J2d'[.f]<y*Z16Jaf3qtmedSJ0e-X58q=(&PS[x(*)(kfyOhRs?^<
U"x]=pV.0g<;/DhIsOrdK(.*G9?Z',</iUwgmTh+5#?k2E,414f:06m^J+S2]el1N
U"=j-GCNay=:Z=42r'YC/S%Uo*P89'\1H3l3tn(-6aXj6D^P_nb_OLfwQ9]KAW4?l
U"%&hljTFPCpaT(.o8gi*w*RW;lAQ3*T=]9=0AFN:^<'#m%1*)k^DA>$H0CedMsa7
U"n7EWt+0i*CS)mg%Mx*1&P94=*f0V&h?*wP.('#^9A$%8WE*$UO>;;OMj%7PN&\=
U"12C.ohTlubj;.v:7gNqtRu;RDh2f_AG?DTIDiW._0<8M7EmDc7t=U6qjrT;_4[-
U"ZmbEAVwy]>aX2d';/iPGb+bEqZ/rS2NFsX(2KSi+>?U<NIkf?fJ+btUYRg(%v3<
U"Ng->'3RF?qX$pVE+lcrlj]NP)p-3]eVqjFMdubJpHTFc#6-b^7K0b=H-p&?c%uU
U"XHL=G/QE(0.dag4\4+rSBQ,E4beNL[#]HG1zkEVqVF/SZF#AA5AbT;]_l9M7t[h
U"gLp7.+xc4RGjJ'8TbwgKx;2q&NIRxC/245BW+K_T?6QIDQzGg1cQR^gWor-<VHD
U"st:x/N9<1cTUmo32C1umsd6)Q>f%bU51O9F=>WVfW?$29O0P%OWI/<UuLz?n$*8
U"[WZfm,H/V)\]6)*]Kd(m#Ru$u&vM_09J76YK/hgvy]cHc$4n=SA$DFTW86PV09q
U"CKz>I6gMA2(?SKVcW8Bm62oocAX5TL)g&+lAl]Z<0:r1As(UmQ0bo8+2'^4WDhv
U"#eb:nZ:oY/&x,9t-VlM)9pCQDx+60#;Ol1;3J(.$%/Noq0j=\Msl+RGn8XD:Ip'
U"xk-5R5/]MS8yiK4+JAaJL8mDftV=*[snu+0'G(ASo,K=jIW2dK=I-5)5Kl>,(HS
U"D:N<&F5)U^B,r4jr-_KZU#7zBHNE(W#Gv^R*QK%zPRA*a-.+?hBabf>-n[aEJ:3
U"sGuHU/$$iXB^4^WEokImU2S>bP.I,odqz>r1V?60wgen.>fpDNK$Si),uTbx>F#
U"2MPsN\Y?b(\[H:0+V#%D(ifGE3-PJfkunk'9>;rQ-Y>MAqVV9s\mnD2;*;c0i^D
U"3R#<wt7+bBiQ_FcjdT6VI,?:-$jYW;jghs0E'qTrLUb:Jy\A/vZ&GbjC.gh<uiU
U"1S&n^[bc+(0H\'C[]$0-HJNn'sz/'2r(]$>3cZypOVR,pO#-X7Cv/Y(qCsRL,Al
U"MLnVgb_,G.+q'A1GqOzNiQ2'&#8D]l?Yt9.hi*a4KeD_$BmeWBhlRVu;a/v.cr1
U"$B:#w75C2SQdRK79j#DDAW#MH7l8MeiQ\.)\\pd%?aG>'[RnDK[H_uD<NrRnZh_
U"^\;*,QVb*CrtwTQL'9as?V/G2E;x,DFO5%ncdgi+J#S(p.,K0^g3gq:*&UvY>se
U"#0>z2eeh'EB<QQ:&[;BMk*?[4[le+61I>cc-x>3bX]1rF]r9nTnATxsGxLqB3u?
U"fi5tk3<X^DOVB)<G(G+2-x?l6sCHZ>*7[pX(H(-i7#H[]gzTSZ%+n30eYxw#kj]
U"5SCy#)f:lUVq<'4]%JxZrZdo\xEa&t=h-fM)EC5ID-x,5)R^ExdW+djKf#T\BCa
U"-B3n3:YZ_#nRhCy0c$^V6W_IO-k=D4eub(5zze)TRT/.7?yEGO_1rU%;;3^m^L^
U"%l.bdo70AToD+a?7W_TAIQV2?Lsc0d:zg0#)/=q<MkWLH$twQ0O_8:'BC$LC7^w
U"kL_y.g&)<a6/MCv4CLRvAhKM>9lt6DcWq6;ZmgN)ACjI_t,+UeeGoKBLuhRXS'T
U"=V,R0Da$Z0rz;IG2KUnVD<DDZmYVFN&(1*tBqBYgLY;7_QVlftR#qVKI='7Tb>r
U"bc'2M=8QajL:b3EpF-Iz0ZRvOzY6'*1YSM2Wdmh:/WuiD7]3&Z'IUV]^i)7QrS\
U"?M&lc3[*KWl;d,UPYFkwCgD3Q\uz96[&0=:D2?.^=[uKWtK^>Z\R[kutBmbx#QG
U">Fsa6D*#K6n\lCj3EbU*,y(r/1EHwiE,(+zO3U:FHHrs8s]?vXemXq>O=-[w;P^
U"iwBoCk;Be$+-\]qZ,/Q;>3$Q=()pJ>7XXBJ(q'3>CGLvGz:l.e%0qVf6O,w>\?a
U"<Z7;-EKahP%WXRhr2EiFpLFk]T+$-Jx$bj;eHDw\9MnS[UIdp[_;,$fq?-)V-I,
U"OZ-'()QeRt%N(T^%FQT+3s8k;.[[McKXG8jjQ8^&tb^MuRglR86pk=7o?,-v?>u
U"wSm>V32gKH(Syras_^OorYg-^hAPHVV.d<fC*LE(KP]e&9*irSeiljdXNpMX=&^
U"G?1(EC%)w5kIA,vgof=bE-YUY1cQ,nTO6tK%\K5<b$1m=%jMSelt#lkAaiT3WjE
U"xET:de?(,txspqS_Z:vAGji5,k74ABJh%j#bv6BSkXMfn=e'U4B-OyPROdo^SB:
U"WGb\>2ra-+<*]/EIBQg4V8Xx6g9&a9EjkBrhSXvpr;_krtp1HD&gJvCqh]q[AAv
U"o;\AW:([xV+eAk8GT9l<X1q#CY4qK[Be?A$w_?_dBVtj1K=k7]v6+.L.dV2^pUf
U"a,V>bb2L>R'K*S^1g\U4,^uDAr9\M7z2CggK1g39Q.&?uc\zaD(+#Qqds1AYGug
U")vfd9?96174Gq0?eXeyo,Kt<8cngv5_m(Yi*n,J\'K7Sq0d0LN]2wyaV#p?U#AE
U"*\#f*c&R;/n7=Ss6&Lj&IeIh\mjqi7Tj$CB^r?*PiciXnvNNrx)D*Ai=P^x;G0#
U"v6iDUm)gd.axLG9(rmK5UMP#JFzK2YY0tk7VR5e,>_;nP>\<Mo1nJJO&G??))^m
U"Z4ho'=F$ay>5VANunt\$aJ;o91Bm-ip\[^f3*GA47cV8b/6pNVVrkr^am#u[e$1
U"e&RMxU;'Y^eMO]EMhVS%UAcN%v;/?F^%m/:s&SQYhqxT-;d\&G'mgiEk,Z^6036
U"78l+f]_WJ$XLt;+TR#ao.g1NOE+s_UK*Y6kF*J?WTU#DyAQY:B:5,3:dFx-+Ar#
U"F;qlr$_VPbXYPKUauI>XBjL06K=L#ry:]&0f(M8+,:MPDlWut^I3O3le1Zt/Idm
U"w1>&^Au8VC?&-l9r/iZClW*>dc8#H+Rg.S1pvTouZ;g_/$DW%=?G>fEQ)'c4Hkx
U"qXs39h2'X.GXn7(bOJ.%_?OZ3y3BpRP'twoI:wq,/[D$-CGS^\DAyixhaI76TPB
U"Fhhnqj+0QYRhyLhHI%)%pad&bYm.B-Z^)HR^misL,lu+6eYo?uX=+)p9ED#_4uk
U"JXI%pq#t_;Q$AYveEWWsP:kkI^dAsEnKd1CuP(J2[x,M*&iy<(+:^ez.fu,7'aj
U"fV,G*1RnvdM)Bax^O-L[xy\SF1FcIBR(p3?<LB4?)r*$l*RCUPh65G5jC*62RrD
U")FH,MI-o7E?bYy?1;N$$9k)RLK(Lr(WlS$)]c%jcBC(bLikf1_SYW7Umn*?f#_t
U"Pk/(dkZC[dS<;)qc[*B4]'nk^q;ull7uV=b)sgLn.q4TxrERxm*M,eTu,*,gD4$
U"/h8,pik_7u[:8A4H:fS0gr8p3B_nISdyk0PkAR()wucN#ix=T#BpN%VXvZnDf/$
U"jaa>TZ\OD%>^t?1rMIT^p$lTkRKk7^iW0v?Y_8V=jt7d)P*TEt'>G7[J)I33Y-v
U"L3N?oaj1mPaf_9C7PJX2IXIlz7F<,1Cn9T\0c33A>q8#rcsLbi*vpERTk89r7<[
U"Rs63KU7?nXjMpK3l'8#EC<S:Ohb8?Wv$+FGr-Bz8</G8c.F>An\(.J(b%MRb$Cf
U".PqZjY5^(c<lK\Z,6FOY4?AHW<E3_tZ)z4-z[;I*q/K;L6m,mnHWvL3,,OphvCm
U"q,P[+m6=;b5rX5<CR&Iaxo,:R.]/#cU2.t>Og-Y;4NrnJ)IQZ.UgWVa^8Ijc.33
U"GwuL,C#TmSR4kZA?73w)L/jmZV?$7pVZ(,E?PeO30A4B56ISj*DCVJekn7'_dCG
U"kL&L(P*9;*;hZ0TDF.1U)TnRj?4<jv=/i4t6LaG).Un4Ma&ba<LSb&I:'9uET+N
U"EtM:(:q/pO<Z#O>fHqEcuNJNBA9DwKE<Z?7$)=qdJ9P?5tq+#?Vd;<*]CSFar.T
U"b?\-HA1dNc?sYH86)>bs7sTo4qkgTl#=;&1sN[Lpa\FZ/Bp6\hSJ[x1SQ$,ZA?d
U"h*,.*4g5OZ;n%M/SlsCPmm6/:AjI#mRaKZ:O;7R5n(nUbIGzaJIUpo+.b9G>oQA
U"6]v#\N*q?D(\$DiSu4FYFs?,:-.#W*-k*XwGnI97-q,i^D*B.(Q0lSri=vn;rrj
U"lO.TDvLhEzSRdRU:1TKEqQ6AIU&Fp0lx5+g\$b[EhJ?IvF:IST3^n+^20Dq%.ET
U"5lNP?K_laq2eEol#izhigFKZm#]>qus8)tT_Atc7mc'F-2Ql8]=HWjF_87$u[2)
U"n#QLRU%fl*7'6X3[l;TN)ETv^7m/Z/np,Vw<;yO0TeB%+/BQV?LW.,N?4-7Je<%
U"NE=;'tM%[ja=AL=kQ*ARf8G4mWA5SKT<]jnLF>9^%qo\UB%mA+lVQ(X7%E;\_eC
U"O&+gQkoa-f:S>Mw'TDH9YN,^>Qt0]<],2ocX7]?Kp#b.$a?GxZH(dWT3Ps>2AtT
U"yohX%y7EIqh;?tUjRiK.k4Qi$C#$WVdwg'=a$Rl>>F]_nb:N%MNn6_nG??Eh48s
U"JgIpj;q]kf3'IDrN>nn>*#CRF^03HG->DTWeZKTfKxkQ]BN:..:p1j+XqQ/>?Gu
U"G<l&7(%OipWK'^;]'7&N)mra1KQgQe<=f+$q:Qjwh,5mj6D=Fl[aQ0E:&dmMOF4
U"?d%gN1PBX/<B'<f\1EEP>eC<HeAS_/l7%h:STr6A\=2g:>PK:Rpe#4v3oF4kiM.
U"cuQ-W60u2&?'gqy)W30OPXLO0C&co4p$Hbo[ArYT..0ao4Jl3$Y%fnUE8*'.)Y_
U")p[T0Fb\4lG'^DRX0?8ur4cRwgM7vu&=N6a1S932cKMw*o=>OmGo<72)mV5_CPa
U"=Yjc4jd4UjGYsal#Zj)WmX[^Jnd,fV.Bj76,5biP^%?wLbAB3e:36uG>:J-9N9?
U"N$4VOc^B&uxKH4nu+kc2LoUrouhC:M3^RjQrU^5uC^#eR1XQ6fsY;4U/Vz3Auu^
U"k$&Swet;>Co^I5f'*RuV:YmnC)3BiGo-wiiXKuuiLtH^<\)eH(?L;si1c$NL9XF
U"fA9[kD&VJHiX0xN0<_[G2/.H6%K(>U7^t:Ip3ukWdHH\g7xU4Ka?tt:ZMhO?b*R
U"]B1f]nW(s8<K<8Nk9J3LU4gwuOwMy&GgGM63)r2N5I?.H%xD^&(v-4<.ZE90PI[
U"IDPO:NK5_32YNccOP>l:]'.uqptE1HWi0KZ8=0X>N?vdRQ;i<FGq;,2+>QE8lIW
U"(c7LW1B$T#q05__'M?MCQVCoXmbikCa9BOmNTKCb_us:Ntg4nMwuZhP?h%EA^$#
U"pbC*#bD[j8F]MueaF'QMeejM>VLxH2(h.XoF#)fl$h-486(K)<o\4bs_x60ry9C
U"G9FxHTeX6(q0ZG/,xE<lH$Ty5_[rVgK#phGXl$Utjq6r,Hgkg=3PHFN,BW>yMw^
U"L(&z_[C?O%NCGvMh6W=82Z$GZx0fMj6#>88Mj?$ATD(o,sO#KbB-5rN-r'dLdBu
U"[:%S9RtHoe,1Ii1hxZc?vbTwp<LsL_FtSs<mvLwC<,LuuxPS*-o/.('x/gMeQgq
U"5?O-NAl-/j-S>x.>\,K6;+_K9GsEuwVT<[_$;DlsFkLQ6ttKjR7/vdFefsaDx8t
U"(+_dtGA3S;E#Ld&mI%'8j1GZJ$Tx-+/j9mdLaCb']LaZZdDZW,H&<YbF-GF+bKT
U"=[fF:az&n?7:O-(V0Tv7rt'cTs#T)kSw9>^kbB3l;UxIYD=$o#nmN&Hu*A\FlXS
U"7m?\%'AE0]3v:)=,JWW%<O5bUF9^IVuAYAs0U&bs[#rmd0+9]n1ZmKg]L$*;Y.-
U"Ke1Id'EHCpgFJ/f=++2WDdHIjmV_Xs/\P1n-f^s<3LHG9Tub)JVUgH#AeySQw^A
U"K=ba?X=17M3RWRbl]_a?ve/Y3Z(SX0Ea3LMHG^ONzKK(a:2y5Xy/OZO^p+?;e%]
U"F,+ujHt1f?UjOkT*;;8#IN(a$-b6BiJsa2S3GU4_=Z<6L.,OT,YKfRSo$N4]_PS
U"1D%3nRV-X']s*aqfhAr^Mv7V1/#=oc/=+n^uc^Y,A3BBK(J8.\kvi[/tO=u3&d3
U":xV81(iC[pWCZmmq+r&R'I*7.H?=kV%z0$'M<=wPc>aul3MdggDZR;B1t&UXEJU
U"?97y4^Lp<WQd05L_r4osH(FNMSf*g;j3MP^A>bf0BL99d3L2/X9\sud;U_h?3.8
U"2dbhrerV/]JTQCcrW:cqrm3I^G2CuE3cgKC[lM,'mj^N7pNC?,MCw:x3mEJiO1m
U"g^'ZS-W*2.=?9?cUgCZg?-v^w?F2h=scuuH3xm>lXZoUpAr^8NlRx?+T5(++Fve
U"&EWp>WC_4o.mbc7tss(6QjwVK:mZp_:[:E5nJat-T>2.?mUT:jHD0s_\IrgPN6'
U"0Rexz%BNJ9q<;ys%U?h5d7m;er>hKDH^+.wjCcw'P4tusrHT6LiVBc'6:g\.\55
U"Z2-W(i,Ck25xT+4-'q,&uDkkZmU7<3x2IFhKF0u%&up(%)9%'[%-%g_qLN2OEg6
U"?%+%%M%8%%.%%%%x%ifxr%SgfxN&'<>]T[5wmCExZK9_],rTYf50-uy/cfK&vi)
U"D's/4U[eMewWZ[I?I^6=xMl^waJR,8ORg^EZaklZVB5K\VvbM&K]^4sZErP8-T_
U"26(_laNDN%I(FxO*FtX*.f\?&.V<o7J)2]gg1ssRIORV8jElKW];rFPYvlbCp/.
U"lI/Pt8/,QVLoRG;;=>7]9TGK6ZlIU-Vo7,H;Ph*EKM22Hg;d6*1nW7C)RL=$^LV
U"NKrA0l<7H$.H\Xn=4b^GCeF5Hg(*)+Z4_$Pn<Yx[;D3ub(]^D<h,FBVb[$?cZQz
U"<Q%$TXoa2G$'<v?+,ao+JZj6Zw2agpQ>U?aV\E(OB;Ax=%g*2A_8bF3IUlLi^H9
U"f[&$:b00L\n=NeR*y/S)SGY:5.R+S.8'.bC25UDL)S3boXy8GP>QtZ)Ys6,8vmO
U"5'l7U1<i5omy*G$g8<L?b$[fG+:AZ2C6[k_fJEfAIub/'3<%gj:-WrM;gq90f.S
U"c?4QO:O.YXV6jxw7>O;(Zh/<Y5k7XS/#7kDjxdJaQ:7HW.(VB0*I7?n/)bi[oQm
U"egQkOU_S:=qrAy/gqGA+(XuFj=SkQPO2VPPdK7QoGkH.[YDC;nsBElEp&en+9FH
U"YGd(h3Xq;97?P9WN6Q:K0$Sz?lC.gYp(O7?Mf/f=\\'w*A_Ook+GB\;3*;ZY'ex
U"'pofnQn'Fjspv%&XpgGoo;jgczvWAFRbRPd]8PnJeh7tnJn8iaH7*]bfbbHxO8L
U"irbK[5[/e?kQ#5>N<KepMZIi.*>jV/XdpMgN5Z82i-:5CPsKj.k#$4EW$<0z9&M
U"_f&lzq0hFK1<*:stlCk##BX4o&DI9K_SRc&?t)=tQh0>HW*ZHIF7^n+cBJ0z^^;
U"_#lgLj]^qW.o*21xWF7QAe=E>TrEZ&%YxVJulj[_0N/C;gy)/jnhym+F68Jj/cE
U")CKk1p5PNh7C,g8iD?g^_/x/;tT..VVqzv-9B;IUh'N$VnoOR6N7)P;[3Q=YnoT
U"$?+bcl,h+I$G0]KhmR)u\yt^.qm+Qt5QYA_g#;CCe-WUHL(X2R8^1A\%<_cw#NQ
U"XXJsCC428sa(KtA^M2vHIemNCjV/W_+xpz,$j?Gv6B>?iQsvA$:hgV3?,tsnu.N
U"sve9K9QjBt0SUI0H'G7hib<#M=+aKP<R;7Q5?mBrI6Dmf.8^1=X+2>#j6q;dKB]
U"e5Fmn.5+<AGZ_Eq_loDayMhTaie5TXYaCdTrCECeEp8'?./C)GBX03EAgVS3rr(
U"rji,Jae02z.-;jDcY-5TL4\tv[GtsDy^J)a?B7<HMfVq8H8zNMPef9iHU[TEn<E
U"9kIgr8w9UyN*.WnQfgl2_;a8H?7HYj4u(Ph'p+3sS4M8AzBY;LE.;/j^ujq/uqO
U"GUS*VG-b.nHuG4m6,n0kM+BMcNLH:ICjMnT2$\Xht)kcmifHE9YWa,^\'Jr'A=2
U"o8$%I:O[CUWTDi.?(<vmcplTFvh'ij-Ssq>bOZp1khDP6RuiR)<4BK^o(8]v<5+
U"VcoT+u3/G[-j]:KsZK7L4g.-3[Ok(uNDT7TBlAQQ8*tFt*?iq7%arq^2_<RI/Tj
U"Q8yg]Y6+Px$;e:fuZfIPPbP\QS[bl<Z-[deJW?G7uB2RSIZ_/#A,LX-IW5h20iC
U"#n5_h8e5GWe567TGkBM1HT8+h341LTYEcmv>np<6c\N.<MNu9Xp*j??BCD\vPD<
U"Ap>-I1+92hT9LS0f?H'XU=va:Y0=*C$K4:gVBxC,/'kUtE7eSy8u[^<OMx;l2sZ
U"vh+hIv]tw5rP3D&MFKP'>*s#5A[cgd2Is+6bA?A--Zr4/8W7jK?7FQ7LTS_v)T<
U"rJq;sO#U0Gf9DWEVszO_me*XdrBA3*eCA,_W:P$I$8\(ubY*^DJ;WvMm7l,Y%.]
U"i>dginTbX\#j9QHPLKOnx*vyq%GRR:K_59meR:wp/';Yb?SH6jk[Sphs[.?[f7#
U"pCR6]/lA\%S[R:Bf#rZ$64;pKU%$(6*BLl1#Q5A]a2F/5)wVTWlk_hiO>]70bPi
U"4^W'qKw7**o2\[;KGNBR$V=dM>T83ShpoPw5.9m[HFFEwdQWyh)'^KU>$#c8X^n
U",->(<x(%up&'%W09%%'%-%29qLN,e,;7&F)%%'0-%%%0%%%%%%%%%&%E%*/P%%#
U"%%x?M443HIZSCG&Cup&%'W09%%'%-I%ZnLCNJTp&Go<%4%wE%%%1%%%%%%%%%&%
U"EO%/Po%)%%rM0:43)0CZS210Bu%p&'W%09%'[%-%P$/^L*KPXdd['%%J%(%%/%%
U"%%%%%%%%[%E%/&P9A%I%y4B&CUkS20B<u%p&'W%09%'#%-%O'._MY/P+)K['%%;
U"%'%%2%%%%%%%%%%[%E%/,PJC%I%y4B&CUUR#kkS0)B<up%&'W0%9%'%I-%JoSLN
U"A&'Z+k#R%%CB%%%0%%%%%%%%%&%RE%/P%GF%%Lx?44)3HZS28=2u%p&'W%09%'[
U"%-%g_qLN2OEg6?%+%%M%8%%.%%%%%%%%%&[%E%/)P$a%%%xif%xrSg%fxup%*+%
U"%%%%+%.+%%&%%%Mh%%%%%
END SUB
V2
CLOSE:IF S=205AND 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
