'=========================================================================== ' 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[gqTeA+)o&\%O2j?Z^#; U"UKS'PU6&3+WH>*:F5T(GQUgmihgo%uM?L]K#T56mo8C)pCOSJ 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*HXzRPPPOr9duUTdM\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>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>Hj_JL,8d0pnPm4Aou?9dl,8QltHMW6[fr U"x$u;cBQI#'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&;.:c9_dqlW'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)H9rCz+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#JWd2D1BIa4dL[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:jHtLTZmA4.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"Dg9+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.mPrt6\e+#9Z#S%obrLqIkGd.VpUCuNQ U"(&PCDCbo?(#:\=Wd\.\R2rw?bDnTU.*n;Q;LrjT%D6jv#?\ZE>;S%rb:I\r^P=d U"mmAYqpGwJ:BpyaT,3e/PD>u(>=h< U"W[y[9lrAb,43r'lPsQZ/Xx$22+M U"%Xcu3,8xmKT5EeUbGkxE,Nn;;>c,)lGjgw;9Kw(9Lyl^g$rb#^ U"IWS^JhEfoAt40X4-B7NT_9psAU?2g-,-8*IvEGB U"K;);jaxL]S5Q/#>q2r)'M6c]TjmlXS\8*jTUHF^Fy]oL:5?n+?>v>(Z>=Sk U"mM2VSoKw,:.*iGY/fnPZ8M&obfd-i0JkOnf$FMo1?a(Hb0QuUOJX%gH$CbJA<^/_?.#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'\)qMwlzSa<=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=;5ntdtxq+w U"O1krfMZBa6mtO(Jv]XBp*lE#r+kcX;Yl(BT;Y%^PG./X=tzTYu'ucTSXQsN;hr[R,(:ODrp[6)hg69r(f\9'\u6Mcd5#A1;< U"?1?z'PFff6wahx;ARDpAZjRxPcs*tfpx U"G%:HXxI)6EKTUoLlnX=)x7%en5K7Kfya[cG8;w$( U"J9$==nXm*trRRu;18dN9PRMp#JAj9Du'.'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)(ztlLCl2,l4vIdR&m2#]gTdOpO\x997?iZ\mK=gE?O+$K-^BAcd4_+Gffw*Bl1aED;xlf?19*I4J'E9JjR/L%g U"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=X/2DB?,$?pJpV U"+xBi&GpxW(2k(Ww%x]:wx8h#P9/CoAketh8>vp*A0MdQx]VM]am-_t[P8Z/ebBy U"a_$+sC+:wIUDdInND:vAaB&8fDz?,d$;Z]8O,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_$s\ U"ZuY^?;b'Ci'RhRmmJC7amO[cj)x.*'Hoeoq8K39FKc; U"zZ*R+Hdbj>[ZOd7INcQnvDw#9a4i>'[aOvUS8]DBAuiLdSf>Q(e U"ce/)9NoiZZ8LaOosU(r8>QPV$9jGf)fnXmHR^PumsX?Vim=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,6ewuM,5[$Zw(d>^xIDm%GJ$B$FjT0f?ttbuBD=C6q8w(%N&D-df U"bCd-APa3Z>O.JMfWU='71f: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;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*AhxtBs5^IZ?D?MD)JPm#P,R1ftUDy^N9CQm,=z:wi/idR),qMWe[b U",)x0>]M=^7f+$0g9Y/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$8R:?Z4.5C+=*>^OH9#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$X302L+qgCe U"qLv$^wOR%MC'c_MY+)HvjN$&:?#C_\PK$\B(K=3>?DS8k1:b:I2$aGQ;O_VE/-# U"7GTUF3^w*oXxG'Vuk1^.Nkb#1yhALEt^sJgY=DRP6ek9&^HUt7T+0;BWM,5Evd(Sxe U"k(D[X3A>9cR1+g7;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^=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"FMrn<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%b8g4&-)DZVi2WN^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#'hz];jTw/T'LXHY U"ZH7fRxUNmdAwxei>4NU4FwBcRSvG/j:20-VQ*H*.G\2FhobH)l[uf%+YclfK247 U"?qMg:K&^KX9X(=*y%w.OCgo;K=tmpG'H3ecPEk/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$'UkChg)(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)bscgG0DLrv U"->lQiBxMb&T/scVIxl1C:VVW>o]E\/J--jROs>[&;G>W5)/VzW6<'=\P_[4C[mS U"nb(fRpTU'JTNX4Ur5g16;)K3,QtU.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?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)]1If7,VEjO6(?(PZ%cC3^QL5i84C$iz7*/3h]0EpQN=;s6dhWs1Z U"ok2y^$6/;)dZ3cn=X]b=:(I*sZJg= U"*X,#*UxOAJs+O4G$3MqAUS16,+Y.[zWP5+1wbu*qW]%yO0^2q_Kv#/#8V,cJr/d,,>*(_*:S0t]nHCyZC2$j'Q99?zFdL^QL7cc/huImC>TD*4e U"'^jbJjVDQ6;5+rU:l>'i56=1=YXvJ21L29'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?qBN55B4?.;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?qec9sV>;A4Dl03bVh#6f&Oz9lF92\:9U3XoX93j;q U"w,h\I&6K,VkD.lbdk(TfH9gAvHQRO;qu$?,l,=E-+:V4RrcBqgxNkVZ&dMOqs%> U"zn6,^24(nDUW:6i=10QHS=pw1kB.6)o7QPM< U"O#(iflY6$)&6C3KH93+p2^TWE,0vax;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*QtPcaDThxDRMVV*eL)7)Zbq-Qg#,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#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]DoCy&#*KfR5svTL#Hz).n98Yqa4Gvatw/40d[Ud2I U"0oe,*FIMf3vo(a%qPmQp9y9C%6X>]k6=JPp0W/'bkXiq0E'96K6,)HZ6$V9*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_RhmaV)?33?$PL;cPpG'qI,UA)u(7CLLak4dZO1NVl?_ U"*RxRQ\NO[8RZZfJT2.w=]g'Qd0kq-Ja1=W>&^2R^c\FDfmDIL5TTQGTDYR8g^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;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#W_7^zf52J3NW+B;9iQ7YQu)qLDTMh/\dpi:)'S^d:v> U"e,V[?'6#]e7RiLxc_3SI=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>IA_>RU[73^5#m3?;M6h- U"#'[Z_&&?H%Jf[]J\ep+98k[jC_AJ=Fq-5z<.Y4KLGmNFk36tO*K]rOi]=bf,G0\IpoC&.EKK^,mLa U"[N3YKDL$d*C?9k U";m^K=;cB,vvrCwcqLmoCOCno7uokS3,K-)USwoG=]h)0-knL]2?d#k)185arzr; U"5f3]eLtIF>8XRGm,T;+d:94GgqJJ%\>I]hc42Q6_P+:'XauLiG+fpnV#Bo[.f]3q1(E U"ZST6ma/PV#dYGFY(_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+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_ppdRlp09rkEqaza')PU5E\q[[j.>=ag&_R(9%E#H3]J\.9OHuNSWv8g U"*aA/=%8g:S:/vkH/QLA80Jd:oF=+&UzS+E$% U"7U]Oos:#>*&U]W'Bf-*XXFq[r/b#*i02,MKmabHCA4:p:MNDhfv0i6>94v'r;Pi3 U"-oekOcW6\(y5qOwY:k,jgbS%e=jpl2XSRf2d%9mdj((>Jk)_i>i.I]XC?ZjL8sp U"vrXJ%M;k6FljB)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[eLMqzOQulRB8*,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_2'>W_PKnfFT:D U"rIKHi-QSKY?7fhKlbY^=,$TcjYXrA;3?7)\VWbN+C8PIkMQ(Q<:B(2EnR U"-^0,)CNln;#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