'=========================================================================== ' 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$hN7F?8ckYb35C7ex/SDZ=GBsR=Y(sNEs%*YWT U"3sbp=7+(9C,Y>yaHo8+qsTw1a0HlR5L0Gg^\u8Vv+'=(V==p$u8gDHvU>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?hs,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;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^>GX4wGXCOTjgb2yN?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-4M5Wuhb U"L]m-BU<&z%7GJcp0[X.De1b'ay;K;]c7BE]K5wtIDL 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/.+S5kS5skvBgks,rB8NA5[4]x\FP U"sZ^d/xGcRJBItX^moUak_mSSXscQpjtlUjE.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:UgYLQJAE0=:\M7<7KI5kC:JS7D1=8O.7pY3M,Y3+kO_91S3bYj$YkAraM4l U"3XHmN3w(vM8VTSa&]+/zLZ U"^rFNDr%$=&CR#3ob0\\Wvq'BQCx4GK;<1I%\7vXPq.q;Xn>;>kQ-54-Lcu6;Qhe U"d5W/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$hl]Wo2%WqW]0EOBa(rxS,'OPTSG>.vQ$e9_=$ U")qISb1)uD1K9rN1ITjLn=>Q=;$x>[&yQF\8Bg_x[#zkuECI/SIf0;db1_K+q0<( U"T>zVoqhzHK^QN-[V[L0EXS\td(Cj?m_:2cZg2+c<swt9DLbp#tj3/7EQIc9A/^g2Kl2wy#YSqitfDV'j2afI;5#& U"Z=#:W6Uh2qMK1*w9O(MfUBPrbIb^GHuJgC%j9n5<[0*<0YWxlQ/:pR(]$q981C9 U"PSd[Z-nV/60w$4CYEC2.AfY(QyyFXwJVbTJ7vZKj&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&luOJu\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/(jYb>)JoDB35;eEYo U"\q5RJjf-*G>;aBE,EpUP8ipA2Xd744/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>bSoI'JD<^b?0GP'3Dz)>+=k;fea4MFT;m2g>#rV-);HFDe:v U"qcRO4*o\,x/R\psGK#auwN?5Cp3[)tD8WQvrxUVc;9.rD U"[Cx.=Xq:F(,Jqwuyb: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#$Z#Y5/xKoXUlj17ucjir U"dL\WH0]\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<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.^=]VIaCtUv=D U"ecGkiGz&/V#c&L#YsJ=nCn?hk4st2'ERfRqq*'x,up%()9%%%%-%>83RIUrr U"j_';%%%%CFAS]&xXEXy:LeaBZvP)%iIVppXe-QXd2?vcZ\:nNn U"nVE;aFt*Cv?,rmxwc8dQpHxcFU=6vvhV/kh[4b)\>KxcF:=6xja4:]t U"_NI-?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;lvVK3-iK1Co U"nTM4[M5-I>bSA^cMB9y#%Te0V>jh3bgp,fG7t%uxlXXv/wCrwD]a3gr-S U"px8cUH,tffflRqMrZ:ulup(%)9%%%%-%yH&RI#<#8kW%&%%l%D% U"%/%%%%q(j%jq%YSulXrfP,+pk_>_p U"F#e+WH^*[?*][tfO[.FP6LK;=?1Ge6$wKxV.3>32sEXkatu0s_dWqM'WIRrY-t> U"6htfcWv U"N\O8MjSt#(CY/7p,F\up,4?NH*L$j:LMH+?imRRBZX: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&;,&%%%cwf-2't8LK U"QdEBXFnD]=qrcoL6OkO.n)tnHsb3eqnrl)obhodHweT%GGGG%GGG_'0\up%()9%%%%-%=f-RI\Zb?M%(&%%%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>+#EsEm.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$81.q\$8 U"1m.2rD^FN^]pTVu^j=x.[7KYET>8xx>%%%%%4%qmu%p()9%%%%-j%,kUaI551+f U"T%%%%.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:bC8bK<:&b U"x6Gq(yW0xmn1sDnocxbyp5xmFh9$DWFtrS&KKX2lNqGV4qu=W3X=C3XCuZv7Q72 U"d2XZGOvIiaMJahMJ3pYrx)vdFvMYM88o.0C,LmJcDG)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],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)?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&WtpBY()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+uX&8Ln?(Qt(fFN$$6$ZmKeN\v]?mfUMk;p U"Dso/wf]4v2r(Znbv6wh5X[.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*(x5HaxC_[>K;d]hzc>wd U"-1QgorhI,Hq&ZNoA=s[:9R4Vd:vv8U$6HkNi3 U"#l+a$Fc?,QQQ9ik: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==(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],%TLeSGx=)831-B(Rh6kl4m&MlWI$8X1Bfhg U"U]+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]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(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"6hZ/vtCIn#vw6Uu]j>tf?8nLzkN22iN U"NokTn.EiPN#cS=ss$>7xjw6Jwfi(G$mI+w2:Lni(8aglTbnDj\XnZil U"hnZid89P;fdq-*-x(J$mI(7XiG&$mI7AXiG$:msxg'x%up%()9%%%%-%;Y*PIh= U"lyM'V%%%%0QD49xT$nQx_HIpsBWss6uQjmLNOX[[21XU>,7Z0cY\8Y'3%M7ret2PjT8r(/b[uTt:odcgwc/pm/r U"#gb*KHP6dSL3ZHfoLo 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/kAh2vADolfkcJ3KmE+x'zw0#y6X9dRV*rM)sA2_2E]FfXBN5 U"NmzA)VNM.YI2hG5xsp'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%