'===========================================================================
' Subject: GAME MAPPING TECHNIQUE             Date: 07-04-94 (00:00)       
'  Author: Eric Blanding                      Code: QB, QBasic, PDS        
'  Origin: FidoNet QUIK_BAS Echo            Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"MAPPING.ZIP",4^6:Z&=22040:?STRING$(50,177);
U"%up()%9%%%I-%3n]]AY(80]N27%%[H%%%/%%%%wj%firj.Sy'yW6)x>oT]+xWVO
U"xV^nPh[GRf[.W/JF0XvQ*jqG$=2p]<Sp-iiep-->0j]cmO'Zg(8hbp]TR0g[(9(
U"LorQ>b<rc\n>+/Pnj&$L<)Q,o9l(EI7)+XVqoX5Ad4WVY/jFRo=Tg]9P%$Gbff;
U"uNjB?3Ow1d^0CP:_$X*c%ZY?RTcmW_qcU47_Kt,[lLo/wT(n$za6ZpEE*Zt8^#I
U"[Tc/eN'(W8e3Q\bSA7VJFKvW&Nv$iHUb4(qHa]DdOdd_P_n1+N$?^4DR+MELTzu
U"/a1ANV[VCe)_Z/w%0P:WIu&S>?0ano-r%4UOfg$DKZD_eF-5(\=L5=rS5dYE1Wc
U"xEN0x)wmi)M8mL8[R=Cf/eLBG+$hQbxk3:xH>1In6p$U.F8]?p8ir-Po/SZ#0SD
U"W*1=snT&:71K,SU8j=b2\T4N\kUf[RNOe:72PdC;/p>/=4oAa6c8a3#a$<m77r0
U"vBNoZje'.RDXpSv7\lLD6PinUR?R]e9cw:d4*i^wJ=4nh\qr(0V(GUc24lL(Dj3
U"gXSQnm=Z6[rLIVPaRM984$JLWUUw?W<X$KenFRHZ^=uODY;InL\77kj.*6Sv4&J
U"rLPTj5vB;Wi6UZBie=ItbtV_e?i/:>n<$c9S/]vGF,PDVtb:nvrYEusr_Esr_9?
U"2,EbV$IEJ=BF6Yg11M&RjjHBn^[Rd4'=aS#dQ+V88wT8:]fXDp-*Fd8cHHvg)o4
U",8ecDObgzkNDC\3?6w6/$I3/d/8.G,L[y6*OPh>24*UyH^KuIFF05?RY'Zk;wo]
U"QTo6.M[b_=Ikz8CxZp3EvqZ$Cv<xDsUkE;bx_=7.&]:Knb\Sf3Q?H=PT;nSwpLD
U"5p#sm8^?nJU,GIzUvwmFF/BjR%MiKvcveQ0(^MjGBJi.f^ea0?Pmfsw*DDhgRHv
U"tNL_mV;KnVESJ'XIUUf30bI2hjpKZ/7PWHoOywcS'vU>rQ(#Fva9?4xId9mRuq$
U"<PEqzoMMU#a(<X=Vs6'?#>H8h[8Ibl1,#SnUa&-Rr<1+T,oNRTJ4>?f:LK^ppPE
U"0D?As\0LJ?]uDNfEkrZHB4F#mWAG?%X]u0mst.LU.38Bd/h6Ln+=,h0ZkZirg7)
U"P;RR\\nVBqTWB#hvhn^^w,'d\g/h4]]Zw?,uZno],ZhqVj60Xpz\:f_]HeE_RAk
U"D=ARNI*p;DCQ$%c^_FgN>qpTFN;kbs;EKTMvM\DJ&g8GG.x'n.v3_0K&BP5+cx-
U"dRM/T]&qa?>)l(wGI'X,>y+2Yp&Nl^;A(8k$4rgl-;RlniXE0bIyF#$U17CE/zS
U"00#NZQkG3/w6F0A.Dq74]WJ^2[>b9.sME^+.B_^Ud1?4c5k^2NkDc<ES;;yMrHp
U"htZ]b*$u:.JL+/)ABmz/Sxc_p[+KGf-qqw6T&WL*aLw_>VCO:Z1K9k4/(Sg^_>r
U"%HRCa)ovmbG6af>t]JGtYp=)vTpL=,2OM.5g.jc0i4Sd2gE4doptL%7-&o1)%89
U"n:.9,Ir;cG_ACV[&_c-#BTjavqS6#noD;<W=&\Gukv9_*_p*&Z:sb/YE:Ctcm8D
U"%[E$;6>E;61tb.0N[d(W>82_WDfxOB]M:Sk([fFHP%.I_Y?PlhnA&n$cS&ARgr_
U"Rn46v<m[_U:bK0sXxM,hw[C2Fv&2[L?jeUg&=e&f7JM6S8WZ;7X?>%=Ql7FTe/=
U"ZZ3t[fY>?0Q%-+%M03OiT=#>::+]O.nU>7gxl$;Ap2(tPT%U0&-Gxy$Z_D6Lkbw
U"Wc3]vZ(KpI/ARQBENY&*6NG1bodFm$L/HtlA#Z,ll^-XnA%:7JnI=5?I.NrYDE8
U"<i3AL;)yAxYW4X,A&bL$INID/f)n&O<OjFZ\;KpxJhr;=_nHUI<0c1nChomtv1d
U"kA:)ff4Ug:Zvqka>MO:O;h1gJLj&\?\FXsh;fJ?8DXbM#M)Z(B9d\sf.jTS$rvT
U"J_*ryW+M=SJO:0xnNRWMZR&bcH6W8_rI(bIFnUxLq1*DLl>:?cjWFF4corUzEg]
U"tBIn+lHd.H&rE+OEf39)hPtW&ca_QYdC$apgR?wKKpv;Kbftw%k:Oys(cUhUbfI
U"7^_Rlb\1SY3lc<(&Ll4wv($1DE-fE)Z7QMg1_(5.G>TOKz$d9$DUu&e(a,1Y*EA
U"_N4TSf,pZw9A,,oql4IJR<&AkKu4sw]hZ*KY9J#Syg#*n+o,3<zj3(,wRBRft-P
U"RYW('$$BRi$,GS*T2g4(%Rn^WB$--h9%E1OhuSCrP;?gn2TAA4TgLPr-bvxhFaT
U">EpREUXD\$?td=#3ed5g5j2B'(SV<rB[t/d]sr\G-B;jccMW4q>JNf%;;#xoV4/
U"$[6vM8)X9_\1]LIohY'[MIiXgl3]#exEBXY=f9amgx?Bi1B,$lVQJPL/DAX%Aml
U"L/bdXI1U]ps5pVqW09,_a\kP]Lpi;5+r]qu/JZ[zx'XtSTLHa])UfD)Z$.**'%4
U"1zzW7jqEf+1:)#NRZdnc5:LKmmHuG#:$%1&8jx/Oe(o\i8ro[DJuw:hrDY=Wh[g
U"ao82TBvs8R=DIK4(:+NdImD#.3b1VZeC/^7.oS;v8we*mI&lCEu8b[R>BjeMk+0
U"CW8R8l^Ma-&D26&hRi6KMsn:C]pciF#1B0[J3=1,ILi6^TXk8uml/kpV_C4S&=(
U"WtjO)D$N6O8GZt8sAEfTb9N9LyEi%%)S-$$6g?])troi/3R)VDrqGoZIo>1QKAX
U"EsXQB&^4shKU<o-)_&NkK%u_hxdVk2A9%1G;A%P'*^Trk'Ye#K5a0o2rewY+2Nw
U"Z,2)weUQqbVaM*v0Dk:#_iw;16O:_J?Px#zO/b+t$(]lsb<kk1r5/CiL2xCwo^v
U"d*jzI.T<]ooftv(>cD-E#wy54lC25YG[NN+JWyiA3*OB#l*mhNe)SFS?T&Y;NY<
U"qS2uerM=uA$<HQ_vUCu)o<AL)X:_3$.p219c$gfsc^:=zS-_.txs0>&3<Y_MK:E
U"._ZW\'MHw5S#vW#vN<l&t1U<KB(tM[?zv=<8cSP['5os;&cqN/o#8.Q,5'6'UGj
U"f$D14g#XfM:28\H[=SR9gu'9?'uWhf6k.\Y\BwF\%mTH/fMs,9Kd2nxE/ZBN;.=
U"_[2Or$<)Ep69^2V>bd6:Q%IHxi0Vrh[r7p^)w^SVcT&mCakl-OIiB.Kuc&$[[yr
U",5InbEP+KqCI_jGbQcqCe$=vpIVKfKshkc;H'ao3%'p#v#9)La8V=jnaKi(<%Rh
U"JfO9h.$iZ7&4Z>Ti,TF&nbeY%z=Rj</_OY+wE>(TUf&3w<Z:u2a;==a%W-D0Va.
U"_pw#QPu8JW5HS+8g*3UG*kMS9XimlqsWcwKxmlY_Lsym'1qcON21E:g-7xqpC^q
U"\s3K+UJ=8a8W0wj4[.C-9fSjL,NKTHcf2k#=1Ef0?fJvN4m2<(f4/b^=*?9>zZ^
U"N8FGvM0:X^nuLY,GbQBC65<$?Mm]Gm_?c,scV/98,3ZmO/;Y/cLq:G^Wa?h,$mo
U"J,ji#X-9Ikqqg-uk/e9d.'R-jR*TnqTD2+D.6'8NpAV4uOoR*i:iETRCc?SL0Yi
U"9fP*DHCjrC_eH<Facqu4m^Qqlg)FB;-eWr80gnb1x*+WJsvBNa'X3P+$<L9691*
U"tA/8#mzoYgJ>fGavg-'<71^ng/(dg?v_]WF02'y]w4CqX0/'s\MCN&Na5\dQ;P<
U"P%L9G3qTwH9n.0d6Mi:+N=UwChg%5^#txUIMC8,Ms=R-UhrTV&Bj;HCo[xcN/bV
U"U[:ifG?BYM10BEPInRB)L(d\5MikTKf,^?<Rd4sD(HgXKLd(aY\KYuS&:nX<cBo
U":7KcCUO^C7Bbar6D1j[iXw$>L/)Iza#Di<[$Wqin\TwbWYq4NOTx]rVb5gKiRdf
U"fi[QIt0.n:3sV9$RTiAuYcL=MXsaQf_1IEXoU$\',rLMfJl-fo4JpGz^OSS1Riu
U"=mJ-2:HTo4ZqLbLeq*Yuni,2a%_Bn/wNuV6/):'VyE1EPZX=C4AhJbEws$.pvGs
U"9j<?Q_$ecpjs*B0n.C3G?EQ=Z#Hq_rfiw:cFkb0WbMAh*&PDc8'%XP$?e#r[,Z<
U"\qp$T+y#7[xEZIlxk?=jOQYB=Zt.-6CpONP3]_mZLMtoTRbb(;).Bsl4e%a$B\=
U"JS?<1U0s^W\fu:F+5gE_(-8d+O2P\7t8c\0i(HkQOmRcQ'.Syb^H.ue]kzHCFxH
U"5_TAKXsa#D9G]Gv.nCrKj=CmQA^WO&W*\NHUw+rjf:(KhUpJ3a1iQFMmlGSfoNa
U"LJUDZl]5QHXlY1MfqTDiXG)6Ph=r0$q9$7bmM8_M-;9%hr59Hf6o4HjLG9F;PRC
U"201a.TDGcSwU)<2-^9HaYpfI5*6Tp?PMY/,v$o*yLZ3oF1j/oa++2T)j4jvsc8-
U"$M.sb0ro\nS-1Sk1rI,g5%*u<.jYUj8cj>O.<cU/tB:GF_M252D4;3DoqW5Dw\/
U"EKge7dLj)n4\,tl0?X*\V3cGjgNFFt4;'h9L25Rj+b1E.t$#6X6x4er5>njdql8
U"0w%(up(%)9%%[%-%&bm]A1YH.Q:%l%%Z'l%%0%%%%r%fuun%slSgRfxML)JBH\;
U"a6Ur?=uZ-alUL18R]Vv,34Iprcf4T%CDjv)9]JwIpw=8&1[[eR;MOyG'Y;YZF_?
U"KsPhx,>#$t534n1d';FX&g9YsMesQJh<aVqe54Z$mQ]\f(Z:,#KbLrjiQe5M#iJ
U"9ngOBNJ;)FfZd-jBY6Uq]QSLtv#IW<GCG[K]#Bh[#E<(LQ2;0eGbHqpcwg59p+\
U"KJTs&V<5j_#BJa\-m>ZE2sj-r2CbmA*^BrO53r'%^FoC>^D2:DR9?/62RgvDnC8
U"_aibZrRaUPRMUC2v#-%QuktQb86tM0NaVn,,Z9REJ\(be8CVvpg?K=;AuO,)/$]
U"MD<rg==TmiYVH%l?sNr>g>2K*S1WrL;[z*fVVm\H.Li?IJYX*9:wBK^WYlj__2d
U"iRw^D$KWYZ45u4cOP$_;c0B.j-_%T>LF2#g^(J5hbisP/s64Z'i(UlQs/#;]$;\
U"igg%bvWi5I&qDrjW2W$_aj*6C,GUfD*-rQ$Oc\0[i/#s^AnImj9s&h_-k<-&[au
U"Q%L<l?/SnX>'BB3&2BrKMR*tGi8_\ral:k,VCV&LaF6l_pdE#dH1R]zDFjbEuKb
U"+Wo^vhdPbDErZXc-J<syhC?ln^<3_5?D]Om)HgS3e,fc^nOE,[TmV%:.A,r\qsY
U"*b#%RSK%y$XWY0RRh_,O;+zvsF4OxafLh1HeB7xCx$8h<K4DY?(G]54M:nJ1'6a
U"lRlaD1S$BlkW,yr?slPH^gl#$iPTAe=JHI68:yKuf#QSWpVcWmLa#,QL9vV6U>n
U"'bxr%J8U;vmAt0rikI9uk*O6u2r\l6*kd]*St[qi%Ih8tCTSsc.LeV,52To.wV%
U"RFHjcszPvW4>ur=0_tfmfXr^_W'fl;T^Gsx+V_>rdwV,D6d_wZN?1GZuLmmGkHk
U"Uka6Td.TLJ,TQPw#FK$bJbNniLEQJfkEud$e18Hw8aoddk'kSJn-iSL%XZv,6:u
U"ifggF^8:Y)x(KmjikC:ackQ_SR)]CQG=v8R74l3':)CeXI_rf5.%]'u?pMCEZ8K
U">[Wc.Rb\A:D4X:B69*I7:Y?w>8(S=i+r0jl>jCED$X'P]wWW:+R+$t\D_Zc3In[
U"TYEbY=UZR>-c'9xOLEN8z:KbeD.H]\Ftm_75o),L?:nTkiGT6CnL+q9g>L,KhSG
U"T&y^Q6\VQIS0/QePu]/^m3xv(Da;S':)l:HfYS12ns8[1tDGG\#yy4'c8<3pe:Q
U"uT'9>cxXUd'XrwDh0k/FI0k*85A%YRaJk'6L%adp?VfO*L*NkI;eff[0QHh^qX8
U"Bc&CWeVe/?8?cbWO9pjkvF=:c#4]pK=:2hUiYB(??Gd<(U&iLr/*5s)AX+7:M$A
U"Xac5zAHAgW'3eKuQ]2H3#Xhni]?w%bvU)vBKRA4#w08i19Mv:H28dxmpdsf&[R.
U"#9#4Y]$u-)P;UasIF<A\N2S5YZ9=]V-SP#(pHmUj;Gbmi&LbA>\Kv=m:&qWqC(1
U"P6#l%NN&nlD;iBLV:+,rXs$%(G>,6+E6#L7S)ZBh#76OF#G<hcg<wcBp1sR?3]/
U"9Y2t[\^,w#Ue:5.Il'qN:Gs7J_MH13z;%EkW8A%z<;LC:9i;qk<GA=sqQqAk#b1
U"qo1cSYxM6+2Rl<C3FC+rV5v1fNc4vTprQ7c)=BuVOq\$8doe)HkEnvZ40P=5-n(
U"G3^c56*3QXU0Zx%B:-gLA#?h8_Yu2=nG$XYx\cti]=)DLOA'1L#VuAYLAmIF*n?
U"5hL7q3qE>(9:7eX1^8Bj'nPlW9):[ixx2E=nu)+qq2?nJAt;DdMXgGt<VK&6[fT
U"-m^$=,,fxr85]_>+D_G(c4%\Df=C:*)pkJ6/l7$qGT*P/ZVj1BOdG4ECP_>OL(Q
U"r(L3l2B8mRYKBRQrp2ZAUhC)ZkN%wxc9D=ZeJVBG0]kj)2E^ziC#[r5Lsj;_/X8
U"2<BqPTsy^IMjC^\O]CKYE,DxNA[Tv7nVG7WQQ:W-d:#$nXkh.YSW\1X\LR71)lt
U"F>6jF]M6xkV>3<jYQ^e%N?Ov$YoQmcG9gVofAN6MEUH#=xAu;Psu+00#aci]Pdb
U"v11<#)mZ8iiAqR(c5l]lQwXDRY1b\z#4=6Tn*%jS4IC$72,)mN4ohoSMIg-3U3;
U"F5-Pg;;X,d9$0?XYg#hP*J#)h_h4E=[K0[C_1$k3iDx8(*[KkXg;9IAie&%=8+X
U".m>BwBUYW\[PM/Qz'8.2',SgkVnC>?[m^%;Q$UmZ$;-C,aCfG7mRC*68m9?xv2#
U"-gyi\?\&,4'0x]C*-7PE7NIGLgKRiQJ>(v<X>.t4hIYe5C;<Lh/MO5BPR*vlj\1
U"#9bR%#*g(JL)Q+28dbSg02PQr>/k1Ln]G)A3AYfi6l^jS%W>cAxE>;/9F>2&O:.
U"0<MBKlvCD5K_]SV/%DVA]9-cq4H'Z[ZPNg\ZV0Oln-zZjn>#HhdD^S]$6_8]Aax
U"YaYoRNFM\u#8SR(4a%IGPPNtQ&\K>t4W:r*\#SDI2eXd6#]E*GG9_KTBJyeoZ/S
U"f5MfL7E;N7.thJdiRRHpuE*M<ZtP'(NHGA;m$/=ZQC=$fOTcW0?%QJbC^k*fI8r
U"BIP6kMlKbHkVR.''(D)2mZ5TR/ug(6(J<[3T;nzRJOrU/8L/[KOuK$\)p/O&WtI
U"MP%:(v+&vXxO,seg\WYl?UNzh+kxRS=ZZTNx<i-1fs^D]u(B<g554B;'21pdIFX
U"YL6JhM8W'ZzThl3[\wu[YirVZf(-PNlULZ44T]Lx0woo/yR&N)yauADr\Fu,=w7
U"lmbvKhv>Nw9rIwMMoBU]\L6bcLjh-hu;X4*]0fW[<mjVlM%X(Lj:KeF0=l$N466
U"2RBq-pE5<%Lyn^'D..0^R(\?9#2UCRqmgm'\SFC4+60YqPaD5Xq>pui#bN&=u8_
U"C0])'?2XjOz\GZ.I/>EC1AM(_O#-SoE--/IB]Tl)LTOv\O\FKT1eY45p'?bW10;
U"dUChC6BJ'k[;j'6hu'3S&2NYx#EsrKDV\.a*eknH4b/YmM4D31GmK(c8QswM%pO
U"-xv3,\mXloLDjujTVVldIm'FsOM$=OITdahduLCONhA1B%>EKA'wC.$DI:V%Lw(
U"\9,PMi9Jy?VAm[sMoC0nPJvnnZfd8<iKkhvc<Q:EZ>NK+5KSCOM%.:ubqJ^4:a>
U"pOL4o%LE6=[K#g23%:b?,7W[J?]ciA2nr1ON']RAAM%P$E8J9OUH]uvIYof-S3i
U"8E&m?s&,XkrIG%%30oYU_66iuR8PqKF:;c^6;+M1c2Ci]EKxibQuHej=imH#7wT
U"cc9l1G#8H1I<G==X7'3o>gto*&U9Tn_%P8x%*6-R9oqxJ)Xgp4M+l?HDmmyw+F.
U"Hvt\gKWH-b]lDX5shC-0Ze(KJfbqb5<V10alo*5q/\lCMx3a^3N_-,\cf?8kJG]
U"5jc%^)[W8(3f(\.0;4<nOO<WvN<Th_%#NHKqbW-H&#Qxb+=[by:>^AI:+\:-LWo
U"5cPt+aS.BHvzjufbH%1Qhj4K?W4eBr4E3nF3IeoV_#2?)4M8uY6#pfZ,l=dx)h<
U"l4.Q'vHO8aM68B^HJq;OwYf4K.XL*&%TxHQAP8eR$ZO;hrI?;Qsh*%g\7n+qUM,
U"<>yh^yHaGl#.)qmm1*QB&S;.KAY>(/%ij'H&fcQn4o[Cn;=_N_Kna)o?CeWy^.P
U"kE=cBeBvuce+1-IwRT_816PNXOm>J;))3N<#y_]v,ZOR:YjGTO]<[Aqv=4>ypdQ
U"#,LN,2A'R2j>$/$OM?Vhpy/r.4TH':<SZBYV._6tq+sCJ5wZ5pKVI#t9[#1X:>7
U"N/kzM+Iq8iahggr>0$9b9]f>:?#W1o][S-HMn82d$'aKJ+H8or;:\)lGLoxHrB_
U"y&tR:lmEiY<.#phNVc;&L\>DD_Q2Uqyj-Ie)J#GE?#sa((cd$>Fsnt^Xh0>Syf&
U"?Sq3=_MRbe=j/w2[j&I/Y&FcWkV3]6F3-UAW3ZoZh7T+j2Pj?1WmK^sXky1N\qC
U"gE9O,O<m$\Lfrq7$&b(MlZtfsty6FLZf\#2Xc4kB'/+J#\_KMSjp+[X3++FwjqA
U"e3+GC.2+/[5t>Ye+<$Gnb'.ZkCq)J/&ugp>Yc(K9GQ2iADoDg1QYkwBoRc'O,/v
U"e9gr6/Y*GH3sPV-?n\-b2(>nO5(Bfj2C*pk#8kwW:-&)90k4hE*hIl<Rn07XtuC
U";)Nj;WXE;5w&rx^')Z(Wc\7uL_,'yK?TQ6G;A+wq+qK$gmhUs0OXm9B6u*4EHxw
U"C;*dpmQJ.Ucm.8\h1>J6IWQr4uq%24HtmfeehKwFT:E.dlblDc*kA(.hj\HjfSM
U"txMq^Jf,1[h*l4Id[J&T?1C_G?I$sg^Ol^h%WE6&E11nz1#)[9kcS#Hm53c:%2E
U"560(dj$45f#sDs+#EBlQ6\:weZ1:=*%,vfm$Z(q;IFgm(X50Fu^M'U?qCKSfM+-
U"_s/r$1$,]_cEg>o$N2&i&r*+#7N6:VTW:djbs.zUAd#%po3g:%LXE51GY_BhF<6
U"P:0[e1X2iax82$=]o;M,_jpbY6NCN5x9p?Q+CNT(\VZ5hI/OUOmQwUX4:2a&W.C
U"N*32R[IgdqB;fp1^M=mF'U:F&d\r/]*^j):U2Ob/IYdBTHqmv)knV/2w2o6ub4C
U"jiwY?Je+AkZ(e)X8K%:_P[ko:D1mop:3kJF:?D0C1,PA?)Mh2U5r[obUJMK9l0k
U"O;n-R=B[.,9wyZnQ1=Go'Lv)6jqc_.B9^7L&[:fOEIHS$VX/o#JVtvh-]<VP<s;
U"eW/6,Q/&3Q]5[AO,()/kw,#]'[oO^QcXnOJb8Z(pJLg*;uhqv>6poq$wDUTkSDs
U"kkPCKR5cPPM#Y4rx:ijj$f<br+DPYs*?LGU%ZIRKJd0FAV-e>c:F]_1k*hoU:rw
U"N?nmlFJUJ9i1uHXVo1eKwZ=hIF]%w&&Z(6mt9wL1haT+OHMe,AYjshqWk7S2Pjk
U"%ZwU*w_OZ;ZmjJ1OKD*?\2tNO_sd%b8RV3,vZr\X#A%%En$W6C]c9#%-H&:PLl[
U"9%9sLS$GT9jE%)h#Y-uMM;r1aTv8W22ddxK;,tqO&3,Z\4>%s)#%3h.avhZ5foZ
U"LPLx2c_5+u$Lo7C)Ndo*T7%5M<31m4]C-dfm^kL<]:INC[0%=-=#EX+dTI6,%Pc
U"-3+Zs+I3Eqk)8%*<gx=h2b&uXx%7=]A)culJuA9j3RBokQ63(<Q:o2MJR]K23pN
U"4qN-s$A>Q]/Zed8gd+dTEouhhw4HuX*VVia.pV7gSluW:<PoFB9AB,>;Qk;_(b9
U"n$vWX.mN<HwNp-vtZ3Az0cM6LIE<cWv*w6+YdHuphG<Zll8Ocfrhltin'He^_66
U"rx,umulXgaBU3uJrfwvmqJC6WKE;E0Wxq8WbsE=tFBv96(.G\20.LU?+1[P?]=\
U"*.QxIfwGk#>;mLy0mm<=Lke.ddsuo=mf74ifrCf<l.>k#a+.AmhXKo:_n0DQ)lN
U"f.&eQtX'?u)HwkdZZRfL]$x'o)&#wKufN#ZV2U0%z50)V9yvC9HSi9W;NvHtrP8
U"v/5v.wSw$f-?8Wg8=c]P%O6SL[PF[%z(j<.JaYawGmpI,U^%-b]g6Q*>K;%?Q3M
U"GT%.?Ehx]>%.24,k#3_E4mCi$#vic:=[YDu*G3[7kOk4FbyR$I+k].HgT5ew=C%
U"47B7<+gn-I-.=]5%GB1-n(zT1u>:sLYnLU)[po%7FgIao5P\IhKGY:7XfaAg)[d
U"X^B].O((U&:eC<Rnx0t=v6DO=2gBCqeoCQH1uf<ZiS09qFGjN[1s\^7B5,rLq3L
U"jS09,6,t;,[$^]j$i3G+;s4OY=?=CKPMil+qUeedVs>WP0E[]'>mqjp?#ki?FB*
U",dCD?Z4=-fb0;&n11vt(GV[48m%>1cItasGf(s.xW6c4,z3=m\*&^%P'ArI5#Lc
U"u_T>X<\ej57Ug+(Mcr#Y\D6F5JhOs-aF>_QX.jg/'2IKt]._AnV8BeVMp_D/0=c
U"nqG>;,0j5RX94AsaB5^4-g/7tkjf50bM_H2Cc2z1V&'8JrR3X*NVR_llMHIidCY
U"Fu&iea+Vwro'%tIH)+/k9Q#S]uXPW7qHtMJ8/nSSHGHYfFB^]xc+=]ef'*,R3G=
U"uDEGD=uTOE1A364,SI0afw]#D*Vq=5w?/eZFmvJg$gr,bIt,VQv$V:4TJR^.ki&
U"iSw4HFk&e_FV>.Yg^whHLJ$4#c*9hnA])^Z=->Um)I]E.P7&r_X#UP3<2B99OPB
U".2?\WPAmXhlswaxhC,Xk$ukgeRj+S-ee/0o3?*,IhnFB6:0C(sptw)$B(GFmjl$
U"<;^cRc45-R,#$h#fo67==Fd/s-Xph#g+3XAWJK&a;x^S(9J0BUnlsFPs$.0e[yx
U"0R7JudH&XCBOpcQqO_Qp.G#z/w2FuDm#-TdqsM[F-.C^_aZrU=25:%N<\^TmDKs
U"M9b)lx[jvj5.JqufFZwB7>8MMKL?7.TcTT<ondPNj\=EC.>3-8V1TC05/(4lX5+
U"8b;4YDk\G#,I,&Q%lt#54lXb-,k%8HWq2f6_Q*walQOHj:FJ?vvg(FIw,k22vmt
U"6Fg)QL%x[YAB:Px=(4)vQm,?KNVyZmsn%j<3Jq518_9oekk]pc1x*PeQHv]V)6m
U"-uN[BkJ+eOsj,Td]-4Y.D&];9c.pus0vbc3)p.CJ:uQhFZn4.s/]$lS[E4a2&y,
U"M6_WND.l8%nt(4lSUrJZ$TOqP&:88F1pnbOpekB-m&tn),skD,JUCaPNJrbG;B8
U"KT[u4KpVJ;AFCZ=,'+30EGL.1wnU-\14nbJs1sJtWNTP>m#9]'qV$/Km>cX*F2]
U"O7/,ob<Mm81$R'eAO,jvos73rIIY#2mKW-oUD#8[Y-lX)JNg-48u:Snl3_r6U^)
U"DWcBl]t;]i>aSo*%P\en5^;K:P2CCd/XvIQ^\O(YuHNDBTcyIc?M_t-#iDj/FHX
U"amfQ_$YQSen^T8atPZRY=oYnbh:U%U>I:J9+.CI%PKHCe[rJ)Fhr(UJ*WBU4,^q
U"27B94qNAy9P]U%0Y;BiP0:^>[6Oa/v'hNLf.+IA5PGF]_G0hNa(=uLC+hF)AUOi
U"f4Iag<VGBDJmIQCBXQ*Xy7uqJMQ4UcX<#q8q,?Tm24W:V&,VB9u+WyMM*JbX]%N
U">QNH)Nu'<Bt2:gj%&4%]['QEJp[JTeTAOo\Xd%k^[%37$f[taNc,w,4MA#1(^i=
U"E\sER(NhVz)5z\P4sxAU[&q9Xfxhl^T+12ch%ZmN-o;a>2Evc4S=nP>2'fE65<L
U"GMV8?lJoiviDZ.BL$O=M#y6:3C>h.o0^>?8?/E[Y8.s^=0At5fuGO]*_;o*pKJ7
U"36bloN4Jh.tEsU/Q<e*D#SXrNLi0A>zCcP9bEDyfZ?8%ztZtmUc8Eh:GP$(JZQu
U"QYRm8kre]oG-2l8ezY-jadCRu:D0E\/I47X.R:*PEJTs%SgvdVxQ'Gci_zf>ld$
U"*M[mx0(+W.m12]On?8u;wX.RDLUpt[+tMx[KiZkzhJ>:^-/8WftLRW?C]^AAPSV
U"5MGGD$I)T$-Z$UvE4m^&Tw$Jee:4Ll.T+BG=B)=^ZJ^a1mAjoPJCpurQw&Z[HO:
U";kB,;)V]%Kjr+9,WPw:e%:;J9qXXUJM,:MYDBu,v<q\)p92D+h30gVTrh'E$PV)
U"e5'O,.t>>&i>eOpMf$^]*X<&jl0KS3f_$UASK9RB?%E5WCxI>f^DY]wM;Em*deQ
U".xdWrm^&_O,LdRp\gHo&aGxMOl>vk;L[>AKUY]zm4h/h?p*Tap+\fa?%Wq&FrO#
U"SUTLrTMh>Oni;#;-W3PEB.^VeV>q&MiGOvJbCM3N&*Y?vn4aJNkH,m;N)/2-LKe
U"yKq#>?=>L&)M2?])LHpge<'LZ#RK+SRymDWuHy6T^n<Em_c(;m_uUVjq8)BfU)(
U"#R]^bi[KVvrj<Ff6i<>g_%?K4c$ncGA(BwEApt(#C8vUg'\3UzN$QLG'X_(9TO4
U"F:18n2&o_cEKmas9q2SgzGX.1Ord&PPBBT9(qgA4>jiuTEdS;TE762:NVB[%j+Y
U"-mxv-qx\^a>Vk3Qam)cu%u7RHqZv^7k=F.fe:_7V-5.ZgB1).IZA+)%[0sQ*IjO
U"QP;e+)Vh.Eil<-'.2df9Z2SWp^l)B[6At[n#&+Dg);ZzsrWqu?yY,\'NpExN1$j
U"Uc6.:o3I']as9tHK7uqqD;E3[0O<,RQJA3&Z/h/)GQE+VlOQ7W':p-8SF40SHUX
END SUB
SUB V2
U"toiQOcZ6?ZYH6NEHrfElUCh$^I$U3z1GT;Dpc)RiUG3(Ytrsc4O/tYlun4&ljLN
U"-8itsInW-%L.Uz'^lQ(W'H:\dd;*Qm>PQM'L9qA8rgDWr#1n/]tmAWEzRIUi$y#
U"4GYO2VoDw5s%qOh[plp\l452CjjJfHa44XN.q'p,(a-*m]oMAg-\/U#JZ]3^nLi
U"6^/p.sV=eoF#96eqk3UgKd7JX,?')=7%>/W9;C+R5S^uFm[m/BS\554T/NM0)f#
U".CVuLviC&*uPe4j%#e+83+KRauW8_I>Q?nl%#&\=8BAr4nD*GQS5603R:eM,Sqr
U"jfnhv3i[/gZQYk1[pX+;Yl<*SsE9^>fpYdWRkOE\^\:sa0<hJi##jFYJHG>5s=I
U"ZDu=C#v6d$=to/$VwKto#)F,9h=7(kO3pGI:^OY[u1mtN89<YFFK/W:b%%9SW-*
U"^W;SOQGs/TCX'NkV]&Qt5]<H7icDERupd+rvB,T=F8YaJ%'bc>Y?O*R=u55GkFM
U"t0HEPM,rJJWSc7LHrG=jM:B$HQ=[bb&]q?,sE?C#Rt3jI2BMTyC2Lk/.[IxZQ%V
U"_kRH+A%ZD?R:De:o*NTs9O;*SqYrE:?=v.ecq]$.RX:Nj5(aptvB;L*;YXj6Qq0
U"opu/TPg<Il=pY)lp?L2]DTl.W?Juc(urIeb9xdOe5YG2mWb&hLu,w1698pM_U^J
U"W;t.+?tpszJ5XdmasmRr#bDagi7*(bRM3cTT0&21V]p2'n-'R,5ca2H<TEQ2ICi
U"e<M%RwZ$YFr\FO)h6S[/P<0=?_&X0[iwgW9..Jyp&jt[DH#t%S7bt:X;eYd$,wQ
U"B85+6Lc*f.f[$-z'tTS:]=tA0(4)>*k8A$ahRK(G]cF=NGG4<>T8(0K'HvC$:OQ
U"U/4R_1(g*;-JkpN93M:a2?$:G%6yYT<noP5NfJdsm?A.gKX62'wuaOu^Fy1#EPL
U"a\/C>E<W^\P]k3o9[u5fpran=hYBaYYau:2cE=dF<[[907(-Lec?:(FmR;E\H--
U"PObbvrZ'h/1[$Ku]uLJjq&s_A1;I$dC2<Y%n]PHV-7;tga5:L#7eI9HGAXC;s:>
U"guIW]2h(\Rag)M&4C0.b60E\X9O#(5LwZiEF>_zDDEf8.%VI)Mf2K^s]8HP0HT1
U"3Vetpi-r>Y17'MIAZ8sx7;]^q2O#FaS0,FNWGM=nL[vqOuEI;Dj-lMxBUqt<yOl
U"+5<:,yJY]p'c?Izqe;pnPVmASd3'un1T2ZiO#iQV><1&S<W'l6B[&):OM]CUCRd
U"A+=lB2#MuXIiHJPe;gu3*Kt5uQ+RweS]D[-KGH?ts3Dlnn,&JdkCh=-ZU^.ID0t
U"fERIsw9BxR'1ttt>eoeyW*jG51h+jWB?8WPs.qeIt[-+x)sJ#TF06n?-;gi?;LF
U"Y)lz:B'K]i5yswM[Smd&Dlfw.$pl0tERg0QGumNftl%*\**]4YD[l2eNxMes,%S
U"(knv?8TC>YQ%7xrj)u7DQOqqsCf-?7LrTaA+&GL9sV:4L)?TYn#LLi[:ZYQagm[
U"G4&dg5gqh(#N<2DOM5EUqDg][04/MrwYbKIDpQU5G0HD]G6:;UGGa5Or9/b'l)i
U"Aeh^$ibQxq&n&oIad2=Gh-4\E2IHn[\8zwT?5]6PsT9ZT-NrdYnV(ExBO0uE0Ga
U"K*'U7QtAk,K()iMir4hCC%*Jy]4/;.5On^UYrGm03tViPp7K_Pb(AF.fzM6T>qT
U"p[V*$6Oz:%Z.j<cOhTdf1QFEKOSCwNfY8&-jP>+QoOBLus1c+t:n+Th3g/($ex[
U"Z0LBn;oSHD=<AfcYP2sWCS]$foXtM[K;6D?aOt[uBnD>)ck4(H(O=kt_+$EEFL0
U"KC4MzfOn&FUEBJvkIL+9]tW,fY3^tK*hD=MV7Mg-+US\g-0Yhb<kPNv=,OnT++B
U"ig?i#Lau1JY54Y]5R[<pYyMZzN0Fw3-FW3I%1*d[*RVs#?X,L3g'Sp-R+2Q&]0A
U"]=d>:'N.brUX,*a8AT_KT35^6^Hc*QBDPlC*'/Mpw.;KAh=0D8)XR8*?f0:N<_;
U"(T8E'0n_E1LwgJXzSUkJgZ(h],b<;OPZ*mo]:m?aZCH34dO'I,MYyT/zE'q91b.
U"0</<[SgI$,kjd4)r.Gv1xWFM&.?V3N.TDS/g#DdW:ElM;uG?Aq<(#n2oRhWGVVK
U"jmU\Q9g0H1&E:rCfW,P9>q,*cjg2kfh,gKJ?)OcNH)Og^BDvR]=RE4NDVj$jXR#
U"b&g.dtohW(YZ54(TjaeF(K6^9<mOny&sG$>'2MuSAR*K;P/jrAnG7<IDiivGgN3
U"?Zo;??Zl-e:&\07?;YDOA:2:3(L5sZ:=)wx-(rl,v',5JUce=ANpF>vC^<k6>'*
U"Z9aw*We*eIQ\(i[y4E>o)']tUhgMLA0?^4cDrdQnU(</S^]'[^7mENim0-/99D(
U"K4]jJzWqdEL3ql=5=Q/)x%Nr1_0Ja.g7_9LACXi5>L2pk'j9n=ugEf0_V\ua](3
U"rD4e,\gEN4uN_?di)#,'M=yue;E\f6W4mu;uK7)^6\'3lM4%QsJGxKpklN]q%uC
U"A4yf.#We0+dAcH#7O$%jD4Vew2^6(3SB,SER04?TYk&fXhNf.WDbRLOjwQ(3C8x
U"Pzp\I*R/\')W+(e*)q,huwHTFh%]OOOh'3g+9Bc1+LMZG#9-cc^]6U3_.U6zs/C
U"ZwN0TYbDY]oH(+m&1$5d2coZli.x2-WeZ%2w/^CQQSXvOC?xZdwx\-5m-43dhm:
U"?)I3ye:MXlA^8.6GkX1Gl7eCG+S'GcrdqcYA$9im&9-3I0j#->1?Q.7=3EePRaI
U"67D%S,o'ZMVD-OXM:YRE+MZ3D3I8Y)^4cL>]7p^X3nHU0N*Qi+AH/bu_);3'wv;
U"eI*4)-j:koDWYl?&<b_]<Cx7r*$eTetDZb&nz57</E#AWPl:[k;]tCPqU87ubq]
U"K33h/wc%((f\pLt^1kHKRcjx4Nw3kZ\CS$g%pJ5(vhh/:cpM'h;SNnL[l-T,Xy#
U"uf.ZT/%Obts_qIs:qGe&t]Te(o%T0Jc^P<KGh7b$N<uCnsr3+$u_U7))iD5W5mW
U"=fmGj8<jD:'YPDr^(l-z[eRnv$C6O&wUqvDlGT[y%A0Um&=/?Rqjxx=1a$kQ7B2
U"VKzhHcYK36SkSZIX+qf1BeCF:<]qMs78AN5l%Vnt/DCYswP.UnGi'DNHm?(l**&
U"-kJ,wdKgFEV3uSAHODa4[p+i'dua.t&7)[9O>UUasY*3:CWxN&;Oa*2aXjtjRQX
U".r/75^K#3\o1Av_.wcC=j^P>O8nJ,<d3Dem\?%Hr;T'^8TbO\?TXc6>%71J<8A$
U"X[dT^a3hQMAu%TiRC?sJ7_lEd8===<:g=?r)/(/GImr7N33nY_oA^VkB.yunqx>
U"vcu+xW00I7%q^)meF/D+Hm]bhq8k0\[OZ8b+HAC/BCFGAlcNsza2GpisQ)6w(kD
U"XRVjY()vmG(tG9kh[xS;o8zQRi%3?OTn^%D,vUu;Zgwc(ns;CyskM#NO*;O%3s(
U"g9%6d/3HwVRr'WzE3J%YJSPH3$G%rDfG*K7ipX:=6II3m#Mo7JJQ<w>FaeED5T)
U"dGc+.0YbyQ;HI%T/iK#ap6d=KXDAgJ&75n<Qos8Z7mt&?v]=B<:V.cHX/8TU9gc
U"T/y1=R<#*.%v4C'1izn47VPb,Ke%;/MH>m<YhHylb<J3[92Bp&Un-P8XgCQk?^(
U"*hMs.((WYLG1z'K([DMv=#7637'GHKk:HOpmQ8E6kghxbnHtIR^082ZTb<6]8WE
U"ktDkxG+b*t4L/rNG0Sk?\Lp4n.s+bN7>)dBVn^Z3W^$k41.q6m7QR%X&msIjJ%+
U"iACL%D]u\CiPOzTOaS4,fdI%_0:NhU9Eru4-*ANcTKgX5%NqA9lt;InG[\J(2/0
U"kAR\-OX]*cUY4(G=iXOY2l&Iyy-[6JWcE%erR%gNIkeL,(_4y>kYtU4o<A5/fHa
U"F%oYFWtM9/1Bly(ShE$#hqK^rE,5nMrasWd;UP.B[&QE*mR*E..u=+H>l)gCP7/
U"4RWXZke*kPmD=1_.T=pFDkwHK]5#;xGSwB??pQ2Q/bEOE&_Yy-(9Fn9g6Vq/:gZ
U"d8][a>jY611X$kvPb+.znfKki/L.>c1;kJ_,-Lk(4r35Mb0K(=xY1s933P+]1mG
U"O4C(iqjv.%iKiOCV,CVnZ_^6X(^bu-p.\/n*l4D;M32)p'p-Xy\[Xf[^7=u:a_x
U":lEmUz9toGY\Ghoe9EG\;^2-F303Hj[uV6V*-=hD)N,t/xU?tjmlVb]L9ZpsVy#
U">zn;/dyoZ(5nF;*OP0&4,ka9VXQFZ1_[tZQr*M%En=w2Rfd\xm?>4:Lz5KgQTIV
U"2ruQU%,4B'>Si4n2kiV&Sox4C^]AFoO2DM#9NG#P?3Qak0VJiE8qGW^<FMFU%IB
U"VMR&^wSu%N4hhna/]-FX\>JI=ZIYZ;UB2:OrwEEm7StQnoKU5p8ryD.j4[o19e#
U"S)6.8,Fafx05m\eix,D8o_<6Tng=oCNcVcN[&s#l=Mh0#cL:ILm^\nZCFt]Z[H/
U"nUGujmgN<F2IOk\OxROrL06FMtg-r)V^,c)[P9\[?CcbJC5MH4dMkkG\bdf-OGI
U"'xH6Y.LRF_^If1eOA<*U/-[[(Pc]6#azS[]2VV$i*?TM[yGRL<>hJLJE\u&p'ZV
U"xHKFoOf>WVPqg6us_8Hs<iJ2]LkhS91Aw*Tp4,b+G9#w-*%I$%25HHFg:Sxx4PI
U"[Ep3mR;j/\D7iVuSWyS-m9tnSq-UDl.fz5s[fO*sMkf<7&,*e6Yn=FnEXya;3sD
U"oVqJ_FsJKLu?q\A_=eo>GwIg$PP.I]?Nv]%W(A/\6Xv9TGUSuBsx,LASPZ=[K,t
U"]kO<Gt_hxDbgmO5'P>O*;w].MK1\aAr$'WsRQ5d:*p=1$?:IM:nCVvoew2ZVfwh
U"4[t/\eu*CeKz[vX&e?K9t(daLY[i?<.*x9gPE5-2TAlUu1wswud(bsZ]GdnjbS:
U",CWcPjZ0e\STvkn,)fkGo*i;][e4:HcI#fTkP+/Cy5D(pKdlrd$LWu2O5%6U>Ji
U"VQKDq4f+u^gA'kT]/:p]PRi>Tkds]qz=(lH0%,EMsa^^f-]R)*8Ic%bjEG2+:>s
U"JeHjRD60NNRMUN94vwOt(L3>l_VGc_S7/+qbmf7'SgVSo1^htC#m*4t*Uut;/%M
U"<R)=]_$-W+q&=oGG042-Oag5:KA7Pem/>/ppOf)O3(j&3kCTV[c<K)Z$6[+=fq%
U"MWXSG+YAk4AO2sN'7FJrmrZ=VbLelt3]=l3YD0FEOZ:TI]CxtFsCT\$5KliUFQJ
U"j.n^#F+KhkKJm)FqqPqf3I?d+h(FgE#iJ(oh<>pP:D%/07>h5a2*1R1e/YgXMTW
U"0p.uDl^ruTBp^Yd7#2ni5u>*W:bJ:rIN-nD3rYJr2ve>ESo/Oc%28d>0vq/icHK
U"r'NY,?Y;]jnbQ#g+j*?'mosQ-UZAfFK3#)KOp0Gw(n*w)k_.ZZG=%6eSDh<T%K+
U"Fq=iv<hI_<pZEU5s[3Y_krY(l#5KP,z;aoF82kwNO$W^0ow0g=j0.O>/z[h1s-.
U"U]#<1DK63CUnwLd)Ck2-9\B4VFgx<SJ:1R5/;vF]_hwf*]G0#<DwHWKV:n1_dB5
U"SVRT*:V[+X]F;j$h8vYmO;l3H45:THL8QsBL.6#DwepH?40Z:p4]g,d/3e^Pc0Y
U"Ir%lvICnTaD)MDxkxtSCi&2Te-5R5At<BFy)='o>4ZieC&]NCRV-HUj#wLC6;XE
U"_^&&SoN0bnldv%<3>\<02BGix'W_xvm2\Gphhi0687_'mV<qC,tGk^+7MeKM:O/
U"<>Mgy+?\CN=;HoU4\7R%kq*UWqFpJ;6#h;uZlB.GmrqL<&f(BE3S\7V?>.h)hsh
U"TWoq'>32S36Dgdbr5e2Q#L5f*bPOx_Ln+i$A9U3k4f[,rh'\#>%NM]3tyOtVV;8
U"%\*DDnuOF]3iRWdEL;Mwc[><m*G[DegH+/%9.AqpPR_#$W%Yq7(&SVfn2RA._)d
U"(Z7+O7n0btR^)=1E=ORgyHrs%K=b4U,u;7*+%[&RD9;P\>_O$b(3^0amTXJ^S?'
U".A$%D;Z2l(qZV]IW-')S>TE:fj'2G<MhQ1K#+_lpF'tA^B[&%5RseNkgKo[B&Q>
U"B3R(q]co.soo+1Y05/GW\5ekjIc_S?6FVzZ,%brNd4nuE6lh9hL/%DG+)4+4JmS
U"Nf+oSWf+7]nU5tGiSdZaq+I7p:>vE0BOAl8jt=xnjd+0C,JuheG*SM386vwdk$*
U"=9$a/P;rEE?%?Y7_3I;#KG(=>Q-n/YkqvkjJ9pT?Xu<9fCP$76^Zp+?ytLs<whe
U"EyTqDO>RG(t]Xe.q<b&89#ubRn+R2H2arT\milAJPc<6v+v,JQ^VZ20Qvi#[P<r
U"/+N9B:;%iM*G?t9#EH82X&pwI+=;7L$'iG>1t?I_V2sY,f9+Lt=l,Uj0j_L83XL
U"/%g6-]mE_VVI7)aDH(<b+-=]%Rz5Kqye9X,q:]fHy;G/TxL\FP/0B1b94/Q_mE%
U"\p+5#.AT$AIB=8Y\*2lJ%?GAnGnX/e/EgieMNaVE;0sGh]mln=--+d6>lE=/G*0
U"DO\)d0+$f94#wW463kn#y+3,#,,VlX>>X6]+X&oj)M$&p;Y\[,c-ALe4+8)3xhv
U"Yi+8G.M60tMa*,(i-vf]v3dc4GrEd4xr9;VaA91%jdF5VE%].gvPI0HG;'nn,hQ
U"+T->ag[P8+r:4xsNvdeUJj5l=t*cgIDQ\^9I7kO>PpLadb3.0,<7AiVJeXd;^xZ
U"KARpsg'(vVh<9<<R[LoJO702ye*&k^/J_:CST<vl45e>pTJk(NKid:_7$\13u/c
U"VN0(;gYb:LOh=Dp,?[+[w*sM,k%o3O/Ha*(w0-ggi5%#QAM9;S/1mO)zqEsa%1J
U"vBFg'1FSXQ5o*Y)tRy+$ieq,Pq?gvn_j(OYp.n:/+nmgh*W<gOw/x'g<2^u.hYJ
U"qkZ9ke*y?L:d\FQq.UFAr4)bilI21$4oq:,zZAW5H>QVnfbs8CYUt8<JozFINRT
U"r8]9n;%K->.>GI?QSaP#_[gtP6mB%\:P_q)Y>l1_e2Z;ur_?pQ.Q=APCb*ImLep
U"4AC=8gWlJC,mI/mm.TomxRZEvA%&^j.%r5zbX)[<Bh/:8=D7wHO)uTTQ2EmG\RX
U"'0Ch'pA^0bh+L?LOjq6#%-%pFo*cd%b?_&-QMQ8*WWrOf<?9ClZmGZJz2haOEf0
U"RrL2XIb]GhmN[7)znSMV9F,QHU+0\'U)VJlR6iUX'O0d0/Hn8CF3Q8B;_N#g4KQ
U"*KZoJU3?LmxDO:\j>6iTxPi8/mL=^tuG\&?G;*U#[]-aJm(N^kDt4*k\Ya2IZvS
U"Q/EKh>R9YWkfa\1<C<]i]x<J'9m=;s<ppWRW7Jryt5Cs,._$:B*&a'a^*xLsq=5
U"9C+G#a*'<I-6cU=q5o88F='X:?Q5dV4Kh71aLZ)/m9fHur9IAOwVA<s*F3N*6vc
U"XlW6D/WIJ?rcn\G>odB-F0P[u>xSVQvT6>?-usn6xt&mWBJIDfHDGVfD,-p>Idd
U"ciZD>/W7]ZDj9pLAl>x2fhyn_n:+p.I_hxa\l]\oCkELxY=>0/1Ok=<sRDJuY%Y
U"WtI$^Yz3\l4:V79x#RoG#;l'YW/Ne'].8f^P\GlR^H4$;yYSq)$U],M;QC/L\IW
U"VdC0'qt5hbEVa_&mJ;(fU:^XQ_C<uApj_&bPf6p\0+_zWmkLTU]=2^46BqC1a=e
U"k0WR;,X,[OBN=[Iaa,x3xF/r&i*9)DmT2J[L=[TE[3^+.VAA1#Fl4r86lo;m9JI
U"wo&-K1uTZT]S\=Q&8gvO6HqAZ(eL1bVi-J'R9aaYG9GDZPOZGqPa0oeQ;1^U6yi
U"'.wYiofr%z]*9K\rs-#3#)'&8BR-_VE]IGX<I[lY)E0ak'5bBEHNlkr5[sL/MH,
U"ZoFCNYH:.sS8H?7c-IZ7(PZchs?jH6SVco$p[TVJ)VNSaAXL/WA64Yc\eP)Akbu
U"k],VCijnNw,fxi^QW+tLR6B=)5r)sMMSUN5F8MeUShyCzO.lXYsP%WxfrFzoOSc
U"\5KFa=?CZL)lKxO+%a9PnWX*Mu(b\s9>0AfNwXW,'49V\.Cu;h:lh?^e.FF$E2U
U"A\.y9xeUZqa&Xo9d&QW:a*1B2=cN<0[UFg2cazN]/o1^d;G)jOvU8c==./W&cn7
U"hpy9(;&'v;()^iz_(3_\x1=1J4SCl,CG6&=;B7ZJ&S;==T)<145_2\';F6xOwf)
U"pwvYDiFZ*$VF$3gK7hZ[xwZG>ohETOabrrJJ1(LdD*vuhb\dnRhdR(+]%yj=s&I
U"UV+KZ1r_-fDOyyK??:WQtyhS49OhG>>k8AK<A/s3noma?\/3.'V1$*((?X1tT4]
U"6HCqn_)3c-X#?HO;_p%'ee&Qaz[eRhFFmBAN,1sr5fsk2DsQF)yOj^<lR3DyL#/
U"y3;i11qs6Ce=,q5wM+'GD=yX#&nBDZ3#F=0()5.fqUnjj)fNYArvQakw9r,Zp/s
U"W$:drqrMOM0ha:n;H>cz%=bl7_;=l,CfW.;h^(W;5s.jHdU?zp;LUGdeO$tK;fm
U"wj8Vi4tz[R,wscJvb5uh#$p6vqQ^YTo75sThtjWNLvMD<MYN0SW^2?1&AG,TS4'
U"kQu\,rD2%FB#+WRmB5+C8.P1dFO4:b9,AmBGITi_4R$ol6GqR1Ko9sy51N(/an+
U"jN7z0?-)A(h4SVz1cg.5p\KDm2wNirs&u#Jpx*r[n\-<9o/,/V=)/,f]e.JICl%
U"WXV%gdhE]/B^3GB(]CXXWWS_t^NTkX9,kzHYFh/EC>gUqN.Ngi69T\sdLEiT+vM
U"IjgYiS)4SH+j;C;f3aM1*?lQ=g;fh6_#DU:npF6OeK(12j/Ud+JBn$TrVx-8P.o
U"2#ZH[mXj&xq#4Hpn#z*U?EdufU*BlOG(J?E89%MF'*M'Hc-g*Vz]WDXCWZ5>[cL
U"%cTGwovC22>%e*$6^WIgbDQO,R1;JG9T*p_t#Hf0HZcC.5'tS7&JTTAZuN=[]5?
U"0K:BI,Yn^8Ku&_=Oz*3VhMEB7/fAcUzs$wLE8XMRm.3*RYRRAi2mMppUI%Akb5]
U"(7u:sOCAn&^e5B2pffkmjp$O;p\-+=u>KPTY'f)Tfk0H<W;p6\JX[_&KCt5r;FY
U"E6_^v7F)<75ns'p(.UJ4/u=F-ZJa>o\OP-4Jov4vp<FNiiSqn#q6i3lUi0O5U]3
U"#,%p?veIcqi:1[#1aX*]JnM^43KoVy1Oz7OcfV^#G4(e:ZV,5pIwCd39#iIAnU-
U"A;Pc#g_3;m7)BA,MTqabcap/XiI\<8Q&55V8'JCyd>pB3,cGI-km[t?NkT8;qdG
U"bCNb^Um]\k(Jn8:^>NIPP)I<sx)YlL(/&Pr2Y_nJ&(bdDND3[j#s+?12v.s;-DS
U"YjJFJnKc>Ljim4L^_qy6]/0zC,?_?m+1]2'fUMuQR:Q_]e-yElsRVsqD>#g/%)S
U"Ca9lB$Go*hm%%AIR^[ex:#9Gs'I(PDY4tLS8E';EATda0VWsgTQDvmE78tj[B0f
U"iZ/b+&dZbq/CPHOT+o[6eeBcYs-o26L=k9Bj0dd*p?O)vWQbii:81Ym34BMB:QK
U"%;0Up+X:H7\^N5E)?YkWmnU$C:#4d)Z=O0N)+.B('9E=z.\J9U9>C$4>2']ueqI
U"'D6LN6:drx.MA<+b%S6Dc6h6d67*o:=0DesUF0L*X2+zM9il.FsP>wnaf/:l,b+
U"2nMAaLS-'8r(]r2[)Tu<G5ejUcvYjF'-?zfuy0NPRP>9p5m&um1DW5>y*[vFS:w
U"E\,Nk2u#QJ;HAX*;%JgI/%XtkBOQs3+%6SNgF?r&g*6tyB4<1q?L#($B-_A>tk0
U"Z(ik1(5x^D#-gldHDkW%O-RZlUA<(lYUOnANWG&uG:E=3>P=<2]lbDbb(FOPFSr
U",Scu&$:jpd(#pe$/=pL,L5G$0:Oj['tzga]ol=MYs:1-j<j1WG\5f7[kS-39CJq
U"N;)WG2ASU^)>\eXp56jq7Six:VF;OqGa&4Bi.398R8Qae.16GQ1#-OksfSz'&Cf
U"0PMR7iqdeh#LHmBG?9PK*Lu+1:8(*jFm=R./c-:dK\3QZtM$A-YVyA3R4W>ui4R
U"+8?Ae44+j\HJvm*/<oT'1SqhpD(>e8C&p9&d.8_bM:M1UoibLH.tPV>EA(n0c<B
U"oPP.c';7[:1%'E5^501d,xg0ARP6?n4nkOD9$W?kJV,\PX[j?xta:0i'&1\5[R#
U"sah4uLtWsd.Q63UfWGeXs;K7hNCz_,2*-6(]-7V/t<.*?,400O'VK*BJQ4Q]%D-
U"Uz(%i6zqo&]GQ*c$dgQJtn37fj10X)<MS+wH$=q4r&7_jD,-KVH;gynhf3Mv$R8
U"lE?5HpG'*ez\,)QGJni5\7.U&Dx];\1M/8V2'Yb0/J%W[1-d=AyKlJD*)x$G\ry
U"LI4L$B%E4;4cAN/eQK&X,n<pC[U(;GTNNp\C*SeAILh0]^Y#2=9\;wn03(YMH;4
U"SudITbKPN96*uAqv2IP+0_\6>P9q];+X&o/&9S&9KFH*)tt*ai>mWsL(g[P'9Z_
U"4#V/]9R2][M\4eyM?*I%,z+N';WIBEm2&H]k<Bh]#vo0O_kObAieCn/3glASj-I
U"g+\hUA,XZ(2[X-d]j+V><9EIOQl8<pa)>=?CGoJa6\E4J*r5.+#ZUhJDm?)9A?n
U"(+Y*TC._B>dt0v[NluvfTBzVcIB'W')Oz-;2*6'jh?48IuOm1SW/Tae%V2HR4(>
U"yUyM)%kI?a0s-tpJ'cxFS-<)S-7*g]FiRlP(^['ug%hC/>(uOviHmYGN]jq6Er[
U"wEf7vn&omzWh+TDqBpSq]uVDE#4C_jfOM0<8(q#fD'i##2A:*TVKC?dNp.U39e)
U"&3kF''c9tHox)?Kl5?V.]n;\1KZ-P2NM?2q4COYl_FQ>^8$'E+7z1+FXL7'=T%7
U")D=0xZCn2KF3^q:]D&cYV[MC]P(6&xmA%usV_aJFH+*[CIbm+QmfQ;Q-&AA7:4D
U"6;$\r?u_<YIn5H7QXrTLV.YV2k(kXC_A:8n8S5eb_]k$:Gt4iQ>9/TD&+%rD9e+
U"y,I7Rx<SvWibLG[rn90T]s3l=RsLY\)+4=ONTjJLoqMKE7m_U3iNVtNQP1L^TdX
U")?6+o%Rl;T.rs>)l.;cBK6,PXS<s:]e9fOn*uuNgE6%*jw9ao%odQh+L]J.kGgo
U"WxM'VYjNw4VcRqNt:4O_^iAPsq&3+'j[4g+Lbhs9Sll:O^>9U1_OXr7o.fY'c:V
U"1Vue?rnZZ7mqij/Vv<)^;RW.)3&NppJ]Y/t?0R_(mxWY#PRsBBLKPVKcgeb4bJ-
U"KjBRFJm7=*K$jx1w4mb+Dm:=6s\>;X&owK:a,XP+U)&.5v[jZTDNMQepb?UUTY.
U"r[yZHS2?,Ymlp<:3U*M6sr+?'X\t-]L%lw(:CB(,'l%KOnq)Tgk/PooGAr%$2dQ
U"vR9[A#bQSpz/ulCN+PLg0&mIW]i/tDYSAMc+[OrXLMeiUMHxr^\kwGY)X9>A(1h
U"l1W7.XeOBYT5Sbml%L+7bJPdO5ehWv#2MTmle8]+Tv4&w/RU'RNiJF>t]l=QT8A
U"?z-8;J7/e9SLK^O^bj>3#9)l:929_#kwBL1OwZjI>zf?g^:sroNpWJ)I+/m+oK2
U"B2Be,#JgT%d\\iq3:E7(8Km(b&5_<UaANm&AafY76>Cs+FKO17r/?hr=s9aOC'G
U"fSyj--LZU>=<t)b1V#u3g$7l%Ij(K#GaD/'iDZ,A'HgOe1\a[a%R4=iG=Mes.,Z
U"U=4Fe*1]A%Pn$&(1tpumS:&FGV;S#VP1asocv^4YWe6dA#apXhg2W'w'i4X%Sr?
U"g*cS)>MN3OnxVeW\cuFxofDU8B1M\K+)D'H0.tUcQj)/c)VEK(YzO>DuZ1L\o%7
U"L1U#%tVY'EC$qz&,TDMa*D8a0_hF_Fw]#7';]bosaMXisLv)vGr-^gZJm#.[r.(
U"X%vpdAf4f5WAB.PG2urL)ZV'JWjeu[VIs*+kwBi8jIt%;+S=3df'pIO&B[tjdtD
U"INY-umoKJ_m)_&&Ue$9.HI*-=EK0u&oFuRa](G#zZJD3[p(E?cBW[pBV-%sCQgG
U"E#r*Pyl$XLf1Y.'^%%CU;f6u/)oUX'GEhq*,V<.C%.1RNv%%OsV1YS34rthc2*k
U"h-Ts5tc[/(Vnc5M>A9dL:lG6H'MI1Sf^05^%rC0-s'NRr&tyx0R%;1E+C.S&u3E
U"2Kb\9?dS3k,^1)O[4=G]5n]GhnC_A('9E:3-AsZHm\;5p__dS%&c/Acioowr'$,
U"j^DxfSB=3QJQ4Q$X7K(XV_K/EPF[-fc46NJ4uXinRf(VEa2lub$^n:0BhQ0k9tR
U"$u0H.S=\E%7rV)7_bde7gigTZRUD_1kYGV*tn?D/JY:ev=)S\7tb6vfx4A+ozZ\
U"=lE#]=7aDOyWwBW2M$K)SXEQ#(zdOi3a6OH.2K+Zo+O%S$3a(fR&EO9xns4>pdg
U"AGJ5?TSbFm/pWZEaG4q5CgmO;gCGE)9t'e2KlY5b8k17_NN(S4bQOZsNi1l7^&g
U"dMCK-v%k3U$=iBlrn-=YKI2a#1Q=#OQDSp./h>c.:Q\1nXq;l;%q0fcZBdZ6O#-
U"MCCV/RR)9)B<I06sT$VX5*4-G2KCYY?bhjDGh$ZA\tD7Tu.18bl#E#).ET)SxbK
U"5]g7,7_T-H+l]IeMPSCEWNDDmlFy6Ym#Vu9H/cAY^Z/A=WGh4lVuv2j#,mwK,Qp
U"$i_68LmINv\CP.c4W_KwFf>+LLEc/^<cF*dw]oE4&I_(20St3#)hJ)Cq_1'+LM;
END SUB
SUB V3
U"hUk6X39822g^*t5\SO:XjhHQsV>E3HSaKrb/5pW#72z(CcQRr0QX;Tg<(DuRUn\
U"OKU/Z1MjiQi7r1s7]1RkwS\ld=3VURV8\x;iL:0l/DlS)Z'Matov445;EZkZ2/#
U"Vh?B[Mp$qapT4fI_9AA5XHi'oBYemQ9WE:dBEI9mY*mY]D9#XNiC_+ql04JTdrI
U"5u.SF(nls0X9ZO1\(qcyda?k9W7E4'%liUJw+_\#Ecg4aHr,&)90L]rTH(7?(n<
U"Daoi#y#w2>1>>Wbq,LHfFW-c]c1w'\W+>N/o=i79n5q]w0+SOJf.3//7s?:'8ZW
U"Uw:d.mgZ#/pXgmZ\,,5=aiHNYJ1Q'I5p3<V9RE>p_,7hK>.=r\b1TFw46<E*#-j
U"NRdlJ,?&e)Yi%rpUltT4am&UN:d;P2?LC(iNGm:^6P9Yu$>'fvYKJk+wYV\#WwR
U"Q9#yO6PvANvLR+d&C2/dEx&dfeVM=e#b6,Y3w[dMmiH58I6AT?'\b\>Dx2Vr_t9
U":1g7/lI1nu+_4zz?PnsH?N(=Py)B>8SuX0p6aeU'i#499Q2M+,Uco\/*7DH]Cdz
U"dzD10IkD.*p->1\I.?W6=4.=f-I]M-Mrp:exeWl:Rr$h$nwKC>[$R2-zq-R+c9Z
U"jDm[a[p;>;>.br4rkK(J4ZHF[s_Hx2qLuGxb?X<qiif=(uPsKfnFOieAf)>O0q+
U"g*8\b]]c%4i,ak1MemEH?9%)Qh[fJFuE+n0i./zZy-N.WZ'qg:rKj%q.3&9(jCV
U"%6Tdf8c3C$%k&D>%o%NO9\3(te_3'h=.[EMRs>J5)cCvXa6i*&BGA+a6Fv/+C*K
U"EhN]hqPL3M(+:=4)B[,D'q&nnm;*\$.=?bXYgntp::jvli=Zn/(A\A$VTjL2*Ru
U".0f)FL-l&0H5IAitcSDOhPP0-xoZL33,9^S2M'kVrRHSSCrP)a]-2tb]Am5ZB\L
U"4Fmg1T7kx9bztf8bQ>;jjgx#]Jq7g-Jw\dsguWXq^1q(>_k*5BNQT?2s7pPa48)
U"B7#^L_+HGKvo22NGet^Wnp(o>zhsP\e)*?i)qn^s;7cN7>nC$]jrCpUyGiD_:G4
U"UbP?JQk;]pIDG[m,y,wRB3noAvGseTT3I:+jN[9;&UpVBH%rOYW$.mY5HHi)$7*
U"7sr3U8_OqhedXAnA?4,Xxr*/2<82EOg%RMH(BNA6;P&;TY#6]uhiNTn9,S:ZpCJ
U"OT^m2-D;I.GV,.z=R*Rw)^m_1a1G*&=5\lTGk?=NU3EJ/'Gr(VzcH1KQl1JnG%;
U"IcWy=;uxi,l\kW9Czg&O*,$7h_4G>BM'L3*SD>QyhzOXq-e+k;NdfYASXm]EgK2
U"URTp0Sa*n9K0%Z'/D3+EGZecdMYaVU9=NeQm34KAx2p:f]B3l9hqYb[>A=3F\N.
U"8Ep>hk<5)Ok5q_qsJG)AxV)7)[W%3:xKcVbm*USbCA9<Zd2wLHTPY*hvILmi<bn
U"pF6gCAuj#GFXDE-*PAnV_I<%498c8u*YwvV+VR0fpQL\^JM'c#^gQ+IHH#edueb
U"tRW)/wSdWwygUoYsp??<gftq6rjidL=-nJ)zyykA&q4DDa;P5_h+2Z96v(PI<[I
U"?qBTcpHOG'Cq^M%eC4^vUaf$0t6OUh,RY1:91Vs)QO3C3n>Mf&&X*SqlnRJ'pGX
U"I)iZTPw=f\4_Nlgl1UXJhwLztcQ,r=sKfKn3Zc5X3sufB(+r%&+%U:D'=T,y8wG
U"55]xL)\iRu:15FR]&B(Q;ij(k%]0DlJv/QpO>SCC[^pL$WmRmM[FsojVeR^Y<4b
U">U.g#s\Gvh9gXheg+f691ecN8rKna$*2('MTiH]]C?1Ev+)Nxf33ii0\N-yA^K#
U"$TTq9DFssgf#K\--w;R\BioGQX&O5jYgwEA%sF/9,o6/GBcvU:;.n3mb2Lu7i]%
U"C$&HY?Wg9aK$ovO*gjzVffCOd+/#n&=l(=VC&p'f,IT>8'[<t>ManqxI+lTq^fE
U"D_iB1pP8-ACNsym4Re.&*h\GQZ.KA=L[tgm\t-<xL.#uN0_&F^Ah(<Ow;]EMCR1
U"WD;^e(Q5Ji)eW'DAb0:^2.s\oGWJ#8/=BbE2_hTP5ijzs=FLS3/\6Su%E>TRd[:
U"-kS&WDrG:nZP2n)xoatcU'^yYl(_u//'kW,P(y3u&DDb)=tm+c=YvtQWuu-1b7Q
U"QAW5I[w^mX=N5NsC)1o(T]LhB$K(KHq'ao]Mux%%up&%'9%9%%%%-g%3n]RAY(0
U"+]N2%+%[H%%%/%%%%%%%%%&%E%%%%%%%%%w%jfir#jSy'%yup&%'9%9%%%%-j%&
U"m]jA1H.*Q:l%7%Zl%%%0%%%%%%%%%&%E[%%%v%2%%r%fuun%slSg%fxup%*+%%%
U"%%'%.'%#%.%%$z%%%%%
END SUB
V2
V3
CLOSE:IF S=249AND 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
