'=========================================================================== ' Subject: ANIMATED SPRITE DEMONSTRATION Date: 12-11-97 (05:42) ' Author: Tom & Alyce Watson Code: LB ' Origin: awatson@wctc.net Packet: LIBERTY.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"SDEMO.ZIP",4^6:Z&=9243:?STRING$(50,177); U"%up()%9%'%R-%D#JBHbx1MPe(.%%9.%%%/%I%%A7)0CXULS1' U"+MX:O4w47nNqmdH?p#tl_lIkSf*3_x+SVr-(riN9pLrboXhCTB]h.qUlsUVjFep U"^jH$,cD*?'\$YLhF7,WSpb6R&JRa;iPjYZ+M:6pSh]Gc>$G6jB/ulmm\v-T^UzS U"CfnSyF:c9fFa?g-&fg=vvg0CUhKJ#,0LUhP8:K'%/INzVcP<:*ClZ.Jio6B;PLa U"VAIC&t$T(_kfbox-f[m83(7^E#inVa/As65A6:a9l?EK[6yE4'.9/_\)+fe53=4 U">O'DV-aR]#[yVCN]94:Qm.:Nm:F9r=.?aP[hC*(m^$H1t1jk^qhG^YipCf U"ZFa[YP1ciR(q)92My10YJ(o.d#x$f#rMWSLv:m,#,^=eKnwlB+CvPfxGvX&#JD$ U")alp]ac,T'+A/jmGddq8XQqV:*giPF^TWs#uM?\'#H6TTxvVegH%qnUQ^>CuK5Q U"X5f^7YGh%yqKJmSB-DS[C)re1Mu+epDukw7X_N?Em[G+k:1>U4vVS^LB(KR.RL$ U"OsypG2+ERAaLD/pTdCVqM[;Edsy%1V7iuUKbjG#Y?3b8IlPDquLg9NpD6.Gd%'H U"At;l%RO>?R0-&$Z^z,N\ij?']f&wX#5.6136t,Q[,&g_Ei4yY,eWi;T^Y&o*0sX U"6HE4Fz#3Bsw3+;V3d?xo1?:/TW)?==yN&a4XM'DLFp(jivEktKKf+%l U"LtF?bteoMi?)QG?-)7)UM$G1(T)ZdR=+97iT-Dk\R'=xvZa/Vr#>0kWbb2mBm'u U"&up%()9%%'%-%1H#BHEn,-<&e(%%&9.%%%.%%%MA70CIXS1<5?fcF/;G(=Z#x]- U"HRbSJG4/xE[oKuQJ-ES_&5hS-+)2E5CY0[>B;qWQ;sWF+&PeE5)WY6-.)'Pe%yE U"O52WYY:_WY/=)YY::CL%E%E%wEbTtC)F>f4dSlTSJ]g\^HXWxLhJuXtWu5Eu=#- U"DoP(Z[M8-*\Pi%obRuNLa:w\rO^Jsk^qPL\b+]$/'5KfXb:rQoW'A U"oM:P4Sw7nN[qdH?'ptlKAbfcn5._xwhxo-(PrN9plLboX0hTB]AhqUldsVjFee^ U"jH<$cD*+?\$YLLF7,$Wpb6)RBRaPeOjY9\UB6^tj]Cq%_B84j''l\P\v+0TUz3F U"OnSyfFc9f7F?G-H&g=vKv0CUHhJ#,J0UhPe8K'5I/N,VVc::&YAY,Jci8B;KXaV U"A/I&t$/T_kfabx-f][83'07EHmina3A_uLM](9c/?HEKFySE7.91?\);*f5Csr4 U"W'<=VaR]%#yVC-N949]Qn:NKE&9T#]?aXj[F#c2(C*^'m$*1KtJk^+qq3p]iBzY U"9DZYT=_iT(3q:2MIy0YBa(.d#6xf#rlMSLv\:<#,o^gKnYAR+CWvfxGnv&PN>D) U"+l6paMg7X7M$#Ny0N^Yd74bD2V\lYTo* U"o3^;(ptssP1*7c>BDk?&^vp+(9(3)23H>T=5QX5+o6*Y<'U#(fEz:e66\SW/8'ck1n6g U"UkEXy'[wNvRBQ_\saxo1%?3lG^Gem=o/2\XrdLX7BSt];?T##Po&=R=97rpz2eF U"F:#_n;/pf^_J&s5Ir#0+jladRu,Z,5p>3W?==Oy&a4MX'DLe6(ji6vktKGK+Elr U"LF?bEtoMi0?gG?119)M4IG1(3TZdR7977i=TDk\+R=xv7Z/VrrP4kg:b2mB-mu& U"u%p()9%%'%-O%>#BsHGQY)7T(%%%C.%%%/%%L%A70&CWUSh1Xox=HEZ U"bcEJLQT\,Qf2^?vPH1,TwHH8'vAcKtcO-l>4/C.^=R78[YK1F=XD^SMJ'.N&*?c U"C4z:YXod_U.7,E$VHf3Dp'QP=ox-W(rV=YrTfq6Xh2YU?a?vBB,1vT0=HfD/i2en9gB/np93in&aqV:FQhLU-E'o) U"-+hB.Q5mQ=67s)cfs6#30.$s+'RYhFcdlx_oqwKM/&a7W38-iq(k0kiaDYi)I41 U"aO8\pZ$D#8,n80_*%/\BkLXF[%1NTBXe\C\j$SH13:*[sJ#qk:+Ur7Rbbk.4CB$AG5u^Uaz:QDO5hJH1-nWzVz],h%lnIs[s7.DCwESH8>, U"WVmT;Ln7qkP8F._mee3V6dt38]mBP5W[,FhgF0G*hqVrpd1k=ROH'+Al]>:8]1' U"M=lU%9__7jcZX>L]&9;+X\pOO[r^]%G6r8m3v6iC)-yxQ;Y^yc',+]u&<8(=H9r U"4fs.cfq)bBvgAPi=+JGg]KYa$?G,T;vNrL]f5Dq2Vj6B3=-w+8^4CqHapAZ>\l3 U"W7=Q\':(Hjq[.XagX*EPD6\r>+peG;d:$qLC36X/$(->xcZFO0*WsCni7Thq8$A U"$Zp]TBvaY^e1=>X>i__\Js]]wKNUQJn7GpdrPiABRG6G.PWDkz;yu*MGK[ArLv# U"aJ/7,*R7?:2i?Hr:t7:?$8%\sz^Z(JF&_nXbl/NKL(%up()%9%'%#-%B#&BH$i5 U"AMT(%%%C.%%%.%I%%A7)0CWSh1-.)'Pe%EO5:[-ij>%/ij*S1j>YAY::W%: U"PO-cRX(glooAVK+^J^bK_V8uhpvW6hvPdWGq803LM6e,Ys\$[IM)i?Ai6nC$wrE U"Y^BgZ6q9sLm*qL=eYU&MU8u2qop:6(?iiie2Mjw6Crqr+g5L1-'DaHc:5F=bPoh=HE:bcEZLQSr,Qf)^?LpH1LTwH U"F7'vAcKtcO-l>4/C-^=U52[YK1F=XD^SMJ'2N&*?cC4z:YWOd_U.7LE$VHf3Dp' U"QP=ox%VzpN9YpLbo6Pd0]UA=o?1[j0cVn2*'k;o;2k+K-'/?cLgkJoSGoF83l1L U"GFGV240w19a88kx%\LnK22[8J9CR,cE[Oe=c>i?6 U"'j,1K90=F;D/i2en9eB/\o9_in&aqVp&Qh#X-/(o_-+hf'H6CT=57s)cfs6#30. U"$s+'RYhFcdlx_oqwKM/&a7*18Y#_(k\lla/Zi<34mbL8rPZ]Dv(Lmn8_*%/\BkL U"HF[51NTBXe\S\j;)Hm$.*1JJD[V:+Ur;qbF:qt:9i7Rbbk.4CB$AG5u^Uaz U":QDO5hJH1-nWzVz],h%lnIs[s7.DCwESH8>,WVmT;Ln7qkP8F._mee3V6d U"t38]mB(6W[,FhgF0G*hqZ6'd1k=ROH'+Al]?P8]1'%>lU%9__7jcZX>U]&O;+X\ U"pOO[r^]%G6r8m3v6iC)-yxQ;Y^yc',_]u&<8(=H9r4fs.cfq)bBvpAP.=+JGg]K U"Ya$?G,T;vNrL]f5Dq2Vj6B3=-w+8^4CqHapAZ>\r3-(#Q\':(Hjq[.XagX*EPD6 U"\r>+peG;d:$qLC36X/$(->xcZFO0*WsCni7Thq8$A$Zp]TBvaY^e1=>X>i__\Js U"]]wKNUQJn7GpdrPiABRG6G.PWDkz;yu*MGK[ArLv#aJ/7,*R7?:2i?Hr:t7:?$8 U"%\sz^Y.LF&_nXbl/NKL(%up()%9%'%R-%5#\BH%M3W#<(7%%3-%%%/%I%%A7)0C U"VULS1^rwX$XKXlcf7crsl=36^7O9R&f#'5j.Y+9SNR)PWS3lg>;wiDm=bB:O=/FP49V:9 U"3TBc_I\MD>+vo;M0pcO26g9UDV0^g02.KUXP(;hM:fh1L5DW^aGA>TOm&-fR(_oP4aGsDYVkYW^Fu%w]oXAsW[]/BZ3 U"0$h_T2aM+[CdsfuCRB72k,*O)FU_n9eE1F5 U"lBSoDC;GL%$F24iSfulG(om3$W\,1\.$c.'W8&]2q=>35QAv)R,cg U"fZ\?-;r;G#J466/SmB/_T9fj'g5#SrjNt6j9[#c,^rwX$XKXlcf7crsl=36^7O9R&f#'5j.Y+9SNR)P>wiDm U"=bB:O=QGA>XO]&cfb(UKd,C5O4i=H6=k5x.NA U"t>[w>##T2O+TPFAfiaM+[Cds,EV=h.RhB6ber7XgD#H,1\.$c.'W8&]2q= U">35QAv)R,cg0VnrvrHoNAbpLS9rdcIl1=UL,+<<_KT\+QP%'LBh1bJOk(VT;per U"hB5&53b\S^f0WiJo[D<*\iv=>Z\O-;r;G#J466/Wm2'_T9fj'g5#QriNt6j9[#c,L U"FA6(%1%%5%\%%0#%%%BM34<>#VVS1;0Bf#;:>T]ikJOuj,')9=RcqI*48\r,BQY U"NnI*Sg,0Th4BaS/)2q<,I[vlv*Z.8w5Imoq-N*ls7]*](j)Ri>3,VlKXNkH)Wk? U"2a]#b:cH*#GgS5hA(9K*VX0LQQp.DKHb0uRZ:a&a<6Hhn&0?(7im%50wYKbpxp? U"[8KLi7,u$vBZ(9d#U]KCu&7u+3ot^%P2kP.<,GG)Mhm[X;FAkA,?WSm<:B+-DbO U"mo(tKCU.7KSKU*(LQRms_[f]>*]]J=5K5WJ[&8'A,iW[2YO0i*/X+g$U*#n>,wI U".FnO3#z;'>'(Gd,9CPk6(69 U":sPK7+ux.I>^>]%BLC3AYuN+pY,wjKii$=w;oa0iKCqbkl^H8tXwgljl^jl8W\6 U"_2Fat$R<(HO&qrs:gal))geFt.%rYgRFrt$eKeI6g.#Qxi_puxBM+*hB^%-/6hZ U"jX/EY#+YJ4wxksX5+mfwLZo)k[5#0f#3gf/FWM-_^x:-PKL],,3:CR'/i]'gdt? U"3A7K]RA\bAPleOH)Tfg/t6wm(N5I1#YePO#hl'u:D#I:+b*x/C9./Ni:rW(G\UN U"$RQs2oeqIw_&^]29Xi2ha8*y-3\O+k>o=;I-a;Id.N7Mup#i&jk\vr>uqIMroW< U"jB3EKOA+lu-+?6)F\aX_3 U"5wH>6gY2/bPfVx.C)nJ<%i1'.\#Ee)4=E[7Z]:A%BU>hG+ U"831vbAIPZy&WAC-DW#%?*%(TF,?M%Qm*(LN(Y9%bA9eE/8m6PUG(avCC/mMFlgk:378)f_P0So=PQinNQG#Jm$rBI]_ol-%B.^*etF U"Bqykhx>B>J+0+#Z\;Lwg%o6#9sPKZ6+;^H0H]?CVSZ;a2fA-.Pg31v8cC5d9jQq U"o;I(& U"o6NQ=*SR-']vY%K&LFH1)J3%G(W2Gw1gx>qSOH\Mf8&2jmJ/mS/UXrMDjHlbIhl U"a2+'[eOYPEfU/0c/qcD6VM>?KSnKAvX[TX8qhxuMCj+iHi/A/*Cne0uI8L=u6v16Ntp1JdA$>h U"1yF*jwhm%?MTPoQ6T)xQ00dMq$0EW9N>j*disH_3SXcw3Ag-f)H%spRi3^p0MMn U"ChmLIt?wnRtftBhR/1WQPs0K&NlH7aTrJ U"IeFQjsDvD&=(o13S]PHU>h U"QntSu=0h3)uT2OokW)t84wW+Rj%2=YeMXv.Sjr0SQ-Fu*iY-^4Rw6xUImZ)PPV3 U"lR0c2edVYV+2t4T3.p8w-xZ7;$?HieM3#B_:>I[hNhZYR(\YlaRzpiNfa(^q0.; U"IX65GB]nT1z,^.C8GmxJI45TC?;FGJ;?+V=,sUzenzi$+KHaJ9H)UD)i0'hnb U"mcaQ=$3Hzp\4\I^M('S9 U"q>jyA&/#%.TyByq\j7aCKM^B^r&9]N,XnG'g05e%6DbjkHPB^,xSO8;tT/TXjZh U"6.(Ii)/IU.c7(i4J*TaL>e,Ve;LXcO\Xt+I7nQvbfMA&e0I)0JzI2JqhjQrZQ+g U"O7jea2<6T%$:oVyR3Y]lZZX:JpMB.I U"3:f6/h2J:^awFu?_n5NO/?R*v9&e-<3[IFimR3ewW.QK-.8[iXSJrR;O?WOYrW# U"eu6?M\5_T+F.MR\/(+CBbM^r7FID/=Y*7$57N,VcHU:d/+pj50[aPA'<^4']^^F3i%'ccsmM2 U"*D%.cJS-6e+h1z776#\r5e+$):fT=QMZ.rjIbb;,ung<]L.i2lteyp>NRQX0k_t U"L4Gfb??PMt[?WFea9GYoQaw5w?nn5giAA>It3>'1blIe.,iQ._t;K55n+b,\BWD U"nxW?3:JXje<2gVw'?f3$AhH>#HiHF=^[i&g^hz:PoP33xJMu&CORZxW_gyRStpI U"S8HOSw=B2b.=rR16*IHb94H/oO$UwhQeQ&P9pQCeytpCD+W=rU#v,2R[Nn\y=v> U",l[K)s=+qACocg0p/UdaiA%anaef,r9:7VtmT8XEn/?W?k-cCY3]sx]0s U"iJ,l-[5-520.r30cT$n'3*C3;MrVZv&F%7h>m4l]d=wHZ$8>*_maJe<88PnX=WG U"ii/3'tq/'n]s0l%b\\ON'umNkZ/4>Q8UW0#O>Xo\$jN:w8$yQ$dccHwWUl U"SLD]]/*r35-hF1N_TR?poyr*EEcOBh6'VPp(I.Cz\a7a$=q(d7Kfh4xF0;s;#1u U"%mT?k+hgZfmCX0?-6(cuU=0KHnVGL=,fw7qleUBKP#C,$<=zW8JzpOtxR[+E0v] U"E/r'C=e9cX&XB^/b.eBBhqh%3E/rHD,ap0XCcGMBGk#TM41T,>NsY_I3g\ZF2-' U"4L[WprVF-Kh&2=,Z[dU#nBHGQ3Y7T(%%%C.%%%/ U"%%%%%%%%%%%RE%/P&J,%%MA70C#WUS1)FA6&(1%%%5\%%%0%%%%%%%%%&%E%VIVS10&Bup U"*%+%%%%%,%,(%U&%(%NG%%%%% END SUB CLOSE:IF S=55AND 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