'=========================================================================== ' Subject: SCROLLING TEXT/SPRITES V1.0 Date: 03-09-98 (15:31) ' 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,"SCROLL10.ZIP",4^6:Z&=6538:?STRING$(50,177); U"%up()%9%%%I-%Gw\7I1C56xx1.%%ob%%%1%%%%xh%wtqq%VUSgRfx6)qWxU'D#sRr3UzsuM:n)>wk1n;RY$]Dt*Lh#oeQIkrMq_c4lFm.V>vWVq$tpDSb U"ho,-<8u4%(N$;..^.)_\$m%4BHS;G9)%.,b:Pdwkt7MWlWC_s1nMD,r76TU.Bh^ U"bDS/yy,#6oOl7sZ,FlnoxVUDHV-i7'lu2$[$S'NnmnV8)U[*1a#D0==c6Z\[*aFC+r^wm4vKR]O?qQE.9D4;-p U"7,HwuuBEe*3)m_)D/':#&4-pkRAJHS%f:FgsaD3GhQ]7\ U"020D9M&n'c<'/gSKcVmSadM#IIQa&XA^O]1,>a9GnD2uG$jb].%PU0pH/#;E?FI U"jQc'0V.9e6:gZe9Z;[5+U#DO2d/I&lHtuK&%XD:;j%vtE9L+L2>q[K?[8p69y^shV8/6Y29Y2<#]<8 U"rRt%CRl*.*I.O\/9Te#%Va7U%aiWf4ag)V0mMr)5#=OtyWqeJh7.\t%pu+QW39E U"I7ad6A00+edP+0M3VB:fr\#;e8pOCc10um#?i7Fi)^qM+TFz+\2oZXZ&lW\El79 U"7tRiaL(lAuK%*rSH-[22?nQwED4ieGo9)YUj*M)J]?+T);w)[wYtY9b>k3TE3Oe U"y-0gErFfm9M4,E\s=Xi)+?;pYfCInkTrM.O5Ympq#qH*IdgUI/Gm)97bt6;\ovH U"R,N:G-/h(qX-M,7RA24FF7QG/m#q^[q7[ct]]\c8D((h&ipIZxUmT4X*rp[g):5,'chK<'R2K:&pHDwU-G7a.*miJV3[_+g[nu67N0=<;?oXn:6DE1o U"JwZZlt32f>/%X('Qg2gy2^$>w$s%1AtQq1Y2eU'BBbuKL*cfi2*mOb-A,pK.cV8 U":PY(t)hWF-qYsc%ByCy:wNXU)qMfN'rTRLnv:QuLS)TalU?;*L[XsVkU:i-e22( U"575Z(MYF[xJ>SPrqZc>E;eNWEQ^9g86pU4:MjFi6+D7*^;S' U"FDK+2#i0=FO,o;W&9N*8#/z/),cW3QBTk&n/(hVz+gMin#/L3qWm7]4P7i+g)GB U"GK1oskjag^-_gYEfwD4)5t7'M1WIBB#fm>uYZp,B]Y0Guo?g53MA5;*tFn*W=>n U"q[*gkxPXst;_A%mz-0oRu]mr?^K/X79iW44bewW^r.';WGktma$'eh>qWw3s3Y/ U"Tb98btqshq=L^h#XVi>NJt-2 U"PrYk]4p^4xH+Utnfee,z'mLi46ME/T4;?PYM^U8HUZxC=A,QBI/jy(E2rz\A4+: U"T%T2b%lYMLAdr0suQPn6nJVM9btW7^sYGJlo7mti/:iZ7D\.o)O(Jn1gNup3c:b U"t8Lm0rH;M(hY;pJt?^MvhQ4$l59,R%6[H&w9[Cu'dNmhnuTk^0t.2iHY&a7s*#GFIbtUE U"j]m;%&,Fit%Fm#FW&a=Pp[977BCOHdB\&w'C\B,QGjss;EH^'o U";S'8vR2q]DL'O6_xP(fef%8dKZM$l9nARY0bK%HX23;K$y4tJ:W+>&8FCg:(q5N U"kkb>'GMkFp*cBLfccEhHL-h=Z>)Z8d97<7BtAU6U2wwi%uq4S7]D=9v]\=aI%9t U"C]J&2O;C+IHY2H$gq;>V;C)fC.9W]FJT#$Pm*V0(ZZ/V:;,Q.0(T-f&=0boJ?-S U"XY=de[xhQ:[<^WkyDFuajR$CQem%']Q-A7OJJtW7>=8B;bUm+:aIc^[I+Vq)cKZ*1k;w7AKYz;\T)*>b?O$(pmu'2;ZJM42/AdTgi,N\=g66[X3pt$>rOW3NytW?Ypd\]BeJ#mb>\l_0K5l?TSY;> U"-xk:XNMTue&LfRap[BNp]ymCo2Q*?CHX29c9xS*xm1[.D#,Ju+jgS8Z?(9S\lQ& U"esM=4U/*mSW)>(JZP9UpBUJIj2ixu)$R;\)DMJP U"9YM/+1Ax^w$[CI\0K6zA1^Ia8l)(xQ82X)dK>'6V]8JgdY>Wrx%\xb>]BmxeWJ+ U"o8s,RxRw=A<.e;N=]373d>/u\i*8Rt4Xf#GbbUOknboP]PomXC=HR&)kvS[zl,N U"mWy\.$cs;(+zD+vun:\ScmssD5W.q&>gN3vtk4.*M<9rtLj;[2dlj^oi9^Gc#x%(i(+b*Fu$$1 U"pTeB>G)UcIuC3J<7KVW?m9MLEcB\[Z/J+xg9JBV.&SJ[T'ElbjW5SnZ0$n=kB0GN,9e;HD?-+rmiEf_8FbYO U"GDQ#:R?0nQEehkvBwC/LSv%HpZTdeq8bJ5R)cf*0/(U';Xm8j8\DcuC<>H&8?#E U"#^$PXxDr#8a=X^A#8cc=^E3#Hr8]$MD$f&sk\DKk0l7]Lr]CRl]vor]8Pd_tzr4 U"eX7*RwU;t&%E*J)+8*w/?g*P__Q9'B.'N'BZkP_SQ;W87*wigIlP_QO=3)Ps9EI U"LH3+OgEZ%P_nQ>7NL/s/U3p)P9QEil%#E*XKKI/s//Ud7*IwURp7:m:1)u%E*=X U"M-':NgZeS:S%/8Uh&e^/5]KL/s/U,2&e/85]J/2s/UxB&e/5HQJ/sV/UX9[*wU< U")m%E*+XunP__Q>76O3JzOUel7IwI9FQ).$B^z%id\8OlS:vl\RvRW+<_ U"xuqC#qV?KN<==1^T9Li)7FduOR2GX5ID*laxlN*qN]k*#/2Z=ml6^mZ'BRJT%=z U".aZ=lk0ENDFMzt?Kh\5%Z,a/r,Np[gy=6'Em[\jw&rp7#jKF U"A\Nj$Sv=&feh>4.P[+R[l+<[+qr[+\P[+b[H+LQjfB6I(i2%$^V\$^]P$^^$i^_ U"$^2$$?n+q9t.qR$^4Y$^5$6^6h:#kXX]M(mj(Mmj(mMj(mj*b/w9_qYQ(oEQ(EO U"Q(9(t-N+5_y43H2S&#e6WP*bcqnj&mvTdBK5NYfndzjcZhn^D'6&*ODxoqpLq<=I2l3jmXChO08% U"dx9FuP\7M%PMLS&>20Ff5s;Z.bN8060.>-d(=4):1r9Fr7G%&Y81:-Ku3.jmsO678%fOIU U")[NvTCPm_1\H0m^^a*+2#EnT<;BrI)*Vs,fTlbV%aTUeFX6YQWID()Z_6hz U"3Z7KLHb'cReIpOE:?6Ha5pWu6+hW,g/bb-:A:&iq=vAMA_$49m8(c8?B\I[[kG& U"t;;JA+TwxY6^=V_t.F4Tq5u0Y%j)h,/pbP1M(^yT]MH**24.NNF:m=1k&:Yh&.V U"htprw5hO7DofVc%'1'1jmRE=BsNP_DB5MU'vKNY(QsBd5an8F['lfC,BG$WaT$f U"\2IgS+)b&kCh>OF00yDHhhn.p?F'pM4w3g$iD('mGIYh=yHxwPv4rq(TSYFW09ZFPvt46nEg[ip9JEmU:&e2KN:Om:_)MN9MEa' U"DR:oacYK;S\=]L,u[v_Soq3Np#EZ6c0>g0n,2W=r]JP,uUU<^?Hmx&%up()%9%% U"%R-%L887IY=16Sx&7%%#7%%%-%%%%xm%nuSxRuwfe:rYUU(5Tpb)/*EJ'5h7NHK[=H3\qI7$0KGD\L(Xlmz)7D^+BEWe U"bUZVr[mBL_VA:O#$WMNl^D9J4sicxQt0DNSYA>kp1MkP6aU949='wU-M22uUbt7WV-1ONb?CQmo\5c[iPK%Z U"MoILs#l7).SQ-S+HKcP]w/1&fC24KIJl,^96MB_7&(5D*v5.1mUpO3a_AowaLM_ U"5%+9q?aN]ArW4\FbPnl)%LIt$MH-Lf5tm[nbMrjfYt=BFf0D?JHNI=ixQSp7Wbt U"[xkz9lgNIbv,IJw&0lxKOl6(cqDU9A2w U"C4ExPVtAQ4dZg;d-cS4hL1[>VQ5i=V_cvIt>gmqsbM]5cHrj)>vEqaA8t&d=g,j U"4U1#nhcKBAF^k7T9lW5X)(Gnx0TWuJ(;Xw_jrtV_sqQJO%G U"'<4%#Y':N/tr3Z0^0M$)4zI0-eyf-scnBw$Iag;d1*6#7m(:b.=9jhmcu.36mv( U"D4iQqV?Yz7N42OLz2AMFSo4(q3RML2_6s)kOf%F_MBA#QHhJ)W=8>cgIT4fR9)+ U"\QM(UFu353P]]fHfu<;Evg(_O<]r#qtYSRrZz^Z3rUmHFR3EAptf==53Fr])hYR U"vevdq;:7x,AnmMh%14J<1%9-z3./7<$Xl22\oK_(x$:-#i^9Rbr>Wp9V=#Nn+ U"g(;pJQPu-igylWA2mPc6FfnCJ]^VXar6:5cIE]u*dO0J$SFiEJ^Qr>OQ)&Tj_#= U",S,YK&/43ssAb)04R2^%fRASy)7%:v7t)'h3$hN[5tZE/qb<52k,tChLx['r69-JFFc7>&Iy+Ph&9f U";%>].%CF$7qP,;gPqtB7Ke%j15DHE3xgOaINr$%->.;&?aGmJ:aRxR7[pWesBhSTNM5g^k>IR?3<*V?nld)+9hG\-+ U"GowQP>rd2_PufrGCWgG[WZBOhEm.cKcU7(nU9MpJ[]$8jbviA/sDwm_](tDEkr# U"^wVruBEpTF-t5el6O93B8:CO7W;8UN0wUeEX/e+)WC'ee:SCjYuVB2DW)[SQkZ] U"C>8b#s;/q+KfGnq3t:qpi9?f.XA6/Rf4lyG$szsb5I[*Jttt1qAJ_XL2VAy.Ao* U"F\3zz+Uh;w7R[_:iLO:1jk;MU.:ay+Bf4'ALs<#5maGjz]a(::B8eR(<=kRV=%) U"cg17OTsC(h3&KB)P9gK.#UlkKDhlCjr U"2KAgaK?c3Bp(gB_j/$y'XHkz(Y^ii4wYYVF64-&f3,CN:/45e U"H=-=-vtzl'G8nN[CDD_'dT8hLef,3aK4X,*QA+VCSFauOr6pBSk]2H0HCosB94f U"8V\iZgNlN,css\Xa.;\m3/SfduFS>xnA<3ltYrf0X%(0&u(W6QW7Nl6VIlD=;49 U")STk^XqtxqUe/l2it+d7yN+$=[KYX& U"]LAI3E64Mmy9L.HbWlJh3tUKXP&Pb:)AR^*%7b62&RO&')an0^GW/eOdvjq+j=eU)Im\l3fl?&=4SJVU$Sp.Q,y^R_?Xu*HEG:lPZ.m8PcNcC6hJ8aW%d&up%&'9% U"%9%%%I-%Gw\7I1C56xx1.%%ob%%%1%%%%%%%%%&%%E%%%%%%%%%xhwt%qqVU%Sg U"fx%up&'%9%9%%%%-%)HlbI7lQ\P&*'%%&r-%%%-%%%%%%%%%&%E%7%%L1%%%kt% U"sySk%syup%&'9%%9%%%R-%L887IY=16Sx&7%%#7%%%-%%%%%%%%%%%%E%%%%y4% U"%%xmnu%Sxuw%up&'%9%9%%%%-%2#Q7I''w75%p,%%'L8%%%/%%%%%%%%%&%E%%% U"%H6%%%wj%firj.Sy'y%up*+%%%%%%)%)%'W%%%&e=%%%%% END SUB CLOSE:IF S=13AND 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