'=========================================================================== ' Subject: WINDOWS ANIMATED CURSOR VIEWER Date: 04-23-99 (18:32) ' Author: Yousuf Philips Code: QB, QBasic, PDS ' Origin: philipz@emirates.net.ae Packet: GRAPHICS.ABC '=========================================================================== ' Windows animated cursor viewer DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"OPANI01S.ZIP",4^6:Z&=3325:?STRING$(50,177); U"%up()%9%%%R-%VwA$KzB&\UU,7%%f9%%%0%%%%tu%jsfs%nSgfOx.&<,BSk5cwG U"1xM0V59#mU[]QVS8jexQS&[+Iz;M#7vl,$Z%r2T]$ipA6s\N4Jvf\b1Yfl-s1tu U"-te,uHgfCdll.k[Y#lY$=K>t>:9$2U]pxc2O5hUI1geOhKSl^r((opa#)B<:Gzp U"Q[s'C:k8(nT24G:;PrVc>Gbf'k#z5+jmAsSbYK6jr(LX\*.,qwd6;g=X'px[,m$ U"g4wc0b/q+'-rAtSI83T3Oe[$.^l#-idk)itKHjN\YvCrQjjnq>TV(nzYV5d^^(, U"on(+h5L[Krd;La]W$bXS]VmCik5^Ur%cdGn9(2j6E1_XPif:mdfp58Qf-)UXijG$<2d>CWFo U"U>WY<[=j>KLdm^;)G#YcWH_uVP+[/k,0uM'0-mR[s&GQymgMTn(XZHMJWN[xj,v U"9XxJGi]B8e)D-a^]9H,$OAS8^D)[k*E<6MX(aoU&D,/9QHXEPxZX]hB[G3QJZ8'>2bcqwJzG1&6:tZ0TlxZ0c U"'vJ4=4_1H*o4j''[*k$nGI;]y U"BWw;vi:;^DIcLlVmasg=F]XxNJ:p*n6aGSVQFDHe&8+JvGEKQkGRU]R/x[CVGVY U",7<&?ORmhdbZ(c;Z#]3[?^^8z[)a+?5d=3SjTlF?P2_u^a-sZ#NRgkK:DEO. U"FJxo.^=)(QtWRz.0&qr U"S[&aFr'64&RWcCGZH\2qfK^y]0iIojBoZC^_;,OinYSs9Ge*9Rlkp&R%MMXO$WD U"f?\8[k/6f9lZ#VluSe=R?ZB/)#P<(>\=-pcC?M&3qyD%(Nw5(jFT'XSI<&<%jSB U".y-6^t;5&#f,jDJEVHEBmo.wf%JAXITIM2rT(e<51g$x'm[>MtI_v'lX3'#oL36 U"oj1\,VQ4'nAAcjBsecNMzlRYWgI,R(0ON:rN U"I-C9jH*p71]R&?M'ScT5pfK4.KLrt)8eSyE.f;&,sSh7:mW1CjR<*fkpE*[4bGI'YLr%F?mAT=^AHUAfR6xszj=bMWdOyT* U"KB.MZ&uvCh>43[No_2.B^_'mbOFU/,gFk',d2MiLc-[uErkmr4(atYqM;U)\9(d U"o2,G]lCO$S+6=$DF9^eR1nnKOCA4t&B#jF5.R,94^J3Z'D5=%Ww\lBHpzQqW)B0 U"T^FfF$<9pRR_y*BUzFrwm.nDk_DHXl#5>\#SEhx&?0$9a$b9T^Sx6E8Ba>'O U"^vf'Vj2P2?Uz3t^tXe:jeo,Es5dG-x[u8rN:''Q U"TsFQO_C88*D^UVg3i\8%%up(%)9%%%%-%eb%dC'cP%D=#(%%?%T%%1%%%%m%tzw U"l%qfxS[fsnf5iH>77f9#Dguf\?-;BPAk[j/ut#iI=)7jKMhX_HfeUHen\*a U"/EcfPKV('*QXSKm5N*b(POu5=sP82/8#2XdPz7z6bn7Ngrf0tSHoGR;oTMhODzJ U"z:jd4-&rPyn[kM2)2SRsfLu6u3-qnL)+Kk5Yd,AbKk)bt'x*.[;h0[spwM U"[RUeEJU'2wP4CMSTEF58*c1p)GBv(bw)X-ShZOj*48(bXeoHOmu<]$d]);AD?*U U"#)<1(s=1,_3Ve6goft__8OV%q/Ur7NEB_sw9Ir1$]rqUua3-qev:jCxWlxX>l&d U"Ha0sanB\>rq8Ul,XL7JJV9r7w>B;jGjI$HE&j8#aQPa]cTdD(M=&1w7O&sY<:2+ U"$31eqO(%\F%)QX(1*O0t9MsA>LrTZ=Z#,OsceHqRk(T(vP8N9)$wMYkHD1E]zJ) U"%$#5/,ZgujZKPr5139Maz<941Tp9]*39qy#ZY*,.reP^S.91i7'r:5dreP2/79[ U"j$*uEMSC9A1AZsf6B*N=FFTL9SEKJf&.m&*U#/ArP)u/a2)tORCO*[OiR'r:?J\ U"gPgG5ltPSrNA7s/?Lq:9glkVPk-im'r:Q)iS'V,\xc*4oK9/IY*2:nI/Gx+3b'M U"+u[Z*2iQ8Zm(/Gvcdr'wB\ixoUNg*[5QeZ)au0JX)N'*6m.USkQ0ldQ;S[Js;h1 U"K?O*O$hia6S4pq;)f#(l.$ZLOlt95lxuHADI-agrBi7uoT+9(-V=,?Q+nAA\SQ< U"eQKbdPju_a.St-)>7DMmpURZhOnq2)P#W;53qhB)#V6^_dmt]%$(EP7k)4hYkv==5jFdK-V:,8$a7pC'CEf^zauU76kJq/NShqBbcO[N>4XXidKY'lvLGOo(0n U"^]n;X3]&Oiodba+Pv&u%p()9%%%%-I%Nx$LKRuW-TD%%+%u%%%%0%%%%knq(j.n U"i#Sin)(J]fpB=U5TWhPuVAF7b;Vyo)W\Wz;E/4R'9k^RE3.2YhWpn,nPkjcDW-p U"6\TiF=.hFRWm?>8')&NS$_GM$]O]YJ;9qSd(WLlercY&q4Sx,.[j7#0cbldm1/, U"t%l]7O8'#U?f_YXPeQ#g\TwO?R_ZqX5aJyksL]+$O-iO^H?[A^3nzL'j?Zr1C5K U"a9e4pRE:QNejsV.3Tj*$vkofasBTHdTjVV$lIpX4f7j%HWTD%7%%u%%%%0% U"%%%%%%%%&%RE%/P%l0%%%knqj&.niS.in)u%p*+%%%%%([%(%%%%%%$%1%%%%% END SUB CLOSE:IF S=198AND 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