'===========================================================================
' Subject: QMAN V0.3 (LIKE PAC-MAN)           Date: 06-06-99 (09:11)       
'  Author: David Jennings                     Code: QB, QBasic, PDS        
'  Origin: qbasic.com                       Packet: GAMES.ABC
'===========================================================================
' QMan v0.3 (Pac-man like game)
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"QPAC.ZIP",4^6:Z&=12878:?STRING$(50,177);
U"%up()%9%%%#-%I#0WIyq.ILw9I%%m<%%%-%%%%vu%fhSg7fx^B;:BSmlk4zuOD_
U"+x>,5?AkIj?>M*T\1>B:9?)k+c7(u;S=_+O8q?pPVH28)r6l(QjVA)zO[P53JIf
U"sZ>rQPXENd34Mvjru#LDnW4q_'?isN2'lXYIxT7+Mw8qpKrBvn+m%.st&i7#uP-
U"NX7Eg&ExqQX$NJ=FO*uJ+eXTrRnKFgtM^P7W>Vw0ej)XQRRoaFuup,w\82UEl,'
U"XDk\R,i4JnsV1:UlEl$</+EGW>hN7F?8ckYb35C7ex/SDZ=GBsR=Y(sNEs%*YWT
U"3sbp=7+(9C,Y>yaHo8+qsTw1a0HlR5L0Gg^\u8Vv+'=(V==p$u8g<lE/WPkqGp7
U"%g/mlD2*jLc:Dz/v'ULga0mWig$=4LR'D7YfN*w_lg/rT1ZhLUFY$s8Am0$f[ZC
U"4o:^BA]m1IV#LMn-E<I:C31djAGQr_+K3?lLhT1Q'Vn_=hD'yo>DHvU>w_EoSD?
U"5QPtb>brj]A-8xy5t=J.fgDxxpNInKtgKNhG>o>v:Oot^'>:Xt0[U&QtaE%gjL,
U")DGFupTjN.*.CBhSi2UW.Emm,M:2'ABL0:TRBGkgnQ^Og]%HN*Grd$0n<+D?h<u
U"$kI%fm5^sb\\C(&KqO'CgkRC.?FbvY,dR%zhvB>s,rBrU\Hs:qMb0vNdD=7php/
U";ED>Q(uspc,w;FBB2u1PN<,C7m\>P+dGsl8&$=l&1(a'2gHO\-A\jc9bd'bq-)5
U"ZgqDMA#G?ZR72890ip?OEcQ'NHRoe)0yX*Tq^wMWHZg/R_0kqa^s;EX60pxf\8F
U":HeiEANOtwDpjrNlQ(u*d94W_7gJ2X8t+EsFWJf9'S)DF[orR)(?%+s-N;gxO_)
U"TJFGEdo4\.qLH,5We;u:e;UUEBdj?__Pm_BXG8[z<MO4u1365JCEL2%IzL<,?9y
U"XW=)-lQ,DFV9Nw.1U';zBD[r%?M:Q#C\$VRj(ENBjz=>;dP;^l1wg_x8%^IhJ]'
U"edZ98a^K#^ziC<%:/j$f^wofj&ReSQO/qY078AK?tV]:T^#(ir>Q.;uSqoQy^>R
U"=g0q(o=+I8Zm+)_htIw'#)4mU2IUkDRd$dgIwC=hkD[+J$T0jSBS^TH?=us.Cgc
U"m#N=8)BVCifFcQL[+YG*ya,Z0thgB0^Rj0t>QC6Jas^nbp:.se-K0>K(694b<<0
U"rt,sq3ImJ5x1Dav+7jXH^>GX<FOJ2XFD23(SUHqaBZ^Z>4wGXCOTjgb2yN?gBU-
U"08Zlb9ohKD,m#Ft&V,WI=hoZfs9TY&qKGI6?5nv;d-8p;RS+94fUl/R&2ACimf=
U"Z+bI4JI0E^E6R+u2u-XCfKPw.AKOQw\;diB/M9xn<*&16rh44QGLi[&;3$a,(4*
U"wN#b/X-mX=hjo?a\a.nl/qGVY7sk,05*MIE=XGBeK+$'9VnPCDD,EWI,NzF3f*?
U"ZLmY-*=y]tWkI0+9Wljw4pt+O3qM3CQg_/k+Fe4Q;lWnoh#l$,BG-JTg[Y?]a?1
U"dpg;kZF]%<_3>oMK%QYP.c)Th\OVIc#0$WMwRVm,Rx8[bwLQ:,1?S_'OqnT+_GV
U"E:wq$+(\%HAuy5]:h1,Q4'V*-GB[MkkEI/GFYH]Y4F(vt<:f$VF1ilOp6]H&[']
U"i\G&i_p^E8?JKxaL-FeU72XyX5o&YrNc_J_hF07=^;)Z#El9^/KUdaD^7#g<1b(
U">K9I1q0UU_UXlgUY1hZBrH+X=)]?6]5'bVHm)[T/^cEtpfs#i[K6J#'_B^[V^U^
U"rC*:3e2NH-a-<a(LVEBj4L[L[u/Pl3A.N0Xh<M44.QGads#x3Gv]-b4aiPiM(K$
U"0gW%:hHB7%k,PW9;uF5/7&%lxDD&V'SkZ554%,aZm,piHzHZ2xNNi8Gm06j$xh1
U"?k:;#]]85Y0%/Cf3#v0kKMla$%\gHd.8yDh#Hz[$3+Z[;im;y03WVix>4M5Wuhb
U"L]m-BU<&z%7GJcp0[X.De1b'ay;K;]c7BE]K5<C4?qHN\hU.YXoIjA)6a>wtIDL
U"+TFb%jwhj2yjz-eyjPC]mVixhA-c;p&S%OlW7%eL)jTvKtl(:mITM7JTG#Y_977
U"Kao9iO^f0Y/QG-8vn6fIt^j>w=lQr,.Pp.c<9b5/3G0d5]=3Za5T'3Z1VNW.l58
U"vSA5*B/DMv&INC6pM7_wsi_//M+6d,>TZ+UraAB_U-3Q/.+S5kS5sk<?x6J$x*A
U"A)[W2u(\MWnmx#EGx<]D:[Acm#sPk52kDk_WTBciC^D>vBgks,rB8NA5[4]x\FP
U"sZ^d/xGcRJBItX^moUak_mSSXscQpjtl<IXR5C<+>UjE.eq6YXE#'f;3i)]a55(
U"I^Sc;XIfhnrSw\i0)\O#z\.2%hI]'NhQh*N0FJFBR(o,#fp8\8jsLt=g4>5u3W1
U"n^:;7Adp&XpowL&W7W'rUG*5:FJ,Dww^%m)%IEESRFtf$#,,t%8iNe^*s:)mOCG
U"3<ig-2<cDY0[DtDVgo63[L('_Yef]<E&V0UZJ24BZy&:ZDSUsKIq/c)$^sRmHw)
U"*H>:UgYLQJAE0=:\M7<7KI5kC:JS7D1=8O.7pY3M,Y3+kO_91S3bYj$YkAraM4l
U"3XHmN3<O;4nuux:PM)/$CmX&hg)HxK/zt'Q2nr4oAO#Ly\yj-_N6akd3nCI6e\:
U";c5&'<d__.8D8Q+J&?^Xzl3cd#Q5Lpy=5W(llja_RKP$=a+<E-3j%Cc4_L\,oen
U"2WCmKl*gh-$\,N;irP5h/,#lK,+3lKlKNB2NSMya+oV=s\>w(vM8VTSa&]+/zLZ
U"^rFNDr%$=&CR#3ob0\\Wvq'BQCx4GK;<1I%\7vXPq.q;Xn>;>kQ-54-Lcu6;Qhe
U"d<V_fJ3'Tbdc'Rs(BF2^5k\4qZU]QV>5W/v-j-55S84]+]ka,tfh7[oMq;*4eJz
U"df*);l6S#z/*b%ICD0/yEnS4$E]TCOT51z%'[k2)y+0&W:s>$^,_FROs%Yv>S(j
U"i6J37EQ#)HZjO,mH)(URXf1k_^a.;q01)C.k-u)hz1Q)Shc%y+6;wY$eq.;Nkg0
U"'(KWOH&09N\(RriVpz1&*S\w>c3#)3#[Jpu5Rzkb1-C^RX%o=x3_>mvCX)>T7Jc
U"YtgB^]k8LxY(^D2c]uCQ5f]jveg[EgjNI1KHVn67]7/k1-ga66+uFpk\BW',Y:V
U"n9qq'5vbWvP2KFy)ia=Z^KMLR+)gVSPb8l;C'F#f+N9s[kPt]DCY/JjT9BA4R_m
U"/OV(hDC>ojHM1>\ny9?bBZJ)dx[34a:Y\Nw>pjJP7x8sWgq-'J&m54Ujaer,_C0
U"1$HkC<_O2H/_>Lgey[R;i6m'7w>pMfH=P)=*EKaJr3WNLkX8O/HywNLk[xoJs1\
U"aCJu(^-b9x[RinW*\Jq.E7jhNP/IJu*(t(SJ:buM70hi<*SVnH5EmgC+B>DJ,3?
U".XN';RN]+q3JkD^^Tc9uMbWWrdqO&R>Lje$Gr#%lEoS2cCgpDcgc/Tu=<0.7l6V
U"(A^ooh>cCqr9Vb<6'=?W)(0HF1CfccN;sq&$_Pnb.hKhc'CaWNSLuK1BsMXLA'o
U"Dc$-gcCdqDeK#,JRuS^WLV0>a\gFGLlh0bhx(#xq>4]WhMV)q9>J/u.t-#qVZcd
U"X$6?:xTdE(.4::K&/&P+;m^Z/u&62CZu%672Zg4M:w#Fe'h\p3I:w>9t,KJ$h<O
U"?KwfQ#&9kB5L=n*%-F\v'k2My?rwP9qiap9e#DI=v,5gDU-B$Pzb2xE:I]ZuTDa
U"QP8Eo%Z:2Pak?]p'*_6cMGi1w/]s&\,I*;5VMwtB#tb8iznV^9zjn7JRPB^C'G*
U"B$oPGbxB^MMimkfYzZ-EI:r6ZTS+'h5'29E,Uto6(V32LWrA.LaNWgiT^pjeX):
U"*O>l]Wo2%WqW]0EOBa(rxS,'OPTSG>.vQ$e9<qVuo-_'Z;hN+<Y7eH['KBG>_=$
U")qISb1)uD1K9rN1ITjLn=>Q=;$x>[&yQF\8Bg_x[#zkuECI/SIf0;db1_K+q0<(
U"T>zVoqhzHK^QN-[V[L0EXS\td(Cj?m_:2cZg2+c<<nza4WD%ZT.b#Jr'$7xqIOB
U"^.-?X7B:/#*ZwP4tgC\x%2nDYrX0/w<f;7HQK=3uFYBF<R**R\gt7?5TA0FmqjH
U"4^Rh<KD^5e[2;TH&8]-j+y<j^V8nE3]B\M00AEk=E;25pKlUBN0;y(f'Q.-\&QM
U"N-7L&ZjC5d1RkT;s>swt9DLbp#tj3/7EQIc9A/^g2Kl2wy#YSqit</.gKRyFp)F
U"+1pBZL'\W.4J)(P)_as$2g-ZOf1BH&/OfK#_a<e\h.jHEv_ay>fDV'j2afI;5#&
U"Z=#:W6Uh2qMK1*w9O(MfUBPrbIb^GHuJgC%j9n5<[0*<0YWxlQ/:pR(]$q981C9
U"PSd[Z-nV/60w$4CYEC2.AfY(QyyFXwJVbTJ7<toi=*BL\zptR5V<4]r2kA&z+)a
U"-Z0+=7BAr\ngj,de>vZKj&6kkpRTaJUR[]ORl6paQ=BmaJo8]N\qMs/1;T(lIkv
U"oO=8[Qpp95R#B9dQXUJf=Ap,rAI)$(9L#TF/b4$?oT:RW&qPQhN0c^/V/?Qt?;h
U"jJc6Ut;*F/[Rucn60jRrUreP%-S+vfe=+eV,RDZQB[tr,Z&l<hJ&f+_F[St;Z1B
U"joj/Z>uO<Dwc+QO5$5gIo/YT]Vo7]t?C<V$dK,tK#AEYI6adj^UVvkPW[T+ve1=
U".kBOhfZXW[t<ZDrV<6M&fAEs2.tDk1B4js/j>Ju\Dw;oQO75SgIoYaT'V7?1t?<
U"ef$d4LtK#FS[TgM<[B2xH2(6.:1qQVc71$?\f<8>Fp#<&n^Tg'=S^g?k.of>>aD
U"[:i[Zz#kfvT*1zKHVFneA.N/(jY<H2LjphBdR+nj&$.Nc_Lu>b>)JoDB35;eEYo
U"\q5RJjf-*G>;aBE<bpAQ8,z<D34JL5Xm<':'F<ZNr?QzO):dPBYOf?/4G7GN5\Q
U"qVV_c$s9q,Wl[iavhEutWEr*IJt<6SmW&S==:wG69bXm+LmFCi(/DTB\b\s#A$H
U"Z+g%rBL$%m'14*Eea_(/+a8DfGk'fK]Te0)A^81vX,/GBUwcLx]Ay%m(4j:J7Y[
U"8uQ(iL=dWyFB_]dN]H+H0hw=&'C$o%1kfcG)r\['1P9Bq_bhy>,EpUP8ipA2<LQ
U",>Xd744/hn'$P_)Nk)Sbng;M*Zacu?'n(*AdYu7A%D%TS%LGa0jMP^ob3Xmwss*
U"'b9z%2EZM1_bsJ5^Zf2lG<:\E5W4$4y')8$#mf^0,_GmC^vJH.C8srT><SdrlVp
U"<kXh%iGl7N#S]<n#5B32.uSbfQA0B3eH:(Pqm2TB:]Tm7Bn<K7h]BS.iT%38yQ<
U"g'6eDVX9,LGH7=0)$Gd\%6iiiMHsl+I/VLrqPxL0]ZcgCYUK:KzRy+q.?/Lw&fG
U"VfRHEq-*Ca9AwP>bSoI'JD<^b?0GP'3Dz)>+=k;fea4MFT;m2g>#rV-);HFDe:v
U"q<O7JJKSjFG7ULh5&Yfq63BBQS/cuXLF_pu[q?H]DBakp\20S#5:lZA$2/Agzr&
U"EXHgEZlz\IBCo[Nm=L)Y5Y'xs=mop&?4^2S=iT8,6OmF:3Mj<+Y/H7Lbu'Hk5]?
U"vdixNOGS$rw]d,fstb>cRO4*o\,x/R\psGK#auwN?5Cp3[)tD8WQvrxUVc;9.rD
U"[Cx.=Xq:F(,J<Y'$InDn9qxt5u.euBt#QX8'?h<F8v/>qwuyb:K#jVB\bwVBs^_
U"+vRamVx;D0iR:e8s_Lhj9-UFmQpl_L&\oTZl(EsZi)]BsBxy9;m[gNTDh'bX9/+
U"q2A4r:)Z<,M1%Kv\BQcS1J7fvIl69T>UW%#5;:Ii-\,R7.KNDaE0V*M?<=(\*Oo
U"b]%wIV/zg,\3ZD]Bnim'5i0TR[O_>9NEaKAEVZkuCk0&Ko8q65zfuZp1>6ZQmPA
U"\Pb8W:5k5iJbluAPbG^+vho:;.]:9bTP<2#]$^m#$<s>Z#Y5/xKoXUlj17ucjir
U"dL\WH<I]c7*qqi?ej(uJ,NOqKQZL38v:=cRw.'>0]\jdQNRkY:4?nESoDC)\lky
U"DKah=5qedq'kQ^4M1jGXc6(I(WB,;SDz9$5bXP8S(eb:GK(TD-X'Y^fJZtrx_sd
U"ZN;[mereuQ[]?pjmwY,uJJ+YPqQ>R%22qeOT[o/w;Mha517,O=Rv1#];gb_D:c=
U"blGwI/i3,2)YM8NF5Z;q)z0TZidajfe_Nj4j$gS5=aEQ58BkL0E4>/:kj7+t%b4
U"^hJ#yh<^>_9E0k$EnixEpRgs<<J8(vFXttjxmD=QAo$?>Kt&Xp[Q;V()T1FX#uL
U"K;uRoM&?iLm.o*U9<7DgaF;+MQKW,4=^zAH=eaO#_pS;F6-jSIT2r%eVi5Og2^L
U"M-1bdfZTDXN+pe+CZ[t.^=]VIa<h2+;%oIU]ngl:)q>CtU<i1h1%r?$b.Y<_tN#
U"hsie%ZjqBvR$UU'N[57OhWX3+FpjW?)O\xW3+uD*+f_Cqd+9(fYms.R)_sT.G,j
U"6+t%Lh5D9uJ(s,:UpvgY.9Gy=uOvW9D[^DA5m/1.^:X#NAez.1f-85[:Ber3TAi
U",Ei7EfgFA8:qhZHUkcG$63X[lIg\^B]e#8';j?KOL4j+dJ<6d3Oi]lN\V.7Y)Ow
U"XN^08w_<lmbVD^[LI0uR7%n'],PFc3I<$-B)9',Mn)VDi\4MC\Pf.d^GciY>v=D
U"ecGkiGz&/V#c&L#YsJ=nCn?hk4st2'E<X>RfRqq*'x,up%()9%%%%-%>83RIUrr
U"j_';%%%%<L%%%/%%%.qj%j%qWSumlrfQ.p3QU79kZW56Y[J01*$=J\F,v.#Z$/o
U"6EWiTP]]KRsqA4k?;rm%>CFAS]&xXEXy:LeaBZvP)%iIVppXe-QXd2?vcZ\:nNn
U"nVE;aFt*Cv?,rmxwc8dQp<DVbL65t,WZd#v*Y7eP\N_MUMiTuM$ts\stt(gP/l&
U"n2vXwGslW_M%nTD^PnLCQ#m_NI-?>HxcFU=6vvhV/kh[4b)\>KxcF:=6xja4:]t
U"_NI-?<RNOh%%%%%=%eT0%up()%9%%%d-%a&oRIcx98Mc%%%%<L%%%+%%%%qj&%j
U"qX?fNT/\REA#rj;#9fGf^))&'j9p6JG6Na/99:LuAS<tLag=/6qGovdWT3laV,]
U"xF$(9f0tFR,ku\/$7)7aO*:snh5x-:WS%DNZ^SMXk%XH2p^GdIkyj&Ti(hFlJ3g
U"pD2fsLYuqxhMXM&x(rCd^X_IH1EcF8iGCcl&cIHioK4XDu0sRU,i_Vhc%<)zcop
U"Pn^=PJHm$pJ;3WXUv_R(xvyXgp,>R'roznB+vU4rviqIed6q_.joar$Ypd772vA
U"i*ML5MOM=W[diPai$S[ZX+s2G9JBtK%%%%%I%%O2't'up%()9%%%%-%;qyRICB3
U"TS'D%%%&^8%%%/%%%.qj%j%qXSumlrfN0V/QUs99jFCcTzMPP(aY#=6b*5^JZ+Y
U"lF,rjSS_'Z;l<ZCV#<NGU$JmdgaA:\MHdU<V\iF[0KH#%rnzoqT/>vVK3-iK1Co
U"nTM4[M5-I>bSA^cMB9y#%Te0V>jh3bgp,fG7t%uxlXXv/wCrwD]a3g<I-pT>r-S
U"px8cUH,tffflRqMrZ:ul<Ho,Z\ODisdCr=og$jcvG*nDBS4(=UT(O;w.qHOk).l
U"F(g\.?X(B1fg\jbiPuWtWFttDX.rPM&>up(%)9%%%%-%yH&RI#<#8kW%&%%l%D%
U"%/%%%%q(j%jq%YSulXrfP,+p<U9H?jCY)W?MG0;FW1[g66S6gN:d_y.yi>k_>_p
U"F#e+WH^*[?*][tfO[.FP6LK;=?1Ge6$wKxV.3>32sEXkatu0s_dWqM'WIRrY-t>
U"<R\4a&7Is/?liO77u&h.XTk,a&sIGBGj'W(75lhBdS](sdhWJA+N0Oi>6htfcWv
U"N\O8MjSt#(CY/7p,F\up,4?NH*L$j:LMH+?imRRBZX:<UNZ:,UsGPb5vQY/XseT
U"fm8a)cnm(sU:(8\U*K0K)>Bdajdx.WVNkp.eL73bHs#Bv3d.L7t3jwDrVL#j3w*
U"n)q(GwL&K4?U=axNL.f[nd4QXr*bkHDnpn_Rr-Pk>2t7$Xs+IAiK3FfCaYHm4Sb
U"[URj2WMf=HqUun%)%%%-Pq+u%p()9%%%%-p%j+RjI?ja&;,&%%%<L%%%/%%#%qj
U"%%jqZS[ulrf]Qf/;dU5TZJ5DWCmX-gV&dCJ9+4aj*0$riM%7_RS0tc,yUI,u3Q-
U"f:G=3<^c3INAF0)CVD'wnsQ7To]/4Gq_h;S/h=tTv/]3^PI\ae:,sTRp[IrYn]=
U"<k1nKW)Q&.,/8BW9krL1\)u('cviJtl2-ngl7RMkb5eeoR$)vC6t>cwf-2't8LK
U"QdEBXFnD]=qrcoL6OkO.n)tnHsb3eqnrl)obhod<oTsysbmh]4QJt^PHttdrNfF
U"\S%rPn8Wicspvs4reFu]'#UN<ffvjrMC'xTujMC9gdujWMCgNTvjMCYm8qZbwba
U"x]l<vL>HweT%GGGG%GGG_'0\up%()9%%%%-%=f-RI\Zb?M%(&%%%<L%%%/%%%.q
U"j%j%q[SumlrfQ7f3;ER5*I0i>UT4JU8Gsn8?;R35wX1QLOqCsm\Kx^qSO1fq>Po
U"dn4qT,lYlsi)yLv<]/u#tN%=^sb$-EXpCeL\\Tq:MTqE_Snjc\A2Q&uIAH:K$s)
U"#]q6#7=[ly'ErK?2'nt<]D0SfM;'$Jc.du#eu9oj(;6\r3Ekvjd]$OUnd^tE3Mo
U"X5$Q>+#EsE<jK\45r(]IZ&eDaukH&l6s]u+Q5A(hcLg0?xfO=<,P$hnO7XEd]d.
U"I/xd2YYKc%NVv2Z*,6xb>m.bX$Od%F&bCgdes.IaU$x]L:Z'lu4Ia.El<$N\nii
U"%^A6Fl6%%%%%%m%%)6%%up(%)9%%[%-%V-2RI2h%0l+%%%%<%L%%/%%%%q(j%jq
U"%\Sul=rfQV+3;U1PTZG1Qj9elqTX4)OVo9+L9Xyc:5)D+>HExn8=$M>$%&Jc,rU
U"p^Jm0a3t&+Zp[4s3+CRxOyrhyEHb2Ft_T2RP&*>Z1q$-mSP?TMVjft<cr;Huv%b
U"hXDEcu&Dg's5TWIUXN.qgn#CWX6d'L[aG$VP(rz0SB/]u81euV#Mwd>$81.q\$8
U"1m.2rD^FN^]pTVu^j=x.[7KYET>8xx>%%%%%4%qmu%p()9%%%%-j%,kUaI551+f
U"T%%%%<L%%%/%%#%qj%%jq]S[ulrfcPD/;dU5TZ_+I8+b?Pli$.Lv:'-[Ljsg#[+
U"0x,UOIq<V]UXL2vkBpV<_NQ4*idV#3Xr\IFUVNp.Nej+g_&OZ7p^t]LYEE]F7IM
U"97e.uCTt0X];\q'QjQ>.6LfGSNa/.hv%bD^xw/Lr<^bGw3NTQ9]iVn_XplS/9]_
U"t68vrtjVQgMRSr>#;-4ui,A)W8k)*bjDGF$wKg\6r,ZEb\xd4j-Kg8eE6s*HxRj
U"_Q?tV,p)85x0Sj__I[9o,L)x:Z4'-ZEMD<%O&E6%%[%%%P'o+up%()9%%%%-%;B
U"XLIAk.?4&E(%%(lk%%%-%%%%qtlt%SulrWf_:a%AV-h$v(Al8p^]l:xdDq%:H0U
U"BfCtE>&hK2na*>XNj6[.*8V5g.-FS5#g-FS%5g-F&S5g-(FS5g.-FS5#g-FS6qO
U"'kuvu8Z[x$LP-Lv;m<'vtR__+tpn*E2WYf2XvNp5BDi8DC8:bC8b<u+sRloDCXR
U"PbaRkNErhIf$Pnb*gko<DCXPObaRN<ErhfL$Pn*ogkoD,CXPbiaRNE,rhf$hPn*
U"gXkoDC]XPbaVRNEr'hf$fp[NK9MB(NGqeDEDeEA6BW_2(*c8mCvQax9M0OdPFjq
U"4'8omCvaix9MO(dPFqr4'8msCvax;9MOdAPFqzS9ICVj1mFdG8?]^)n\$yWt*=1
U"pku&M:tqw.Wu;Up-SXG;IXW<t8M7nt<Y6\3cNw;*2g$8PNnbwNI'djMNV-0\4)r
U"CCVr$H5VkSFM*OwzZGrk=rMpNi?)6qzZGrk=rMpNi?)6qzZGrk=r_pN73tjTJxY
U"^%o33r2UIc-h<noX2VF?f[x,Vx8?qN?wK$37iN\eeVC8a/D=3M.T4[lpX>K<:&b
U"x6Gq(yW0xmn1sDnocxbyp5xmFh9$DWFtrS&KKX2lNqGV4qu=W3X=C3XCuZv7Q72
U"d2XZGOvIiaMJahMJ3pYrx)vdFvMYM88o.0C,L<cEmZv5VrUiNrPvt)PMND$m,UL
U"cPmD_7#7^,_me+sVtKIFf:q.L2Ng>mJcDG)j?afkjfXT_Ld5S)etT3XhpVm?Nt,
U"yKTelx2npk3hkr5=x^s[6b$\DLmS&ZKLjD^Dt2F1[mFD($pi8y$gotM(T0882i<
U"sGV.VnH&l%razbf^iLH*1fO<2D.*)PJ8qPMvyvk^V2-jTeu^qNg:Z/$h&Yi4ync
U"XA51FmgBy+M_L<6eEvY+mhymA?n[F=,ghdZ3f(RQ6RL_NgXCML[9$dLaf\cyEXq
U"hgRuwgeAlhtl5($wWXc644sc4,H8rhFkgtoCEmogcahrG]u7uXBT>)_,Ba1yFmq
U"5JJR_;kb^$DLfOFV4=_hjYIfXR,ZF0Ib4HJJdOJ45E_hY<IfX,4ZF0bL4HJdLOJ
U"4E$_hYI,fX,Z*F0b42HJdOhJ4E_ShYIf]X,ZFA0b4H(PS5g.-FS5#g-FS%5g-FS
U"S5[J'l4up%()9%%%%-%>],OIL3wOB']'%%%Ls%%%.%%%%rfns%qSul4rfir,AUE
U"51kDcAJ3=x_2r1dX3_qx/eN2CL:m(=0bghRed&VEj]c8EItnfp/Zvq.P3xVZa.Y
U"=d_?-DGNux\ZhpqQh=?HA1\cgk]6ZmI1xGbn4N/63qa^#X/Nj[Pf#u*[)\]g_bu
U"Z+4KNN)<Dyhk*/)o$$*T]uh\aMT(*[rjaKqpa]WXgC8D>?C2vj,J78F,I^xdhEH
U"0t?Gufh/PfnV^g/unooQ_H:z6Gz,f+lv3QZ[J>j0w3s>9aH+=<)SZZHpO6gR7U>
U"c4*dZa\w-pHPbghdF?olpWfk>fnN6BH^r/%/AjS_f-\woGPwauurm.<;eiL_38z
U"b>M.&dO$3Rbjc$S9OYwH(JEFNY+P&Wtp<HGY&tr7;sTBkR9r0'Sq:Y*Hoil,&os
U"po6]]s))ew/:7YTunBD<&pzf6cU3N8b5h>BY()M?AN9uu3c3iQrP(.NmPY0s*'%
U"DzyKOcltxmcBs?-\M?Cq9D1vvR%d:.njXx27S(.%c_.DJ'%&#zgZOn[:tNiu['=
U"DV_]Q>rsX^LcWwGCgf+cObcBpr-Xt:&yF794gpdGAgmo#>hc-=VmD67M+,KvGX?
U"_D%EdSkLP.zL_G2_xq%Q'8Mep6bTIoeOft1:iLeubH].ZYSwcsF'V[VfR\Hr)<8
U"/;QzC&tkVX\?w:YFnr[_l4n88z/9_NFnOpq4ZR8KnsVSh,3>pWD/z7yg+%&D/jK
U"pvgPn7)N60s'%Bnx4yudvfjcA>qhgTEsV'8T'D-\P[v-[P+u<WyZ3O3HQbltTcl
U"Vra9vKJTMnWS7j:p'wqTLr/AN6Cr4>X&8Ln?(Qt(fFN$$6$ZmKeN\v]?mfUMk;p
U"Dso/wf]4v2r(Znbv<Qkv\'mm(YlKd:t\NWGK(MLp2)cQ4b^u\85WQlIGK_hmws'
U"h%%%%%%%%%%%%%%%%%%%%%%%%%%%%g%/%w%'up(%)9%%%%-%M,RQIE[^W3i[,%%
U"8&W%%0%%%%u%fhlz&(xSuRflfj8*tTmO9#v_m%4]['_FIsT+w2dm,A#Z$:qs]Iw
U"9q<ODKeZbSqetjVo2ehf*8Hth*$_qPu9't9hr<U>6wh5X[.t?_Oi\rtb*8$w/IK
U"E(oMY5-FisVv:-)*(2^9pjbB=N5n6*0LN_VRfa42:^Sp7hU[8pOH%?1))[:QQ4N
U"Cie*7StZ.Oa'47jJ>f<(KlB3ZCV\u*<T*+)rHG8^Aq=ME%U8vJ%u]0ABDpGG$i]
U"7&D59rm,'c?lR0ri]*JD'(a:2(o(SkMQUpY4k^ZoO9(I(6nR<+dG/xFF]YcGTpW
U"%1%h7W5e-qQY<#Ci4/iPeO_F)0iXOf+UHbu3.lMpH3<0sy4%je(XsI-S(y9VIF-
U"f'\tnVCFg4xnk\NF*W'+ABp7GfZYR-0OxOm1?qK.3p41s:abSNO&8KWXBu/HOBP
U"dtxV^$a';jSF3%;%PUQN;s4]In)tl\DXD/=X5_uCo^Bj\:0<qlr3;uw?FuD,BGu
U"Q$_StNd\W4^7f+2Or^U%=xWY=%+d0hL)(8h#M8KtED>(x5HaxC_[>K;d]hzc>wd
U"-1QgorhI,Hq&ZNoA<I$?XEL$:WkEpg[N3\4^WBEA(>=s[:9R4Vd:vv8U$6HkNi3
U"#l+a$Fc?,QQQ<C<g*UNMWNJrerq28-WU+DV<D;EWoRMa428Hi$TdT:lxn$m^NQG
U"G]<\D_BT^?\k/MDAA1M*6666/.+SM<z%ziR%8.u,,66S<7eCQW7L:I7A\U$<pni
U"u]]vtopK:,7X=?qYQD^1]*U.O>9ik:pFWm/Q//CQ=mHla8lEK#%1+_fMsFKKB%8
U"iI&K?z)t$W>>\Ts5bIZ?\9s5]qc]n_5E[&'cH>:0Te[U,-qm+(Xp)P/35'iBDDI
U"BB#QK;'KA(>f&)AK<<8hiAQ;6[mOW=LACSW9fM0CYyL_kP;QeXpS&%)zle+7/0+
U"Tujtv7&ne+/+0+T^%_aaagoUaXVCiide#W$uC;ZIlQH$8q*j:I6P;uqs1vMM$*T
U"*.p#[\\p'U7%FWtoK;:[pm)FeAcw*mIbM#,'E3%Dy33(3oa;R%Fto%'$XM[H&5+
END SUB
SUB V2
U"#4OMeJ+/OWS^JV==<Ck(()MDdtMUQQSOwjR%/1uu^OMuR6TTRwrjRCwKwccY[Dy
U"E,Soyuo2AMM3,t[<*EpwEyO)8I<tB\F?t5&'qr.*F?V=rR9UPMvMt>(4PldtYXu
U"JZ:wl4vR<+H>tAF/kxw)k._tZG\l3qM0i4644z'98AX#m*U#0&z%'c4DjD:99AX
U"$R*U#F&y%S<2fa.Op%5qY*.y%uZi\r6Zk\r6Zk\r6Zk\r6Zk\r6fk(OB-U],%<h
U"yi&+;uE(IF1M_&P5+dBAe-RCD3ES9:4x$7YYrf[+g=u%E(FO6;(U-rjqq..5F-9
U"]8cG=PZ[FWj-jqq2TW?7-cuwi8W<>TLeSGx=)831-B(Rh6kl4m&MlWI$8X1Bfhg
U"U]+<BMb7d%1JFhi(O8m/G4.%33-SM%i',UY,%.H>QD4%5cFTq&9UY[KlRj1MQlS
U"R1MQ$lR1M5QlR1WMQlRj1MQlSR1MQ$lR1MYq]uE^5p/]0PfSO,_X-6/yeML\Wu*
U"k.$hSO,_X76/yeMZgiwq]3uYP0e5P?:A;*Sgc&9*,j:1//:'HRfmGVHl(y4]Auk
U"I--1$oYL<KoXAY-N^HDl]T:XhXpHoar''RCC%-se(N+-5xHc&s\AonMh8PfljpS
U"Iaa+,*V*)V]t/%P]Y\;sP#<AW3L2aDea(E5\_%Dgrhp587\%3cr6zNC^Y1F<&z=
U"c=6ciKc/z0MbYRX<Lco9%auY037Ew95['v=k'1M\5:?;#r2L+anU[t&9uW7Kwq'
U"l#^%l'7L63rMr%0?bN5<<^XX^%%Qv%+(+nFGcSMk(sLwcv,q9;->]ou9NnfBno&
U"[c494i=&8'+[U?,\';<]oXO:H.SVD]nW[FWBQktILZtv_JB?T[d:\YqN&0Z%Gpc
U"UqQu\u]abVC%;bbg&ir_jortTud\X,Qh:Kr<4vEMd%wuKh$q)p+(EnRth&a[wF9
U"QQ9&#qM]rp:6MG&P_&=>,[r<%f?3KNC(g#]$nZ+I7mdp-6qV'&X'9QmRaO#^#^&
U";fPNEkNAPD3RGue:CNU\DKjz\6(<x+uA$d6cxrCZ'NDD#,1]MPZw+:pD7Yo/vDf
U"i8XPaP_D,]i&e,J)VM10x$3tWjBhNIDvPno&O&x=uOrpa+Ia7eI%Qo6rDB:TZD;
U"%DWnEwYNV-?ls#_Y6dI2A;/tiVlduhR>vH(RH#XT_mmIK(ApYrNWQUmgNKCFFSf
U"-'zirK=MhP-rJp%Qg_mIhlr8;[L.Pu4-r*R;[aj'1]_B,In5j+8UP>9.5+Ej*hO
U"6h<V4a?998=^g.bfu;Hs%il7<]k$Tih:Z>Z/vtCIn#vw6Uu]j>tf?8nLzkN22iN
U"NokTn.EiPN#cS=ss$>7xjw6Jwfi(G$mI+w2:<XoK\YKF'dg[*nNOFGLqZ(qx;Ip
U"hfr(rKvup^nZI-oYdH)(ms<PZ7=%);+yjTqmL[Oqv(g>Lni(8aglTbnDj\XnZil
U"hnZid89P;fdq-*-x(J$mI(7XiG&$mI7AXiG$:msxg'x%up%()9%%%%-%;Y*PIh=
U"lyM'V%%%%<L%%%/%%%.qj%j%qVSumlrfO0*/RU75+Y)^)f1V<36b$DCBV-YKB77
U"Pp2kSP:*m_-Jxhs;fBqVuu7VD?2T<fJny$mWwVva#0p(*0MIN49CBrBHRDTGr71
U"mkt38];TK]q0b+MQr%*sRk_&=&r#BoH*oMQr2OR.amghMVw*_&Fdd0R;Fe;Jedu
U"rVYu^?sdkQ=k&NcMh4v>0QD49xT$nQx_HIpsBWss<xH$UnN]hG4b4Jm.?]Ph6vN
U"f1J7sd.mtJ.=?]Plrsfm-hfo$w7EbfJ27_.DtaGNL&-'%%%%%%%-1/4u%p()9%%
U"%%-d%:7L:ImOx+/t&%%%<L%%%.%%%%xmf%ijSk7syfw)X<)VL-sSC/$C%P$D1RP
U"\hkH>6uQjmLNOX[[21XU>,7Z0cY\8Y'3%M7ret2PjT8r(/b[uTt:odcgwc/pm/r
U"#gb*KHP6dSL3ZHfoLo<I)mlT^j15nrW:)TJf#jErdo-j28[akj]UY_)XFDFijN>
U"8XC\ZdA*-,FWB_slG(pFoG:\$QRQN7\;C$JDNF,u&>wVADfZ1Yl0pPZO]QR-X2f
U"ZrF\/F<>SdY_[A8%p#jd4X[7u#M*/*2W$qqo0A%*w&''-&5hBjP9HO3hk.Q(;qr
U"1dc_bI+s=ba%UPv6B2WNV]K;*nbBjw>D/kAh2vADolf<TC#=YjxYJU1F)G[A86[
U"&i?_UiKkPq0<rTKIaVANbN#'kT264]lfCQ$khlHOC($4,=1FbqNFvevEkS#$,.=
U"hP_r[NXu_K)-_5i8SgpfI=H<>kcJ3KmE+x'zw0#y6X9dRV*rM)sA2_2E]FfXBN5
U"NmzA)VNM.YI<Obka=8r7D?2<i3KVE+_%XhrPL_YsW>2hG5xsp'b*CxE:,TK?oum
U"tu5jDP607N$1)xG3M%n/,6dQk\PQH\g+(FF+NK'[s1ja-5mRbm;EP.K:TckDF\)
U"E?8-q^_9C/Tgp%uM9//Tgpu#M9/T(gpuM.9/Tgbpitu%%up&%'9%9%%%%-d%I#W
U"(IyqI(Lw9%1%m<%%%-%%%%%%%%%&%E4%/P%%%%%v%ufhS%gfxu%p&'9%%9%%#%-
U"%8-3RIrkrj_;%%%%<%L%%/%%%%%%%%%%[%E%/,PG9%#%qj%%jqWS%ulru%p&'9%
U"%9%%#%-%ac&RIccx8Mc%%%%<%L%%+%%%%%%%%%%[%E%/,P1:%#%qj%%jqXu%p&'
U"9%%9%%#%-%q,yRIBe3TSD#%%%^%8%%/%%%%%%%%%%[%E%/,P?;%#%qj%%jqXS%u
U"lru%p&'9%%9%%%%-%yH&RI#<#8kW%&%%l%D%%/%%%%%%%%%%[%E%/,P2<%#%qj%
U"%jqYS%ulru%p&'9%%9%%#%-%jc+RI?5ja;,%&%%<%L%%/%%%%%%%%%&[%E%/&P8
U">%#%qj%%jqZS%ulru%p&'9%%9%%%%-%fH-RIZ7b?M(%&%%<%L%%/%%%%%%%%%%[
U"%E%/&Pg?%#%qj%%jq[S%ulru%p&'9%%9%%[%-%V-2RI2h%0l+%%%%<%L%%/%%%%
U"%%%%%%[%E%/)P<#%#%qj%%jq\S%ulru%p&'9%%9%%[%-%,bkUI5a51fT%%%%<%L
U"%%/%%%%%%%%%%[%E%/&PlA%#%qj%%jq]S%ulru%p&'9%%9%%#%-%BGXLIkI.?4E
U"%(%%l&k%%-%%%%%%%%%%[%E%/&PoB%%%qtl%tSul%rup&%'9%9%%%%-p%],OII3
U"wO,B]'%%%Ls%%%.%%%%%%%%%&%Ej%/P_%E%%r%fnsq%Sulr%up&'%9%9%%%%-%:
U"MRQI%E^W3'i,%%*8W%%%0%%%%%%%%%&%E%</PjH%%%uf#hlz(%xSuf%lup&%'9%
U"9%%%%-g%Y*PLI=ly-MV%%%%<L%%%/%%%%%%%%%%%E4%/P/%Q%%q(j%jq%VSul%r
U"up&%'9%9%%%%-d%:7L:ImOx+/t&%%%<L%%%.%%%%%%%%%&%E4%/P4%R%%x%mfij
U"%Sksy%up*+%%%%%%3%3%%,(%%%VT%%%%%
END SUB
V2
CLOSE:IF S=243AND 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
