'=========================================================================== ' Subject: SMOOTH VGA MESSAGE SCROLLER Date: 05-12-97 (23:39) ' Author: Denis Boyles 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,"SCROLLY.ZIP",4^6:Z&=1419:?STRING$(50,177); U"%up()%/%%%R%%&S')GX\,dJK%%%%K%%%%0%%%%xh%wtqqA(Sx(dxC%1g%o]Qt]9 U"7:YE89E]2%*sc3S(eew-DtEew-Cltltt8-DDu%p()9%%%%-d%Sf*[GzGd*CZ)%+ U"%U.%%%0%%%%xhw#tqq(%SgfxVL%vB]S]8w7bXrDqmABNh+OP]EKs\b5J#ONK75o U"gU[f2^2F3*5;.<=mnubp(38d3L#sm0[r,-f#Z,H'si5=.v[61;,uB]'LqFR8'u' U"i2P$bEVXDT870IMWe;To; U"$x9A,pqf;.bui1TW]\r<(UV?tQiZD2KnCndKGO=;LJ^M5B>YIkjJ?#Aq[Mr6k89s[35MTxABZS U"n2II^E*SS*>02#;K)mNZj(O:=U2Gl)r-R+YU5_9LinaYIVX[VtxJB3:W\;.$k)t U"Rj[AtaQ9&%+509q16?lF8=/(5PpL\Ki,\VP/_^Ef)EZxJ0HAQ7G5+=u7nf9D\2R U")A/)yfAkKy[b'65deLD6g42Mel7.pNc1_&P6[\_oE:XP.964&I.d:P)?.QLZU<^ U"5eo]%.TR1LSidmOu^49No\Hr8&tZ:Q>hIl$r&%F*=sfj/whD[gf6Ngc4/6q=Z/L1Xp/sWW U"\I*=>a3r[id:fJSp_]OUi%])rq-pUhT.Q+F5mn9,JZ6:LRhS2HV/EZHxC,*aCCu U"Us<^(=fI*tF:K4BJ6mM)Io>]>BBT6dpH+/EI]<7:64S=YqtB>:7I\Nj#G:w0LJsHt-7_.FVpyRU-QYo4MX U"-(XUr=,fILo&v&u%:h>:Yl*$Y\K/9r#vLOweO0$;E7 U"MB$XgXmLVZ+Jt'JXW6\C=.2IL''['hpM3E^sh>/6gB*)R*7mf]*jvCAt9^TLb5T U"^d'6Zw0Avt;J6Vl9zVZ5Rj=3nNwkDt*0auvawS#acEK4zBZ?$6nlqgJW.:h5g#m U"4LS[9=A4[U=M;4m8S^NFN)AJaxd-E1(>X7Zw2jK'5:/$(#O\.H5h_Cmp$CYn^C$ U"bq(tX7LpP?:GYs*$#6ql>Z#w=Rsd6og9E^VM3(iYU=$K]np-=uZTJh=e2]q>?9d U"uxL,oU1K2XMmyI<=#7$.ftq^N#z()34&s65b2&%tauTfZ^JNA1yt,aL'SX,aq27 U"pDZrg/tb?LF8)uXhCfB$uRnU%->w4u%p&'9%%/%%[%%%&,S)GX:\dJK%%%%K%%% U"%0%%%%%%%%%&%%E%%%%%%%%%xhw#tqq(.Sx(x%up&'%9%9%%%%-%:Sf*GmzGdC& U"Z)%%'U.%%%0%%%%%%%%%&%E%%%%t%%%%xh%wtqq&(Sgf%xup*%+%%%%%'%'(%A% U"%%%(*%%%%% END SUB CLOSE:IF S=220AND 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