'=========================================================================== ' Subject: ANIMATED MOUSE CURSOR Date: 03-30-96 (00:00) ' Author: Dave Shea Code: QB, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: MOUSE.ABC '=========================================================================== 'Well, I sat down and wrote me a program that'll give you an animated 'mouse cursor. DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MOUSANIM.ZIP",4^6:Z&=1787:?STRING$(50,177); U"%up()%9%%%I-%[L8PE*T=Ea0(7%%)2%%%1%%%%rt%zxjf%srSgRfx&%;<>Sms5w U"7KEwVvCUN?$scWn#*&io)qARi%P>r4([c1:O*Cx;]Au8wo>:I:Pu&_GIYZle\6o U"?$,,,=uV=2DV^brHT?H0i_[#s=n5wb/]h$fc3rg\?+SE93xH#%&VU?sdsib6Wai U"?[5<%3a4Lp1kT:7KZ])NA80t*Y02_mWbfc=V42#lC\+a)BeDLH7)/$+4f9aARUY U"C6t_#jO/kpQu-WXm*cUZ**l8F$tv'O;cRBd-qXpHK,[OP*S>rP75>960_d:Sj=9 U"2S>m47r0w'aBw)cq7//'>i-&%NMcHbCpTry/;w0xJdrz;))0#OWTw+\a/TyRM5d U"<%rQeC/hy;z;T/z/,b4T:/c3iO'4=m0WUC[u5S U"ofQ1nZ_qp'W-KX.CtOqlR+91G.7WAP6MzQh[,r:Vr\5N;K[]dixl+$SqLHwYDJ. U"6uM4abLX9-C0v>DTcG>>.7TsG>9nTG:pkbGI3lL>db\CHa8S&=putb7P&f,[sHO U"J8CJ5U\m6uPfmbqbK(&R*^xS/2?j;K)?U%w+IkM\VCbCj;VZ/A-a*cEkEX\3=n. U"rd/#4tb2VGb?A7pZ6bm#?[lm2:rA-GqneI\iVFn'?\xKIC4%5u_j36%*\WnSkn\ U"S8jcZ5)T\K60TSWKk.l7cbE+_-2Kg6$\udeAxAI=pjnwt;l]Q+GaOrM.+[ U"EnSbSU0::_;nK+c;IPl-ZG%X6\F&&P5NibvBmt=tD^'rF$#4^o+1ckSt:M$LlJI U"ay+]s/i-7YX8%)$23H8ga7,dxk\?T2ZD1C/Hq5'ITnP?Sm1[Fb%r:N.xq<+AP[3 U"n:#.S2Uq_XI[B#lBs[cwg1=YLRd7=nuLXvsZThsP>ZNjSRCdLYEY*F_2GmX7N]3tDfp<%bheyMkSTdl,.36uH&P9pH U"TpMK-(u(/X#;ik#8J;Tn?H6HNiXb;Vr9-RDvhm^iPNX:*>Vi,N.dcCp3,+.tc(k U"x)ve+wXgA8Fo2u+FVJEZQfc<[9DI?cPo\u8H*86cjgqswIsjD$YCku>r4sMEvzA U"fh*v0lU()l7[/?JJ];%Lm7jNWPE:ta6[JkkKvS:EQ4qCFk^?3pA4v>r9utt#,]v U"BsR6Y**tW[w[t75TVIXit\9sBP1p^^X8ff0%,KHF[rlap.G?Zh8w=stFkbxCSJ# U"5l0z9GtvgdyDrXKoaLNL\nHNu?^.i=C$b4HH1cXVMca(Aog/q8.fvK: U"_FoSQ[i_ulEsPtT/=B.vZ^BLi%%(%E+%%%%% END SUB CLOSE:IF S=168AND 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