'===========================================================================
' Subject: TGUI VERSION 3.1                   Date: 01-03-98 (21:47)       
'  Author: Denny R. VandenBerg                Code: QB, PDS                
'  Origin: dennyv@juno.com                  Packet: EGAVGA.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"TGUIV31.ZIP",4^6:Z&=19956:?STRING$(50,177);
U"%up()%9%'%#-%Rw7HI2]+QL8Qd%%]c%%%-%%%%yl%znSg7fxea<TA[o>aHd-]xh
U"2JXc?Vg[k7<06p16U0?[#UeG1L_*mr1WA717Ru]?e<kMt5O1jyjUiggXRk\Q]?L
U"k(h(qHxCCTCOrgq[>7nNA^/l_S#i5MyBG?mqS0]1OWqRQrV^u^fC>%S6%?egNQN
U"u-^hTv;+l=p='xCtijis:2:IaF<u4btuuMXqENGb27-tZG[mMk2RlKl/Wk;i)l?
U"dO=(t85vi5Hi'fGdNWA;[zhZV$xuMCSEL00JXdsJ:d][J.-oi\bH5:1%wQC]0GB
U"Z:h8,EoJBAjZ5:p++$-vrx,>=>^/ba2[53#38_\DDt38uSB')sS97m]/fIYx0+3
U"azmAJZ\\Q0%++rvJ-n_5oAngcsL)yTr_BpxWZ.&>X(n?)<(b%B^P_OK4ud^a>;/
U"7?>7-qo9krw1*>c/jaQ%7D1,C;+RQgY';:/_dK5Sv/ER2D?kE*TWIT8zz5sE2dK
U"Z7=Qo=38%HL1buA/DEgsh1TeM)&9Q(%dd*Ms('yW:a;ZX/\=D(YmY2)TE#fYT7&
U")58H)8uP'ZiU]%m?S(cJPRA_[5JinNn8'evzVE&-g7k-](TF)[]pd7.LNq<3vUP
U"Lt#cQsw6\>nQ%p238)<vKgIWuI90Tff4g&FD1C'/5<O0?D_8aH=f>u9\VbB:7M4
U"Cccn0qD1>g1C69iQnXeu]hgQhV<]-oeV-E3v1<<N*e3wjH5^v#v/)(_'S\C:*rj
U"]u,ECY_$p3\_(S5x)(&UCP(:SN??HO0pKTgIbD5S'as:*q]xS)[%TNRW>7s[Ee%
U"Y,Tx=Q2?_O_ZE?bnZ:2a$P6I^9=;HBY_KI'jT2^2.?hQ9FGNDk)ER.Io0W?l9)O
U"TLV9Qgq_a'hXJHk2+9]v%X67izeJbXPec4d?/S,?mWmeaR[Me8E\gTZXRO9r-0K
U"/'0Q%k1L0,b)#EJCWp3]%<d'K;8^n(i9v?oDQ#(IGg##ST=6EPeDU,t[#OZ0(CD
U"35%kfUj1;OhHgR#%ZU)Kn#g?4YJ76?x-Yur1V]J3(>'X/>WoM29[/vL3q&\:s(O
U"_68'&S>CBQ\mIh6E,ouV4ip?&[eHo5UM+MI-17[JD]jvH-t2QegV46%MK0&[5ce
U"M%OshADLC;B\wuD.gf5hQ9YkaXV3,EfKDJKpZ'2cE6sfVSU>L4sFGZ%BXmrnwsg
U"/iRN96]nC)Mq]gsAQdq>RG1.\AOg,camG#/BI0Id>0Tt/-/KLd=b/Tj)]pB.>:*
U"KqP3^uu/q\lN>>qZ\N<>Zq\.]6Xc%C80'<dIkCzh_[OoXio==t0i>FDh;,7QoX+
U"h<7ll1tb:aCnR(PEY/;mr&2jCaNG81]1G#YhTUat;ad:W*#(TzHCjkKdWWlC6h_
U"UyHJ#2B9E0[;I7p(ZM8YtXBQ$+'=3fW2NhlW0>3Zgn<?.U+*XZuQgamM.Ob^,Wb
U"9DMTA&>7:$4+_L=;Bv61BpSaOE=1/k<tsuI6L'[jV_=F%8sTtX3QidyF8L28C6?
U"QSdOS#up]u>)]Y+$233'CZKemg1[-iXMJh]8WHuqF);c;XgmO4Kfd4cS3$mt;)u
U"Dp#0ulF7EH&GGw7uqdBU4_Cxeg9Vc.aKA))9:kN>?WV0$_2TId1V,VpKcd*2j7w
U"&i9DClHbPY/d&,%vpDfzd;_.\_agsrX&/k7FVdr7l8q'=fA(:+VL6H)sK;T][1'
U"m^>qrf-cU9w[7d9+2[,^di*0h+_&04=$FwhuAiOdoVHKG\jA;1D2Nb$.J._%>Qv
U"*9JX.)j27/QWjh7B?u7:DsV/#mPj#QZFSjAKa$NA)#h%[n:fOAsG_Q.?Q+fT](;
U"SyCf;nSFp3j;Y9;Gx#:6H$QUR/;;'s8qW_$Ha*dYT#U]EV2J#,k=T]bp)&pxrb7
U"TVL^E_i1-,0=rL77RE)9oEwS6LBi/yq%uT5F46fvQxfyJps]xjD'L18ssqZcito
U"LPEd/KAHN4Hrn*E8;^I>BE(mJiCkQRG4:/cOUcSJm4tL>OWt/U6bpcg&T5l&^$Y
U"*\>Cot;;grW8QXX(^F=I/*T7V_/T7cuI#Uhw-0Jim=GN8Tr.V<n&dU1o\dD7<fU
U"aZadk2OVstT^Ij2v<QnKk]%=ib#'CN-Z':\9DDs%%[0DGm)$5,-S9/]DQb8y_9&
U"&b1lt<VJm631jHptSl5=1uDXC5'ROL>s*[B5dwgbgsJ0DwPsN<S=uS3=_Km/%4R
U"eS+7'5Q3RPeQw#RP?SvC)OvP*fhzLU2y^)dJ)DzhZkq#RQkq,Lk+Fd#WR)f8oU#
U"p4'ruHDrB(fi\/7T[*.rEwh_zOI*n]&vV#7K4[eqAHbOMz#r&?th;'/'*3_(/[\
U"M20%Y(YH2&Q.Q)k?3plKr[JjPs:a;l[nBkG69^LZX8<R*G?U?78=\Y'&$G<*=xn
U"u^[-N5WJ_YCiT/qL^'P&>)(\;:X2k%kl>d8)(S6'yE]-tY9[8[WLgV[V-2q$..7
U"#AcqH<e&^I(uE(.g^W23=lgP8a1kn0PS_U8%;6ld(l9WCN2ArWTfgP^F3(T>50R
U"nDFKTOM),V_]QNd_?.d+<uPgY7/UunF?w-Eb0YEF$s2H/lA(1]>5aRu1Sq/$sw7
U")Uu.x1>Uf.#gI+4LK>7ONN^e:J%L(Y.wm$G3tCGI>1JN\1LXD=tV?Z1T>>zdY2<
U"'Pi(Y2<HSPm<RJOUXgcMI_1%Jzz'qm(d:Qg;ut<nRajEp5#R#9SN(hn%pxB:gMR
U"^R&F+sMo+10H*s9tet8][e9M6(S6o4v6,iri1fw:-<dGblm/k<e1':F/Rsxh5GQ
U"^WPQ;nsTEY9.b4%UDf*MCj]Ir;_s$,(E;:Nsn12?MGE1J6K1sW+%W/Si.)rm#Z<
U"#C;E(<-MkLl-<%OQXUvjJ]0Ae>PqEzC*J)%4=pqNM,xT?E#SZ2:&];e+nQ[]q=T
U"Ma<xu#Fg3LCZSR8]gB;95T'M1u(kH)^d,#;_[n&M/<]Jak^CFteBI>olrJXcliS
U"OhS$*h)34]k_vVDz3D3?d)x];wJPI#nJ4$Nj<FoqO9$]/5-BSJH3&Vg,C(EN0F4
U"u5p$K&;M.Yl2X_jEX/OZS/[MZ7?dd=IbD:;q5p==B>Xhvj2_uqsExH5;CmVCx>,
U"?(f6k2js/OBa&+$/QfV;zk33dQGWay]$M;ZIX2=<3l?870-BDdKivCFC%UcoeB1
U"%KLObQ^]5kr?'YhBZ6+?4hhm9%/;ktsV)K>phEq<YzLjR1qJO.Qe9T\h[loO,gS
U"#b:[Dmkbm6;0q8Ylc.%MM+]\=1ACdtdgAz#;46d++^T1FpiDRj_E.Kkzm=\]]DA
U"hg_K%7^Zcd4prhqr#p'AIb=jIHxu9CY3O[<8[=R%K^x$A94kkK?Pu#&9od4Z<4o
U"O4xNFuJx_PCQ\Tmo5:eoxr.QqTNw*nbRZ>R2j5%'i2b7,?VC)a?'u'[M+2[U.pI
U"JYbP\W2z8px.T,VXIP+Cdg']g>h>st$oZ^(S.$=IlMQ[$Su^Z<2KOG(K5ylV=NC
U"QvDQh$\AOr<QpeY/Gqt+\0*D#(R4f7C?A3-RF,e+6_Y(]N=ZTr10]l\0AN#UaqM
U"J.66SX;Bc),HCcn_Qr,:Ze\/uz2p_E''T::qukB]XDLya=^D'K*nl.nm75OD):J
U"y'MAijTf*Svv2<<m0+_TlQ%kpb'^\1bz-Xu#IJgEYO2nEK<nE\X-U]X8i'u7P^9
U"-3a9u+IH+L,NJ;quc<0-p+1iKiBmT+K5]iu&0GZ2+Vf)VblcqmBMxPToC?gp9%[
U"Uvrp]bneiE7o;7[q1KN&q[:gZz_O$NpyQ&%r,x4v:h_hkX9[%xnb(Sk0c7h1I+E
U"Su3.W*b#VZ$0HgE.T+k:VMceS#ZM'xjr_q%6-1UrDpT:v7SmbSmm7[Lre%Um+.i
U"s1$4DvKkc(B^R#_Mq_KlP(G\u_&W7=io3'?9++<__(qkxfadRwM\ZST51OWL_DC
U"^#5PrN]JECU+(RQNd'[gY*+Wbq-Z%i_='FuVY_oSi_Q5fgkP21#EB\(IB#R5T_=
U"9Gj4v;lg?j_k=58g:kp2#Py2te>uNQrkz*jUBQ2(;pXE,9oQr4*qja*deIpp*Yj
U">?=m;#4rPu*j>O?4(7ie5p*h*%20l%?=R%(npiWJu:IP=*9Zj#4-PW:h**eIpp*
U"Y*>?=HB?S7J9=M7EB%[iOWl)*b+7]x#,Fi8Fd\kEKc_g)rROS%eKKU-C&5k=Ec/
U"[qej+I:^ODK&Uw.meOgtn(3pxqngQq]&-:.Z9u2^%QUR62*1A*RPD;h:)0*c%?r
U"\<=2C4:SHm/[)GNGa9X0^gV,im?hg1s#0]Oa9r6Kj-U5b6I'Ir9a^nYDoU1aaMO
U"o;T%Nci>1fAPMR4u'+h0PpZ7l)<%QpsH8#T:rKh#Zpi;Tah]t4Ri'J9J2S-DPN,
U"lywj[Z]ghcewQV].>D3d%+lZ<^+5L$)erDbMaZ<B<)3Bq;3H^ZYJ&uBR8Y?BpvJ
U"fv;G?M$z=p)z2VHW8%V:F4oE9l[gE3Qt'DDI4c./'Px7<P?vc/&$^J2DVSN-F;>
U"$\9mc(yt*TBHh8p/s5tpL-NH/&&TcSv?Y#'X7-PB44mu_*0QFhHdhHT^f?:I%4l
U":e4Z$((r=2r;_&ba4*]f1L9B[akv5G0n/d5P0Z&ZrAcvtQB.8,')?p-G]DT,0s+
U"4Xt_j&l9PHaC*\TqHcK9d5XZ>qPJpLD4WP-L6l%DW1Q[*O#erhgpsJIbEoNooSF
U":ggFe/rImpya)O_-OGj;r89ky7fjrd#;?X?Xw*%]$jq^#kNW8gF.'C[Y_EIcRh^
U"0lKngYH7AKoU\r1gjK'1:9[5\(>H^Hr,;N]GT(,I?4IZ(N:wAiDS6/pB4dFlIc^
U"tvgx)U&UHYdHQ^kUVZ8s8EQQ3%Hk'*.&TT+LNK6YDeR2I8/3O]frcrb06I+y0Fe
U"NsGtSx(Jyd\=fbI<%LU1IU5DcKbT7-E<3yVb.a8HcN5e=b56VrcF4ph_lC#MSEA
U"AM)%Ix:-1mZf8q*HW8Ir&s\xSAK8_+di$?ThPY]&13j+ZCRPK8W7o86,eg:yi#G
U"H$]Q<uTmjLk*78OFgZj$--f$kyXelJ+1%Ry6=wkR$7uI;=B:\bK2dFRbe-%.#H-
U"?uvY.r<K&;HH[tA4?PRjWK<Z1=5(B(Q7Io0$[xM8m<mhu#244U;L$\VFDLLm8HW
U"8XK\Ab>m6Q/mmZJ3a*\JAP^dYE6=]Xh-j#)IPE[iDSF'KC+_$GV^q_.8k7(d90r
U"q(XNEik-ie&)$Z,R1kM(d0#B%7o$B+Be1V34sHS).uaLeab](_PE;k8Rlbk0>^(
U"tornh*dO14F-g#%Fre>iG$ST&r&sAb0VE]==;:40ZWQ<p22fj2tR.tpaM?:4(^E
U"4VDM&ij8pGk\F;0bF^BWJk<4AUPmb\eoX+^WWkrB;FlY_BHJ[[+g8s\a_0JeVwW
U"FPk:EDg.FfBc->Cfx=BA=^e(SlA1FPqL/<-RdAWbh>R#(3Ho/%4D#Cra>o%i/gE
U"PUSViA/3$TrZI4Ty+YGL&F-6$j7bMIsh;x-)hG\S.'H(mu1Sanp?d%fMs\S'(&t
U"YZSAe99$>19MY,V-h$]u1h08tbKkj$P.<FEs3?K6n8eIL?ESvt_IOuIZ0E65SHi
U"QnyP?D(HEhVGg)<BM\ElYlVju't25t<UsJUtj&tki-n9kwq0f#%><%JRG7]S0Mi
U"6vYPikh-81^O6YhB>L038%rK\l\KQe$&1Negm]Un^Tsm#>[sGT1\bKTWbnD<ny6
U",j0d?UC*xG<'tJ$b>K#0Il9I>sL6d^m<zEw0R*KI&vh%;d*+6>%6p(;pvA)Oqn[
U";C(^nQPn<jd\\<qS^*TWOqg[f'sCf;8d%4_xQ6EviC[i\0F3#K2M-B0Lj)=r\.g
U"W.xofso;[pwVQI:T;a7PBR8.eXNs=8'k6UXvFJt/Az[J0*z_TXQAUEhgUYpCl';
U"-s$HX-WZ>[hX2e>bX1w8N<I5dA=4B'95aR(a6hZybM=B5r[qc*A\cxe5%x/$aM_
U"e4H2xC*L6rEvZI?68cg-Lk8paV:v)pJlc>[?fVN7;2Hf$t,QC5eR<eGn_71)GG5
U"A4.7JlH)[pF+q348?i2i[lw9CE(IlcXFiF<+M6KnZZSDr(%r#7.i,PvVXF5DWKh
U"t:hI.rX(Bc>5NoK=rqHG9lO^a$v5=i<F#uN$o9#y5(-t;Q>p,[J1hJ^b8srl=on
U"wx7dD,LMB#.M[=*ShZ>-j(ml4rJE0JXUzp;SsTDJD^5\?B9gAJq%+rjxmB$HOr%
U"?ECXO&&pyD*fKLs\Y+Z0Qo$9Y:eO0rY:V3h%VCMhd]*<),LQdvu>c_]98<v?r1d
U"-;f*\&mk974BJ[J>1#dW>50VOi2W>a[r0;<o/Wc#<c(10yX[]SUp/ir2TVAvzv(
U"0xw-s[Dry]q_tiR7Hr\z1yf*$ZDorr7*zX9:]W;STm?s?gFl;lk/Y4VS9/j\4+q
U"RJ4ua_MM-T1fSDd;abV:Eh=&,PHINlc<o[/l3>h+'UDrZaG7O/6P2(+AI<>mpUr
U"]y]Er%2^Vr(Y\F-[u3[DJ,7I>32Dlb]G3'JAMrv_v,^i:7>ZHs$74,sm:SrrF<W
U"P>x.(xM*.v9_.%(eeKzeR7DgqNiH+NC4&xfK0Ud<-jDhr.YoIIZjY0phcIWiXD8
U"PA,fE=*mlBtz]?lYfE83hF$2&1_;3(+rELG[6Xb:';PH1PWi+a7:l%hnUs\4/TR
U"sfbE*1.7UwGgPQe&i7/GX^Q3Ai)dS*4i/Qd8r'r84tO'+gkPA^C0ba)*rQim^,>
U"NQ<%KJkt%rCKUL*lk:;<,))U5uFgt-%,(edQ7[.M[IW]$O4A,^1PCUmQ2k_D=96
U"2iDO'5Lp<uAKLoc&.B>k^*(urbhvx9k1afRNjq[h,-5<1+&y($_tFea\pQ_^_V,
U";/f<CAl>5,1Y)=lF$v<0RYjq?[KecKMY:chdPKegwN/X>jb5/a>Mkd9m1eE4_Nk
U"KB4:S(SHQ>xF#UW1D-gfQlw;iuB<C1*1rhQ]'9A-D>:NNvq=T,M;8&vBaeZ<e4B
U"ZTfuU7T07lDGR0]Ctlx$+w4^:GAR:wGFDH4Md;-'$PHNU$3El$AxgctWA&T_ijE
U"?k8Y^2K&vqKTQ\](30Kn+^/,^dZ,J(?j>kW(+3P-%hDfxE4V&-Z*$I,T&DQkZ?Y
U"2DXW?B8P97Mu1>kTLyfLjaUZp%X),%t)=-F8T4MEn&L(R]]7>e2rSJ1yG0a<(M,
U"*as5zB30)['e>T/&CCtux650xAi<M(bc_kmUWmfO4e&^5EeyeHB7KT^u?sDu)i?
U"QV[,,Kj$=_Kdd>f%wH^8l#^hpi'vRYJ'I2rJQQ*mcg78l<]G&),7Jm^R#A'c0k4
U"YJubbcx(Mv%$Pod7x?sL*u(\Sqx'4+fN1JXGW.-N<Hd&OKV31;8SskA0^Jp8_HM
U"I07^oT+lSq&s*dcohNjhWAG#ntOK>9OPiAitvj$#q4eOW4o(>*c'TV.WPa^CO0_
U"'K:Tajo<o[W2Xff1tG7>sanS3[lgXr*wT)[>L0BCL9H=nMnA=aZlhRG4,Qz-YWa
U"zJjM&D^4hBR8:78JL:J&nYm_$N.3r1'[$-$6\'_7PTEuxl63ucOn]-56_:B+QbV
U"?qOK=__Ca.p?8HkIU(GXwW*5?WiU,ToyvLt<KEm)3N'NUu*0*P[jkemBamE'F3d
U"MNq9nMExE9VyelHE(9a0rrno'Qn0x+_XNl[eN]yA1ryuJ0$Ic[CoBj(<1Z/T+f2
U"0DTT'T9^pxm(Y7wt:<H[f>,JGPRapRRK''?DdZ?\jGWugXcg=V\Ik9^ipo&H?t%
U"gm#Q/,uap(rXvwP^'IP4?V).,5V_f.#&iV,U;.?=/mL7kH_X5:%BT8MI1B($a'x
U"AMaIQNJia6]3;ikPt)GN?tD'OM5Xu8k?fl5^K2j2Ihr)&dJ9*-n8$ZtXj6'XZcF
U"j_Th;TdlXy^r)UURQc8^[me&v]:%e,KW*&)aA.HJHeg3r^LcU*zi*pf[ncWWl4h
U"4noT#I*V8Iq:]E+c?U?fYyo&7Vj0RQ'(hCVA82:ikLr4A.492klD/AR,jU\GPN_
U"Y[fN(-\S*tt7>5La[fsVI3M8:GFY_L:rlvThhF;/Uv7(mt\V=kAQ8TGL1nAhXW?
U"uwe%4wt_-;houY_RqFLLA_s<jGFAS?oYjV(y;YQ3M;J2[$U%<77O:y\>0q0M7*:
U"NOqqb%$,2'cX4ofz\Aa.7PS2S_V/6)pbTRr#]scpX\Pu7TdF8*9,P/:IJDza$2M
U"YW_%N'vnD530$J'5Xopz_=+7'V:uIiC&B4s\Pa;[]ZY#1tZvFFD/eq'T[76<bv.
U"#b'kE$]Q^2*v+[k#MbnT3=]0__14*c0?tEEjF2W#ABw^Q8Lk]m=D,7o&eWo3..S
U"k).Jxl(Q0>Mefu%P<Cpivu?Z.IH;&fZRE8L>IqDX?7KQ.&I>?'Q\.z)jMZ7Q7.Y
U"CCG#gw/Himor:^Q(Yw2u$>D<#la0g-,_PAs>7/cLSKURjAqJRk3d,[2lfh#)odD
U"clQ/4'?Y=itHt8PJt;aaQHC/Dt]p\Rio2RtqnUJ5+Pn[T]AdJoh6YZWtbhTal)+
U"sqelLKrbR3f?SsLB'2La9]o,Z\[N1^=gu>[\ON$2a)#^6zJUsEd%lmvBg?2dvnC
U"5wVqHrCNO>\vx8'Wp,v5_c^$&^J=u0+ohbB?Yv<,omWkN$W>TWRdo-(L?XpX('j
U"P?,[?SIb-w6GXUuI$=%S5]>Eit4G)cA-jS5;=(<e<q.lXH/OmL*?1_f;eud9-fB
U"X[9fsNxknAZ<T.n(\/vO(<DnsP,%QtM.pernJdd'_p=ztVd<2:zatTPJgZx-oMO
U"Xd)sLMX$0iUmp]k$6RM:LodJ$Cu94RLglpbHtFoX5iinx%J.<MJ-.,8M^Y*&X04
U"R.p.Q0oz)[G&Q?uSJZ#_.aNV59+7kw(.8mb]evudPZ)Y^AjLVQf0=rKpAI5_Osm
U":%HXGn\#K_^S<CK;],SVPtRQ'6TSXP.$48D5+S#m+$73_Bq]-*b7;IJ6#Y0i,)R
U"v^a;S\I6R)-qBp<v4uFI(#0mi-Rp67+r*32JVYh#e,#X#Xb^T:[IgvD4::]'VtQ
U"V(b:r0F:XXUk)N<2(DWK=,:HFh-a^_)UBKN[le02C'zH6RX]_eMQVx+8UF]JP0A
U"UR^ljhc5a5d(vfud\r7<SEQ'/wEKFvPTDtaAr?=C44sRj>0;Uzv$x#H9B%Qj'n(
U"i6g+j5mGm#9n6'q+swr4lK,<IyIph,CDT&(DrK*Hux%G2bWvjWSajbVvSG6A'1v
U"cJ.vaGG#V7K[<Klj<wzXs5_1g[.L&okjE:[tVxYc;XH;m_qY_sH+2m'a<Lj2%t.
U"pCnCvV*a]XG-RH_UhKVK,.W3j\_YU_#+2sLR&o+9kM#xmb\7wBiBNmPN?Jofu&I
U"a>_ahW&DIO_E'2IQ1E[;9tXI5UKQq*0kG5?dLiLV,rTy0RF/YUcTEdZd2k1cEK=
U"W.*teug*F:M&lp<cJZObV]/76?$2PqURU%S<uF#n4#aFH0\Q6$HBL4*KFM=,P5-
U"NAAl<Q;*Vbe+p\;#XiqeU'>WADnpcdw2#S]+<\k*05an))g5_t00qkJX:?p*G;L
U"S(.8>\8.iooNP4TkWfH<H.)-:J0f:p5z5KZsA?rClO<0R-;pXSSJFNUl5Sq:A7P
U"#1HEdjsqDW9Te)%dbR]m#7/?,ed)Y9fL84lwUGc=os78OEaCsvu;>]s]#2OM1D9
U"S20#H8S*BVPG?C0&YPh_BNFbX4Uf$lhMnC6HZfbPs?B%tFEcTKN4%z4'Becr4TL
U"d0]yjC[MGT?fBv?Q6G25qirarWfs]dtS>4,Nfv_K7HJHE.=mR=G#G&pZXIk4[=[
U"MN6t5bB\=$tZbLaMGVc0ehq^2NRpW,fHm38_-KhRYVwhTF#QeCnj&Tuzc9^/>\]
U"CXZ6F:L+*FI,o+ME1Rh?ZAQY=OKmmnO$,<9Pm<$j'#EJbAs2:^t2Fj##<=Nd,;a
U"3i9rGnM7Sa2w4K$4Yn5+G^1oxvRLo\')HV92KhxQtbD]W^f\not>UrLiT0,l4*9
U"<W#V7khCIPo5h2WQU;P^v,brjGnsk+6C9oVhqU.AEx8$JP=<%Rw1Vo;Uu5uG3/M
U"h4TcSS]mVT-+.(ozB&u94'A-mZeG2'ETM_MR>0AtiKqT$.,'c8[poh,:PH\-1:j
U"m>tbST;L\v:7wRI:ivHS5xvKl8.5)'v][KLWj)_haX_UII)00XSHYFFxM)l4V/Q
U"XE71Ltta611B?^yliYtuWVg4Ju)#4uH7?&KukMxS:yYnPtm[e+$TZeU&_x&37ai
U"d+\vZ4MC2Bk,67RO_95;JN%14R7m+0mGYR0:PlE:Zog&$r;.Cx[VD>s*vO5gJ+b
U"H611eyJ>w*ij>SmHao.1w^mT?K=,smKbDQ&45Se>+.WLr=/l*\Vt4&nxf$u/i&W
U"-\oT.k>WgZhuETagEW5^YWX(1Q'DC+0Tlq;UTba5t?iXRb1aJpr*7*319b4O)?g
U"UjNTCvs/;or7RQaI-kh$3\q-i)eGX43&Y#0$B-4**u-e[4n7?A6V/*dtHq37X$#
U"ddbNs8'ke2]^h>*4fM(HihrktMmLl^O<ILMPLFN+Ulg'HqCTffqO<%k/Xj9C,<Q
U"u%g%)MrQ8R8e\4-xtqc2Sk\),n&VH4&.%dgYy_t%i9NUMJGu1803TadFJ[+fVfK
U",ND&)8uHm5d>VIY6DIvn2B]*U?hKe=SveARebK*(.-Jf'8V9^F$_9bdqE5cXrZw
U"a0nOfC+ke(5V;l<zKQY']02g+P4aP158&frE;pKEp'$_z\SqM(uOM(u7r)O]]&k
U"G%rB7:KHH:]LXF3Rs2\***gqcaNSW-rJ[<i_1cucd#(d1,?nY%wrYVKGP*oI1>6
U">51P1AFxXsl$jHoiGR)s?mj6/,8(gUG_=[+F$UyTa1hzAT6/2bUOS\V,ZT_SOFN
U"hS.SwB*onYIg(5h]mW:=Msi^pi*Lq?L[R4K1I(pG(J1Z&y4Szir>q<)nGZHwugu
U"6<t36R8f<<RDV#k&pijZW1s6(#&$g>\-PFupON6s320'lg&z8hR1KlH^llWum3/
U"/kEL,$ebE-b18J#H^';ok7)k#w.ZR.Hr\cN%)ITAI.Xx,8dFVtIo>+sjRiKJbpS
U"'a>VI5(fCXJ7td9rJ.fkB(8>-BsD#nW#W)EbbVC3k+#[_JGoU[jiI)<knJYla5-
U"6VslTQtIXw(?fxzH1)Q?t9MTK3N+l'kHa<pca[hVJAt?W>SwWE0,K)Yh?I.*Kok
U"3k5kSf,XBhe:<-Tpy=[NIRlc5nflg8LlV1N$f-pmC+YZ*46ax;5PfJixB*Mo?H+
U"+D%yLR6+p\%[NPJk(I\e0B/LU0:dCueW:ml[;^\-/fX+DMvbE+ca?n6LE#t.?L1
U"q3rJj7M4kVTiv6f=e:KXPWpa1OQ=ndfg:%U8n^I?C?,S+1.t^UvP?-(>k3.<0Cq
U"muqG'GY%?$r)]Qs)sqDW]5PUhH%1tL:^Or_%/T*V<-/9fD'1)'FF%ZdVQ$MvZ3j
U"XB2U>8M_t_Z4cM>V?y31K8XnHBr3m*3kjjzU:+WAmrPL;Cdo'OaLky*GN#8B?Rn
U"/Ml..SxB(RYC4UYSC3.a5>^FBTlOy((6&fGrCd>rWRjT&nC4<EBnN9GOXt2s.-R
U"iBtC^Jz%#j#A98VSllvdP&?W1X.fbZArlWOam8CVO4*rdsX=;JFp=8=mYVJ-owR
U",95$GrQu_(PMo+gh7(bk1BBwVC_;C7&e]3$/B-9F4ntIx?%nKOe+Z^&ftQL5s0v
U"nij)+;pkiSKk+B;zgBH;'=0MK+v;d]8Rvhe8GL+i=ew_fe9J%O7u,d[imX7sx1n
U"4fQ?/XiVJr3^i-MObRwq<,%qo6sI)/P>S*,)JhY#Q]9uRA/1VK;US]hJckj58Nt
U"/yD2]Nt:?Y3=(wPck);X8kND-ZtC1[x_jma[?Ru;<+l*[U;c_<WLpi)n^YT&P+5
U"Ak0wdMc$qKKebfYM+>oRaG=07z[YX0wzFIYn%iSh4B=*e;Kb\Tb9i;LaU)zFZMr
U"Gq6Pnas<%&tf(fwY/v*IYW8RrrlW1Kj\dz=QfUBr$IuL\Hf8F,i'UL,X\X>iI#c
U"%&%k1CVRK=qAJr?i6vZ5//e\L$b36CG5[t?HEuda_,D'YNZ16hSiU5yPhvmr4HT
U"P(LRuQOm.6(D^pr]=f?\c7_S_l4V,.nk<\aW?odwNQ:F&R*#i<VH&.&VF&.&qD&
U".Pfi72i=hh4,j0UFXSo\FElKbSo4xr5\X[RhGD6l>ln?]8uY7o'(AC\bwN3R$=1
U"NDFAd&.;43ER+.%8z7fNCVW1F8.7V8-.HZM5M%1&<v3dZSX4dj^1gCd]ahZb0aK
U"s9_($.<vctQr>PJJQFAWt1/F5<UG&R9cB%jPgTj.ff8y0c>883IT=A\=\[tBi'5
U"tN+>g%VwHD1g_aB<F9An9Dp4-BTp7+Z-B#:2iS(5CGY2mt3m*Gu*k7R-M1c.,jZ
U"SP9Tilulk9Hnk-92QGe%4T,E8i-6V#j.qrgW+3Gb]$3Xq:ik/K;Vtl8/#T_At8+
U"RnqE^<x%Hh(:OnV]vhPqssUcThyN'twxQ^ZRc[SNH'#BNGyKFyBqt(l2.8uMm#o
U".WN:RW;NY1I:rP9?rngP4p2pe\<<euQW4YCO'KeW\;hL'i?Q<Fs2[z/im+lEW,.
U"5>OuB^0_Z=K4Q\;us*sn7_b=bSN'N%/I&9UQ=1l.k,ROVICi;K;7BhF]_z%Z\T%
U"sNCWTbhpi=88[5=L$AtZR'h,\1%pO5]2Don#i[7]#?u?D#ADHLHtEQUF,J$6$z7
END SUB
SUB V2
U"<q^,DQ*qnDGg6RXZ^93613Zy$uG;'ukRV^<)aFsLYV],lCpd>k9G(m$&\;AOj69
U"J]dFDIYCF9*_-f$TXhUY.gT>2rsuh1i$Z_7UU[H<BN3ad?zGM(A6YetF]*1be&Q
U"_$>=,*[i3JrwihXYdAbFAB$\Ov/ymN&:e2jmDMoO.IZ].qrClQNv4NtkfehgD3>
U"pU3.f/3+hwlBI.RmXl$'IVefUBZ-627\FT')e5[1AlZd&4_^I6gBRW0MVafhxqU
U";7G)K+)P7_-Q<M,,0p#vutWUW6oCL<h5NiE+3I^ak-PrO5_QOrcyTAvohZ/l9lI
U"(qo;8OJW9]$,Ef?\a/?*us(dI]sr$-G=.%oYd1Fb.bhK15$>IF+M*bz-=ll%*Vn
U"h&(Wnh&>_w#=&OqU/rQ#f<R?;\;EgR?ifcMu+dhXClg()uq);M[JQOmd?/0cuU6
U"0s*[(f^hED5[cECvM2vJUgE:dp1o=ZpZ]DVXY,Jjv-#7(0rpH'\O&per3Uq,pI8
U"6cU,GoEaQ:ZhB=8'=.$M;N;PgMMi3s1LviF?.T5FmaE5])5&\1A8,9iU,akJ:_6
U"Dd*R7wViZpL&-]+bqOfpYxiW*lroiW09l77J6C==hFK\<2B+%VF&2qlsYnVx7O%
U"Yh#I<'kGr/_e*j&:yTn^EEg_QfKHHHqUv^O2,p'4<C5Px6LG)=?;&9,)KGkeY?u
U"IBKVsn\=m\qCJmY(V'vsZi,j&-[b*Qz,7k96yFN+,$j0<W-Bdta1rc'^f%20m-B
U"R#16(%*:Ja,nJ\+RBGwijs<]),t'C.za^'O5/1TWWp/;R.1v#l%1.ruhWCh:B8D
U"[Tm0HA8>gQu9hfMQUkyf:K#F5E.=w9l/nC)B,oihfV.*LhJ&tm)nHPkMX3WHUc4
U"5VC(liN7UbFGiH5H26CBzs4c'se^pPh8]ZA2nqLC>TO2u(jo4:d/$^^L7EXbcqj
U"fa>NTRZP=xN%2*3'qNc:6KAo<YP*eCLzaC:$08#^_e(=bYD_abrs8EUH4GD;;iF
U"Hc;()/+iR\[mqG6P9neC0b6H%x^1(4zObVOP/42ZOPA;wFcjq'=uE]%t=4(6<22
U"%BI2fY2n_rZt.'?t23Q/&'<eB6Jz$i0W'c7<LCy1IKv/].Jw56B%rcM=xcC^Z2q
U"0cK8wK9.:MvOduxwS&6OBn#+gZiXjdDthc#,3lyA*n.W1fB'ow';6%-g(jdy:Od
U"Nk7%XS2/Xju':*&9yy(n:UUWSkJpZC(7mhLMcncYrcwW6dfoK>lUn0ryQVgS.Wa
U",?$kGEuB25^mcHQpdKigsEh1ac:h3ijoL9b#^cxVQQ7BKJjcv*[ZMWF7E\%1M>M
U"NE1%xLm]=uea84V89th_Y<#U,,wjX+QeSL\?^_VY4pE*5DMKnd>+l_,]8HX**u3
U"GaPeLh*S9q^,?t:y''U#EQ*=GO9jfO^&_1.SfzPOm=y;+Ev9ZbV4_T5+:jpWC0X
U"fJ8J[1fCXME8PD9hK<4/1mZd_a8+W#LErBsK3s8QUZxM.+JCYVg#rOLV3+:=IFj
U"V/.[JVnl=jE$n(.6lVY6tMoQ;D5^:,uqs^k\Jj&Nup(%)9%'[%-%1(Q8AK>#].N
U"%*%%%%5%%-%%%%x%fsxS#ksyL5&F9H[l5C5^UvfdrUiQQ2fLOFC&JER.)p-F'pF
U"#K&fF6^JG*85NPfLSGOB^fi5R0)JotR^eZeYi6B3SE>'IcEnuxN8*N<LJO#bjyu
U"gs(ggnagSodd'(q>>'(;*R^wcCrkC'OoY(.5T]R#cS]TB%Q\jg22t<IRQ5[AHBE
U"1S_y-h\r'Inl)%.8T'pHnuXUWWTE2x;lm^&,1C7e=h0oa.tExBPebA73tLIqVMj
U"F>OGMUaEIk^*ehjA8]$XF4T?v)Xc,Ch:cdol6\)0K[oV^kr/)J:2sS9ri<Eo.Sf
U"*8mEN'AjzY%gYjKC]XOUXQS(t>g2q=TY:;rb;AmmGa5?ytk_%dW3P9&Q.%.HDG+
U"9kR4(*T?l;$PFGArXK?=J9Ndvrum>?n(u&^['<\8sfY?d:lNA'-X%4?:r:x+&Eq
U".&Soja(Qf^e%6D)[BQxQ=5VD.Np9*clRKHNAQsLo?T0[7Mjtqf7F0[5M6J9U[,%
U"g=*rYgqZZ:Zo-qLMNC6v4fL47*\XSI\+eqj*n'-0xs%d.HXs8YSP^8*'bnF'DGX
U"<+*2FdH53.cIt1'oGM?\oHmqMd7ni#^zG9S0NP#+Ym2W-,RN?)vONdW2iehJpwX
U"YJxpl0(mV$u4w'doOgQn$;yXsn;\QwuINYt[BYR/fTj>^%$pkD:sa^AcBAdgtUn
U"6XAn0hk9qleX3u^:c:_AucD'.:(HcOp:sTlwIQv$i9-TH/RYfKodt1*+/io9(8h
U"nKpdE(bKMB2F$.D0QrZmx\(CKEuxJT86BNP$=E3:tnHWcgs:\kzK>l'(g%4P,vR
U"u>upk_7i,#TJiDy<YT]q&=MWlqSt9/)9fmwzn87xLa9w9NDy3uDu8X4ur$]Uwh^
U"AX]lic$e9hwEHlw:d9gTy+)..2NlZc<EGj\W^l<uOSTdsB.2al[6]).2Q%)^P.*
U"ZY)'n4[F;p\x'Un:bQAq#VaHNA-II-'Ah>[jZ:->9bbORhm_Me-gcWpJdlL7OdG
U"0i^t'AO7lDO0(qj%<Rr6CrE?ygDT/e<Ip60vY8M&8skQsO97*=^NL;Mo(kBiP>.
U"];0g^BQ8m_v>sS?>c&+82Mg&3\#n5VJLvWi)m[6=3$,cSWLkRfs507\T#uU6)<H
U"'_B#3?HGf.Wofzf*06+.qnandxtp'rpQnH?[YNK^B?;Mj.3-gi%lIu/7GRq'n$s
U"R])jDcZm#<E\?PD+j5[qtH5R3Im5g)Lj\9jo(pOhI=O4xPZu)yq,H$gNt,qB^dt
U"6X?)iJFh(a5M47;9F*R3=u,Idc8q[ukKp6qlrd<q>0HLcIg3.7NSh>:T>5Y'_Mf
U"_r&gq]gfwSD._:m1]V)seXak9c+Kxa_6+q?LjIQDmH;X[Pl-K$va7S(tTKlno<q
U"aVuHqX[G&uHJsDmEcKDbjnsWJGLrGu>tDQB8M2b69XBD7dj$tf[XXO-DIC;T#\G
U"fBTtkcHIPMo&<iTHp/fRlnG2f5j[v[hG%cs6ZG<:,*)K$[&YQ7UuLY7hW$6Tbop
U"XlCc=B*Ye9j2Lo+w8:+Jw'_]Y#92V^q3NdYcRdre'6lhHL?Q9t6lGj*ux&P[6vH
U"pzpkuCYXSO9GBt<<7-QE>hd,#Y1_3<oj-Wuem3S>\1VJprneWX8#m3xt(F<x;H(
U"*4ie^fck=pFLMcv5en$yYj38O0?ne4PmTe:i.%up()%9%'%%-%gY/MGM)3,9W)%
U"%%%-%%%0%#%%]'%]ymn%sSks%yrzV/:A&5aCO#*'>Gb3GP/]A5zF1S3:gdAWE18
U"k\%T#^)CWI-I^z?]%xu?<N;TBSBF$nw.uETU-1I4m,bxEUfAjYMk8Mw+$3ogQjO
U"=<7kHhl]QRTjjYHl_LLX>5]rAaWvYBpq7t&ds-mc^(nQ,jG+E^Qi-p>m$rtGu(A
U"JTvWk(MaWG>ydl8cQPI05cSay&nABD:DlMXSFcs<2NNNM\dwWK?JKuwXApH-kRH
U"NkulTPJAxadftvJGRZNqc;tV5bGo1Xf:)z]GR2rcXwj?6Kr65J7u\6XTDiunp:Y
U"y.*R&(2]#.g%v5L#[bq&?A'<54v#d52dqM:Y'3zV>tY[eN1=<B4FF[F<[xh9Ky\
U"naNc9KkzY?imxEg'suOF7.d]G&ZtQgZ'Zd;9AZE-'t&_\5%Y3PFq=k,*-wYUG3H
U"VHfsw&mO^,aio#B%y_B6UxiGHLxa;QwVB7,rKjZ^*U[&Z/>JH&)DM;_.wUNhGM=
U">LX7VdD';o_GKiYulBeX#4M%NZ3w-_C9to8)two7&hI:Z48=dY)8gKn&a3nLQf5
U"l7lD\<,9wrkV+N,rve=7gLu-ht1dM?sfi%l=KnE1;7fFLzDmE?%pk%QmdVQ#lHs
U"Vu*UhbF[U(snhkHW*c)^j-68>AoeIeh2g(-''cIL;5b4l<R==_HhDJ$)/?KR3lh
U"J^Y3\:n_i4UQ46DyGTB2bKm_9XNs#KNb0ZcD5y9HxPmp746^*$Z'k9[qR4ewQpX
U"-n\)JZnW4e^3K2M^F%87d_)KUZ):Kx'G&E:N=?Eu3Ge-YH;<]hF&mV?<fBVNi^S
U"IjWT6*Dw6g>UrCH\?#d1\XD*P.kqEBDGWO+/Hjp5ALFgA06f(5%q*fkDZ:S+uGS
U"kAIk>IamoOD+1hpZxPyUf_P#,U6S]0#P98M]ydxO:(ZU7E#VC]2^>9H_JGB+gp)
U"#lj6I#Ok&9>^i7db-fCc#MoDLv(M\/IYtrK?VG;pplnCZBC&BWUavy[YWGd)Rox
U"9elEWK/G$%:K+yhUE5)#eiXe.6/<['aEeVSm?IZl(,F'D=jdA&>Tp*GtLpabS4c
U"[8i/ORG'DgJiZL;EcIpC/6bu7tmD:d)cr6hV6digH3'7&bRmE48(%9qs4iNBPLm
U"iu4nLn.sx\)&Ke<<gjrQ'a7TD;C<qiYNb,Mgg'DkDtN2*3wD<k44e,.8+]xRs\x
U"cTPu)I0CL'b(kFSe<pV6uH,hviRY0^p3uvMmW-&H>a?.Jl_udr-SrZiQP5bl+1p
U";&d?]x)tDZ&PO^kgYl=<>E.Hf\4CZY7?J3M\7p&9o;1B7PzZ+?.[:fl--0K\wzA
U">JYlFv?Tf[4U*,k:XveIR#ZCMSB8gyQJwq(rBwq>uV*gL$W&r:zEX.2GuUDW3(Q
U"Eg6ND'S=fwNmB6SE4xSl:H6Cq6r7A1qK\>HL1R>S<<cfskBl/?fAT/6+cFHOSDG
U"n6=VX$f7-5maB+'hWVEG_P=LY'xup(%)9%'%%-%g(YMG?8x$tO%)%%%%-%%,%%%
U"%]&']Sk%syrz*69Il%5SIXIs+8l(Z7^^]I(Y/NRjo(>P19TG?Bj\,3S/+u,J3:i
U"f$cd=&5Z*%sA$:#1-K9%[a3ke-[a+XhJWO/VC&zNpk+rhliy'Zwc0*L%$yjUd>g
U"%[\zZ-?<vLuAdF)&(q/w]*_TPm]ZKvZ(%Sw'e/=mgEJM%4QGG[QNZMDF-03D3o8
U"cuV2J>dVCkXok_MNO^N[HJDh#D#jWl26IhvmmMu4Nn/=0Vo?To3_0PM)Vw/d5d7
U"AU-1+6.f>l[llU8sMC+i;e2&OT/h,PEfT%Idz9_ACh]1sL3)aDb,P&R8X>E.+uQ
U":kppP,r4mK)NIfg(egQf49Sv)b9_jF-M&GFr((j(QDou7-']Rsm&0.9Od,PX%kF
U"2C5o$etA:88&s<867+AQ&d:?WFI,J&CE<7nx,dlXgtAB1qFyojDk&IEP,sAbpd3
U"D+/6l%H=*M_J[TfZp*2xhbvB0>?#gj4c8BXZ=0CPZkjFu/tg8p6cpI#\Y[b*lS'
U"\e6_&1DCX3;rtB6a4$Nd6-.ej^GWc_:wq6K;zA6<=GC^r8plO-H'meB8orO9;Vu
U"kP_#0\(\y#Vu8CQ<v8=h?pw:sh(uLO\><xCllhWdthsA&=)UvF8Kg5\h4P'9b)-
U"0Fc&q3vJ(r3P>aH,b])YE;f[arj#02w]gh/B$FBoz2Nw]3._rNq#h08(gB*sjx/
U"nN-%Fw$BjE\so'_?k^fHADg:.S%:n44Yx%TA$COfja^,]\/I5OAY08%Gc2Cgqsb
U"kg,Y$/-2AR2F;_D7P%*Ykka$G)WBNAn_Igo2_dA/bA;%.w,Q^ho8f/J)AGZXul;
U"q,C<T#xBCy+d\0r7T+J4Yxo\<Pz.FRodj\5]D?BuwR#]8oA,S-uWS^pD>tb=Q2R
U".6Nwq;+vcv6sCo\3KBn)-RH.DbL.:DRoM;6u3S$nOQ<GWVU$h>%xC]Dl4F5p;tn
U"o[;j60;WO<t>6T'0sd%XbsB7)u):v+M4?#v$/1E&kdJAx8)f$'_WW];HX0\j_]c
U"=7h%a%nLnabO>14'-^PX%X5XuHT8[ulH(jR6TMtX\lR;?/<X17&'lv68D'd^7SI
U"h=W3v%*8g8s_iOSZOD,-WA0a8rem#Pkr1m-#UN]P[ix)mk]'x>^cHJCXbnL_d^v
U"5b'i,-[k8;[S45r8c'E\ad-adw7H)8)DG8]=\B<l14F=6Xmm*HX38]>J=HaDpj#
U"'7I\Y8/QL%\aq(AqIi81bmJaifuJ]s<&]lha(1h'5be?%5X(#%?PA$anN+$E-Z2
U"_><$Z'PW3ibeQ?hRr_rfnqNq#P\MOY-Gb_rQL68>cnH3B/aupp+(*u4Vvq6zph_
U"&6ows]rO?VK$KU9,/w(%up()%9%'%%-%hY\MGoZ849G+%%%%5%%%/%%%%xh.wf&
U"q%SksyMD&N7[#zA8k4j)Qbh?^]>\>o[Ohn^p8VBn[V>f])T+3sVGNEdcGq0Ysa3
U"<-wTag6,kb-3b5kD),-'YAMlw\.l:40)2mSnB3[RyfJ(3ly[%_6>*/49XbuX4pg
U"ZgVFL[(ncpuv7p7uhtv5chtC<BqjDwnLxukHu&vhTYnlurrB\WMs;*3L\o716Q?
U"0v/rF_I'LY*F<h/VYBnmiE*POK6uuH-]2-r#,-x,Co[>jnBH'7VN?ncr?6OpCa9
U"7bXO&for2'Hee]c%jaH%UBtd'RB304a(yOpwFehqJ0hGS6wB5-L9(_#tC7Nd94L
U"Gq2w_kki':r)kYV#NceD,Tg3*3;BaG&.Ep$s$%^GB732:]n36gSup#BcHfpDR17
U"3gmACu:_%prr%&dXPspy0AuZln%$'i%%)OMQaR7'Da7G?[0)/?-dG>0%&/om(<q
U"GEV&KbINAdd2WC1/D7($ZaMeM]bi';^Ul%R=iL<hsCvO&jT?%L)bF,,sRX;S^t6
U";.iIehh/DYU^6uj+KiAP?xb$dL%&+Ooa/69y:o[EH#?\Wn%7q;H0)0O(QAOsSWJ
U"S8<bOVBc%mbS[.$5=(::jpuhft'3#eP%Zu^8G:lgf>kqq75wd^T%Z#+FjRP%-1F
U"H#CFq165:AeA1(&j\NfS+4L6/+d'&[4Kkk+B9nw?M3%*KEZLpuT&uhF;dQ+9FDx
U"1h>O9ZftWXF--2)i/vI%_<V]eT?4Et4HQs/r9*?Mgb%/'_e8XV:.57N%0%((WHG
U"/^K9<)56t<MuCj=u[gala8Ce&VO#4+F_n4C_ARuR7ME2h<GB]f28y'p#1IlA3OH
U":#&TPPu\.J.huI[jOd_?0##xV/n-2ju9mJ^upIY9fNO%366:]WBu5(G0A[tA=BE
U"&+aF/yaTVX9aJTmZWX9?QjP7&\79W/NOd?uxZeR#tPsLdPgxRBnR\AsEjT^iL]N
U"khwtn(USL)82b4nmFAI;uNBA[Ei&/7e/5$,1+8tBD4=[>Gk0&-HImi.knyLL4Rj
U"em?-gd,4gCH(gOJ1$$Ce3tu=c^Yb+6Y75Kk2u)7Z-v=C>d/']Uy798Q607,;ltG
U".*)'1j%TqCSrs3K]#/DHBt:GsA/XBBK;#Vk:NdTs7Rhj[?ef<(p:G$PZkmm,PJ<
U"[%FT00EqQppZPWiYj:u5[ko2yPZIUYtd07pNS.qtf\GbuXS:%Ew.L*Q($TqX5K>
U"#^UN8iTI?V?]x&FCEF#ZiA1Ql=:mta(C#h#K7(z&&A/qsQ:ube7nJ;DJUp/M:RH
U"]P,AbQ-?lPHBIPzEI>24;N82-&XWiG?:o=*]d$$Nlbwa+5B-Ojmfc$;<N:sq39]
U"e9c]=K_)7^w:haU.^=hPW,PMoWQ/'XEGqad+&qr5w\8Y?7mUH>%w>n=]b-oHXYY
U"tI%cjAn2'm<Gv>LSiDImB?O4QaYO9B0DLfdWOAOKUY.IKs9/_lBiN?tNr0\v$)4
U"tl^l4bn%qA9bU=;d\mdy+g>.W'T]HAH#QtY1trS-%EUyln70wENNG;&t06Z2sLV
U"myAI<rP?xorCnN/vvNbVP;PVd;P67-Lj3HW4Ej:S9awuk,x?vfQGDCqwOYc,%&y
U"OAfc.VOhmHS7\EBT&dD0xcj,U.^De85uwp05*$:l+fcxhpG/>bZjO'cG]CqS]rO
U"em)cA]]H<6[gW:Zm)P=WLN[Go1K:BVQ9KfSyM$Q,:WwUSLAA\,SsV=]R<+0AZ^0
U"/Qx>e_NE^TZ8Rfec+v$s-,qYcsVav5WsdpB<tgp(RCFd-N-=2XpmjuSpcG*Xu7V
U"/nJMFrLqIWB5KG8UyF3AD.p2'pr?X\*,Z9mRjqMJkduav\6]Obb7bG=aw$#1VHe
U"95Jm>ubn,51xGtMK+J6aaJ8hhKI7Z>nX8dJ.C1mZv;vHZ?4tDbE]#x/_dMclr[>
U"HP6sSph.ro%<rsDLEW0i-O_Wi-qIJ(L8n28cUuzFfWjTP#:a$9\X)*Wjo2#F;C<
U"o;=-hwZ/\#C-.ky\AEYF8[I5Pg&aac2mX6h2=E<n5K7iAVkw<EssXgVj;O$dzl,
U"TpVgUuFG10QXI>,?8b-Hnj'%O[_b\0by>2$kMTospz+%U8E%/f9SZU1_H-TedLO
U";'Y/th/[;;Pad(?3r?LPPLL-q76:SQsTl'N9^nx/0:X-MTXJDNbZ5(Euj*_$TP9
U"g(ttIl5EISPyh=1voI#o#37&&'TP_7Z[(F>$w0,'u4up%()9%%'%-%.hYMG.m6y
U"a%P+%%%%5%%%.%%%%wtrf%sSks1yD&r,WTk9_ERv=/q_93e0o+(m.c])(9tVfNV
U"Y5:^;b+0\S7objnjiR4w=1wEiiy7&bAg3.p4*?21I</66nghF'g_Wl)18a*:;#8
U"JeAy*p7)C_p5s7J,[_lsUd2evs\l_6:\>7\RO9k?L?&q*JRPRU-<]E>1aYaMV/A
U":Zp.KTE;5g/T5X/<s*[X.4&T[cT83']],Wwpw(irviHxJJ#DrPBpmD2gWgB[gw?
U"I:Pv8N1aX9xU?3./5q;MD2==jsPD4>>J^vB2w^Auq[Xf4w>otu/GT*DLMPBlqk?
U"hoo\0pMUfhK%ePRc/(Q8,H1x5\J8s'W/\MY?8\'%o'n#$$g$f/FN2rx'F^JDVMr
U"dbd6F7kzPa+(JB*I8s2IUXmMx=7XY5aUgP82X:7vR7ckM3kTE;)H8lM=7T-o5U;
U"N'Sm6>ZVD(co?fA4Q)KC8*dr+&%+Acf5vzNK[X6wtDlK]WpVw$^#b$MQx_lee]q
U"zSg^J^Oj(%5&]x^C(LX>_=jnOY3_8)%L$MZi'5i3=%tCV%+XFD#0*8]pf=G+V^o
U"0z4:1q'5;**%YwQxUt0>%jF5V?^hf,]surtWTi(J8+yM99XaYhZI(L:YrDhh'7<
U"?9YY&D;v)f?2+^ypT<NQ.Z/RmtTYOqOI5)l)j4<]VSQ&uKlQD0Q6L-1;=tc3NAn
U"\xYp<K,GPl,_p6BJZ)N1oij/Rf=;#r-3rj'HoL/KUhqPu<<n%J<^0m0f,r2[y.g
U"ttti>UTx5WE0V)<XLL(suAmBCVT]X#FT%IYZe3Ht6r8TFV-skMc4V3YlTW6gdE+
U"58e1U[bYXShG,.mb4S2[wT;jQ(\u;6YL;5btDf.TMkQrR^jBFL>./[w/lu=$2;^
U"dp\XpR4j<GAqDyK89=F2laERZ5<[J7YuuJEjs5A3(-FWSMon.1'QIK-Pd-RUQ3w
U"QnmaYo2a?b9BD.;n;2#I&T<J09Ahm\Y&8&]+JVhZtYDfx]MIaevaZ<*var<>xWS
U"r;m*dIb-68$X;JPF,(qK4<i8ue#xFQb(pE(k]8WnX4Q448Me6aTToimTL/Vns1<
U"LNnI([Lp%5YeFu(r>-X<[6$R28I&e)Y_X%mR%xBM'OWU;i\vxeTl7a$9oWo2nrg
U"^#^bxcKj71'_ft4;eYbicQh$muo?W\kc(yOHVBOcNOSoKBDQ=p.c>OrlC,2er]Q
U"6TcNdo-g+9T*Oi1JE+^bWUj9_kt7)OMcARE6xoT+CIrk,6[aH\r+K)BcdUnW+nO
U"6Mj9L/*.-Qy2c4J>&Gt>T0cL,4:'&d*bznheQ^nALt_r+eb)3Q\LAnpiIOhGcJo
U"]N_hCLNmHmgD:LygNzue56Yf0cI?9Pxc,bzniv%:W>TW$badZs9bM2nyf6>Qv?^
U"GM;XK('&(dtSvSofL0RV4&kI3urEqp+/Ei.qK'6>Q9F:=>6&lT/<5t\8^G;ko4\
U"4RZwCtrX>crr9tT[F?+[x$ORrKPI9NKjNR]B6\^\MaMQe(,j/0tt801jNT0Lau3
U"e>D4#_2AVj,X9?$5_$pM>ku2CE=Bt\f=cvtc04d8l7_enOlbX;zusN;K&qnNw=L
U"wkMIzj/1k3tjU>.eX\\A'tdl\x'KYchO*HVqbVjQ8]efQ'(ohd/?<$ujQlcGcB]
U"$jM]5q^%SbMl6bUHPrJ'zr)GDV2Ho22;j.7G8*N/+cj98O$LZZ\rKL[mVv$a#WL
U"[=8Z7KU[;w-jGp>dq^R#Jj*cjHHf.NoM'C^bn$$BqPJEi(aVh^c]$v%jh4Jua:4
U"D;=zqwbA75xI^+PCbp2Zp8EPQD9L0mFUT&a3/W:Hu4gI;=UmL5f$p=:(g(U:lIp
U"9Ed)RrD'nj8X3pP2Kk1t'W,^ot='V>Y+t)jWW&t*p)W==I56AFMs$*adspekL';
U"2:S(TO1<GO9Vk,Y(Sp5$..TWUG;&:1cMBh+t0Z>f.kpGQJLP2so=E8)e%$;B^*f
U"_XT>0rP#.FDS<m0h8rQ)D-^T?b^=cL6.gq,&d#9p%wP<(Ox&%up()%9%'%I-%57
U"f<G%]5H94)%%%%5%%%/%#%%x(%xyjr%SksyWf&6Y#Al5-.QV%U&kL72H0qS?*a/
U"HVH:Yz3G?_lgn7uIQU0Q,Q/0)M)bR:TYE9>V?jl\/I^N);gR]9RX[50+*l:Iz(Z
U"s03Lfp+y\PE$jyu''8'*',Qc<L6[IsQZ:[b.3NZgpxtvj\)ysufT0vrLvT7kyaT
U"3gOnWNtHt6+lk.cn->fYr[<;T>OOJ&YAdFv)&[,hq3%:]r)fg]-k$TlasBglDJM
U"<^0A.*(n8^+po,xf;DN6bz,L)k]-I:*[8.lB#x19TfT2f\kY;(;*Ci##5u/u*%v
U"T8[cWU;0xmljbH9Hskz1U^BQ0c0W=P^G9*pmc+9)S[u-NtXFRwqFoTJrf.PA&gI
U"PQjKT\v6,lv#g2D\>AVn>i43EN7]I>CR]s\or6n-%#p2]h;RTAx:n*3L]i[puVu
U"wV4vV=AkrjL0nsYo.Bv3\zNc-c4\6-pCvDfvxB-cHjdWKn[qet^f;sZ*&Dg?X:T
U"P/qd+dIbGoDn,j5V9c4:c%jqNb]ge2L/vps?=>owZ%PlScZ\loK^zXL^)2*%rZb
U"AkzM)yV]usJ]TFD5mL#Vu6U$qi5qHuT5[Grp4tm_=w9Tq_kj<'<pR+v%tP\.9bP
U"0(gDL]jQ/S*;_N>'S?J5ik.6np'I8V#w*)k]a4Ng+XwAoOEQ&GLcz.)gd=eOSG/
U"i91ZjKQg(.4smr.quD*[/WioO(l%YNCDoLWaql3un9uN/>#:.>PV&/#a9%*c[V8
U"p<0a'6y7];BZuaAZd[uT8Lo20dIn'/l]x4NAB[Ef<VDx7ycOtFrt>L*5-mD]<kD
U"$)F,wDN-m2a_6'o\?&orLAJ]k/>DS(Mfx\v(AF\d($)=?rl,evbs_sHlk:e\Q]S
U"#VBqz[(+9nQXW0dtP#]d.\LXJE6CDF/R#r5?934^m^+<p21Fb<xwPgoL8d<$cG/
U"r>60j<r4rFlE\8lODpvJa^*,.->G<u571(XuJRZLQe5>1kMvl:LP%VrP7(6C=Sj
U"&UmBUYs(j>Q;PZ-NO>mBVs:cZc%ciCawM)tNZfX<Nj6xXMmHx=(CsmJ:\u?Je7F
U"hDn?RSdHmMnb*lWjPv8No>a8=3s,;>NAedCpvd#QE(Y+:cZjVD.nonVl4j'sLo(
U"P$d3\YDSNauoo%$dbbqirZ)Wjl&D>D7u2wU8mQ4d=k.qf%G^w+^u+nx,4L(vQ<w
U"-XVUH5*pJLk.45c(BXsc?l4PfZK-3vLTH;I:HE_)t#)l5mrZ[b+?rE;lrTVeUj'
U"Z>wrIo8(>tSvXM2DU#BRo#+feR+9sd>>H1\6UvC.uc7rlA.\41>mvG1On%.2JLe
U"^YuZs_8W:</'q1E;O5<1nh8R2V*Bhg$Y7dT5khinxd+2j,0HFM&nqkmWL:5gxuX
U"[irlVi35$oF2rI;^dqGc3p*vtQRv1=^pFqQsX1US-r)>+s?^pNp]On%%up&%'9%
U"9%%'%-.%RwH+I2]Q'L8Q%:%]c%%%-%%%%%%%%%&%E%%%%%%%%%y%lznS%gfxu%p
U"&'9%%9%'[%-%1(Q8AK>#].N%*%%%%5%%-%%%%%%%%%%%%E%%%%^Q%%%xfs%xSks
U"%yup&%'9%9%%'%-#%gYM^GM),)9W)%%%%-%%%0%%%%%%%%%%%E#%%%W%V%%]&']
U"ym%nsSk%syup%&'9%%9%'%%-%gYAMG?x+$tO)%%%%-%%%,%%%%%%%%%%%%E%%%%
U"^[%%(]']S%ksyu%p&'9%%9%'%%-%h(YMGo$Z49G%+%%%%5%%/%%%%%%%%%%%%E%
U"%(%W_%%%xhw(f&qS%ksyu%p&'9%%9%'%%-%h(YMGm(6yaP%+%%%%5%%.%%%%%%%
U"%%%%%E%%(%Mf%%%wtr%fsSk%syup%&'9%%9%'%I-%57f<G%]5H94)%%%%5%%%/%
U"%%%%%%%%%%%E%%%'Il%%(x(xy%jrSk%syup%*+%%%%%,%.,%P&.%%,q%%%%%
END SUB
V2
CLOSE:IF S=160AND 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
