'=========================================================================== ' Subject: TILE-SCROLL DEMO Date: 06-17-97 (14:08) ' Author: Matt Sams Code: QB, QBasic, PDS ' Origin: hack@dcr.net Packet: GRAPHICS.ABC '=========================================================================== 'Scrolling Demo 'Hit 'M' during use for map feature/compile for best performance. 'Send comments/suggestions to: hack@dcr.net '様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様様 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SCROLL.ZIP",4^6:Z&=2667:?STRING$(50,177); U"%up()%9%'%R-%$O&_GD1'B5f%.%%j&%%%.%.%%&f%yjwSIxu'd,_*2%%F1(h,hC U"2#:U,of9MQA-=ma4ts?DP2?i>Cbk2R;T-3>D4#+gQGd2EI'0MKo3,Fgw\2KTC,* U";VW4%up()%9%'%.-%<+n_Gqg5Vb]%.%%j&%%%.%%%%lw%fxxSIxu'4b_:2<%U1( U"x*F_>_)po4\aMqQs*gq*OIp6,oGM=.B.YNNCupPj5W6^lWP(I*'\GNJ*MdM/0;3 U"Z\X3%.;MVfV,L/oe-.[%kE%(J4L30]V=ft*WU27EUMjL#[-m,X&1LON=e3nM2:V U"3=6wf-Fpm?+435BVgq5RL6y0qP'fMwrsy?/chmTk%0up(%)9%'%%-%Q^)$GHGOp U"zC#%%%j%&%%.%%%%r%tzsy#Sxu';,_46&Oe-i*HS/Q<:WcM9?V/T;:#?&2enP,g U"a=0HTp^'DY=pSf^5$U,Pns89YT:tO%hJSwe-:C._?;l=1+oggn40) U"FBeC6t.H-7o+M%wDWeFU3jF9Xq_>LeBLLS-NV%oUb>2fFD%up()%9%'%%-%i,n$ U"G^<3AW$%.%%j&%%%.%%%%yw%jjxS.xu'zb_*2<%U1):#;Oy6/SyisPTi\%e/>so U")-hJeW%NBolRIFIeb+NX9PL6D^lIKe+?P<1MlUyg3R8w*8-/4oM/Tlu%h5Bh<>3 U"bATt.lAr00UdJM#ep&wE])b6J6_Q)S+NdG%A'UeReQ93;))G6,p(EF2C6c_0H1U U"X>dOVDGl]#Uq\l?GFP^Ohf&N%up()%9%'%.-%w-/$GUm6/xE%.%%j&%%%-%%%%h U"f&%jSxLu',^0J2OeR-hjV7.A:TPu40[?Xg^Q^K)M;q8A;6q)wp.FB+TvB%WyDVg U"(5#HIsJ/2ExNO4?a-g;F\06sKi3Je&0vfH%Uec4x-16*/hbH6daW+/lRivK.4]> U"^G3F;i0YWv11QvJC&Ckc3w]At=Vx$,%up()%9%'%#-%NMeaGLu)7Ig%.%%j&%%% U"/%%%%ij%xjwy#Sxu';\]42%%E-iH*2.kf:fkJP'4k2;g's([a?gY?Ifqw6AMNKePoYcNCg(XQrv&Rt%\8up%()9%%'%-%:A%Z*% U"%&+2%%%/%%%%xhwt%qqSgRfxf%Ct7A4s9x6RPhF=E=\Vc+\ayY?KSYfqqmQf:E? U"gk;eeZb-Fbaf7(a'5)A$CQT%g4Gb_H(46&'/g. U"pCY#YZsWpLN,h\4m4^4)rlLh6uXh6hNHJ>5(;/N_2Y%:Sfo) U"Bqa/9_7T#+/7_j=7M(T>&d'\,Hzi)Y:qm'[nKsaDh\slU9LYM$%(C>wQ^;^n058 U"jNt4g&JuURMcO2&x.]amu)w'1]E1;I'mIIR#P(()xOTG:0 U"NSb4L'O;;PcndAvV1(hFb5no.:c9:^t.l5.5S>zM;.dNUW5p2Fj90p6:c::OmYC U"is+/:Rg6%I_:]?/f)Q<3Xx+luQ*6;PZP?%'B3XKw_g18m&bM8xln[ZLVF;2^Apm U"z.cAUMvMBE?z#,;^[rPpPp2mVyTqsu0_Nci%a(FVzz&G*.TjvPxB[Stl:x89Tb9 U"6u'(4&\%0=;i0_9D_oX1gclxFx7DP]IW[G;vMuH:C[hbbC0Yt?&;1]wu;efYvVe U"z1qQ_g'ifdv:8J0R6Obi4aX=v7'P$Id[t.0A$#6s]cV6]Rk,KvgbsyG4-KvM(WWEz0rk_fL U",Az\Rqec*DOpJYF#.g+gTCXf#FlR\=)X9Zc?D22BG_z8k]l8KVUl[m+Qsl6Qv1\ U"S?d1GI*2RcBE\j6cSG]=(6:pm5P(k8P>cX**=GgPL8;14s49DhUOACLYY*#'T5r U"'B7s]'6]rqS='q6ja,Q**PnR5(\aXK2#?;_$/0Uba[d\J70[4L U"dNuR/^-NT$s$gNS-N7_FwyT0qD U"h3l&Y?ZrfAM>>Kwo(^de[VTh,Cg;C/jmSI>75].ll_yhhg6bnDC$rTT\Gd3B$ U"adqpUs+3KsstPVi*nmKl^,yDYF:&VK1qFklbk(NZ^ U"4YQ=5PXB90:[+H4\qfFtHgnH3BLD2F0V,oWz2JY9bUGJPZ8'*bN&u%p&'9%%9%' U"[%-%$)O_GD+1B5f#%%%j%&%%.%%%%%%%%%&%%E%%%%%%%(%&fy%jwSx(u'up%&' U"9%%9%'%.-%<+n_Gqg5Vb]%.%%j&%%%.%%%%%%%%%&%%E%%%&7%%%%lwfx%xSxu& U"'up&%'9%9%%'%-#%Q)$jGHOp(zC%%(%j&%%%.%%%%%%%%%&%E%%%%B%&%%r%tzs U"y#Sxu'%up&'%9%9%%'%-%.i,$GZ^Z*%(%+2%%%/%%% U"%%%%%%%%E#%%%E%(%%x%hwtq%qSgf%xup*%+%%%%%,%,(%Q&%+%L-%%%%% END SUB CLOSE:IF S=163AND 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