'===========================================================================
' Subject: MARS PATHFINDER                    Date: 08-16-97 (20:21)       
'  Author: Chris McKenzie                     Code: QB, QBasic, PDS        
'  Origin: mckenze@earthlink.net            Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"MARS.ZIP",4^6:Z&=16539:?STRING$(50,177);
U"%up()%9%%%%-%R/I=Hwb(dR8?[%%.s%%%/%%%%ny%jrxq%SnrlNfL>;j#PdhY/X
U"0U(hxG?h*8l)S\R#xRiRVX&4K5,d;m)-OAP*zhN1(.JZ1:U/s=<[*K=Qvq5*F6b
U"w_G'pviU=DcjkEiJG&KhSb5A#inQZ%2zf'qn9=U1euakAY#P-SF>GvR,aYlC$CA
U">u)XW#>hXAA$Csdq;VBg^upuG2<lN\dq5g8tjdE&_F>[gqTeA+)o&\%O2j?Z^#;
U"UKS'PU6&3+WH>*:F5T(GQUgmihgo%uM?L]K#T56mo8C)pCO</LZ]5&YUk(Pe>SJ
U"tf.'Wl3*=V=%w%r.WS/.h:6P&7vI?X'+OPW2aHQiLNp]\_9K]I*TBaoOsxM5t5s
U"mTsGrpwA7U5\g%P[JJO:qGeilCtB4&K7+BZ;-1GS77&e96cRR9$Y3>t(>;[aYV8
U"c>NGkp\M(lx#NxlKEC^iFhfxFEp0l*%.-FAsUkRhSBY;jv4*,bQvVO._smt8a'O
U"I#zJo#cg6P>Mz&ZZ/YWUj\QX7:cNAv(>\.*4+tHqt\:XX8=An+Q*d2h=k0??oLl
U"?#84R?'dLl;<_7u0MuigA#j96PDPgP&P9\[OpA)T+]XeujRw++OPa%aZ*1J9xv4
U"=&q,.9v-$=_rP9?H,r?Lrd:sf?]K^A[wm*HX<l>zRPPPOr9duUTdM\A1_*,),8k
U"xfTxcDpXB9Wj$L>s6lOWL9c$d.9$s6atE4Sv#dU[3&j,x4OpNL*u&1'az3D-h(W
U"T*2Ea2eT81]y3Wi',*033Eao#a?1EkIR,Gbnv/Y&?-bc'OD1Hj-I[ZKu\l*:=+(
U",QDT'.$tc?Y*?mQK^.qrE?68+w:SRr:c(ETA)qQA4oQDQc*C7MC1:QlQid<9_91
U"K$F;?-8%B_l17\Nnq[Up+E9T&,\r9o<\aF=+asLnB&PjcY>r%o[Pp[p><pYoV7D
U"2j'PamTAefrm(Qgf#D662,;vdO=e^RBJ?TN^n2adlY%F:$bQa^#jwR+txJ0+,qG
U"Hjsv$]Vj4W60;>RE?]ZmYQZ\XP4Nl*;;Uh6H#UFy$N4+m.NRf+20:o+V_H.8Fv)
U"6%IIB&R;>YJhU4:G6MQ^7l4RX#fT)3.7/w1.Vm]6Y,GRutQ'6#bt*T&o\o.A31<
U"NCvP]:lrXIF-w134^7Pdnlc.:9D.#SZLzcllpzGMm9Y\e4E/8fn:ESt)XTd.CN+
U",;F#U9:'&j\?l(G2YEOGDmDl3x4c^EMUO5p.Pa3CaQ[O,J24-^VaKXwU,6.nvE_
U"r/=.X5>0:c>nh1E=A-REp0S52N$Xmr8-dd4*6Yk>H<fd3Q+=lsYE0j#(RXC?Ag:
U"vqLuLNt;5MQjEoG+ZtHN.dXft6ElYH>j_JL,8d0pnPm4Aou?9dl,8QltHMW6[fr
U"x$u;cBQ<ZV2312X6/3A:z^7PWDY%3Y,,rF_AL$0oR#8oT.k4UmGdRTE>I#'sDq(
U"(9:,m*cxjD\lvQWn1(Q6,QaC&.H8/&(%YIV(JHQ1qs::wCiPef_sXALgM(c6l3F
U"\j\#Z[c'c:1da6ptLc?OK)4=]mt($J+/+qm#\^)N6:GE$D,UQ[NvI0v*%aPS*E4
U"PhkFDQ21O+e]3^;+^e4Yb=*da-%YI3CY6i'1+<-D6DoC0R&>LNGC_12#YMIp$A+
U"B&;.<M[E9k$jpJ'K+i>:c9_dqlW<b#]BkLF*hWVA(LC$&bb6=C2R0>'J7iuFgfL
U";SWQ?ag\qeYV+uf1IzRVP'&Mu.'TX&Ogin?JGOAMG4H%?WR#4'3As$MsN+j/+J6
U"UQBe;8ZjO*-h*l^\%_Wm61F7nN.VkRImnIxXKoD+.++E4z=oY9ZO'$Y#_TF^/Rc
U"%:FVz*Mo[s%jP>>0)H<OU3F=0$Bh'b%15g-3[$r8([r.]+4d)9R#h3Opj(40)PH
U"rSKZ6jPP7n>9rCz+jG]AV*P6uCKmyHZc%(JLC<1Lh-j4PArCg7NfT-[Hj[T(Zi=
U"%_+e#[[n1Vd))DGev6>%sFr^AjcsWVx'A+ROJT/d1DZd/&*^^VyZ,x*FVXQms;8
U"eC:(9TbCBUVqwP&_a\UUaC#JWd2<L\Hv'vm(nlC'NPPuO(5EDuJ,4BlJ-l\'o]n
U"kGruvS.h5L*)FSwlAC#Ymfw+X#XGeX1Q<*p'le]?eZ=i?OCqdG<.YH.Ot+235Q5
U"5ADOVhC;;>D1BIa4dL[C/*M/.Hp5=P-jmc3FD[t\0x9tnP(cBnA?-'2fJHNG1\W
U"IiOwZO0D&fu(7Tg;?A'bLmUT$G7g-^Li$I?)J&$fhF.[J)o8:rVz%.9:jzK\EN9
U"jN=lx9L8Oof+kn:jH<a.ITcO7xJlX<:fMl%0[d+CY?I)h^PC1m1o]8whC;86LJF
U"6^A];C:xOC^Vobi+RW(>tLTZmA4.4T^v=Vu;xFq/[=Nj#)#Th/W.7^a%N2JfW2S
U"+L=86H9mO8$_hlt>2.Cc\*0ukT4KXb/)]a;;K5gJ'pK0:$=4#J>;AU+s\fe(k^,
U"p'wP3aN-2qJ'?X$mu^2Ga=lJyEYxkArKRajW>0S.MBx=QOSfKw:So4q<>E=/Nu)
U"Dg<RS=U?dd.mE(GA(Q6$0k+hBT^'s.r]TONd4T0*cuZH^6k=(lC/rg:#l'dss.%
U"H$'f1+g+'T>9+e0IZ$KX&l-8,e:LF#XV]^t6r(ik?FE%W8)H3.i5r,z^d'PdAb\
U".Cj+jPTgE(ot.rNa;7O*+d52&Q(D<'saY>jI=_jb&FR_/4'&V2N(P=mGTFF*_0:
U"qt:$DAc*sur_r*8xLvE[=QD5gej#fj$9f<-5#mD,'K)e_PSx*3HF6Kf;amw/>?u
U"k^*a^4]0Z-ugq>kj]<'lpj:1LzNMtktD9unx5G,d#trf/_+hRrKgzkzTaE,9j%P
U"mA_=se^)Rxc=s_x6Brg(YiTm4AbV?Y8:h<#r>1/q2#;7HITPRnt]=Oldp^qfBQ:
U"SfA&dQ.bB^m?gh%HPivRj8f7nkIEq]vf#(;fNjUIJI$THmY4CdoZ4>AR=Gr:_A<
U"KIK_%ylP,jhEWnrG>NlcBklPNDzw+LcJYsQ+44FY0,6r5#LSKV\\6L5IHp+YnxA
U"$uhsuVTVrUrM=sV0$?7%+,UddTXCMJnl3SJ&u]uas?&N+_Sec^AT3o[ZYtt>JZd
U"ffaYEs^hMhhnR=&S5EZt+-UfXIS\EMP>rVP%'UKgSnM[3ra85)wwaS-K'XN]K%E
U"Px\y:>Bv_R5NOMdgX,ls>\L+4h).O6O+)'./FT7Ej+E.c.sUD#Z.c:fHqdPB;4=
U".z.Cb.mP<T+mblQa?f$[<3K8vjmo'q6rn>rt6\e+#9Z#S%obrLqIkGd.VpUCuNQ
U"(&PCDCbo?(#:\=Wd\.\R2rw?bDnTU.*n;Q;LrjT%D6jv#?\ZE>;S%rb:I\r^P=d
U"mmAYqp<S'8*LMS)C^M1ax8TujVrm=U)K'V:CnS&g9(GCwg*wFBwK$x7v\co:#]T
U"SmkteFir;L.(s+t6^ZWv%lMu6fR;;);/_T)dTbk0>GwJ:BpyaT,3e/PD>u(>=h<
U"W[y[9lr<ARIZuatQM/lT<]T?lZgT-8aXmDud1?nX5Kd*cfafOO7n#Am1V7N34et
U"_&-P8FP%-l\\1cul,lY;n'[vB85h'bl^ZNd^E2DD&Gop2t.MBj?2=l\9KeJoJfX
U"Y=XV\K[5I8p6X'UVS.TYqsOh:V/wW>A<sjQtvlFSdB$>b,43r'lPsQZ/Xx$22+M
U"%Xcu3,8xmKT5EeUbGkxE,Nn;;>c,)lGjgw;9Kw(9L<x2wwURt_&]DE%h8_B5Pqr
U"Ap3h?22\hT3'dt^;wFQ;sJmMS<+fc8t5pAgg0.<QOs^Ki\s6WE.G/>yl^g$rb#^
U"IWS^JhEfoAt40X4-B7NT_9psA<s;wMfM4k6;;6pt,pxeT*xlnW1kRD-<o<)-cO'
U"61iml+Vn?Z6vc;tD&neh^*KUL0fXp6)t?WWAZCssYpF0OaN&>U?2g-,-8*IvEGB
U"K;);jaxL]S5Q/#>q2r)'M6c]TjmlXS\8*jTUHF^Fy<Ss>]oL:5?n+?>v>(Z>=Sk
U"mM2VSoKw,:.*iGY/fnPZ8M&obfd-i0JkOnf$FMo1?a(Hb0QuUOJX%gH$CbJA<<S
U"nq78)r(_Bx'zg>^/_?.#DgQV<$0sdp?Q30,5[c%B2.;Tx6Z8,TG$i\Oc(c0$>^L
U"XdtGw(,=C49E=B/FR?8FCk:jftsjj+fSd)WZ6&-Hqb:wKesp#]Yo,\n=&M_');f
U"J?5WX=l^eq6nDB$L.C'\)qMwl<aoK*UXMcS,?X3Xt93B4>zSa<=Ms2V:pCRlf2E
U"dfZ4YkC$dic6i'Vl&a.Cy9WHhtuqX=;MnT-P7id8p74SkjX%ScZ?=)9x>E+-?D8
U"i.?:Xp][n?ZLV(y-Z='rQ)'_Cw'i)_t<[v$JEBdoZ=<g+df0$?mi#oqL\-GF]i_
U",[Zi_6=\'n]-=&q'WKWVU:z5e5W80;iJo$7gsv4au)x1ajbJCz%pFQj#V]3sLVh
U"0jm']6]fHO>;5ntd<C:D)mMc)?fY9il:1Q,o19g9+Sr'oT^SgCh_XBKh&>txq+w
U"O1krfMZBa6mtO(Jv]XBp*lE#r+kcX;Yl(BT;Y%^PG./X=tzTYu'ucTS<UH$UBbA
U"a$x_ExEtz=O429l(3:o#,>XQsN;hr[R,(:ODrp[6)hg69r(f\9'\u6Mcd5#A1;<
U"?1?z'P<V1w_fRI(x0DZP0<kJcTH_/L0/\q5c?tUsae^*O1qNGkaP^uoQcQul\Xk
U"-8[Q51cf*kG[$j$0g:d.zhH0;-IjOO-p<AwEtWf\^&4?d(pm5bv7Y&k/zMeL.oh
U"[$RdiT,b6PjDsLWm(cotj&ROuRN=a*M)+cBN>Fff6wahx;ARDpAZjRxPcs*tfpx
U"G%:HXxI)6EKTUoLl<ul+g8:G<9t2EEH4:cHe,DJLlI-8Bc>nX=)x7%<l\gl1:Yu
U":r.ZZZnuKGMbdVSV\'7QuaTXMBAGJWvV(w78ruC#c*rNf$pXpjZ3,l<i+Diu:8h
U"Ytpghf\4Rt-?00lkhknUkazvUMq+9PIl$pg.GqCS6U3N^>en5K7Kfya[cG8;w$(
U"J9$==nXm*trRRu;18dN9PRMp#JAj9D<Wc[Rn+MOd%DDsZ>u'.'Etu+HcPw7Wz3M
U"BuGYHMy_Bn]DS]g*26G^&yFcAQcf5Lau?'V^-M?7fnXwaZ8v/3?5rb$-EVjDmYI
U"=cmP*5&#yuB<'gw,cE8:l8*k1SFnfw\xnyjUx$dXhWb'VU4'H'/7m9(0xJ5kjhG
U"Mt2XRV?73YIs4DXP1-%GWxA2OM2+]EXR8xc-,IoUP2kTh&,)aEB>[G)(zt<NX/W
U"dZVHv=)5u_bHlk=2IYuxkO&N<l8xN8#_os4L2iMd]sK$##VZtfNrtySW$(ab\)m
U"XyNS(u._J^w688O.YsjdT8jWhFu5M95)jHrf#[QZe>lLCl2,l4vI<povqP4E%7]
U"/j?NJpZY\T/B3fa89RX7IxJs-ju.?YYg>dR&m2#]gTdOpO\x997?iZ\mK=<bZ8-
U"tTooC9DFrsg6)'>gE?O+$K-^BAcd4_+Gffw*Bl1aED;xlf?19*I4J'E9JjR/L%g
U"<qWlN&hhx_hf21Zw&&L#%2T:7U_v&LJ$(.?X)cgAa[tkGbHLlp/PwBNU&iEloH^
U"#-&0AUE8OG$;?wT'&-1/_g=ot:T0BqJ-r.v(W?._B6NuZE'+c)7Gk/P+G6vPN6b
U"u3&'\yow>tw-hBm]AguGx[AnrRFGgS7/l$sI_pl*XKaNZV*HrWGs#TxIvQSs3o&
U"K3UiCk^Hz+Pk]E,&Cmv,rr^Mu8]I(6aw9-/n>me-OAaLqB$-Y/2DNbbmAZYwWfZ
U"-tV-NNBBb65S?.j/cC1zDfq=<f\.h8NSMTaTBRBTgQ3BUCW%niEucVDCs6jZrl'
U"7l,?t'xjU<l[JU/3bpPu_.6Tu$t0QU5rBxCKFoLUV6vS+qYIv&.bDeman6KJ)ru
U"bSgm[2rX8RdTd_u3(EG1/_'eSom=[Wr#6(AFM1<G78lo$Di=U>X/2DB?,$?pJpV
U"+xBi&GpxW(2k(Ww%x]:wx8h#P9/CoAketh8>vp*A0MdQx]VM]am-_t[P8Z/ebBy
U"a_$+sC+:wIUDdInND:vAaB&8fD<xpviSs*O*8<xkZh2$zebsaOC)kcb#z:z\p)^
U"qR3W6mCXAuB^iuema>z?,d$;Z]8<i=wBqt>O,L]?HOuA,>5%lk?N2XrAnC_ji]i
U"KKY#lBJEH%=;p0,i)y9p)pq8tfw^R&6F%ds(8uDmddteN,?6[MUiCS/G>TvD+aj
U"c,$)GF:IN_Ab&Hp4Kl3M##yqNtjBhv_'TTNw_A+87l9,l7rg6gsAlV?yO:vy8KZ
U":yiZXJG:X(_S6=zfG)is<t5tI$^GDCI2Nh5[FwOIhidKn(C=TP&&+j,Af+O+LgW
U"#3+o?\PiLk&qi7OUeznGqKHmUbgv#s9aS0V%Y9#C;Y\=k-Y7c%47)+zpMPYHY?b
U"eX.yOu)A95__&[ukf8YaqqBPX0(hd3d%ti659==iuAQm'6grooWWAU12H6_9cO2
U"YQOX8-6b*/e-:HNm5x9FgLtI:&AZ#tAA?SBse5pQ<xy1Z5lhx%;N410<5+QE/M(
U"Et=*sQ*YaiIj2_49'g9C1=uEiGpTRBbEF<yN:880I=wqi8<IUh1]L3eik->_$s\
U"ZuY^?;b'<Llh_>Ci'RhRmmJC7amO[cj)x.*'Hoeoq8K39<xp)zh-TI-EPC]L3G3
U"iu4\#aD=+-QQJKFNr//%[j.6o#Di6xTlGVNb4V%:1tXUH--T9N5HHrrsu6ksJSl
U"4sLGRmN4*V%CE$WSJWa4a$5]2Kg_dOdC/mmff8W:5Q6coV66On.vcBiC'r>FKc;
U"zZ*R<XP(F+HkL8(IzBAJ\C::7#\m(IM,0$8j,v7SK9aR.M0fMTlmp.S[Y%onW7j
U"iiX=8bG15[ni.pt>+Hdbj>[ZOd7INcQnvDw#9a4i>'[aOvUS8]DBAuiLdSf>Q(e
U"ce/)9NoiZZ8LaOosU(r8>QPV$9jGf)fnXmHR^PumsX?Vim<KWc(A_B,?v9GH,g^
U":Jy*-[+Mgu(*qGoE5rJ()9roA:9p4il2^vj01&nDmU36[o,(*4L3O]lgA'cK.iH
U"q/DM*$h#xLwNd/<QEkUo>=hrPo8SBTAg>o8*U++5\=Y[?\[6ZsVmsgCx*I[&&F\
U"bc%B4?dgJ^0aKNJA7OAnjcc>8y)t\79.LlPwq'_iJ0ISr_rp61lQp%&2YImneQf
U"Jm4dv-loumZnj(M].eJa9^g,<s,ya;s,pt2:)xScd$^7ua6-rICR,+v;kfPF)8V
U"7b4%Wkh?.:m5tKf%-58Lr(D,?he\S9j%l*Bsu')4i'G(ovoyNINp:HUH+TfWC%P
U"dU#;Vl:9#($>6ewuM,5[$Zw(d>^xIDm%GJ$B$FjT0f?ttbuBD=C6q8w(%N&D-df
U"bCd-APa3Z>O.JMfWU='7<dM4[&NI^p?V?lgv,?$A[g_)zBa:l7cLHlM)$U',__E
U"S7i](/-f-EMee7+EkbS=i<jer9Ov\8y)L/RCbx*90W)'?O>1f:cZ_ZN6%oy%eD5
U"M'd)go[-32E'?h&FL=sq$P^V:RBJ*=5?>j1&Hl8'SHMr&i4\Lr4cmtrH\+3J-KS
U"yW)gpp0l#0a7w]2m/Fe.ELblbeS]l>4Nx<wLteVJJc8>;A$Dt4J;el4*b.X(iPg
U"YIaV,HC\YyBIu&f+-T]bY#OdNgYY7m69M/%ei3;;*0k3l<,bND>ok-6GnX-$q%(
U"u\l)WG)ioPm9f=+Zm$u6.VNo.9N?MumQ++oH?H:Hl^9:1nfu:rD0WWIdFI$A<-a
U"==1?:2Gw?sKb,R->S(Ub:FA*+4kjaS$(w-J&FNPe,UqOL,([Sgy)_O*Ahxt<nGR
U"(5VSMc[XhD[F]>Bs5^IZ?D?MD)JPm#P,R1ftUDy^N9CQm,=z:wi/idR),qMWe[b
U",)x0>]M=^7f+$0g<uYnI=JMo<'=Z$Go6ru<b]qRQldN7\[m(/kkib;Cs.onR*26
U"6dN&d/sTT-dzU]cnHpPgb.GeXs]QY<N%tzPIZGN_pNRQ/mrT8I=L);Y,RLj;YG3
U"DTaB)id8NaQDb.T'LGK3g?rmW8:mT-gPM-imymqr8UhIG></-F3iNtrv=q-E=mi
U"',USP.EP_%pK:gs.MDHW+-:&EaKPS,-IdE/L^MqL-S$CQs^xhDhfsZ(Fv5-#j1=
U"NHb,gdBRclbSB$#Db?U[#V=h/>9Y/aDnqidHgyxs^X(qJTGBY4A*^7]7m6jbmq>
U"Nt;F#8k$%e-iIWJOwZG/]a$b?1_S^A]fRelv3%_]XaaCDceogtxxakY'?9d3SpJ
U"XNd$0e.1qsngI6j'di'Ob)gcqD)eV0*;S.8.KqgU50;S.#8KqgUU0;S%.8KqegU
U"0;&S.8KCqgU0*;S.8.KqgU50;S.#8KqgUU0;S%.8KqegU0;&S.8KCqgU0*;S.8.
U"KqgU50;S.#8KqgUU0;S%.8KqegU0;&S.8KCqgU0*;S.8.KqgU50;S.#8KqgUU0;
U"S%.8KqngUjx,Rx,u%p()9%%%%-%%S/=(HOW#+uX&%%%%(%%%/%%%%nyj%rxqS%u
U"fqBea&ZUIE5T._V_CD+7;7wL6:F=a_.G[JHfe2sTFhxn(Zpu;kHE-#O/EG--oC*
U"F,JBL?UX3CY>jvB(E/)A3:r*'^vnHAJPaIFE31cpbHg1lag00VH'1rChj8h)6ma
U"0AceKF09;>[:_1o+ZLl^R.glNl=IgRQT*0sL(uTJTB4$)R]*a8mBR*l[p]wa^tB
U"gnbT&b&1-])(,G'tUmViB45Ug_QT*LMeSdO$<y'4(OWZf:U[9IMqO4_'PzQ]gHA
U"\]$PG\fPPgB<vPx(0w20M(H?\Ig'd>8R:?Z4.5C+=*>^OH9#<N<tdR,jQe>FX.<
U"6eEAW\iRA76BqUdFb>76:BEd^I^=:mQMP^&Hk/9A3RH+X+EPGA(lc4:>rU)YoMo
U"4e6qS/wPyfA4yj\0QK;\J;;j/+x-PC1&^SL20vM<7/oJxJ3oeaGr]NDgTcc+8rL
U"Js#ySyIiP^htKCFl[q$.KB#J0:pRrMC_)3W_Kg>b]rP[Xb-_BoA?FA'jV#7Sz88
U"Zy[5W\t?x$^t:t^v;R^tr'&Sk^c9&qt=&,r^r&H550%oqzt.&f.l:tb2VD_2GgL
U"d>]\2Dt.2dXu$X8j>M8pDrJN>j_d]TP'nDup%()9%%%%-%%W/=HJmVvZ%l)%%&Y
U"/%%%-%%%%mjqu.Sy'yE&%r^]Ui565*kNM#kPR$OK,;AL%A*%U#PI516XW]keT44
U"Q.f=vf4b]l-0;BI9q8it91vNb0\BE\oKKYDZQ\'&Zh6sgX^3SaiX9iCp'edi7CS
U"J,fq&2PM7*bVbnA,fLQk=mmC)uju*P\+<1\%(=E-Q8IqBHQiR\Ou/X61l)atHYF
U"b1+-,k6a$X302<d%S'G71vpN'5QgiOD:\#:f2c-*.=?s\0H1b>L<X2m+R>+qgCe
U"qLv$^wOR%MC'c_MY+)HvjN$&:?#C_\PK$\B(K=3>?DS8k1:b:I2$aGQ;O_VE/-#
U"7GTUF3^w*oXxG'Vuk1^.N<Y:V90N,Zh;A*<XX11Ao?i;^EG%&xG:N#A(f1s\2JM
U"+uJScYr;HJ/Rr?A(f>kb#1yhALEt^sJgY=DRP6ek9&^HUt7T+0;BWM,5Evd(Sxe
U"k(D[X3A>9cR1+g7<oem?0f\anP^>;mG)C-s)Kg(&2+e_PdNMcToAB'EzZJl3J:#
U"L1e>aHdEh4Ni\[D/Ch;fN\[;DD:-LsS%FULL,B8*I9*ATFL'KG?/Q-Db07qUq7.
U"mRuiY*p.MsNKj_fC'%1,O?-#*Qf'RZ=so]cA*s._vXz4=#ORf:Xt:3h2N+',(GG
U">U6QS(s%a:*OolEm;03J*Q/lN.w5meD4+HqUnKmwrY2d96QiQPuXBfACxJAvC;>
U"+h=]+FnF6-fGzxPhlg_T=7.Xa5)_oQ&s5WQU3?dCs2Cn;hYl$K;oY26UwwJ3M>I
U"yr>b9XsBS=nr[_17B$I;+t8nRA8<1j2(C7XgV4QsUfld*a+Q]+vC:fm^M\j32db
U"7>8T;Z1'^Mf&DktlX):PA'DZ;ZJ2%9(VkV6'M6wU%l/[DD4V/D[[K9(PY8V6V9A
U"zILgElqM7U8tE[<(K+MZril,vXc>1,nl_iverMLmFA)F1BT+TF^H%PZsunCC_1y
U"m6gj7wU$)K7>oi/off63-O>:RIiwhR6Xo<\^2wSSq9O:Z+LA5Al/-s_]V%(JpB>
U"e-OOW,\/sv'\E&w30#'hTfK4NFspwwrYgh_dek^<XG^<;*LZXUgS>=rBJ5Y9ZQ'
U"52T;EVeH51;)N[0YAteoT7bF%e/M4)ek#^R<(T?tcl6XJ4JmF2iYIN)',6'kc1U
U"+6?-r$D7sVEd&8*newy^?'U[^86y'q6jc)>&t;j'3RVb_l=C:#ju]_\':B5C>Dq
U">Pmij4m;uO(2vgNLTq0;o0F1w9Q,Mdpetl2#^j8$R_I8x+B-t#ZB+]_b$^hIuun
U"iwwmZ2Et$4O.fnmihrcqh4#cx^3sHf8MFcIhFltpd7\lpvhssDIH^Ll[9w85]ha
U"F<nwLOtolu*xUcrELuJv,CM9[-CnLfj#&kVAqVYnIq]nk>Mrn<6bq>4Hpvt8)SN
U"%u%p()9%%%%-%%Q/=^HQ&/+zEC%4%GL%%%1%%%%rfw%xuwt%gSgfaxfbTSAGBA9
U"hii4gN%2:7/VI-sF*,\#e7XaA&'>goVX$%:D)I?m_+J1n8kmuqd2vglTwS60w;V
U"PQ,gL$lIem),L5imMC&44/4z5z2444J&J%$$GfP\R?Z1TDWxi#1tPZCw&k&1%Ks
U"%2O.Fb.&q[w9:G>lF+$hRZ%&&CiX:4eg9:cIj/Sq%gRRtC10$)-q:D4NVR,j2Qr
U"T_j:RI#s&'S_52BiX*/g$=,kdNIRhN_.Rdnq%b8<lM8.t^v\&_H0qdM?GwuxhM$
U"Nts>g4<m6Q4\eZ\fv-lW5?o.Kuu,^%m3W3NBxdJTlPTx8nb<D)^kBi\\&KMJb/U
U"6T:k?3gS2)&?8+E0-zF/d$.*OUn&bEYb<I:xsqLmg[ph#a-;?]HozZnEBjgt.XG
U"vm.qU>&-)D<o:(10X&^rz+?94X,>ZVi2WN^v(G$2;gU5t4)M7yB.*5TV5M2n'bn
U"Q<;:L>_t]_CHu3W.K%eN&p4ZqY:R+DF)WMsRBajZMlHa>eO;'St>FC4['(hJ?F#
U"YPvIy(Z+T9V4UqK9i=3:G:iGUjS[.ZdP;3F>4aX+o:9'ODb^$8RSH+NUsA^.VNM
U"sbX*lh(-Km8ekFv06MYo#'h<kk-UX3fvqkQ$wd,dA$sUmU2+D>z];jTw/T'LXHY
U"ZH7fRxUNmdAwxei>4NU4FwBcRSvG/j:20-VQ*H*.G\2FhobH)l[uf%+YclfK247
U"?qMg:K&^KX9X(=*y%w.OCgo;K=tmpG'H3<C[rWl;c.c-q>ecPEk<Mj4V8clWI/'
U"q&$tXUAT.iumt\qr:Q$xgz.2XEz]%NqcK>/v>L(T[i*V>'Dp>Ji#)R28OSHT92v
U"mN_gVA4ORiNrZ^8Umk=atXd^M>\KBpAFc4+G%T#NZgnVJD>f&k=2'(,/L=,UqwB
U"q]5U7J$*po$'UkCh<D>g)(P/:1PjJmU<9:5W3f?(g2>ZbU0sNr4WitAr;?K*GnP
U"?8kJn$\l_ED1f3=2sm-_\%:GpSU4^ak,'tZujas>q*-9(?F>Q+ir;l)?EZOX;?h
U">,IYwt[;0iS#/nD\qVfv0TiZ-(9cWi<6JC9vE(N3'*-'5M6u>ABi^r8Mbn?Xeco
U"H,PqfNe:-qk?XqZTlDP:R:-ua'5)<UwPP&XA?+rd42Rl;%3?gYG']V3TwV2(cb\
U"Qpg3eAdnH8N6;sZRv3OenflN^M41L\f%/6:fUpf2Pl4Z^b5kImu5>bscgG0DLrv
U"->lQiBxMb&T/scVIxl1C:VVW>o]E\/J--jROs>[&;G>W5)/VzW6<'=\P_[4C[mS
U"nb(fRpTU'JTNX4Ur5g16;)K3,Qt<zoQQ$g$=24*hK/S*c+[$/Y?)+pp$0.h&%F1
U"KCD&8FoGu&RfdAbQrXcv&YQ>U.B)1g8oD4D7eF>4eCDK0VeELJlZ^60'3he(S/#
U"evY7O15YQq]TnPKhp3J5^cDZ?PxdkdNs%RSSU%X_[#k?W?#1mV/P4CQ\k>q,\\/
U"K<-h654-'kVgdJ5O>L[[&298TFH<^5s>03osh4oTDH%3%eN#5^t/v0LA[AG/nC[
U"en'suT;f'+6V&#4?z&790\:hkUpoQjX7S8eRlXd1jy#wO;S/SUCs0*5jTRIge$F
U":$'VQHnuGkZ^j:n0y*CCA%-82;^_M,3a*)FH4Fp'i>>6(a/JselC2jewi$6=4t$
U"YHJ*']D=qxT=8N?Tb%Jp>4'&l26e+I:^o2wL0<-Q$W'BC4pd'9ED,PprI)]<F'g
U"I/gL+)y1-h8>1If7,VEjO6(?(PZ%cC3^QL5i84C$iz7*/3h]0EpQN=;s6dhWs1Z
U"ok2<?^u8q(9)p?<Q67\zn,Qm'[kb$jAgT-fJ>y^$6/;)dZ3cn=X]b=:(I*sZJg=
U"*X,#*UxOAJs+O4G$3MqAUS16,+Y.[zWP5+1wbu*qW]%yO0^2q_K<hq4/S]YMt\A
U"Wj>v#/#8V,cJr/d,,>*(_*:S0t]nHCyZC2$j'Q99?zFdL^QL7cc/huImC>TD*4e
U"'^jbJjVDQ6;5+rU:l>'i56=1=YXvJ21L2<os7=hdY/]a*#(El3kc601LHpVFJCM
U"*P''6wN;as(+VSBMr$kF8iPHut4tRO'X[8V>9'G.*EDgY(]6MfYTj_F2MP8zu(y
END SUB
SUB V2
U"Z&.+'9Q#6Dq\JP>6;Tm)#^M$V(z?3>H%IRC$'BI+.4t3[H&d?qBN55<AT%<F42I
U"eMLufx9#R*$c)/kHsCjzSw[eBe^f/AmTh=Z+&&G=5iCLQ5lkUw09^5t-L)%7m27
U"VeS7C2vz9.d;x)5R-A=IwrS7I90s%D?8zyp*N>B4?.;3IxQ_U]S6*2[EB?lp%=5
U"he7DXT)bd\.N6w%zZfeec4Iq$&%c'4K=5+x6koN3BE7L-/%&Pu*rS*HE>yA*O$K
U"wzY\;k#$80Ur]nqN?qec9s<aE(aScUtFUbI)-qN%cQ;S5ek<SG7k_LfE8tmiU'o
U"t3PW+=Fhg7So?kW1fq-'g^n.Lq>V>;A4Dl03bVh#6f&Oz9lF92\:9U3XoX93j;q
U"w,h\I&6K,VkD.lbdk(TfH9gAvHQRO;qu$?,l,=E-+:V4RrcBqgxNkVZ&dMOqs%>
U"zn6,^24(nDUW:6i=10QH<bQ*bVqd3=Kvs:SXWneFg%nc_9>S=pw1kB.6)o7QPM<
U"O#(iflY6$)&6C3KH93+p2^TWE,0<yyyFp[<a'W<[&$F+od%G,zR4f2)(]^Q;D%N
U"qHamQ;=g:HlPW]lA$hjmEG%V4sZAhe/b]Wm7]w'?SvKQ#hUL9'VjVGrLqr[fl3:
U")b1F/\e2yHCp?hB0\/?3N3/NFF5)9K*o/3p)O.o)Tg5qNFcrf?K>vax;z-8q0n>
U")I=Nu:_b)'H=hJLH7ND0ygE0Hv$W<&9w&assnXL8]76i'N35VnI:A9Rsk-4rowW
U"$7NdAt?gA%cM;ceIV%kX32-*l7eNPqJ^&1AK(GvSCv[kHYl5E0lYgEE.R#GKPD.
U"-k#A&(&pyW]9q?1Sg1Uqm$>[<.2EYTD=SH#<_?+\p5'5U_Y8u?a&Y;Hb4n;N&A+
U"UY7d71ewA3*QtPcaDThx<z^4>DRMVV*eL)7)Zbq-Q<Sm'i4np$NZGjZXBjn756P
U"gKx?hGRnG10bM^'/YJb%PhAz?MWr,X(4f<j%q(\mLA&E03O/mr*TJIna-P0RL,5
U"PS]9>g#,tF9[K7x>&'=SoQ<:i*Ncb+yk);L]RVC6VzAzlI^o+nu]O3FkNiil3xV
U"VZDzMm7Rc_MBf#UKxr>fCC&WEUjiM$)/zb$$LVPPj2+wO).5Uqm;P2%-4W56OLw
U"mT])+?g\bSxBVqm_-uCE>te:CPq,uEDF0-QgF=1b)ps8_k&a^gf4RPVY%u5\I(_
U"]:6^iO[^<*CWjV4e6^/br[(2ePWn#fLxy>)>QX%DvYWs97E+HQt[K/R1'%uUuid
U":.yx/MQ7m/VsW7VQ-GQrd/$-i&xxQ12=ILM%r_dG;Z9JK[O6,1asTB:e&2O6>$$
U":QGGY,<;wGI&XRUrBa4u:Sc)g?%'2,1[6p,Vk.K+WlO5pGGop5%$dxac]866$(>
U"Gk,\-liie.yl.Yc/(StRbfk&n\O14lOS(g42Wc#c1&d41?[I1[iR9_UAPT+aL6L
U"ro^<.dSoZDe2(v8Meg3XeB*[nAR2w()\tQbK$O+B#=OfarKddc[Og_[p_f&2Fb6
U"rh&RQ^FC2Ez1Tu#Q,:3KjE1DqkQqZE&jfkKEeu0H[N#Tjl:j[,8a;F8?'a,gYs2
U"/Q?8;_3ySfjcS;2?O\j'Y<%-Mqp3*;8dV=[[A4T((jP/3k*'KM0r?nF]oEfqC\\
U"3kgc,xDuek28<pVDVU5]%#h1xFOg%+Uw,Qt:E:WWu-X\0ogG7ZNn?OJry5Tlc^I
U"pVi'f?p?qDK]41<l)(h*0NS8).#zPDzjO94:AyqBMkBmFz3O9Dwaf-pri_o]G=?
U"Q3;h;E[ra,58ZX2eQd_4N.YCeNet/tVmwjddHMt1t;Ok*Ai.k1T>#d'7_'JARsw
U"JIk,[G6=.27y/ZG*c0[IfT9$Mq>DMkpxEQ?tmmm*ZmUdM;3w^C:D+S4KT7=s9bz
U"OeHp1sN9+VoLv2%5iiavKeW;]gxxo:*o'4q>QX0l,>b<_HDCu2*lFi^lS&iiELy
U"r)/$y)Dfcoao0PwjW79Cnm;YoKcWF1(w9t)$WlDgz+-lVaoi.ysl:np[8[ZBRkk
U"rw]2b*L$1N5Lj#Vu3gzVEEAX_/6,sOf]DoC<Uf'0s+,0*7P7Cd**bB4_muZCuo.
U"lMktY5/x(m7UfEYAljBltIxM>y&#*KfR5svTL#Hz).n98Yqa4Gvatw/40d[Ud2I
U"0oe,*FIMf3vo(a%qPmQp9y9C%6X>]k6=JPp0W/'bkXiq0E'96K6,)HZ6$V9*<WH
U"Y,%O)*&%o=30]sRC%vO=X1Yh7[(e84p[8B,g%='e;wiW+7v%,Mh)EMuZjZZp-o:
U"0KPM]JzoSI1xt#]Hvsn)qWtlH6qo#DUqT#kts*w29Q]V4fa6'QR\m4;LSXQ3P65
U"(=+N1_COV?c8^s4SRmYGvW,N6*<)J9UHG,/A>o)[]%&j%?yN=m1xR(SODepn1n6
U"sBgy5o<5;-((sqTvF1:W=Aa;7q2Iw]e)8,EX^<<)1S83oTSneEn61&\4I[_l#P)
U"%;h(qO:aZ\;0g6W]pgg:=U6(v>QK9Zli[*mE(&o^>=/*.xh#h,r\B&H;K_bGBhN
U"eK;ynmW4HZZ,iY#_$Xnfpem_R<O<#x1Pb4t1F=)qf,sZ/K&wn0=J4BiE0D0[t2,
U"#iG<FgHbKo=+Q&rw^BvW>hmaV)?33?$PL;cPpG'qI,UA)u(7CLLak4dZO1NVl?_
U"*RxRQ\NO[8RZZfJT2.w=]g'Qd0kq-Ja1=W>&^2R^c\FDfmDIL<ILa9s0aka1RuS
U"*;,tYJfpmyi3n,38-O+xt>5TTQGTDYR8g^UwIU4Q^2Q9Uj61.CMS(uHa2TRZ=UL
U"qA:SHU;_hZs&%+'j;PGOQmI.J*+PK&%n$6.U<+.j/^x&ko,ci#5AE&bnflXB2uH
U"Cx4Ed=(o9ML9]*nP2r+xeAs#C2yQO/DFn^LbbF-OX]k.0?xu2N%?tU+bmY1]c,_
U"VWCaj^NF3gaj.bEJVlNp9/NUeRV0FOkG+s>QuHUKh9[CaUM3#QPSffJ#vl?F^>O
U"s*sBuq?JL.*?5&0Uw'*R?tM?AkRw'jmP827D.hH-2.BQMocgLSa*^0d2dt^*eG2
U"L2qjdV;rHMvO#_ZaL&z+o=qY/'97u_ObvNW&RHrf;09-1u5JT%Te;<JTSaEYD=T
U"Q$x7.A_s4)4apqiBU'T;&3cLYjDAF,>ZzrBtDo0ng1z?*oBH0>Q>UXG<;q,,d[u
U">aUl<_FPV(A?$\IOy)C*NteoDT*l\:%iw?c)I#;_qek9?#&Dluu=S=?NfxUKO[&
U"=>Q[mp6Q8P?+^\V]n<YXeeeA.yl6bPqsC/D3HiTlJgnf)ZKg(bNL%)Q[z43gx?h
U"q%XVCe#uqoJN^1;$XieCH;aT6i6D;Ktc'*E2,P&_+SUk*#%crpH%wp8%c3%O,ZK
U"9)PKLeMss3mR9PG*E2fW&U/<'8_S.8iI;xC)lD*y]m=mIKkpV6^qb<FI?7/knn*
U"o;E2K,-=J/I14RYpPx>#W_7^zf52J3NW+B;9iQ7YQu)qLDTMh/\dpi:)'S^d:v>
U"e,V[?'6#]e7RiLxc_3S<ERym,4*75jXvl.o'[AMYT2/9&Ma7\.:=Y\ICi;g3INz
U"+2*c3OyJN>I=Se;.dMUzcrjTJ<,9_PCih5)K,8'ikI=BSBA?H>bvY8;6oS'4lT9
U"B)sX$Baw9u,>bpklL>/PBC)-32C#3&:xGRPAHhwZ]/sxnxog0qNn%w0;LzRhvss
U"U']qonQ*rL)*sN^R]jbx#$S+?08N?&a7D*fKTQ]EO6tGZx\?R#Gf3t<;7BJjBK9
U":m4sIj.L)?GFFL*FkU7$0VM^-&[URn?'z-uu2,cEsxv1g+<]nGMgYN&_UR7I]&o
U"=z+E'^^%EFsKg,L+EFH*hAW%$n5?]ipuP-i6?#p*pg&WaAYp8Pk^c33P=JM-U0R
U"^h2;YQh^,A^GUOe<7O7eqF)Db)$Z-9eJfn+'D+'<57pBGx&-Y)+$rCo&t3&/k+M
U":*/N7A1'$?)xkE=nT**5ERNXla943\tL;Q=r0Xf,X#=B9/mNRl1hIh^>+k#'Z:g
U"(13vc3fmk6VDjm26^X1ae5mn/]SG\gDq/;;Rtkqw+9p(uUL=-lFuYt]I;Lk*I+c
U"#zEp><[Ae;]h+^H;^RRXn69lUJPuG^VHh.jS#tqm,=*PY]U=4mmbv.)Tl%KV>yX
U"Oto;649bAtl_Y]Xb'BSK3+Y[GU\)(9f?LrA8$z]qaDkD5=4ORj6S2lqeRFzAljo
U"KZVFr7dnFznc)kHnic$=tUg6$Grs\&wbBnq]y+>g;MlYC/Ur)=0S6K&OMq.'uiZ
U"_6/AO,;\lM*lDELb$LF>6lM^F[g\_<8a:b*$gZ+PL'7Z/'v-j]->q;u/FeFOHRt
U"A58DIoTN9]XL*x.1<,'>O]O[OY_Yt+^^?373k<$>kKl8<HE%yi20Sk2)Gwr;vYi
U"<np1;Him4lPA0](n_1FK/#Kj&FkPZIqQH<m[EcC-0.8#TN%M/BrgWs&q^.=Lg0x
U"lfwk?&i51o/WjQR^mu,Kj=<yqAZ4ZOkjI*&oYt6JO>>IA_>RU[73^5#m3?;M6h-
U"#'[Z_&&?H%Jf[]J\ep+98k[jC_AJ=Fq-5z<.Y4KLG<C2wOg1(MPp/e,r]QDKM1*
U"3pk[5HA^,c)i[J*=lt7_UK.r\90_o?lb90j2([RgP^ovTf-Sw5]Rs.OguYwCqQ[
U"(FB,vCY;/gg5\cgQX_o0o6<agrDq2QQFCf=Z%UNssgokMhr.KrwMLk4XMbiiWc?
U"k;Udpo$<Y,l7ONh]CdRz'FjK3B>mNFk36tO*K]rOi]=bf,G0\IpoC&.EKK^,mLa
U"[N3YKDL$d<UaJWG7+,kL/XTnJl/YOE'e-BKWNB[=N1#;XZg_3hagqv.mw>*C?9k
U";m^K=;cB,vvrCwcqLmoCOCno7uokS3,K-)USwoG=]h)0-knL]2?d#k)185arzr;
U"5f3]eLtIF>8XR<belQimmcXCn,0e<+LZBNPn\YA8o9)>Gm,T;+d:<n<X(L2Ux/B
U"?Z%E<1Qs=A.#h#zU(x4CO0Z=ifCtUL4mC7DNeb8cW<Ep#*8U'M?N-?h7&W5Pr?+
U"=NrO$<B+=B2-d(6EeF=I'K^V[GSv*TO?.E*)3e/3WRc^;(;c2'q]:&93Qv6iCcL
U")ulqYg=HYui%lFC7MStfDgr85Y7Lu[IQ'=D_E?xnU^e/5Un)GMXaZOvj-Bt]mnw
U"-h,+KdZtjC<_48W#>94GgqJJ%\>I]hc42Q6_P+:'XauLiG+fpnV#Bo[.f]3q1(E
U"ZST6ma<V<5;mdq-u1TrHYHgou6Fe[UlVb,3UB2LoYIFvJn1_:*b5Ik[TS/meGej
U"N[AtET8.k'(QHldh<h)6E9]gskXP/SF]=JpmPac3dppHEAKWZ9X$^/sX:yaEyAy
U"x$zI=z1I6)iZCNoyg:YL#9%V*'X*b8)QdEt$*eJ:?<*>/PV#dYGFY(_<T\c9A5W
U"5.Xv1'ZL;=r0>lifLNJr9\r^PC*^)E1u=/]<%2lUphGPb8mJ$Q^$Q:nZ&5In>C9
U"$vm[,Cs7fwGhfFA/-7BZ?z^+Ab'a=l*0([dB/$XfQ8nnQAh9knL9987,4%PCY%-
U"XiOLU4Y9&U(]w;mUO()n30D\?^8<[$t&KTH^PeV1rGz/7JB\&#:0VNPY0\94F_Q
U"zEE86bI,g%[NbO.(Um]$>506ZxMnGhi:TBlJpY.-w/g#mg%q*]2&w0-k7]X39%J
U"K(_3?U&E5U2raec\CdG,G>UGN&VJ]QXl+mKlN-3(:IR_:9YK4zf6ysJvY+<SQD#
U"YTmL<MXH*1\zRV(jEG;Dgy%_S'S>ZBVyioD4r(4rjlbi%Mugb)cK)Sm+)p*4q9O
U"S/'M6s8b8[Gl7c'8+hDDhW#:HU$*-wx2+IXz0u^OC7uQ]7YEPis\&zPO-*lig*D
U"Q#tV/z8vo$*?R0MJT'S(':7J$op&#EFRPZgWIpL34(Xg\<.X[GFb=_I'=J[GV^z
U"2;*S$z%HAi9^o$ju<>:fOe1THZ'[IygI([)ZsxR-2E9;C%/kbw^8blbUGyPZ*TV
U"i*XgrH_pp<HMjL+lVf[+X+A6\\N-4Gu<'D[g_#uh6IV$R$f$UpsBteJGv#hG/25
U"c;HD1)?jV]fTY_+_2?KlgW1?_.lOJQCa632n3lN^JgVEw_DqeVM]4c#RGV32Z&g
U"I\8DBO-3ET\X^gUPZQKQ$0V:H$^$N^/%pKp$WN(EG'4l:XBc,lndi#-9/b41SgP
U"QMazj7Dd]>dRlp09rkEqaza')PU5E\q[[j.>=ag&_R(9%E#H3]J\.9OHuNSWv8g
U"*aA/=%<rzRP;(q.7OcbCC&e?NKBMOk=\8:OP9bIp9$6mOm-0)+D4Gq:M3<JG.2L
U"w3A06drKZKAIz']-ZWbV/DHrXNAt='s$(u%e7USJMbe8$\Emh&X*xq)zDuA\%/)
U"nq7q+>CRh36XlWJJ1IEriaT[B#q[NOc:4VuoNjleo1o2-nCEaI>j7>Mu/V>mtC7
U"oMX-_:TU%2,1_7ZO>lW^8X<4Bh&j&4r,mWKlFW)y[s#OeMhK]d(Z4Avk9aBYEJU
U"*5#i1vD*z.ez$l]kT;U?(qQn6>v&<9TxOcjyY'*9P=Otj)F3(UTpJ1jekX?dwpx
U"+tK%DaiUDiN_i<ZISX/o^)^(ZS[^W?%C>8g:S:/vkH/QLA80Jd:oF=+&UzS+E$%
U"7U]Oos:#>*&U]W'Bf-*XXFq[r/b#*i02,<r'2yk=JF#o8zPJQ;:Bj[=2bOfh3%:
U"$#zU+UA?D5Cp'Z**se7L%aX;+)Tf;VI>MKmabHCA4:p:MNDhfv0i6>94v'r;Pi3
U"-oekOcW6\(y5qOwY:k,jgbS%e=jpl2XSRf2d%9mdj((>Jk)_i>i.I]XC?ZjL8sp
U"vrXJ%M;k<E6zPYeHyaj/^MNzbj3Gu#6DhAs[:BC>6FljB)Rs]A.*Y8?D2:lR[z>
U">PNAySL$TduAZDKZ-ll+&%SZu0SVqE[\)IHi7-wKR%\w]G9OM,HIR)kgIy6BqPa
U"+ckr)SO2PFWJB_MI*VYRHUGMkttYW*8>dM_jCp7ODIki%1;/&352We1LoA$6iLd
U"ji^vxo5RqxIoPQ0QG0i=t(o>'0[e<V%xl<+bik+V'APtHgml)A8?-o;ppTn9SMW
U"qO>LMqzOQulRB8*,4L)dv(ZQ-#qE=eAZ-*>m2&4UwL'wc;DE\3ciPA%H;X*)J;X
U"qg[D%Y#V7R::(SbLaprTp$tMj0oX1^fh1-EeCOunc:Mc/xDOxN8mulkN&?[5jAW
U"K-'J90ABT7zomzhFtG0EJ8aR/GhB,YHYGroQ0^0G+';ZjGUejMGli&)6K'[vqIe
U"Gcg/8PGYDgeUJj*lxS0Gpnznh;D-O]DBgsPe5eG:7iXR8Wt&RZ7abi/)\]%zC7L
U"/\I0v/em1sLnkPsD8gOcH5$EH;dV]U&\If.o03_mn[BlB$-dbWo%iXQ_$wWIo][
U"EcRB$AbV8zD=n)sxQ_PvWILIw#vK:'LY_<FNN:sA-zkl#\X0uE(zK'f1D4^&1,G
U"3[;(4NIiI4JS(K$fsblhd]kv=1-Ua1Q\A7VvQ)[<Sh8oe0-b6:N__Dg:qjH6CcF
U"AXI*S5QY-S4H9)gjBL*/^==M13]IHdIIssp%jjkW#ExcjUt2^OBX-tTGIKfu:5a
U"ZhICAb7]Oe8t6]K;6uQ/p&IUOQXr\gQ2mKB-M^bqKOI8b6uCr>2'>W_PKnfFT:D
U"rIKHi-QSKY<Xray>?7fhKlbY^=,$TcjYXrA;3?7)\VWbN+C8PIkMQ(Q<:B(2EnR
U"-^0,)CNln<B[#LUuVUw0bH[9JXo[WgyB$Y'V<O,Smb0;+EkoO[sn:KKq+ihkpf2
U"Tt_23_jSzNxiKG<'X-b7Bm5sP#Qj7=RTL876>;#Ia6H#LX/DiUs*Fe-b/JWSy.1
U"LccabVE$JkvU#BwN%(up&%'9%9%%%%-%%R/=1Hwbd&R8?%7%.s%%%/%%%%%%%%%
U"%%E%%%%%%%%%n%yjrx%qSnr%lup&%'9%9%%%%-%%S/=(HOW#+uX&%%%%(%%%/%%
U"%%%%%%%%%E%%%%$%?%%n%yjrx%qSuf%qup&%'9%9%%%%-%%W/=CHmVv&Zl)%(%Y
U"/%%%-%%%%%%%%%&%E%%%%g%A%%m%jquS(y'yu%p&'9%%9%%%%-%Q#/=HQa&/zE[
U"C%%G&L%%1%%%%%%%%%&%%E%%+%(E%%%rfw%xuwt%gSgf%xup*%+%%%%%)%)+%Y%
U"%(%td%%%%%
END SUB
V2
CLOSE:IF S=221AND 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
