'===========================================================================
' 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-<CQ5I,aU;Dx$:5N9Vtk)3l_&3t[w6<mdm?6Ict=w[^JqLC*A
U"Y,vYi9\Y7Lni=B+HgM*$:)wqlQ($dE1Ra%.-RJ]P.wE()s<Ke+,nl8gQqP5('60
U"/a+QpT:yEe&-5.7E9A)CC%DSi8a*k>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;3T<xfU4i_h/_e-1_,a]\cgOqQ(q%2-JFb.&WUn)emJAJ9AGOI]x
U"iWkr9-bt:Wq<?K]P>g$t=,EUHpTZa8I<1r=]:cVB9cLc7kW=X0/km]:/$iqL:di
U"O't(PWBj(Z.<gj2CL'7I%#G<\$q73vR6.]YOZ*JN4z*<%/A*RN]ePTq12/<<6BQ
U"U3%)FF8..eG(*wlJE0VXnQYi;rYjU\jn3mHuT&4,udBFPcD8tBu<^PbG,4Zh2m.
U"-dt_,<XuT&tj3VCIr5]4spWs,KbtSG[Q'Du>R^];;.o<)c^b&+/6Y[>tL$k?hsN
U"<];33v9Rx2<?z2Z-Si%OHk%r$k%HlbuL&g.Tel**,CBXbxIowgd_*]jch>0W'=?
U"6I4xgJ8Ni?\e&\F=:>$T$t_IqDZVHtLjfn1sOeoJ,cKdAgUDFB#hvzsIq=\(g<^
U"w$fhkswZW+\M,>R3LebmnZK<p;?HSN,SL,blf(e<lrvT)-[,[m4q/k,0P/hzZS(
U"<\C*($j.O=8l+[yIHcL*ATaf,u'O3V7_<-WWkXm/mdAD$X\fr=\I[F,>EdoC5W8
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,CVjFHQ2<RSHE6>I5)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.tSHpdf0yO41b<W0<1p9*F
U"eEch2#RR4f]C)S0&UghN4*q,%*TQFLFjvq,f6yK:^-#Vn+-IPU:CZ5>1K>;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[7<V_X:DF+<j6oe?CCPZ:
U"i0?ruUQ_oe)^xX=tS'<bQeJJi1XN^=?t_d_:.5Y0?;/:#V/p.KE_t0lJYhHNu_H
U"ReWBJU:Gs:HQhg??JR_Mh4%u],DH4[NFs/om4*o-&X.9UTXZ.p2AcxW([l0\jT<
U"XD8[>k#ELh.QC/>gjRXKUJ/jVBa)c7Q^p*uGNRhY1AH.T(DsRuWNi?,hU3t:L&'
U"X]6?s?.,Lnto#,0<QBmEGqA%fS+PjPur$&meM9G#MR$a4qbv\PJ_K?KS*#&yF,Z
U"$02ixKIkD]Pzf_UNpF9*SGL.,<6,%'?M-)Eul'\Ft/_Az<i3iBqD4O*x]M?a3]3
U"_o25TZ8g)&%y$?-RZf7C>'1SXiPDAL;=H),OT(NllwwB4_DHs'r?6pLYnp6n+$)
U"\<tJ]ZDimi+UOaU_T/oUQ&V==B>KP4f&+:YmnY35Y?*tfOo#o+jq%]$[=$LPZgZ
U":>v's%nBZ1FhIn8uf1+AS(5.ShD%fX?E9OS#&_ZF<t$Wp&npst9s2/3f:LsttHJ
U"sKUon:Rmr/m,k_lpP9gStV/Miu0nJG'L#TOX05B2%$=Wf:/4cWw:;U:8'aaCVKJ
U"FoaJt<v/eK)8q(oKKC8f&mhAOO1mq(g^='Y[3vI?Y;,s>iZ(G/\Ey6OFR2s]7==
U"AX;G$[Xz+#:>$UYlA(w[(NMjz[b=no6=pPfo#VaISas8si\cCUha]:I&#2_DR0_
U"6aaq8I\2c3komEe>6Gs%066t_%5rXRY[P$htJm)awD?dTXC?9Ps0fe4KqOp8jr)
U"f=&pIFS_I2p5eIOu4D#YBxT6=7*0y$-[YFYQZG_WldUv0X)v=SZMA1kgmh*AdEC
U"Ji,6[l+em6qYfH973=Kl+76x#u;=LIEYTN]zI1(u7G55L?+)=\dro-:YMsKTPOG
U"Uh-*]VQv9_Y]t$:[A]k0KNlOX-<AIWo59.WOG5LizDY/#9AdW6_dAYJldccuD<S
U"jddaTZbmPL9qcgMoWg_>g.PwFaXDC2X<t9jHp;(WgpX8<o6)Ggu&9tQrdcgM#XH
U"ChAJno-;'[wF/n<6AR*1*qfUtT<+PaA$6]eIGYG35MWQ.6DBBOHVGsXf.aph6LI
U"c[J#N\p.[$&Ciu^w6%b8PnY5cmHO,)_%bU&Ss?AG8ezsWVam#5d00(>8NLe]sEL
U"fg9sV6B3e)$#2'NIC2P9s<Nt\C'UM-I6;Fr=&<ELwuqfCs39MQ[N.hu$.T4Ue5n
U"W^0le75&qon8)qGs&.c3A.%HKT<w>9-7c\i)B^U;\Fm0^r'^/QTo1OefoNPNsXo
U"pHXqC6,#^(+-MMD[8d3I$Ncy^h<Tdp^<s-pejxB_X-Y$btn9*E&FRM#B.Oj3f&p
U"=gL97_oNPgs-Viooe&y&S>P,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<e/Jdeaa_p+\3pSLdxTPH.]n5V\R
U"ivN3xmOK0HzzT^D?mUS6Lr0rE>#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#1gcb&#6JGmn76A&DAf_>Tiam'?pkj3Q
U"s^fT*t=fG)KTD<]+0<ul;]n.pev/%]Q&4T9+]O0'.Ww9-'K27h0k-m-\1vhm5Li
U"doL>eQ3ahiRMkOQlGJ+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[<uX9oZAOZDr32LQCr*&dY'RvnP_uCXT-1<;&fPxDarAy:T
U"1'DU$,KFBMu3u.0cP7^^7CcB_3%COhwm#S07qok\de\bMHN;^IyhJCwi#u\71ZS
U"M(kVT%]F(Gb&L]:$OdSNXn2[%8dvT&YtKb9FesACF2WXd)&DW2'=3#_UQJ#yL(:
U"J8FHL\Fp_q7#c7hq]aSM_FHVQYbtN'q^,M/Xr>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?%<BOxPy-'j:73':ww_KWF+r
U"&0].3?,[MH%5MgdbX(V;gAw1'AV\U3O#so/[Vn(+j&u<%/nz49][L=qakDQ5qH(
U"72LOc[g;(yEG^a-aI7F5_MTL+v^NVvG4I:+'0j_,='Yn?h[*KywPIYt2SoeONH?
U"E0R.9PAGh-1/s+,sI/,eW+pfhNWiO5Chd'Y]jZ*6rHQ^:5kVF\r$^KQv<h9H*6u
U"psK-p*hHiuh^T\r._otKtTUD6,/r8>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]3Q<te,,JWTig1,R-S86
U"ZV<sVVwJZ*;x%F;T&l<Y^K.(18D4Ruy#9H0nr0ipD0DeE<aWf6W'g_EXx=5ip=F
U"Jglu?M+]]]i/4v.mEN/D&QzMOmz:B6s6rT^-]Z0>VY>\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'+)'Zhcd7q<e5aW/W]K)/acqVoN$%1PI9:]nDeb6:%
U"ICxI-HkTiT$e:X'(_3GdC#EJAU&Q]%KGY6Jc1eP,M#V/(PTnjW;MpqzX.A';rX.
U"%6iYqd:ym/QYH<[g8gBCX>0NgyscDVKlS9A%+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(<Ap:mncFKZ5BK)cYYC<)IFf7*%EO1>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<x;3\k'8,5Ip>-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*<aipl_t2&0QYDBdfLy4XMa4v/62GOx4UYg1[]$VYq;19FU>
U"?8zQEUQ4rP3RV2X4F8KDY6hMM&e8B:WZ(8u$*qT&QdFubD[KOQFef^<#Lf^;7eD
U"VTHErbvQp:$NQRxBLtdd;]i_UW&6iiE_K2)^vID70M<i41wQrXFgAZNo>#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"ls9jA<rC^'(XLpI%0QjtgLZC8Yf%X(Oosc=6$QV:^ML]R+_4B$e)^?,IAB]+[ZO
U"Zq]E_WRHs3<K&RD$M\:<%XnSPIXlBb05C:/.CER?'\gbU#]*6w?Kk3,yjUD.L.S
U"OX7*;6X4tqhk#.(/Vt%B8>oH/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%6<Y;U.1sHMekrU:(Vdj:U[f'rCNZ'Uj;C1<4B95=7AxZ$:r9O/A&
U"X1]BNU]iogRae<G#>Up]u;XH?*.&[\1;_TWHGYq0w(.oVUQP*35=Qk:6r]AEU1)
U"*;F(Fe(.,7#L)vg/f%N\q6.7i6vc4n#<Wu4I%&9:X.5/tIAfdF0<g0-/lCDO5+Z
U"pR.=x6sg$Yyk4xX5>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^hl<eLlV>A3Knpe=+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/nF<IKml='5g[bjVRd*lnP[
U"/7Y4_N&>OkPB3eT]/nuMVN8pO/Gt>Enw6IewMHv5V&TY:aaeRdrIPj&5<6pY^Qu
U"R%_gS&tP1+eVK('c[=uDFZ&DRR+M<LWo=RL&DNs(&D\=9IfHYYo'>O]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<O5=8pP1^SBsc\T+[4Nst2.2Z8vy:O([h[^XOM_wBIKltQ
U"C;^#:y9#9tN)jHm^OM[,wIKl&T[]O2CZrgCR]/<JAy7RJrgNsnrgXZJwuZr%g#A
U":_9#yaJ5lt9TQPU(IA:)D+ya[l<^G\r,.($M;Cw%9-(w-AZMIe2\\B;Pgfmm(HZ
U"$CYWcd7$juL]tu)P:3tx+td$FS1.l;4M4T^9VhbPVdwZ>=G9QQOsuA$Ci'XXvlx
U"XaL>wT<s:]-:g.9Mc&o4M*(k%JHHq(8is,Y_p%vvnAsr,MYH<]\:)Tfr[De[GDT
U"R9m)Gf[tDe[Va;D[>udM=dXy>d%Og*UGAldN-PFt5T3+pP6bj)pLf.pBID=LYQg
U",E83VE8S-RqY'sSUYVi4YVyYs,?v5mGrp##p8Oi\]24>ISr9f<_#4ZaY524LYx,
U"io<Rg&INr)baK&ol61[>>*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^9<P)j*[t[5>E,(A5\XKpaYL:7#?qGN+Yn=?g
U"sqB&/IcA2U/t;aK>A2U%$3Ry#^nQCx<A1>HFW?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*I7<vi0cj]rFu2xe'GP+&=C1;=\cnAB=r.Cg8Yb6haJK0/D*?jT
U"9='B:_;3kj*](9^)su'0BTAzdWsY&/-Bmaj1dY9w%7kr>gK#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</\?.p.#b4Ab&2
U"6crr%h0MP]%PsB-I)Di8XG]+,WBj4hFO6L.8Qq)$fvaBDlBsF-07u#IZ\$X.)r$
U"c&v9VCId3<2eutmY1:F(K_uXxnp3SH%irO*1,;Y:ChJD$ocqR7N'Q0c(c$eX1f\
U"5,CH^N*+S2_\&\:oJra_-n?Ydcm+n]/f*Ck0;*^Oy$;RlL3MhgAu0RYpsWdJpRm
U"v%gr?hmU#*324KTHDZT>:T>Rt9B_R$g=Q[21J>LYfs;n?Fo.9J6vSmVFcgnjl6/
U"Y)^/EY,&Rw\8pZC;7r,Q?<8um:<K&-[0o+^U8He>cGKbnxXGUr)4am77/j$ojNK
U";,,<$Y=iqzJb9mJnc.$W?w(SLCmRj,19Pe:jKnh)h.6J%70GYwPeq#h46VY.bbb
U"4tRhx6o'-0qtdovpR4-7[kVwVQC<Un)pB(d[f,HRi]*.Dr&FrGoYCOi7&S(E,Gi
U"keR[S(AWjJa%HK'6=X5TFtP3-*Wjpeu=l_jF:jBnB_:M?,IYn>LJG3Da=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=1<gcUxglT,IFO#n8w>AXw8L?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*$%<ps3>$0,r<PnRk%(q
U"E3-4v&<W?[zhQ=2#tyLq>Wgpj$KpJOD,#-yl'G;A?C^;x5biH#gG-W9R[:o,Sc^
U"msaF;KMViG;h\j98MC&V(Dd=e$S_sQGS*.<a^lWMLrKjy%aYb7j_x,6jz;Nl$N\
U"*>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"%IVdKw<Poh+1S+.$*hu34bld#$*s<FjHJT#vjBK-t89tCmTS.psKh1E.VI2)teT
U"UA3\lhL0:llUChDAJMQBfebidhBFPldwCoCm*VOSO>WZ;\P/kS9ggjP^L.?n\<J
U"'VN4T_zSRh4\18JKr2w8^KO)>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"<p-FvpNNqLL;G4q<eI=:kJ;-_5>*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?3w1tGVEWmZ0<uJl.-07W4GF]n:WiB6jL+ljDMx_eH]gNUmhaCw)Rf=\0VQ:P)
U".M\^qVkRG8/M:nE+go_WMQAM\1eJ]-XAr2qb$r$3tO5HhHIhI4QduG]bzRqZw2j
U"()noy.9>i6o9)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#+<H'0J[N.2j*(T>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#J7P<G?H\
U"iX7:L-j%GDR.rjMT-R$UZ.0<q3,S-^4gw>s#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;\<X8>a4iu
U";gk-nYl^+F8v$6\b_$9ZN<hKr^F7#\a#uD:M7u):=[aN]lQE-;\151CImcD[d,K
U",b#Xsk%^$4u&PlR6[e'/)DkaD'N'dWas.#3k.Z/MXRl;Aai6zX+r(rLtwoqw'1c
U"ytOn.&MJ%q<Go?:_P-TPtu%p&'>%%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
