'=========================================================================== ' Subject: MONSTER MAZE W/LEVEL EDITOR Date: 08-13-00 (07:53) ' Author: John Wantland Code: QB, QBasic, PDS ' Origin: geekerman@hotmail.com Packet: GAMES.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MAZE.ZIP",4^6:Z&=10080:?STRING$(50,177); U"%up()%9%%%#-%P4..NlY.#_B>I%%y2%%%-%%%%rf&)jSg7fxFa;0&\]YaXl-NwR U"UleFr]9XJ/K3nAYhJUnoRpnP(_oP58h'(F-APe6$Ot6(Wn^7zn/J8*s;qlpfDHM U"C1xy%yOnz2tyAc,_(aodw;b(TW\O=/LE^>0rP.iN]>-cVU-]ZL[7M'[).6xJHI( U"?#S53fC'PaH.pk-B+<;Y]*Tx+a5UI[aVog[F,l^Zaw:e]:LS U"H.GZQW/(nfm&EB(EA4'Q3;.XT4cEj3H0DM_/UD5-=YQO(6N/ns]cPnVb3<>5:ab U"Oo1as%P9#S9B(G*;/M&aG)*DTdzBq7AEY6k(>K?R7=n09ZjH.#un^hAG6>J-DNH U"0IhV(ol.]:jN(ONY<6tYvFarEAJ^aIqL(U-5++8le3eA]gtIn=u=*Z$-5SC2k95 U"l7s.:HQb[&98w#?NVCU..*w2kysjH=A.^f\q0<8S;[>_ek-72%Z/K7uTBd'OnO^ U"Fa4D.q-aR;bZ6>'>G;BJU5jjDla\alGW5+x5+:g..icfw;cB>:D(GT[WqK/-f+M U"41J7N;8a*LJ(G1a*;DaSTh'a7x'-%Q4XYPP>0X*(1p4*M:5;U3bbH\w+9N2/hf% U")Q+vf&H.iGj;3Tg$t=,EUHpTZa8I<1r=]:cVB9cLc7kW=X0/km]:/$iqL:di U"O't(PWBj(Z.R^];;.o<)c^b&+/6Y[>tL$k?hsN U"<];33v9Rx20W'=? U"6I4xgJ8Ni?\e&\F=:>$T$t_IqDZVHtLjfn1sOeoJ,cKdAgUDFB#hvzsIq=\(g<^ U"w$fhkswZW+\M,>R3LebmnZKEdoC5W8 U"DngKwY$6dbNbS_\nh6R#MP5&]V3?\uX1?\wX1tr(Q=Ipbas0j?f01tuA-lS&VXV U">v[xWX=6$N,JAHTvU6goW6fHX,:MYdL&y/CA&1jOZ;6%bG(6w>D:K*MZXO\8Go5 U"UVG0fe9X-h,CVjFHQ2I5)l,,8h,*i;7go,-k13hheQo$#2xR/?=e_2'e U";U*uLfOm\Igeg^o^k%?8hm_5OHqcjVRm[j1L;>Om8OF2EQF/DGFLG30Ov$o:x24 U"6wLZ(fhVSF<-Qf$QU)DAZ^6CyDOdbbF(+\H#Goe%2wna[N94\?8h&$Z$;Hv)/c+ U"KCSJpO=iFRgboIDAX]ErI2%iL1SO>1pK,PZ=Gnj9T.tSHpdf0yO41b1K>;uN6m U"WisqfO]jjt)\+Tn-/-cQ=c_c)C]vn'^jrh.Xaa9(Uu/3K,e).?e0dELloIde8b^ U"7xI#l7S_b?Xl;%ZnuEFfXlQ\9I;:fLg_aHpM'M=E0k[7k#ELh.QC/>gjRXKUJ/jVBa)c7Q^p*uGNRhY1AH.T(DsRuWNi?,hU3t:L&' U"X]6?s?.,Lnto#,0'1SXiPDAL;=H),OT(NllwwB4_DHs'r?6pLYnp6n+$) U"\KP4f&+:YmnY35Y?*tfOo#o+jq%]$[=$LPZgZ U":>v's%nBZ1FhIn8uf1+AS(5.ShD%fX?E9OS#&_ZF8NLe]sEL U"fg9sV6B3e)$#2'NIC2P9s9-7c\i)B^U;\Fm0^r'^/QTo1OefoNPNsXo U"pHXqC6,#^(+-MMD[8d3I$Ncy^hP,BJf9)>=wQDIa*5)EVe\FNAJJ&=='il>8#?W2pdX U"JO9o5W0nb]VNO*J_DJf=s)XXsM[.BomAU\i5&Ie/i$oH>QcN5dd?WeUj.s/e]?W U"HDti)b-i=f4tP?GhU7f$?&Ssd6D67QntxNH#S-i?f%#\iH'/i+4m'MXIgF7m*a7QnRwh-6#W U":ChUAAq\(%4.,=vI'fxC$ZtWBhpaCj[_wYYF.,o/+s5UIjX7+&N:bPZ5_Y2I<&j U"_I.nHFoE7$(AcMd2A3Fl9$jFXYqt:Vk^)Rf1p7L/K:(O:&cDa)rOI_wFG6jHp=a U"o3J[NZs_2,M>Dn%b^An\tKcnE,M-6EV'5z4W3jcNuEF,j)7(\L7oYQ;3(aJA/^z U"URn*Z2be97VH(5>J9my[Q[*TwCW5[)P#1gcbJGmn76A&DAf_>Tiam'?pkj3Q U"s^fT*t=fG)KTD<]+0eQ3ahiRMkOQlGJ+Gi/GSjBk,^JArpnpq7JL9C:6j.5undWFWA^*]A2#B]^' U"WAT2#BpGOXh]uwZBwepz#]K+uB(bw7QMJ';9(1;yBodrsxG+N&R0K.QZlQU)$kI U"Kl9(R;#2K)(EKllxi3X]4QDA,6b\zjZNa8[MPFnL.^5_HN>gUIlKR,fEd90U/6c U"M&IZBd#5-#_l2X=Z[jpE$N=.6I$mL\FS]L=x.D69^U U"GDn<[$Gy\2R)vpD::ijD5:HE6QI0dLGDJ37$GFq]DHgfal]$G\s]G-NbW'6HkH: U"N&#iQqcL_blX3jPh:CLXrQ,fWwm':X1%?fUW3*tIF1HkVl=yq]8FvZUzARHX>X+ U")eS.u/J(G-XW('/GHN=*Y#K(ev']/7'CPGO-._S%%V,mN_4kHQXW:R.*xq,B%T4 U"OK1>-23Y0/1*yHUasVsx/JBs.GsQhml)]wV?Kg8W%+RhU5skvE*5veqXm1Xut_T U"ijNw]dsOn)+Tl+UF(hOe(dV)$izhVTHBC_M.-:Y?%Zm)[y7TcgDtu0]InP=dvNF>o.FG80ip6: U"&=>R=t1*:ziC&R#gB#&BFxfv$Pll(=p6&-,t0$/n5pkgY?[]ZyamAckv'oG%?Lp U".KuQ%F,'5,8]qP(*aX+Gk2Hq4rB3^3h_n,/?1#;2aH,%/LNOfpSO&lkNDvgeez; U"ru,=dp++6S^VQK-9;?p:b[?95v7O)&g_;tV%F'm0O]5]3QVY>\z\JWGLrdXCX$*?z=&gz U"gd#Tze/ax\;cX/(l8le&%EGVk>^FQOtiu?;)q>Y(OFW7TigF6o7S_t%rd[/98/^ U">.P&8WvR-X/H\thoOdY>m'+)'Zhcd7q0NgyscDVKlS9A%+SJX7;iTEk2,Nv^D_;q\'N$U8vQ U"RIpe4LJcKrb4hlhe&1\DR'6Qj'PjSjYFuCSMKq4*J3VdA+\INuds-^BOH<;fjqC U"cBm<-F,=<%4u0N>y[^tMC]FN&W2tN_ts.#ag_+(xfz3i0\C$uJes4kR&^)$q74C U"dC]s#3Z#g7jOc&dy>mCVlj.=q]s\esq#*LA#JBFS6_'lg3dCaNGCwTh])dLi5+q U"Ebh5+JCmfO5T[)ck35A(uiG#z/7ueug0C U"/]-Bl^6;C>(:Oq.d\uF0kC8JfFH%f+SHLNKe3InDd.o5$6IFMG#_kYq%LRC=zvk U"ZZexYFn(EdFN=L(C^SX]4-UW/<*w-n4TrX^3Eg0\YPDheILU25 U"%b8f*$zW84J:h(0z^MuB5<[.r,FJrR:,8=CnQXMA^zSugh(hi>sv5'ESTqZXZG+ U"'%3+nxzFnH^2aNH>BTZOP66e39TO:/*8v3B(8'Af2tBhF&vQs2Ew1YtL1O[h\yK U"m+vxbMN$QEsolKl* U"?8zQEUQ4rP3RV2X4F8KDY6hMM&e8B:WZ(8u$*qT&QdFubD[KOQFef^<#Lf^;7eD U"VTHErbvQp:$NQRxBLtdd;]i_UW&6iiE_K2)^vID70M#fK6DA U"[lS85&hum>YC)&QlaM-IpC^Ao#5#EVci.ns-f2p7]7<7Cp79E'7sUof%KA\x(To U"K?mL=3Lkd+TvEJXX$ZBckLD1p[yKW0t,v,tTBgmWayx#&AZAthubRbJGWh+d^8w U"c_TEMtEvK_UqI.qUuDJ#\CP6QO[sS%cQ[Y9GqeN*-/koi*F[M7.dAe(j;3I^ei6 U"At]df0&v+d1NqH*;tB9=KE0JtD,7-XN_*#P9g\FB5:iYaPuL6Jkty)G.;OfoEs[ U"*t'm/Q]kRW7*IiKsO5LRQ:,td[2o:7;nSu:RNIbI4:q,7X.3dwXxPf\)i)kULp4 U"lzC-xBs8AuhRj:n1cE6voo;-9qW4s(Vz0*tU$ftj92e)P&9*Ba^0/;CRz*fn1=F U"ls9jAoH/A*.iCTwkhW7>),ys_C\U&kmJpo,%1Qp]vJ%6zf U"$YQPdFRpZP)m1Bu8<\CofM3Sd4qb*6bo6ic)/>^mJU]hPJbFK%%DIP+SxG]RM39 U"_)qlw%w2Gbtr9irOZ,\k1jc6kqPb46vf=SdAW([hdPq6Z..RMJ\gHDoqV?Fk/8\ U"Bh3n?sU7VatHM:-J2P/F2MAZ6:lx;^H7X/RrNppqi,$veBTPS;%wc<#DN)h4O?1 U",*()?0W#kN%6Up]u;XH?*.&[\1;_TWHGYq0w(.oVUQP*35=Qk:6r]AEU1) U"*;F(Fe(.,7#L)vg/f%N\q6.7i6vc4n#I^*d'/jgN$E[X:$(?Ww28&[oN$IyF3]T6t%hW]x?n;;./5 U"pivMoC_xKDW)r6A8^BZ3^CiQ5vL/^elReLE*'sv*BA_2YeLr$YeLR/j^VY^eCQe U"LP8)k]E>A_jpR6>?Xy2,'1sv9^hlA3Knpe=+YV2koLJN+f_dH<&A\=w]0 U"a0gRKhciHC./:L9Q4ds?fKdfW5h+7>wPYM_=b(?+;N1Dx:Zsi'5zU0s2:#]#:hc U"/i+A#f#K+VM_)gJA^]PUZ-7OEgh9.dniF.%Nn]aJ/nFOkPB3eT]/nuMVN8pO/Gt>Enw6IewMHv5V&TY:aaeRdrIPj&5<6pY^Qu U"R%_gS&tP1+eVK('c[=uDFZ&DRR+MO]32+MB.=u U"Fo,&&S/j/F;4(c%2Yw4FO<;c/?(uy>utHtMf4LV/dUNx7N9kLfLEV/d88HOaKBt U"nrlD)TZysi,CD^YtsVn_K*R:t9SjiS3\%8?ZtnQ&ob9pKYOf0$[]PNobiE8###K U"P+VM)2gJ^]sPo,7WOEt8k.divZ-%n]haJnv8;Imlce$dnoSod0pt92/uKS..X>j U"=YG77E5fWcx^fSo:P=G9QQOsuA$Ci'XXvlx U"XaL>wTudM=dXy>d%Og*UGAldN-PFt5T3+pP6bj)pLf.pBID=LYQg U",E83VE8S-RqY'sSUYVi4YVyYs,?v5mGrp##p8Oi\]24>ISr9f<_#4ZaY524LYx, U"io>*Ks$mVBAo?gkI,\oh3&MTKoj>Q6..C8;J*([8$fT3Q U"wBfCJB^NrTh/HHitU,&vq\V>,^rlEEt',N^i)7^uld,i2>6)9Kff=?T?fzo09uv U"&.up(%)9%%%%-%s,foMxf$vjl[,%%T%9%%.%%%%r(f)ji%SgfxWf&TAB[m7LgLQ U"NAbpF=#TAC9f2=JI_Ig2Aj(B[AEV>FH*[F:kJDqYNdL?g.l>nREO5,1H[U[1p<\ U"H%zOuBTBEDqC/^1wsiPMG3NAOmqFm1%^1R4z6E/9L2uhKG*K5%gLqi'n?n,75OG U"Yn^eH\^9eo7+M/%R50GbJRQ]%14bH\>87Q>*&O$HlkI,[>40=Qq#R[UZ1zy0f?g U"JVA96]a&<.aqtN\Q8WOZ%3emiU^9E,(A5\XKpaYL:7#?qGN+Yn=?g U"sqB&/IcA2U/t;aK>A2U%$3Ry#^nQCxHFW?E$4?][1\4Qf$Kc#H/bp?J3]/) U"EG]=rk+Vcbv'G/=A-NQQ._LJjBe)icV5/xu8ZA^8s(Zc2E--_SKNRvv:aWD4;0L U"6bKT35r.W)cJiqT%e'S4rHPy[wb7G1)adR,\pukI[Me8c2AP>/\k8/.pgd02Hia U"278&+K^*x8Nh4YQ(&[Ow^^%eE1m6l*M*$30r0A>^?)gkh1.R:%BSRs^QPb&haC0 U"sR[(HcKy)c>i*I7gK#7;UK0;6d?;acXbF U"-e3;'gQ5(AvqOf3YD%]llx3'&k0,WA[:MR2=718:2Y#gxZd^?rN?VX'T\aqb9], U"F'13ZD<7r[bqmRGW)'c5,AS>4zcz)>b-i)j7Bq-\7r'GFvX=X(11*PL::m%+N?g U"pN,ICNTpSs=+%,]F9o22PQ/RA=1MmicJYjg3L6^Ei1C/o0[uM:T>Rt9B_R$g=Q[21J>LYfs;n?Fo.9J6vSmVFcgnjl6/ U"Y)^/EY,&Rw\8pZC;7r,Q?<8um:cGKbnxXGUr)4am77/j$ojNK U";,,<$Y=iqzJb9mJnc.$W?w(SLCmRj,19Pe:jKnh)h.6J%70GYwPeq#h46VY.bbb U"4tRhx6o'-0qtdovpR4-7[kVwVQCLJG3Da=Uop*F\ U"823vem#G)2#/L,Lt29u3?.\$cDn+G_pR$mMB58x:aFw,bmZZHPg,$r?E'h/Hv'h U"Znmdm#$m/2naC?L&EG(FN>*(*8pxsX5'(LK.0,kNK'%WH8>':eB,Kk(DrK>jkUz U"dg]kY^6Q8BLWnDZluo5\-0FZ/DaoK7$Q)WfoaCC$U/F7uj#C*9aB=Ev2EYQK9np U"ohd:l#M=1AXw8L?7gj4f=C(rg$?:-ab^%/F'>_3TOwg-qH U"f&\pSZq(\'Xvu(R;5*:A.?d3$/<6:AR/T?s/#c-S/0Z^rp'KLXiJ>N[67]:PV74 U";[NVkWCTt5S;M6(i=0R?T'5i84gJMo0FiF2c&ok5vjZ*$%$0,rWgpj$KpJOD,#-yl'G;A?C^;x5biH#gG-W9R[:o,Sc^ U"msaF;KMViG;h\j98MC&V(Dd=e$S_sQGS*.l>^aE*E&;,a/b6?a+y0=:6].*kvZWw;vZ8'Sx37h)f9miy5gL6&4&DkJ,PUCs U"+*Wdau&6;&+;+FQ0,6NcYQE-zdlCS,gEQKQY>HG=0D6j\otG6+(lB/(h>$Mi)\) U"be]$:H2o^B8L5tEf<#^_bZcL0e3Ed5vhN]dddVH*gGY=hLQBa#p5wRqD8WQ%TSS U"%IVdKwWZ;\P/kS9ggjP^L.?n\CrekC_,,1F6OPAPlSTqR+]Mcy+WQvDiVaJlm\r U"0jXG<&zk=6ESe2na_5fqg7/s1xJaqallS=DDJQDBNG':l\ijuK;.cHeMKd^&?c. U"NJdhN(/H>ZL4)-D?prGZiJlm/yDB>cRC#s]Wbq5Ut7knBg=D)KO*ISFLx\^nst: U"1n_GBV%#,MsPrVBV(h?dsluZBYB.3(F?omliNC[Nt83Pw0^sYGe08Z(7He+Gpq+ U"Ff:b''$(cN?GwUrP/.BFq8[n#f(UWZkWC.8K-W\54,jo+NQH;J1er:'Ne:-K8J? U"O\bS\Gj>6JhJ:uBYBtYVPidbKjaeQw=cX]\=vhDE(E4'ALT&;9CU;ZMqK7YKVio U"cif,]=g+JvTu%p()9%%%%-.%U_&^N=SU-AG)%%%]X%%%-%%#%rf)%jSif4yVgv- U"GU]1bRX0ma3x&smGbfr_>%9TYh*A^Co5V'nC<:X(K]RvmIBTlunPPpt>X8Ne^4+ U"8H;m#&UBFnKKwBum_\I\(PM7b/#TY^[\1M4o1eBEzEiigZ/y>5G\hBZ>IHES8.> U"yUi#pO2rL9e7$a:dn*-8WY8n;4tVLxxT5:uY9ssgD;N0m2ziPS3E1]8Xx?h&QuH U"d^zr_pNG#pB9rfu34fT^bhIw/.LxY=J?[%tJ+06R)aiw?s'kWje\GO5KoKUphJ> U"*9IrDH8gxg+c;BR*lrc$laIe/M%=C_d,rM+9 U"beVN2Ns',PIv[zVC%j/A5(j6W:x5SFJST$-F3F?/6HT#JN>\Z\K6+2Pf)JP;#97 U"5prC$i9^XchXz],&3UiGFKG:S3aYhG3QjRywAmvq7a9Lng#Q;d*cW*Zp^M%K<\D U"MLqsd-=1AEO\wVy7A=#cBOb*%9upfZx?GVUwf8,h\#dJ][M#^]zV+q#b+kQv;\6 U"'&6?5'f$SCiw7z-sx8_AF*0^-_wb4La)+ZJNUbre_ait8\jC_%[.2P]Z=si*(SE U"Y?3w1tGVEWmZ0i6o9)S89PUW.mo>nw34g\cW*fXJ895w/$87/ar[m'Oo5\_suH9FQOEk U"Iv?^uCIG09OTw%qOv/+NSNsC/Huk)i\mK$.WIt#KVY$sDMxrMvgJ&Wv7steqRR3 U"*PD'(&uUoX1b.;st-:B:GDhu.U(\/XL:KX#+OI7YJ'#;Iu9+T U"8qLLpXb5br8m/P9fv'AA^Te#:>4'5lNs&ix.vp/[D(*lr(fItkBToA/]BNY7wcu U"02ji+w]:\kTZv]tO?fOU,a+F'1Zn>kJ-cj,Cdhf;>th,)fg4TLX4ObqRQ(G?nZj U",ji'fee^t9N1j$1\]ZBiS\Yx'eF:J9N/$.$?ebvT&_31K\N5#EGi.E%iQGRptHe U">\SjmjD_1N>e9=rkJ#k7+1AD\IGJnF^^*^gfm+kZ(C46^[JS,Y4Aw6#J7Ps#WUBE-,8VBoCmobpew>#1X.i7dS_ U"URp6l:EYy3ueQvXQ5U;9Us)?*7e%h*v6PI8;;F\:vO+$oxYHI\?\-S:6>m\I-0H U"Oa#doCmSWu%oD3X:0_.a,+o9?Mod%Y0s#7QGp^Pl(wfUhkR'k[mVFJ:GciEYGDx U"DtXA/t1?Q3lKcdHaoru%(98pDjHfHteN7-GWD&<8MUJ]CWKKkK6XA;\a4iu U";gk-nYl^+F8v$6\b_$9ZN%%9%%%%-%PA4.Nl#Y#_B#>%%y&2%%-%%%%%% U"%%%&%%E%%%%%%%#%rf)%jSgf%xup&%'>%9%%%%-d%sfo7Mx$v,jl,%+%T9%%%.% U"%%%%%%%%&%E#%%%h%>%%r(f)ji%Sgfx%up&'%>%9%%%%-%(U_&Nn=SUA'G)%%%] U"X%%%-%%%%%%%%%&%E%7%%,F%%%rf&)jSi%fyup%*+%%%%%(%.(%r%.%%vK%%%%% END SUB CLOSE:IF S=153AND 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