'===========================================================================
' Subject: ZQUEST                             Date: 02-10-97 (19:03)       
'  Author: Nicholas Klaebe                    Code: QB, QBasic, PDS        
'  Origin: rakoth@ezinet.com.au             Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"ZQUEST.ZIP",4^6:Z&=11632:?STRING$(50,177);
U"%up()%9%%%#-%)l#KG^P1%E3%7%%5&%%%.%%%%hw%fkyS#lwf\HIJ/OdU-TZB6e
U"5sl^VmxjVlG/[JZkxA,Dyy-A/tP3Xe7vUkN5q9_eA>$:X+J(-=Bz^*P8CNZP.'b
U"zl?L-twrPI4ONC*o$g^X8&&8Mkmr^QV26._M+NV;2L3d+]d+u%p()9%%%%-.%Xn
U"KmGOCu(7/%%+%5&%%%/%%%%hwf%kyWS#lwfd$I0/9[E-*YDFPfotx$8b7Q>mGT?
U"K]^[Txwn,98(:Sjj=UgnW$A?+AlQ%_2[wG;QftiLooK,?dOGlSF.*S)gqH[ZzCM
U"OsLzPXr<+[3up^)&-vURPFfsn*jX#u%p()9%%%%-7%T-ogGq[W*(GP%7%jr%%%/
U"%%(%)vz%jxyS[gfxf2L:B?X$KiF,&rdM2;y;D)RFS1c?%toaJo]j>B)j&Q5R;<B
U"Nx([JP8=hm>Alurs&&OqD59Qn#7$[\k(XcV%zNaP)&e)h;>lsgL\IDsLfdP?]Vr
U"JcRVXL3s0_11Xx#7%inKZbkolLO&R\Vtr264Olc<AtMRjXHq&GP+Y#mpP4g\Ii\
U"_$UQRW9-X78N9Q/Aj5evnU:'-d3Hp/HC8ITj]K$W.32H/XFll0$<KM8aF>$vetX
U"VKAN9<78NTrAHt>&Z<Iag=_-fl8v(urX^Vxo'Jp=BUbpAsN9BT-Ll;NWm9xL7VB
U"nc)OW/d8jm7-*26_9$nNLn[k(:OuoObr^*h)lY,#/YH=oQ,#DF9D5&R)&kA+ot0
U"1>S.hh^Ij??E0t5)7Nnh;FJdZVTlU1tuZ.[^K3&por66ZNkdvPstAJ_zHj*T3TB
U"(o,j22H3g%*tN,009[$k$SLcR4exTFfmGrWT;rO^O(e>*%A7,95kPgXh(UpT85e
U"T*E$GomsAJPM+ZsxgW$Hbk,BfX;Jb[?Kmm>KvQdLY*\cuKL4SmjX7the48&&oL9
U";X3CQPN$yDGMRF&srs2d#^Yhh:G:(Cmqdw^uboOr+>bF#b>vpkc?he*(uQMSu7\
U"^>fDbkWV;hDM[eS,ssM-ih3%l(ZtJq+6Wn]jA>)hMnIT/=a\Rf9aBh3K;G>>n_f
U"IqllF0OJTM'<_qM6(%\\O)->'6>r:S1ahR_GFF*^)RIRjH8$+W>9;O$#qWm)\1C
U"wn)_INMP]fQM%Cw:*;]w^&\GB(;75-bLB7vO.zB7w2D[iuF5o+Oa;Z8]NQy.mm[
U"TGxB\0.ljYSs?=yXq;DBPOgfHcTJt17D]#0?f]TSH'?8g^<lKeB2tUk/mdUbiQ;
U"LY*cB<sCW_k8q3p0'mod#yNtD'Y.8)\uJ_w#BN6^jgaf4n&w(tEmD2]kRMZ]9.g
U"S\,$o>7+H=6:JbOZ:e5NZPofRONGp%Ou%z^o:)x%Nz#SXSb9r'3)so,TXeDRYJ>
U",ihVrx]qpmwEUjPVq]N4TjJG[7KG^qUNjhp&MngnEbo6?]Xq:mL%OT^u8KOE==2
U"YR1e#PN'7,mPaXWFc]efV,99k/9_mQ2;Q;\nLbY08G]Q??_i.AFEL*xkMovyAM6
U"/%/Es1yeak3PL9XY:AK0f8;k>24#T^R/gC(J^Q.nWdfRyt$111RvkaGuoi_zZHc
U"=;Xgu.nE6[t[Vf&B:1045R(3ha7&&:.v^nTIA,DObtFJXbw>ep.H7nY4CRS]e(6
U"uOe#5e>j=-Z=TWPf%B%OasOwbf:FznyG-^Q_iLK7cE0Qgz$2Z2jWc)9+ZY<OPiO
U"3n81/:x28Jv=gR);;Q#EMtFmPGW&Qnr9_l.*^MjfaLv:E3kRuA^f]hg%kM$#HQ;
U"B>OLHQbG$Nx\S6..kX$0QgtUrbJ/NJh=J$O?uS?nxi2=zNt)tCp=tBn:GpRtjKh
U"SDqm$tr0?6No#KwnVk-MTc^Z8u<N0x75GrsAk/3nAf2Zg;TQs[5,YIP2;6N:N7/
U"mL07I'9S,<&y^J;0C^S/>d5es.3lThDl53t;rK1IG9diBZk4r?,hx\/_6Balq\W
U"M8BLy[x'R_Cp)$cpGXjKSv(NwRRfolEqYIN(Fk-5G*=Hi5'aOF)M0#s>m(peUw5
U"/CV6E/[&07B68&EvPh<g89tZ.s/m'u4beO5$Y0gGHAq0&+#oj4'<hbNYG0iX(#%
U"N8Ho)(u,Z6e;6hn97IzB/tRU^].^y_yDmyY?Ua8YOJdyae2f8hFGtBB7\l$=F&b
U"JaS\$O\L&9)Nr_7u.I'[4ZG,wj)oT(+=MCLFZoKm$(qM)3)$f,_Oo#CI].\OwqI
U"R;kakid7eC/uoede%zthV9E*0PIxlGLGB[B9RaX]3)ojKjHW)le+ppEa#I$=Fs[
U"BQgvVhi&*USwIbP&)-l4GR,1(iD[Ep*WKQ()qA6KT'ph(oo4;%J*1283;oBzT#6
U"7=[wAAq]DLwvd//eNH*>8i39o(pwCABE#i$5d5C/KCNi),1v8S(NJUh1kd*TAkl
U"slWjX<J+:qwq9\Y+ttYx4WLyLA<HKI2e[;*,2Ol-H#\U<fFfx2<7yT-AqGy;LU,
U"*Q)Wa09[K#eU6AtDJw+EDrdD'<>P%&eAs]\(eaOp4HL&HoX:*BPz:T(hlD5/7M5
U"<(SuTi'C:bOOli90wLpS9b,\M9NQgCpSoHHT1XS%LoPx;#q:C9WbeWRm&)6BWI0
U"Zcnj$Uo0LzWHGf3A9oas#+1rwp_FBDVpS48ciOuHSeUr7>SnIKmIDS%q7ENSC)Q
U"Cos'o<nCC9dS$f.A0L.qerdf2dElWW-e0&RI;m#/t$<%nc&9UM<A#:/JW,F.$7h
U"c/'7&J3DdwJ%/kLCB9AQgj2p2[_)KA8R'iwKaqe/(b[af%)RFv8Q+>Vr[;DZ;.;
U".,5<La&JlQ\l-d,a:NOHQvB.J_4OMoq3q<%WWX,kF727\%$1SKgh5:=g]>F--5$
U"oJ[AiCS)H'+yRRXHiFMY)b'PLXC+sI/c3Ih]-Z/P,;juo#GCKr:nW^O4wY79=%w
U")TuRZb/mJ0]n0MN738_.^-,%hhu-[IdM+Gh&+AWKt_YHsBmkfeHBF#x:z_i%lqW
U"U6.cBVH,rJsUe[K?w/?0k_\Jqr$:I27sih(yaz)HdZ;0a'^ZM-KDadNMSHAk'hT
U"pJ2[:XPFYAx3:PvJbRl39Q4.;X_rrlpV6213u#B?V<vUr?KZxE=i&q%3q5%3cY%
U"3'gqO32s]><^#2OD(I7,C0<$=Gu>[g,ZDIzNq/%B,p;1N')^Q0a9=BBA.B1E1hH
U";=>fMMbcJyXNsoeB[_byKk$edcP*QNCJGTo$byD)rJs.2$J>ufT[]jY65,R'Z?:
U">b3aRi'M?yw4*d[T;N&df):Uopa+ZNw%kBxABeWNO2V%YUZ[wG:Cg0I*amXtW41
U"<FN*K'ss325v(wK1?$JV#hm%HY34oYj;FxYjB<]KBi(4])x>K-At4e;%W^QC#4e
U"ecOqPgm#x/q[V6*3eU2]rJDH,%j14Wephe>pm_m4\V.p:ZR(Q9#MWe\+>eS+xuZ
U"a;kD.#3p=i>JV3$atSg6>xiRIl#kOpB(FUb6Vq/CME:/2Z4ih9ZM*_KUtgJv:RR
U"DHbC+AT7NNMR9;>f:7%,OW*%]10uV[bR5$8l%V>+lLuX+Y_t,(JSJve\4SR+hSz
U"Y6p7JT$;>1Za]G?t/Qivpn('nf/a98t]RWBM(XD$?eQX2=,;=>:g8TFBn(6%N0W
U"gEh2-$\m0+obmF%BFeuJQ'<P>5ICP(uB%F)&yep]\o;Q9HTI&'-m:-1W\A0/[yP
U"EB9V;Gk6O?%7/A$<Ba/YRM%-P2IzEAta/-Y'_3Pv/XeTkgBf'BNqps;4h]Cl9:y
U".^/d/zea:iUO78LNf03$3$/MRt5.]L+HpD*0^eMf0g<M;Uttt.Z[QLLL\>u%hl_
U"Eu_vU]o>pGE:7$I3_K&^cXtIK$qM*AWHklrofR/r#f^??-p^eb8?l_5uC%MAs-m
U"36?6nJa?c:%b*)#&cE[-K?FW:H1)NcPnoV8Eas4Q1&;4k:'iAI#C+BE]ANiMaA#
U"-0=:5Zmm\$&*6cW.&S4#tp[.(1GCv9^&&XhFG$X3Ap&IO,o$g%#lOnfeHDNmCJS
U"#X\Q/kCHj$8eG2gf&rz+;a'%X9OqvYXAnRs'q)XFWLG8xrFR.Y]W?f)qWqi[SA%
U"rchVm\TcVD=,\R>JMd-ekW2eE^>X_[,r36O\sPq9t,D$,Mvb>uRVuN3.T,6i,pV
U"5wUXDL^pJdsls]KkYvEIID#8Y(TxMCnpLMOf7wzTA*$(M1AOX+7DFT'mD<m*h^^
U"Ls4=Z2i=D#q];5-.u4?WRJ^l.'wpBN2d<dtS[i,3>-uc4/&:qfg=.<81oT[jZF5
U"X&ww*?he6d^]nqQ6HAC.*T)^L6eB3K_o(<:S6pCc'+;\RbqRn]:8oJNG$qlMpc*
U"KB79Hb20rUNUN9^[Ur]#zhs7>9^z]9P^Xtpj/paP1&lA>_tYG;]_e^/urGfZ;V3
U"f,UiX+UD;;zprPMtz3<a;9z8]1PX)4N+t%Eh\l2U=Us>=ZrW<eje?9npBuk:lTB
U"3h1d1oV21CP$ZIuAC>cc1L_pLrHT>U4j;_J.Jqdpg_P+&>x?F7i&sWg&2Rwi6.n
U"eeY6t,,T,paSa4^.0qgJoQd5h.j1BA90\iA8/*oto)dWNiN49FLAEs']$_S.6hD
U"w9wu..ZtL1w:=Y,M>32$D0CUCwjX(Yo&o4Je>or</3+e<PgiaFPf<1\EwvRskYK
U"OPb9L9NYq:g#&*SI&9VnBumIB9-:W?/1);gC\=,\Z.q.sF+tSv22^>1X8/c6Cgg
U"#XJa(P>e.F]-r+p+RqIhy5G'mqS3]RG)VeHJ*$l?Ssm&ll;dH#,mG27bFPiFaKq
U"JHz8Hp?LG*fA%J\^e9,ip\Y:>if,#)p8f73r7Hmr-Je&w>(H:upzCG#k0>3Ui*;
U"a+LTN<F:a34hp2ItA1gJnZg<.E)&5:p4orG*/l0w1wg0+?m--fNm0x0l9UUzAXs
U"K6_YMBU]b;(JiN:%?gw,C]?iM8B4qGuPG+R$P#T(?ONl<=.3H>1n+J5>J1]4R;8
U"rfiI&IlVMYxjS.K7pXfGDKMONhk)ZN'ltd#7CS(L::jlEZrol27kM_DKuTBS5el
U"qN:FW^PGjkfsPNbmEI;]D+Pc/bWbS#ldRg9fx)PshsfYQQWB1z/:B7OPVNXbVCB
U"FADa&o94jV==^l+SBQbP:ZpISF1;tJha&x,NJo&#*0VZJT^S$GOMg>5J]JB:DF_
U"^?_<zA_gv:=^+3Kl*;hT4H6Rm/:509^Q)_W1^1$3,wCFf4[*,T1bhv6W;Xwv?cq
U"t,BfI2'Ig]T4)-dO?-%_3yjeiM74,_x,K:9JaFW+2o)egAniiNN^'9i9#<78CXO
U"5Wb2T)]Z8vs.iPMGiC&vO6)qXQB8Koa1hF1Q)w3p=q6b\MM8W&)8Y]p5A:LFGdS
U"zbH$N)QEFyrK0ge,_oHTlPFYJD,;J1[]*5cd2lg[_$%hQbSqbAl=BfbaGOPWTDI
U"^^]ooCWH1oCO6rm79u^V)Y&l:Ux,'yW-^#1%mqr[$JsXJ(J_0u1Wg776CD6'jWr
U"gi=K3mKDiSK(G(%%:Z^&Ff:+:rqFkmHnbx:xV'WW,011CB]-b+;vYO;od6#>(dt
U"=qxk[#*aU.6*)uC[ZMSQlpg9_8#M.KmKRt7jsPU1%gMU'FCsV\[l+6]*=nI9>1F
U"[oGrl)d_&C1(76TuCO*:)5?KSldBvIuB-Qdg,_Wd2,vXri\y/(CA^rrV;KMbu=l
U"<vEh]6I_8l6cDoY6O/0E(ujVHvoY*jG-]#gAa2Uy36,^'4_#0k1woE]H>'MTN1+
U"ai2mC;ynxn$'XtSAsxUQ\h5:GH?4O'B=cE&3\/(u5?TO$(,sV09s?UVHYg&84,0
U"p+eF2GrbO52#/B2-[cYW&r&BVoY01,?YM:5iXZEcZYcQug^YO-;3R6r.kU:s%yE
U"E#48LBrofq[1YLGU63$:*I:v5\Xa6QY?.O&f#eT&VXvaFw;;%t'IP<#L_ru^U9/
U"=TN.cP8i=DGI[[r.LU_)38EY3EVF\'0W9PE\de^P>UZW\9Xin\B8z4F.PP\Y_,4
U"]lN]jIC&$A>UU,T/PnID#w+Ra>#'qp4\9BIk'Y6T</4V;dG?(9bfU7..v3Cm>aj
U"2U3EhWw,sBa6?.2&hjI>tU]un'>&^t*AvEK?6Rm[;[a)tQ3I4TS-DnU],V*xRV3
U";=LmQ8nK-d\a-W)$3TsF2YD5RMgFqY3y0WQiD$A#vZIYYu7coJ)qGO+*J3B[5Ak
U"^<-;;aJJW(sQVp44\-U[4n=m_U3AWbU\(KShNWA0,R60UWhVU4qsSc//r.\:$l_
U"*<2y0_ns.*;dc^86;>Fc2AAe>Z:gqa+lmF#*T==Ql)Unm].2LrU[cE*F&kYPmZO
U"x68[[tn\Qs]^Q*Eg>srP#AQ^b(ijIQGNS+pCeiLeCfZIn=\IT]Oa24PERCE&&5$
U"1XY#[GY;<T.Yl&,5<Knr&F7WA)pkc*r\#u[1*o19C?URb0XnpuUHGnXQO:yU\=x
U"Be,Ll_zAgO8q=&Bna.[Ys&5+E2Wj=VUQS)&bU.ngb,SZNdh.&>^KOHaX?OCwooE
U"poJPHObirBr]Qa*?7Uq>uIpe:G><E=F(#fYk)PG.[.PeZ%.ec)SFn)F*UE0U-3m
U"/a;)4&/;MrU8ja(''jt;?+qugAD$%w^'p.zm5^OI=iUUIXT8>V9$6GYNeIboF6_
U"Zc)27hK?A]MMgcH<EK.O\jwo=^t8^$*qt+f-aE4L,870JG1W1.es#tawa_P5M*[
U"%87I=I;iQgAD2[/C;#=:Ch0]ZAqvq8^)2KL]TU>n?alFQQc:/OF#IE>%)2fcSSp
U"k8IYCb-*)/B^S)ukcMJYq7[GSud4*L-]kU_R/17Y0A]WIah+f/lle0Ab\TBPK.L
U"i_bxP$rg%_]e(PLc0#3%7s<,-]nGFVnUZc5D-Wrb9e61'M]g%rHXpe^n5uf\Og2
U"?*j[1f6gL'v4BH/e%Wc9jZ6HKk?m8TU8Yl,NB*4Ao3vn^q(6R9k:.hGcFv;VY/0
U"WZgAA8+c8vU'NIoU6X0'3B9[a<Y:'YQQ9qdQMBt??mln39#\6iW$TCXm#l(5cE9
U"?FQd,]Lf=FF;*M]GF#GXa<I\*%lNC+#v=sh&3na1i_0n9)[SB>GT,IbS/_4tSD3
U"322k6='0&,_'UHY;kpQHPfTFKl#g-yQn,RVE?^1UTo-AN]1<[_dcC[<r6ZD)(WA
U"L?JcQFbaCU<RqO'A6nN-H<-IUZ1\X)eB,RjY3PHBwQ3PS19m0U=[.X\AVsqIy(k
U"7_;nL%A8(W^f;I(;IBwB#):2a(<;;C/(cSu';&T-='OVM(#m1Zx&b>32FD''/fa
U"ujWA;W.vInqE8:R=;MNa]f3:UjnnV<^ep7ylLvRa1tcdD[D,kh/?H%I;*Dt5Bix
U"GTx\i,UB&R[JXUX=\(Bniva+.iuEj-c(cL7\#>,Ec1fs6TN^8KXhSwnZPw^XH8'
U"T9:+gFGGJRB;ilf7/oF>k8^07jJ7W$F;O=Q98:.('?Hnp9d-^YjAN8q4Wt+1%NF
U"WQ3'Pq/:Z0I(Wb2/&NBO<B3+Ze2>mG&5NUW>M*&SKzed>Z#>np1XqXnzG>c8f6I
U"RXHC5a%n_S+Q^[o+350netpExt7\PN;Wdnq=KP[&HM4#0O3>ekNDwRu^gzU*(qz
U"zw5I;y:(IJ)%]R&Su>Rz9'[T8Vgi)?:GO'ZujJ=AO-Q-#bQs(rSiADy_-$%j+E>
U"V(?4pkz+CLV(]L(Ki56q]+IODlcCN&]t^[bsQHbkX3F&=^CXb3AvS[kV<cV8:R9
U"l7N(9O$pK*JZ0T+]7Z)9#JLBifjEf4u)/1$2Rm<t1P6*3_lh<TgT=#R65,wZkb2
U"Z^QTT08+EbK^Z^F(otcat6GUQRCd<_k7/MeXK2(Vtqo)>%46d_Fvjlh.&s<)'B;
U"P#sL?ziRlhC[K$XNX,eE/(YY]UpY3Pge/bU3i#'mF;N%4](#g<aP7MM3OaHUP1a
U"n#KXd(xNiBgm5W&4+(+mHX/0M>5g[YidviwqGOrO4$4PXg(.b\hG[-$*z5&jbt?
U"lklT[YKObjplUx%F0wFlY%le[hMB#RkeQ8sL:.hQ:ui4DoR+0=_p>D,kGt(5VLU
U"pSrji[ae2_/lezl;kY73F2Zn]J28tjkkpR=hY9$l*jfUz*=E[#Enl_\,136\hve
U"BCS^kKVh]o46?Pqg^7#Ymj>5Z/h*6>K/GMLvem;DwKNHouTqI=iu<<BO#dSCemw
U"Fng'rEFFl1IWA6d^%DgEtSxhoN*b_Du.EtxhpqPuK=FX0eh'gAo]K3#;UwM7j=$
U"7G/+YxK53tBK%sZkJG3r\e2\K&a$glEjpat[=A2p66.cSr9LkgtWr^:k2OE,F[K
U"':jy<Iy=&-WV.7U?f&g/k0uc7nUz;q(NL2#im[nDcP)fh6q2K2J.hFKn&pd(/pd
U"M-tPu-75U(ph/M-PaV*.<f)iFfG6.(ti_m%GX[mEt%4iekfu<b+.-f0D[dE6JLF
U"ck99]]njk(J3'7n$p4(JrnChqWPlVQB]XDBB4FbH$%smRfdrtUtMbb5.s3()ho<
U"cn>\=SAK\iH$[FC,=R+*$<wVRHrrIGqGdtS;T$j-XPR&TF8r_s+7jO/MrIQCKjE
U"U3B:n4V1K0%+W+zt$.bY]%Cf#i)ie>W8<eL&fh+0ah9ESI\oH]f(>UTrMoB.xu<
U"TAS,H<.$7YrkMt.aN'[Er6Q%+r4vodFJpz4rlc;ZWd]FS'l^BL?(sdj$pl.$VBI
U"G^.OAubV,<7S8NoB/PTc(of5AMR$-MtS1OTi(1gTyB8sLb$BJR-<qaf7i:M.#RO
U"'lj,8\gx/pPA7l<d&FpiKHN^9PmZD/qE[pG/0o#qhBuoJ7_/fRA-)<>Oj_5F2e=
U"/DEp-t8oF1+PQ32sUE=.i+T]yz9'6&7m:tO[q\NJ'a:wf].2o]%j2;XETg>R,kd
U"6#w=TXETO*-g>8>Rq*PwT*cF?ULsd6RNrQD6[z[eR1%YGMfnndrhx<mmx2ko92W
U"6X(:fYnH.o0HN]YT$3\2*J?cR&ar?:71G&yCOi'EYgwvx?(TNSETL;r$_&Uq0$*
U"RdrlPrtNvfZjj(MH]+%n[B>p^$d=iDKk3uU2y$t4GHEu4G-HeQ)]:2/X)Ko2/3%
U"'HB=fDp9oehvms88S\sVia;W.11H*q\U*Ak1YI#=pv58QtZtK3&r:Nsrl%NIy1g
U"bkvm/foo5&2.g8ItD18yAr.p'VQgJW+RK^rC;x;'ns\IM)J%YG*qxL6-u/FWkKu
U"(8.Ut&8o,OVlP)/>x20uB'n)48LBsb\N#7TBvpslxKJgdP]om1#2u1>Mrrkd-&r
U"F3ukd^Z-HT32&#dF#8v(WbY+uG&Co.PcpYs(m-dq*:gdHJav+iCSJ7dOxOUDD(&
U"(41rvsOukAN.E')oHjoaMv6i6y*&+X#?a&4WT=g_g'?/*EPIcU.edo)NjRMb7X$
U",+'E3/7\,ahU?bMX<,OkXF5ATo<ky8])]3CJD9O=rf2(#oB./qbJg)#wl(g_h$$
U"1BM6&5k7aJ[r1:VDX+1vta,1beXY:wU\v.q5eD6f2lTa,f#uu\DFwcSD=GaGa+2
U"-q*A[RxVo.d0LCcAWb5d+%yTCaKBS6C$HWgdK*ZCS5tTE%'4ZcEmB89N6wup-Ml
U"Q'M6^#N6Or\Dfm3i8A.AUoK3Pin;:o$RrpNpqE?$3P5^?Y1H/5nnbGol,6#xf#=
U"6H3/5nbuGo,6ujr.RYr?RBYzRoeq,xQ_t8YW<.<(16n_WtNYPYWiL*PH.0CX+)s
U"aq%i<L*pgbW3D#]tAdGN_]k>Wh=xhcvM#rl*]=<tF]-Ktk$3LfCm-\J?TvLM%(6
U"J_Y'S7iUs(2U#_D+4N<+/e79UP?3%VfuA]ZqsteEX.\b:Kk/<KdOAr8a,j]V\7#
U"YwE=/TU]6Aig+9$_xCaI<,0X5rjL>T3,5pKm<#MmQB?'LVn7R(M=vh5fYF2NHxk
U"\SQ:I&DJuwd_q8em7^-=WZD'qNp4au/bPI7aOZ/$,9q<dXSW#>d^Z1vlsI#1g/c
U";iL,E_j-^,wdhmbr7o2u)1fMQ[fEYH9TZ:&$?<u]+hGg0vU77z2R*#I9td;-4r(
U"y$tz_,.z*VaA<<6>75\3Yu3\)Gkw9a3K9#[P\.4Pq5n9?,)[yt\F;C>r#st=]Mh
U"ZWNktVcsl?bRt^I<hLoR:Nx:sN3T$=qldbN/^*ZZrMJ^e4kvog?E0xE.PfxA3Ak
U"UvX.UKe[kkiS',)<'rHuBlv/7<lGr^X62pjG0^qj:9Y_nG(5'+gRXayn+xJCWmK
U"?,b,L<BG?#6)[9y$51j7Xza,:95NQF.URxA%;4Zq\Vw^M7U4.\W('Nw5cb*zB7z
U"Nmb(33\egkzRRll5BMY='al8h4'lGh3PlVH/ihz:4#ZFKYPHT+H6t8130Pq^._$
U"PsnSEmnr-uY8So_%F;#-)t$Dl\H:;rr<se39BTbu3u*;eQT'eb.s/QPGW&#'$5r
U"[M.O9oqn5.rN[fT=mv]vG(l'em'AP=kV(?T>BqLBA#'d+Zo8i/6$>-sWr/-g+rR
U"yi/(EVL0fQpP(4Y)l*NxpPl+Qqg(K4A+w3_c'M'$5Oy-k+$^#A:3DJi^c]QkZaw
U"o&8FBZh_<,0aSWfd/qlbE*V'ZgtfxI+hBs?2=IpWh/Bu_-:k50tS&vnnM:m]Zrv
U"ivL=he[S_7B]AeQ(H^V$*RI_W_fLdX[=J-k&4DC4k&A39vqW-M;&2jO:Ye$d3A0
U"WBZh?*HMUWNar2r<>(edq#MD<pFZ+%ia--'7Xrzgp)rlIjWi/O6lt8]+Gw2UK+&
U"KRR2S[k6;>:]1m:Go8y<FWhY-WK67LOIQ:G2^4G7cHE]*:sMDWW?33gmj?m2o^N
U"[;ljG29tjB<WZBM2X5;M6QUilt09A?[YHn:gQ<0cbqSi*wX%;c9<oJT,N>V>D4?
U"/V-K/(^1/Dcbq'tlu;bZ_;>*k^\7D7nk^%YMsBr(4$KEdhypD<qNQk)tAAuq?Ho
U"aH)2_nw0X+?N]'RA?ov#.0>2Q9uDZ9rBdMPGx?_ZMoh:xXO8M;jqJi^Dk9R5)Y^
U"9506^G-Z.1J/830xYhjL;Tb#Z&M'Oe#,OZW%C%qLk-B+.P%wT1A<zXgXk[(\b7Y
U",Y3A_6LvBi'^cW7fUH56#k1m\&uM]]PUzd*^l+=^o<Ma[V/zix>8;vYi=<>=5o]
U"i(k_3dMlU-?B36uKi]J&7.dIr-A1:oA+sAc8he=>33Y*h*)XG2UKhmJUd)3RD?n
U"LIjZ01R(.6qzT=0KQ46I^C60\o+IpJdvr4g-I*\3;>IgF8u=Yyds$yg;^Cs:ccm
U"r/q_Hl%cm0zheZv)2H>3c5HcW5QGdZ+H\#zk1c:\YwW3WrJW\$O;,0W#Po.nu:)
U"iG*(O)Tq^q[(q*;1iCi-V<I%+;lO_>wmIb1(lpu*Y:k,=:*ip^Z5f8FK(hQEnWp
U"H*1SZxuZe5ZYbDsTG.q,h*73)#uw^gmUJ[>y5u\P-ZiI5qjNLfYnr^q8S^*_T:k
U")n[or#)=5-w5<?Bq/mA/:[.+9r2g8\K&COEjD:sD8?qg:pm>I.'^<r.RTi*,(,G
U"$r[\(R$?$G.&7A3U2t1vlh8P'mx:I6kM</S^DV6^r,LKkKRbM[=#8N'g:8-qnCn
U"r2CcHpOftg\5nJ0.Y,<q$NLeaNHECvnCQ?jk69ns6&Uij&Q5YXAJu5lo5gr)M6$
U"JGtw;vMklO1^abT_*&qOtdIE-o[jf'-tF/qb7rHB;dmSGq4+6ZMDVUkNOH2O#6S
U"j2goF<cWlsN?kTP<+cl<fbl$vI_zPeSAI1.vWvEoXUqQba5SL?WL/21$:7#&gn$
U"K);B;N^uAXY<LO'T.:gRokkAKgS-YW66DnCIh_:?]_IG(GhA(XZmq3X7L'61NYX
U"LgE<aKEmD^2uBNb%qI.s#I[UOXT+<Oe.^6p:s;Ivq/5pG\xoE'P]*Q9.XU$cXGs
U"ay:l*l<o*1ocR1/B$=m'*qm_)BQ&)#qk9L&2=c>j]ujLRLx0pp_ggU\BS%#wXR1
U"cko?j&h_daea85<<#5]0Z<rgP*^GyT6?b##8j3=8?h,,/c6>s)FJ0QXf&X+Oe88
U"[Y=<qnQ5ngv17GV0-BMrkIY$LIVT/]gVh:sxmtu86Cv>A=t>fIxc'c286Lj0[jN
U"$+rZb;;S;%?(mfUO[4F_mWdW%9b%BjKa^h.T6$3UFvv^0%MctY&X+=<Xj[;fA_g
U"SaHuK%optk2b_K?/Uxa1#h7TuAsb#b#tfq0FvQLR[vUrY,m6tf^i5\mJ05[RG3M
U"H#IT=VsF#F;R^F+\#ex3RTWRwpP9Ui,.brR4<&H=LI8m,65A)E1I[hE*9X4LRv1
U"NXbEAY4mVf*Vr(K,^T]&1j:o44AG[%2>WJR?LJ;.>ks<6F[gW4/>wWkOo3MBhx3
U"HOnn8n8A9o(ajm2&6BVa)lL7sPY616?Sii-sTRGc#7'f;OlGJ4^#KfA^&=hjXN5
U"j^6*j7[RLg&QM[?(&_[hI\\E>Ce.5>A7/GQ12rUJX<-CWZ)jU<rjV(JH<QR4/IY
U"h4JLHcC4?Jj)#GqF=(2%ZTA;?p9$)kMweWP[J^&)7A6fpM]s*p*;+jg6UqcluBI
U"a]I;Lijqz]YB3A%DeXr?-5(>j%XO8BiKdr>TKGQ])T(BWkE\b7Xxtgf#PC>oFT^
U"lyG%C.79GS(VTu<(#/WAfB?aQ;_AD[lv+c$&TCcBg2yh%G%X%.p(qp64e/-f8d'
U"qaQMytu^qK(r/5S6i;Sa2Um(T&6iqybnvhpmKAww]<\X9w7mN,9m^KMc%jLfo&:
U"pbdnrM(MBGgcTeAzBMu(9:,H_p:3,*dp_$SoI/;Px#1*Am%X0fnrrh9sfSGfZkW
END SUB
SUB V2
U"l_,0,D_JM)^knW)M\JFGf\O[+[CDe:TW/aM7?OipIA8^hXoaw)27XGKNM,j&5Vc
U"+N*CxM*JXKkfDa.q'PV0nZq63PCuGYbR6PZp-WKGgUKmWGh;IsC:p(&8=r01,Ts
U"CTP(8Tb=;kiT*IrX+ahbuc$m+5MJJENZQMe<T+KQcCfq\900T17PJj2<:fK)C(%
U"-PV[Zh0.PPaOPgXD9GTu;mjd)%T+uVg&E1k51r1y#ofnY21'&Me+z9ChruO[3#3
U"t3?Wm7NR9vf+#YO_l_RNqb9.N41+Ud*PfMK2,Xpbko:4CXTz>Y64,t:GlDY]x?>
U"s:RC>sVKo9KA3qs:kXNT^tj<$uxZ^jpZf/K(9B'$%wEQjlk/H^qnapFb:K]xnRc
U"*NfZzzrnuz8I_e^3HUGB/6C8=e\J1W^5eRMgei=SMFMVrm5TYR9Ub:8$hkk5LV;
U"wns$k<k6bJD5^I]]r+RNh^a(VCog*5E-TR62;1K2c/FnmSl6Zn;A=]D^#5Ephq1
U"ngym]?pCp%=K]GWa*JcYkcLwUU8X0SAbm2Yso%v8ihXNE_)nCMG4X1PFJ#E/8Jz
U"9G+QST*Pjo4R#;Ounld6SNa2R\ZV'e?HY1T[M<A/S^dN)TSgmo'2A_27OV/e%-=
U"\uXk^bui7pm8MmaDW>j]&qykp3H'a>SNL;);ad:Q$/%=Cde:6$Md6?9n:JkU:Jd
U"TM,c(JX7,]=s(6%3+gH=m,0L#P_u6:ow[(aQ;pkfQp.<9<Ee1Xi/LI96wY1lMW2
U"9Asq0,T<s?TJG9&7C%aS&&;/)URUTUb+$x5:1't\o*S>0?<E,=m*>kd#=F2$qE;
U"X,eqNRK^e)]neGUWUJ3.D+lAo(/WmBKbVjC9=\*nm9O_CHVV%X)M=%'MUPw^)/O
U"P?bXKNFY6HQRPY7_STLP?hqIFWycho>[FR.].kGnJy#:CA<^59^xcAE+2DlOb(6
U"FrxTgsL<mRprKa,(#6Qb1Z8mntt>:>qu8]E_kCyFt7eP&l_nj07B2$UplzL8Rsx
U"<xu]\9XZt_.UHa&k3kt8f11:)xC4d98=#sby>B;v2E>ns*'8Dw+Dh]RtiePn>KR
U"6wQvGs1d8U*tP3RbJBYN,Ydbgr(#g;0t*NFPgO%p_j+[HW<oLUx%CzS'^Xcbdkb
U"%Vk=CYN0YdFtj+[V<<Y8N^Pdz%--l.Usr]1Ytb;m%iwH[s$J8U\gazN=Ae0;=O;
U"c<>Wfks6r9H6m%D;vq?G?:I=IZFrTQpA7Oow+[eID-PHT$L/&6?+H8o,vcmvIAa
U"/UQ60I7Ru3_c_>qt-\je=8bFK'lj7k+,%5rHT*NDR[kDv*BC*x>?Udq7fjq5:pe
U"LK]FSIhs9.Xi4M5-3&5$V.J>l2aAK?r:7*2NPQ+<3qu#rnGBT';]>E%DKtCT?K%
U"FB1K0TkfZSi0qV6Eg-Zq0E4<aR(JE/=aT#gCJJ]Qh=p/,Mcf6eO._K.];uCc(6g
U"9]^9dBHDc3xV'Nu;gYj&]ls+BW9Yrr/#$0\W.fmi2uv>]^t'OLDtz5l^ST+;0s&
U"m?1jS\E*FA4G2P5[MFDMh\2-8l#2tAS5m=0bnFnnbBTQs8?BQ*ZF?,pRG<Z$foH
U"'l7=]S8[Q/h6*_&cpfs6iJ5Jdp9Ec0X$&_JQssm+<qfn8_n/%GHr^#AE^Rkok'1
U"HRW77/06Pkyv\Nt/#1ft..RO\mNPG3$ng\d-i[oR\$mv=#1B0umHVL0tTXm8(c-
U"?x,u%p&'9%%9%%%%-%)&lKG^JP%E3[%%%5%&%%.%%%%%%%%%%%%E%%%%%%%%%hw
U"f%kySl%wfup%&'9%%9%%%#-%Xn[KGOC0u7/%7%%5&%%%/%%%%%%%%%%%%E%%%&Z
U"%%%%hwfk%yWSl%wfup%&'9%%9%%%[-%T-IoGq[6W(GP[%%jr%%%/%%%%%%%%%&%
U"%E%%%%8&%%&)vzj%xySg%fxup%*+%%%%%(%.(%v%7%%,Q%%%%%
END SUB
V2
CLOSE:IF S=7AND 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
