'=========================================================================== ' Subject: SCROLLING TEXT/SPRITES V1.1 Date: 06-29-98 (18:08) ' Author: David W. Hayward Code: QB, QBasic, PDS ' Origin: dhaywa01@mail.orion.org Packet: GRAPHICS.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SCROLL11.ZIP",4^6:Z&=7545:?STRING$(50,177); U"%up()%9%%%#-%#[nkIc'l%%%1%%%%xh%wtqq%VVSgRfx6*;aw U"gONxU:JP6O%\B%:JJ??\DIlJQA%P\X18LWhzz%ofGI#FK.TI%Rz9]xzcfXpNgVl U"v)*.Tt(gM*Fp&ueqIY?TEU#xe'7Pg/v#7a0V%hbt'4wruh[dH*T*^w\NWDVOfER U"OmjHaJdl.-FOpTZs*Kzd$D(8Tc[_H4EbVpZ1FE,NXeLLxTAO7fp%B7;eUmPAv,t U"uV'?M6(vkw?2?4HnFyjMnmB1V_7+.(CUY)aq/d%LymJ[P[pj==sBm\OAP4[_5vc U"GR]U3G^.r'ixI17Hw1.z(\5'K7VD>I:yese8Q%q5YgUT;EZ_ly02/177XnN<19[ U"HG\(i0u#'EVTU&nE1[[?p^tdpsn4Vm6tk[5h[VCM4KLMvww%u/R/'B1GS&ptF6C U"/\jImS/*3M2t)zf$Vk[-%>(kAQLQk-=Ut+jw9cBdVts3N:cKp_3i&D:98UU\.M]SQ1?[bJ=N?cupLF/1e*EWbuA+V#tR+ U"Vnh2SpAd+Ipm'*a'?A,TlJM#s?*q/2)r5gjn)D%h;VV)uM_.u.[JqN]da-q6lgb U"h4zBNu7DiM%K0$U(E$3g+$UxW$g%qK U"Y7BA:VsKrCwBTuR U"Q-%x1oTSNb^h\?K?tX_F]D9Gj)Z;gRw:sX6Ue&l#&au4ekCBBIfwtV+nMw9.v]; U"g&(ZY(^M5gKKZ4Td+<.IfXraMaoiS&?Plwg,$r'LN7EgD\)iQYoluoCk$\SmB=8MBOCqZswj=imwjFn&/M$YXsx#c8W5Bviw+\)]Q:'%+R&(&^ke=) U"'jzA(;2Q3=v8JeS^7ADROt$$2a-L=#'hF^0w]Bi:m&9;m&dP8W(&G#IQo8RXl[] U".7dsZ9rM*d.2'boAgzlr[8kl+[&[uf]fLZi/=VH5V>jM=IS%b4uSSX U"rI7+g.=qf%=7,v*Sz'?qmCrH9.SQ3WTTZKMvD4*92[&16.EPu3Q?Y$l-0NMV3q* U"#]kH,+*)'CK4ezfdOWhq2$%s+3?IKU(xETc3'O76'S%97<7qUjluP)MO7miMZjy U"ETAC.7^dX+\D+(^jS?vTnRWV?CZ(PTWfcqrD&+8eQP%IaT%9sOu8(DXX#s*7'bn U"tX9#/wnh84NZcK[x$U0;Eui:wgKcOqAWY%:bx7+neKIqX$Fe8Q#>a;h/_hh2'su U";Zwu/qbkYIac1wg](MW4MqRR\NtmRRM)=sO^rl5)MJ*95%0=?-Pig;_6.Pshu[L U"-SM;r07JVS]L(dugeJn+Ki[8k*PnN9nwHX8dDcv.mu\fL[DMNU.Y->x),[,#+r9 U"Ye.cCF-q^\NN;xrTb7xcHS1T]bZNP$i[Rh6F51HHGnbuBQF6',Lc+qK4Py;d_Zp U";mfu]b*uyWrBS=/L(O%=59D)4zmKNaU1O]*6,yrrxq\9L.:*Zi+ttJ+'G_tyO8V U"Q]Zt:I^bKWNDhk/RdnHT%E+rka(atqlif3lVH5iPoFJQ3w06<#]';*ChM$?OS(V U"I2K_WhHDmgESd<'bx_mTICzG/hCy\I1)Z(FrFA7WN+9Tjg:/\7CL/eQRe.=Z^yT U"1Bu)s;fW]?>DVL0C'Q])?eIv^S8m?SS8n+0eO%n.Sq_&]ilrFqYc%422tB]MM)_ U"*7c_k)MR/<]Wdb$9gaY;w2JT9vj)ohqG(p\L3qcd'5$o2cag U"l#H#,?X-h3l*d>scbYNAr4R$)d_pjl[ZCNL8:-:^e'ij/Z16lbZ8By)M#8W[6$u U"Guirh%Lu]r63T\,7:oW>NT*Zb86RY\P&,CR,q[AJ'Sc&.$$,:jfNn1D7kK'(l_V U"86#adm;pY,p5b&M%#]8v'Zam#.Ywi%LYIR3:XhpV*09rjWY;xjH::5cd?un%/T U"paY#542zV$FC4q,OYNL;YsXD'&]\B)de&4q%DYeMsgzUKJ$A U"eU1N7#-Dl3IImkcaAD\zgh(Ee&_2OMhDhbYUjff?7(KT$yY-1zvm+Lq$G;sj?jU U"2CMEmF9aU/Jb.Uk(cWrP&.5=g(=NqOP64vFufo./%k,'Q:&B9xtT)(L/>K.qA(U U"tN[F+w?(Np8NYi]L_DjB>4e,U*]:o4GVX_t3uDF(=cXmfR$Kj?)\ck2D)ra-THP U"D%uBtg6oQ.MW*uYlVj71wgr2T^g9X_n=q_C6OH>Zov_;LA4?t16Xj[MTaXqF^Ca U"Pc\9IJ[gohjn7UHMeL_1_#9q8,G5aWdRi[xZd*J3dVZ)bzO8P6eJ^1tsR9b:aq. U"h%%6L,V*^:5DmJkca?%7Mpz)J=g[M3FHBZSc.D%i\/XEAmRX9EYY33>3BbS+=b5 U"D'Nsgp);M$b=:qhk[mPVWWD'Jr)jlQ4m402lUNzwj+W,pC_femf:< U".;Q'3X.oXe$sQToV6Nc&UT*5rOA*Pz%dq=>fo);/65AIIEsagYoDe]7Mc5D2)Or U"[PYWs(ksSf'9,=>y)(4F=efMeOJqVNj%<#IOImI#3-3g9VEcorKk3aL5))XE2Ku U"R,j*VV%J+SXFjoa.p--N$EE3Wh6feOntx1Qh\x^E\)$3vg>:.SS&]t:ap4vx_Y% U"vf+r008'&=Bz3ro.ON<056ws*nro[a#(R^JTC>KEt:RVnaaMA89(ys_SnV-BTDi U"q?IR.LzdXdayneB,i+.\%1IWqMa0?S$VX4 U"O7K(+TdlkjS.#2OxAcCZ5r\QcK'%$\lQt0O]([CC6+emKIl\+*G; U"g^QDU7qwU^TnwMf48g[tpi:MBL]4&?re5(cfWS'cY>_fdXZN764$4nQ%;g:/Oqe U"R]o),>v6MHhYw-j5wZTNp,]O0%DLYE[IJp>sjx4&KC+,HvVEImSd45s<.X74B=3b%]cV U"/y#AL7^YbfAA4anFTMX_0in,/q1F4e'd/jkQ8aBQGG+pSqUXhtE&S&5oPWh]Kb?2Oc*+?R_#%pWQ?ncf^jBXLSXpt\hHM0l.Z.lcV>Uc U"6&NQG[,(h\uIU*WA]\#uw&\pkA%isSTPtf3>DZ*w,D7(q1;nE4F\,t\QrF[BUX+ U"J8(in_d0:Nuwg-NnC=K3^UHv=K_*#_5vqEiP=g8^Td8cV=oXe=/cAi2ftQ U"_FwJzxMo]+C/,OwH4>Vc/ccAk0_tQ_KNJFtQX_kJ,Mxo]S]MR:MM$$ItJ%1][-m U"'yumlks7%yulkDI.Ow7HHvu(OwHH\LM:MV$$wz%yulkBko*DD3skxho][MRQ:M$ U"\$3pV[t]WKLvxo]>[m+y#ulkI.zOwH.HBf/ccAm(Ip*D3MsIxo;][-x(OwHHALz U"OwRHHfd=/cAmnNMn-i:$$w',yul%k_N:NM$$9)tQ_W+w.yumlks+%yulk*sqyu. U"lkIx(OwHH]6M:M)$$3oL*D3s#DpbZhC3sxRS:M$2$M&O\wHHfnf/cA(mdwfmB>b U"d.wf&>UnNYZO4iW^nYCjNs:(2m.m*n+>DX6rdD)LcV*pT*?R4a>1aDpH#pgT+eS U"59fe(yy;07vyDFE&bZNCNE3Hs_cR5)qgcDY)1*9$A_Tbnc.E65U(*uvASDfo_Ec U"inyoPru#/ct685)?pjvB.XI.QViiopY1oFzor8o>bC[$)5ZblbZ##kVhD[yE8[\ U"+\G5H<^$]dgtoaUTVP*cGsaGJso6kG6t5G6<)kJl^rp-_UhJdBhs U"]$Wd:ajJ6hKZ/&+FH#T]HBTH7DTHF+THHTN\a-O#DX2-Pmh-mil-mpP\58;Q]G2 U"m$$\aH1#Hm\0ka>QRtKGQYIH-CX,JDTlG/-W'6fB?a/8vtAX0giMfLv/9e,d U"M7NJHKL_R,k0xNLoVOo2lfV4tV'Hn<:B5jCr0U32:z5f3ufx$3SzDWFH'jjTe%< U"M\9&dId4_KHwbFr2+UwiQgGM$F4n.]65Zb/&U8[2x,%up()%9%%%R-%Zk&eI%V4 U"+?T'%%%o.%%%-%%%%kt%sySkIsy\%-2'BFa1fH^LDm=lN[P0e0XfcykeqM>+#DU U"X'BP=[mT,tQEpM7U$eYpRPt[AjQv-ExRgg9'2LyKg(Dhn04hC$Iq_T,t0uFJSnn U"IdIrb/r;ot]f^gqs^=-Ge--)Y6]^9IC=QDl$nVqC]IEJaOH#9ni)P[L(=(%1[(B U"[4p7GF7BCZ+aZhyoHD*LlV&U=JWQkGiUp U"]e-?oEb5Yfh&6cXb,-I=<-R:?r_ORIH6-/4ON?c2?RgaYc'*if[iX0N2U7V*kV- U"rC_KV:(Mab_BSfu4BoKd U"h*XEOZqu:l:l8:O6;*+^LMhoZEqM+0TMZTVA_*p\5'xPxRUB/kQ*vKoQB0yMl2O U"jsS;1_rq<>rMyShOb#T#6x=Xex<'&?oNFe(v\L3Q\bMAew6$%JHwd'-M5Qa%CqRZ?YI\'H]:E&CHfc7K%jOdQE U".FPS8V(_GR[W4A]sP]5-&*-;W;ZVG'#O^K\%WRyNfV=SBX#.-+[.2c=i^a;n(6e U"G6fb$NL#[8f(^xN[g?Op13$18bL.b#rGp_#o]#MN9G,5uhrJWGeUTe?qliq0z-2 U"UTSaA(82/TF5^M:Dt)s$vZ3&$:p./8Gir-(A02:0Vh2KnVqj=Q)0Ok>kb>(In99_pOr5*4u](Gu3/g_M3oYTVsC U"/]g4*?q1iu.-yXtsgE1b[_;/%RF9if-=46sJX*lYNi)_++J'Gj4Q6q_6^-x4^Nf U"DELrcr4U=HiqpCg4nm5AW?Fo3q7N.C1tH-kf46k7aglDU5CCkN-e^ROuA(It>hg U"8Qh.(S&k)pyHou7)[KFu0I%hcbBEQH?&:b3l6vxFi4PsRn_RwGBARV9BpU^-8Rp U"G[iDH[0lZB,3D=RPI+n#t6MR=*Rb'Q=I^gtqnG_Iw5.6/ts#8m49[FEM]8-i/QA&= U"<$OrTfgCv/kpAta U"*.8X1foH7^UgE;kthhAezsJ)J>:i.eR3rlNHZk%B&fS1',LQQ(NNG8q)rI:<[nN U"1+Cd)qbg+mq92C&0sin&;XYfCHe(_Xj\W%8C78hE$[a4IGzqF.v*s U"xQMWv?&U+?)(-PFa29*pm%S+(vBtJavsw+-FqObR+B]wXkXs32r[Ngr0jCIum2u U"c-+^nZNnXRKO*]Llb08OYZu.qK,)VYuBQ+q&M^jxxSKN_cPphOYY]1wzyG/iKH+ U">pY\'7i1/9qpxMJ&BV>Y#RW*:Ml[_ieDHYY7+[QlT?Hgmk>E4B>%nA4qUwI$AD_ U"%ZArYw5u=>/.UCrrPU',##A\Jkw7E<(p'bIo67+SKUa,l6pX6mmt&y*Qi3/53yR U"Dr.B0'KsyU=pVj(]q);,n:P]6:>Q;$,^qb*r^2bNU,-+mL5upXjCEENpCFFZKfk U"f[ddtT;XC1X^#;UDuNFd,K40g\q#nWXowa87\Rh_m'ZLM*n?Z87/OH3_C^mAL'n U"JHAH\T=M*q#uOGMh*YUiknBN/ePxTHKxO^H==A;fXCDKh6i'gSW_c(_kuuB6mry U"1L(qU04J#zLY(WKqVHRW/b4nCtEDhsi^w.7ihfNbnfTt^i-.]tu^0vkVjMry;.M U"JTXLvkfYMrHMQr#MHfMT^tZ^p-sqRB5lmmOk5Yj]IIe)uxRto*iq+cVxp^n(hOr U"x.'(uiIlro$%$lQTP&6'l\_jL%z\+3.dY>:^^Yv.UFJ'eapbI.ecyM/8qsl:D%9*o7I(8\')Hb<5/ U"NpGLJ_0#xk^H.fMnAUNg4MI[[94xf/4*Od;^gov(''?bD70eOqV5;L$lI$%*6WF9Cpfp#2#t-st1J U"?-r[Nm2')I8as'*odxfO[FdAX&Z1NOwXAaC$exzd'v.5'q?;ZhkZ\CTZwM*rZA1 U".EDO0h9Io71&#UlT)BCRL8320*'K5B*N[:*eEK4o7]kpC,T9Gbg&w27yUC3b]Aa7rFTqjlAne4qAsTNbd1zSDk% U"A]wJ(b5IlbjXaL>O&[fndsB?pgllD2HqR;hZu*$v<_Kb.]p*TqB$eJ_P0M_42Ww U".:3Tk-Xrn9cE#FdRuQi,LUnhf1)M$\EG^_>cuhtqmM;Evgl9.n>\3&uP**=^x/e U"qCZ1k1Ro$W;>yN9$W9N50U2mfJxGW\YKsm84o1RL'x+up%()9%%%%-%3L87IBY= U"6S&x&%%'#7%%%-%%%%xmnu%SxuwEferYBUU5TIpb/*J'(5hNH]K[H3'\q7$h0KD\^L(lm(z)D^T+BWepbUVr<[mL_CV U"AO#K$WNl;^DJ4osixQs0D U"lNSA>EkpMk\P6U9a49'wKU-22huUt7sWV1OmNbCQ0mo5cj[iK%;ZMILus#7)t.S U"-S;+HcP2]w1&JfC4KnIJ,^P96B_D7&5Dd*v.1AmUO36a_owLaL_5;%+q?9aNAr4 U"W4FbsPn)%kLI$MHH-f5)tmnbaMrfY>t=Ffp0DJH]NIixoQSSp7bti[xz9YlgIb)v U",Jwq&0xKtOl(cSqDmHT^Dt96vKu:r$yv8aGS(nd#G$TS&GndpR&dJ%Dup&%'9%9 U"%%%%-I%#[ksIc'C,og3%%%>l%%%1%%%%%%%%%&%E%%%%%%%%%x%hwtq%qVVS%gf U"xu%p&'9%%9%%[%-%Z)keI%RV+?T%'%%o%.%%-%%%%%%%%%&%%E%%%%=4%%%kts% U"ySks%yup&%'9%9%%%%-O%5Pj#I.:%+XD-%+%K<%%%/%%%%%%%%%&%E[%%%<%6%% U"w%jfir#jSy'%yup&%'9%9%%%%-O%L87+IY=6)Sx&%+%#7%%%-%%%%%%%%%%%E[% U"%%/%?%%x%mnuS%xuwu%p*+%%%%%)[%)%W#%%%T%A%%%%% END SUB CLOSE:IF S=8AND 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