'=========================================================================== ' Subject: TILE-BASED ENGINE Date: 11-02-96 (22:21) ' Author: Dave Shea Code: QB, QBasic, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"LEVEL.ZIP",4^6:Z&=10463:?STRING$(50,177); U"%up()%9%%%R-%1S7sFXu,/gN)7%%Q6%%%.%%%%qj&%jqS#ufq,rQ<'T[_1)I9x4 U"aCf+)bsY-xCmdN3Vm:*9-_eX:A%e'sNHq^NwvrpbtHnu=W8GN3V;Fce=EsD?2\+ U"bjJ^.=tnm?[e^XlB=GtRy7LlVw3E*#/P#-ti=1pa$O=0PL#>DlvZ0k-GU+4s8tP U"?R='?1l];=4Hp9VBmg>?g%?8 U"6S1,LiU^a\2]eWkH/#tg5.Gc?=H=G]gDH:/gP.srE0q-A[SWw?Z6hf(c]W>psob0p<6 U"ZUs+\khrtEt>S#erK$NFu7-.T--T3KL]Ge-ldBJmg%$>*lBI-IP^j\z5jgYuMeRMFs**fFS/6 U")>b?x9T'VqyM+8+NM91-_MVAM*(X$alL13_;>*^9cN/oH<9bC&b>GbJ6x1u5sgJ U"(mTOkIdJW>Q&*gO2l%abKY-K0EUw:3k%)nX?6-$#ICfj2T?1aQk%sl]PM-dXhl= U"mC^$uL4JF:>?MuLO54DsvQ5e0kS%Q?c<%m;K%m)meBee6/M U"NuS>3RHT]>_T-a/r(^WQT5p/#/xdd5cTi2[W_vTTJFZL;SdRKSS4%qsw7I]Ep#- U"ii8T+adKN]QN(v_x^IP7p;mIg9heb%Lui^l/JY6,_?O+G^N3DLE73f^#TjfTRsFxh U"$QmgFdn/H#.r0XxEDz9S9qvTJRQ7ME58_t0GYc0^HulB^u$Hqh]x?1vWlUo66UxmU9c#w,%up()% U"9%%%R-%lX\1F;Q=6M]*[%%,s%%%.%%%%nh%tsxS\%lffkhf=[#]9eb')I&oLNxE U"5-qNdEGT;pckHJLGhd%)ThXbJf45aMM1HI]+QSWX2rp?fdE1NJNRInk6%'%%%%% U"%%%m%%i9rue9]$5T52R6.uZkO87EJ-yjDfCrH U"V5.Q9ITxOP1=J2gT0A.rTED5kph#'DwlG/^lPLr&8/Ns;_caH3ebx:3jV-NJ;mz U"d$WTXfn=3w6.;VV$ubKQ;M+m2t0lQH(NTsr:E^8/_aT8i0/zhit8s?Sn'mfZEclH/UODs%$md^U&Q>(NTIrf U"jToTPrPc'gCPV95mh3d..dUVN4huTE\7SM9vlp\9AKq.xP8aaqapZtlwoHu2mHb U"&wZwHMsWi8N#ZTCP;.=r_?8wsZsuuYD,D2P*F58Ztr6]0r8ZjI$g^iu8woO?XDD U"pB(T>x^DlyXrt-'[sSx+&N4r^>0,X+FDKtfAN'.N*$vo8ChFD>a/NAuzK)-VEddu%o\6rf>VOV^(\> U"=KchR2N%n5L]'$Lti(s_3w&\K*C59,B,Zh7-EmbR,zvF U"QpT(lX4X4Oj6:Dl#sv?YF$uD3Tfu)Y>(rZY&r1F3.L#6o2vkwJmIRdnx>,&l;H1 U"xFG/UpZn+l6_MbODc]w^DuCtpHgti*w:[MvXN^2*sPywm*cmwtEZ+ZvB._yN\Nv U"-,>E)m+&VUpv.jS/JS8.SkTo.'0vKu2)\i].yko(B]VZnrXNGHw,kddtIwUAn^m[YK7/lrK$IV.CSKVIfY U">iU.KS)KIdCP^42RWif$4G?P]1OsK=-&8\'tVnstXmplYArIFTvUwM$cMc;WAVjFYHir* U"6Sr*SrVjH89\NR^8^Wx'tN?OHmM7]Xf9Z^^NHk%culw&j86Whbm^BnugZ6D:5,\ U"W^kL2HFu]6np=Xu)OnPDkP* U"F^RbU[g\J2Ppa'w^]oT,V;jNw]c?HDqO#m&CbNKN_u&8:$$X(;g1i5(7HGFYm-8 U"JZ4Wh^lfstqtX-GBCZ^'kdxsg$HJ]Hic.HwZ+NZqC=-wi\;4SldEGn^Nl_uhn:4NxI8Qdura>:Dw;u[Y4\Nxki,V8NHZq9C-w]>N_u>%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% U"%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%=c>Xu%p()9%%%%-4%cWsgF)L<%DN) U"%+%U6%%%/%%#%qj%%jqWS#ufq,hf*]f[O1ixr(C_IphW:59?d+#ax^l/WMw0&%7 U"M<)>b8$Tuwwvp4Lp6x/U2pUfe\cF#u63U?hx/osaXq6Rz_\T_msVWfaoKeT\o-, U"pNp%hm#p=vZ?F\Ucdh]vDX5ipPWFW85;J[q\yeX+6IbAp#[+2Z2]ZolI9:mXZXE U"1H;6[4#WE'V0W?ujXq53w_t0872GiLKPlFAz,EH7[LQiOj$qF+VJh[SzlN3;8i. U"l.;%YxYNz2zQX35naB*ho_Lh'6eS]X&]Wp%t%QZ%f1N+m?ep.AxBeL'WyX\.%/l U"cSB_jK)QT67k;HZj&X=_l,G>qk;'26>e7&/HCe)y1+eV.,3R5N.FHNMk3tJ&sor U")ae8nTK02iAfKf-jP60g\zQ-qi,%G\)3V\s^sGh++rleHT*LGVi5i<_[0VBt4ha U"BF=HB1TiPmTU:#>E;_elj6;dTM'sM)_LOh$bn U"bzANbKK._\DsFQ)ynL6^1al;\leRe:.cw)iKnIk?5PP,>'&I45(*F$NRwIT/kIQ U"g'o)6*/$Ewx,%U-u>C%3>MWyCZETEff^1_MPRGQ:<:,pYg]QlF$L3boT#R3G4*C U"8_K U".lGP*8L;=,TbG.,3-B]AV#L-K4uLve^y.vD<2CMVJ)jhA\ov5M9dq=A8D:=,ND) U"p.9o'JPal\.(.'nG:2wd23sv$B%=Eh3ENlMM$Q(lQ%.f87<;SS?NYW$:v7EQpnV U"bxfqVeb_W:PVSSao('23sQ5sr&r>J=/Cu'MlQoM%b*FlgPfPY$=9*jZIT*R.uH(SAitx'fGS U"7k947_fM^AnL*#Vw5w5WiK/nWK\$9)nBS/g]0S0Q88y*:TFBZzo9mOI/o('rjoF U"dlH7\CHt4QjdqiIM=aLC22<+h\.L8rckd%up()%9%%%#-%IY/1Fjh,Pq..7%%SC U"%%%.%%%%qj&%jqS[gfx&k(x>[917xBkXx0=Zno;:*3Y87FESbx^YpjDm\&tSaot U"p'QFg%q;tqm;tC3xvrF[fYqS_'-o(w:o*E6aC>^#\FeYTU$T,=_nkJI*6acVLdb U"Vm*%P565a<_FdYMLivjHP$()2cMlKXp)ir-x)qtX/]R9_b;w_#]%SbLB'ZV-#-e U">:JVLqbbnpcYQ..0>6<%]U2b$j?n7<[l5[=HBD+*o'2lN.P4I[_+vaQUG#J/F)lPkUUQDDukkk4:JSXi U"UC+XIEX(SD0tGLqSn[+fPRp&:VczRqfNORpnfk$cFfD_k,+]L6(^4is/kM$fh95 U"+Jisuu/aDPZV.*9Qe+l\jcfOJ-^6N6%YOm?. U":j\/]+k:;tUbXbDAkauRL[%&[dsQX/#5AXY,6Q?3DnzR?whiDh<2Rm:d='IWPYQ U"AUg>AP-H$U=XT[DG2UQY(a\lrsY[\k:QdR_WDSlqmnu+dnLCj\IF2wtNunS]lO' U"W,H%E,;v-d2+L$6Y4Cg%tsThxwMeo1f U"]j'QZko)=lEEAvyu$JWjfb-PBJ=l$*o'GDl>qI&e&$(LH(Tf?Ao-9.VIvyDu=93 U"\OAI\uCGD-9-(])^Fi-EKUH-gg:RLa&mLaQ)Obvn87M%_^t4;Y:2FjIVf#TW.<< U"&ra)02jWq#m\XpKLW\c^.#B&tvd_mWE31=M_LeIG^_Ysg3;CYK,pZRqLJ>0ye] U"*U<#U(^[q5_::8?>_E,fJAAIRqn0a3o>F[G(m6rOnEYD]=1'Oq9rRd&YC(&V5sL U"kEIVbJ3U-'8F[U\t$a9[ROChH#v8#52pk3I;\$q5v(HBH U"HEO?68w6JTe?3vSxk>U&]*&k4_dg6A7f6h'qc]>hHlGogc+&r1>IOBxLc8;?n?9 U"#yS+LLcPd(S=Y44l\^W*]UW9)Nc1FaI-X1ZWPV\D5Px7ftFQ'Qc.7Q/*gQ8l=Zg[0qrw#pK8[QOMRaGrw1'Ze3WTH6\>/-Nj U"s>X1Kh>W;^dQRIRQSl3uqZ,S*fA&a9/uZ3a0\2fWfx#S-#^rc]/$kTJB&$Fahk5 U"Cq3q%Ef]yrsZdJJ7E_*Yg<.M;\0CXX6Ku[zE_tT+2fnHLWRp(chc(fm54-[jH_$ U"hEDjBEj#aFQ01V+;T>cl0/>he1zUGh:c=Ml9/>$k1yHBM,9^TcXC1/hKm&ziW(* U"TBjs0*20j,-*0^Ff:;MAUWNp>\9(un5O]Y)kxEYti9nNS/=^S_ED7FvIjF4il1fu=Vf'%z1mrSh U"bljCL)v60DEaaFu\+n U"^GQq:S2A5=[6wigxj*+FY'#cL)z]>2EMgB(tI+*Xf+X9gP,C.iLpH>I,x($1t35 U"C$nSE(N9X8MP9ZqdjB+&dn$,03thmAZH6=HX#qhK(5Gn>&f#vG,3e\TZ+u;A(#kT-HYQK(6LdJV+=>XB,[1(D#e7tP U"$1D)C1n&T)1/E#D-_jJohIFDgV?MOjGnx\UK?GLKPM8GKt=QYQ+5-I6Cvc2CMk_ U"iCartY5YDR,n2>?2z*l%+xZlF_yIl#]&A60SAM_$rXY#f4KQ2cl#2EW-Oj*h[oOJ;b;ppAI[gV+b4-NtX:U)s5<2VE3cz#huv>A0OJM=& U"dw'rOzP-1\QIX26=UhSn+<0n=)#MEr?2.T3-8+pK^bD4TxIhbX'tK%u-LTl_SOs6NIEL44v0eN697vUU:XOl/Wg.MjVMLtRVH,/NX574 U"ktn\0=)HVn:(c7U&<$pbdU*4W5N<[sGHw6ta6NCbBxzBifJHgW$nIjkRk%#p\HV U"9-O\fBZ,0>Zr$':qX,H+^nQA*m(&Spy;4_nvMWyZd,PslfH+ U"MzU*rE9HMZJ4gZ(#$$aj2WI8^/4vbh)1l0vMUphB4_t6\/u?n'>](\r5z*%O(bD U"#*v>zX1jH#UpzC(s>cX\EdxeXEc,:tFEp2ndPlHNEt)391zJ9^HA(aHi^goK1BA U"gdLyycd2U;rKdi.ac7u2p[229Ag?Rd,-HvW^w/X9-gm,VCA+eazSE1wIa0v8]_= U"D9nBLz,[>%+0NeJ#x_s[DKu?ZE[X5Pa^t=9mQX-\Jn;qq)5gX3/hC/LBd4q.EA7 U"?=Z5's7evmvOw(ccrNUMmJVvgdJ$yxV:-H^a/q/q>j]x3B8c[WJGhwJSND2Sm1K U"7DPM-6TQPtCXTrF()$m_[1u[08:3>JviM'V8WruWL4+6)WdrB]0Y).3;x>8g0tB U"1KF38cBfb1,r:+Z((retcw7f^cxYu.LARf&=qL3?)97jJ3cO#CIvbui_QB1Q;qX U"<'aRIu(>G#x4%up()%9%%%#-%^fIsFjj9VI'4%%%te%%%0%%%%qj&%jqU%ZSifg U"yd*D>=\C3]U4U8g7Oa[FtITGMN0W)4+S76Z]X(i)^1vc924HiD#3byJZz;E>z6R U"p[\:vJrvIBnrgk$$uxjs%Q0lKY;y.F[urOo_HxqBNi]02\jlt(/-dhDh27n=+Lv U"Ed,B'#bn]#Vr#qC[xrcdSqjb67BhuuFnd;QGG?gT*1WIi U"SD;#:lX#6lY/jqnY7\PDN?Hmy&[o*q._$qiH,]l77fGEbR3v/OX\'/.jEpB)+]v U"VD(O4Y,P^Hq(*>t,(f+EQ^hkh U"6xG?(t U"i/Y9^-33/R[ncUe(5O1O1q$b'p5B)7FB-E?jmtkq^TubPo5#r3;Qd_c&R%VqT%9M>&2Ik&5 U"Xh14n;Am,,SI5]+=>=^PsxHj.JG(mp;TDv14RW[o^38)V$U+c7)EL0egXZqN2yH U"U;s29k*niZ7Oe2Iwd;6)7+Z=^s3DXRgZ\vu7O/Al5ng&;Y&(w17s'Z*v\OV8S7a U"+=tP,qXdA$6MBPUvRl8,7Jq7s5P>GBieHm+ojiC%66cKFjIar>X/eGY7Nq?&]eT U";];J:pNu)u#WADu0&)Y0R5PJ(a$HjJl/-HKAG#Z+7)yo?PtQ::q)[5aiY U"+FdrPcVV_f(M6o7QZa2OgYp&.7$RB$-B'7sGVGEb_%3&&*iLrJbGcq]-FJB\L7$ U"l0:'-NW4%5MXTf#D3x/;^sKGaS)5N'a9h.(Oh:1s'5q_PUU]57j6's\,HJ$e2eo U"a:MJ50R:Y>\hg/ChCgSj)-ZP#6:,-h$chw^mHdi'9Ye73/SPvUrh(7(=gh)[YJ$ U"xJV_2]][=l_/-RZqliUUofer9$&*w(V4kzEs.'7MlBfpGeW#[utaNfEcxJ?/,%nvTxi?[ptk>lH] U"aOvd6ePg7o'R=VyQWa;][7^k8'1E&2-;B=y:kWEF2CP)mZAi-'5/(-Ht9BmR))%lKep^=5aOWi4adg36Zh?,9FoLr+1?N%J+ U"Y?\HvWH\t;6g^1B^1\aEBSDM),7XH%erY8ek$d(%5j3ln'a]1=P,E)0oSe)RO*> U"dNd$^PDp^7'6(<^bDl6PgNN86JB\'?5RLe6)IBY&i25qofmJhidHn#S9U<9B)[95'2'Pq'4k* U"nVFsQ,/P?=Ku[M-YNtYW'R-IB9vsdw01Xsi1OK,rCnwRD7xuKSTxa/N8zPSu_Nu U"MOM'hI1#NRKt+Z&GUk_7f-^69$I;([r#Mz0vi0A>Nt]*a>&y)l\#,,Jl5mr.%wU.31u=(#QRiSJ#c^)m41.T5K,88vrmLM-^nf38H,5:4VQmik U"F*EKby&yZ^d=y\T,'%^I_kKcnI6hHRy U"ar7irNIq_Vk&+x[X]jMLDPL*V4fZ/vQ0\QgIRtxJL=,ZOIK2zcXzv5z+Z,Ds7Y9 U"aetb,-bTtR).)6Nc\6>*;c(0CvfBOB5LSM6fE+A#+&C/QLigQ%JbNE7_KLp?7_S[j\#L[%6++ZfXE;-\(K9?*=-JSg)cY#BV[A5GwQEiH(oj#EW',uq[+'=jN#HE&;i-8Nn)m^%zXR4UM U"&'d>,QhApi0#J?]v*uGi0)/OSWoQ5_tKqGdo_/v\eNxHaOXfHXGFYp?#(eG)?p$ORb1q*xpf.)QW7jxj'n+YBr1TJPx*AqBQg:7PQmo$x2d=#)uo6=D5+-^)fAtKpV U".XU4h[yo/2?XC&XB#m*c$1QRUR U"k/PO*MK'u_WM7Rg9:uokjetBo>*.YzuJq1GN=U)[$hD(OwNEQ?cu%N8T3?A\_Xb U"Vsye\GKi'*oY&gCRkG/Kw#JV&,OCZ8%hh>$&]D8._E%dhJm('J3,'1ok):6)X(/ U"F(;9/[mZJipO4uSs778BL>Ira-NiEi](I]/%]m:LKF<+Qd+XahEC*WT*Vc]AP[& U"Qg#5?TGI#nnG7W$],DAHwRe/[SiZBOKu-hTZ*T?k[?G/hozNm>RB/K_T+v(T:m[ U",7ghW7$eFndZZQSPxb1p&O3lP:=61ub?>0sjEd#cImL5r:9rBX;dj3J'&O?NEN1 U"N,R3;b(MqCqTQ<>2tE=Q+_jkc)2p-]#H^-O'XFRvp:IZTRo(wjgLD)hPu>tgH U"Z&op)IMd2d])Quk-#dFS#TWkjWFd(%q.Cg9Ync>$_:pp?O3j_[*c=5sD:oCL[\n U"vOKfsM^D\LA--ggyPCVq8+>NnKu==g=\o.&l7S1l(s,C-q:7M[tjIky%+F&&&Do U"&;me11=TmDQ=NT(/)a)n$mdnRptH8/:Oz.25q[P(8TZcj%3Rp0tMDdP(J'nqgnI=o[\3nZ(EW%K[xI(buGB_he3\7yFuv.kybE> U"T0.[hSaG3Bb1io(.)'JZF-$Q[GJm3^Re7^DTT)saIHiE%03*VdKE;&F_7PHhc[_].5i9KL/e?])zNU4Aj;+;DyXo[6Rjn8IlB8[c#fK\;j4#t_ U"td^xZV:\981nnkOfK(.8t$(z*Aj#mSyWP##[?mwTX#hqF4] U")LD8)XT.fH]*Y7YS?NK-eaLDt7[JRCIi/wdI7&zjpYp>5<&?j.atn.4p?s_^>): U"'i_iOIngj6+8Vdg-/QVK*..Iy$#>nf340s[*HYz*W4\ZNt(DCax07F&'7-A?%NC U"a(uIV^n0H)JS/8XRGY=Q8Mv\_2xfEcbmG+%EOe0ifuWkj98E:8#HsZZ.gaZSz1Z U"OW.>tTk>X<.*r)3:%Xs/ U"NOp6fZ7Ru[r3pd&x*1LlxS'6[sy3cOK+0CQ%fj&$,OZ6-4rBlY#h4&1['?jyOtW U"3g(MEMIHU^gCvP.4wkV(m4b+GH/$gR%ROB[ehY(B,F U"LOmAp$HG0f.DZIim\4(#*a\mG^>eZ^\ji3u88=EAna>%m_GEAz'2??hr2mRyci, U"=USj(9'(15OB7E4meaM.iaZU/ql']#pO7s6EYQH=LpD8&Jhk#O+O0jE>0hd[NV] U"'$3tI,5AD\ljhFEJ'H4JEd,v]i-)4BiuclvS:'T5)23CUZ5fb7,DD'76:nlD(#\ U"$;>2e#0^tsE.d(N>s=-,*wo49bQ\E%/gp\iEDk8^#._rtY_$dEngS38eLVS?[GB U"cEs%+b&y/#l+UbN0JP#4('0pueZu(*i3gWDd,^#HC>dagB\F-X#0J5Aw2)1>04p U"d=:WG%v9mZ[\'%ObisV1KD5.a-jCZ(#nNXwHUjoe6hj9\8BjR+TLG;*o=x%+]*R U"W2L(u01Rv9/7XUf1]Uz,1eR7'^Btjq%jY(2PUWJ0Ofi(*Atz6$;YoI3C_sb1]-/ U"FeH3BmU6#d45SN+jptOflM'Z=X81KaWhHm.C5GWqwp)FOvjkG$K U"ZBU2G'[F%w1j*[&A.zNkyA/Pn^DqkvO5kvZ1i?c;rYb.Gwt;6/n-=\nL::kC7-6 U":s/D'xj?WP7k%l[YT.YPPr$:%hVn65+U=08k(;#t1EHO7q\]Q/Idn:?7R*<3;N6 U"JS#f[G;\hedv6uc\_9Jl-oaHHBbM*b&3,<+.G](ot+fj_%bZ-Ig0a\4kw-Et,e' U"/+oG;a%.I';;q2):c%aW,9Q\o0/IPIL[7z2o^S$e[:HaUDRuBVt^n,O_[>x4Qhm U"m6)5GJVqZPBoVUiIY*&IpOkt+F=IOH7;G$i+q%rjS'I=\c)J$CPbNk U"]$%<**CfB2R;9K6Y;9;Rlkf0>\_zueho7s4ius'0hXRUP[SPaB?1h[s4Ew=2ne; U"H4t>dvU;[xH#6E'Rqt$c)9i5%:RdtcnGucIY51$qR]t%[krgi#&BvY*f7YU