'=========================================================================== ' Subject: MS MOUSE ROUTINES Date: 03-31-99 (00:40) ' Author: Nigel Traves Code: QB, PDS ' Origin: tarot@ihalliwell.freeserve.co.u Packet: MOUSE.ABC '=========================================================================== ' MS Mouse Routines DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"MSMOUSE.ZIP",4^6:Z&=8054:?STRING$(50,177); U"%up()%9%'%%-%M'A2IB5>jNX1%%%nd%%%/%%%%rx%rtzx%jSgnTYHuGu(HpXl22?=+XM*KF%h%AGlDw2kN;Cv:$VGL0Gb3+]vH$ U"p7HxBA>-;WTl85T.en]FErlIgWuw4vP3i&n]Bp'<+nBNuUuwggt?4H6Q?K9n$Q1 U"\viBtE^n%P^xQTHvRD2VKU>J[:*o97(H,D8yu:QHl:G3(_(_e?F(S\R4WDW1gF( U"*WRFSYhsK:cG&d-]'YkpuY+x(Nw,3DsS.*mLxCB^Wp.;jclZ8ABc'X3%?xU7oEA U"Z5Dk3aP(hhXS=[+ght5(S:WQA&3>81)/0/aj^WP_jXG1c?g[gmvlPhi*kpEc-T2 U"I>$s4G>No\$=WoIJ\B/,_lin:Rv?3B_*XKSaFqrI/UeO5QJb[[BPjVA$CS#N1U$9'_:?Or U"\4gFm4^T\uy'?^SVPfPu^y,GK5A\TdzIYs/f[PFi%H6o)$*UQ'LM^dCmdS&&qy;Ur: U"J8hET'&x*r+[--upLwg<'hL_:q'vJNo&DbNG=N U">Qx.teA4alRsoph0^TGQrA_RDk&lfFZIL5H<_Z)TTtd<$CA*C\QEXh$5c3iyBC U"dMQ0r52W\J%wQu>JgOhFKaIBuD'1*;_.aO^W;yDnFX5WmFp+'q1$d(Kqf+EW$f; U"sGnvl-q;z,1'9Kd&d[c>1http10/lo8$k&izpR,$nEHfIXgL9_oNdEwglmYjJxd?_IGR/IDmUN%EHDqrx1C'gwA-R U"x__?.DiY^]HBtf[IbB,fw/_,V:x:t;__ueXoM65nXPX(cj#M'%iUTFX$fXAk,)8 U"6xGCs5s[No_0';gUVVgkSB,$gkXcm4u>s0Jfr2dZcB&yofPu8DLleS7DCP3+OOM U"BhntYv$2&$EfFO9iYBGk#CE?BIW,4x..NlIb3g]ZYPt[$UI.ZpG#bTZ/4ToAE]6 U"-4/a*l?p[D?=UXowxUDJ^5.KuxVql'rEey^YEpsQth7\(Xk?g&z)u&.3k?_.A4] U",U2KljQ U"$aJx%eu&-fVEW[1O\3'+[7%uYUgb]f8Y82Xf37s24L_m>E[Tjib9.>qJzTq4YXZa2+]S2q]#Gid^)IaCd3_^G8io0CrAmuN(%Epq U":T7L+CL\_ZlW2-Z:jMB0emdDGO,16>2P]%CkLblV:T&BL1AqUl0Q5KyT%nFLa-> U"OiS?;49ru8\T_v U"(Z.Bp2zrjw52(8XK=aw=;T6i#%4Uc>YQLA0?_PdGzksiTC;X2$Z3Q^Ti6DBd4S=w U"1E/PF'm41/(IB][C-R;%PD3Pl9Ul:fYZG>-NN7$.F-rearnj2W-]V//UV:u6&Oq U"24Zy6ntUo$18'>,TRq2z8Re7'9CyYJG+8S:uTCROtW?iUhHh_RGuK=nkA3ZV:;0 U"GY.qMqM:')'bp0ve+7dkS]Ug#:t>l>mmpO6l5ui_V(/3OurCY*Cd. U"KM7eWq\2rG&#ZQ*I+)PUJ\6[YZGu>zo,&rB8F[M+(5)rj;myGTK$v>FU9e]__WX U"?_Q>>kEDX^bd^P^e9:O83#T\n/$sM_NTR2=u_.g]F0.Xk\[mJk0mfAHMB,c2X#r U"_T5o2:OW&M6FUeZ8G[VyL^kwhEH-Xn*xNZ8dxbzmr[fbWZ9X[xm^3bC(%:kS-v1 U"2LEK[/8XM^j8j_.A)oC/H?N+W^iZ,//./;ebW[yq?'.sEu?o7-2EgUl0%oMU<5, U"nlT=uRI]=jO6scRwz1>RWsr(,VG4JL-8k(jU'Im>uHTjI_)e1gOol,[2Ft-_Pg- U"oTAqp&nc#B6k:w6UhR2s<=AN.9bF/;Jh,sBouwL^i15MsOZ)T^=]5.S4RhTpy[W U"W2hc0oZ0lTO%2U_%P6(/(m,X-QRJc\a_EWamu2Thrx8^QC9[JqV-hX=>:Vty]k0 U"#CA=r$qsY1CN&w(Gm;G2dz[o+1'fw4?BUCGb1Uwp=p=KE*B$zA/RSZG?\7VGe5] U"mI(*+Ep:BSrM4.(M-IN3FFr3c1lZKZP\5Jc5S,^^:cC.%fKDGAfj2'ajC8$0)2D_e42k]14VAZC5xEdjpJR^Dk6)hX*GQ9#_\w4j:,4 U"*83ONSYuk-x6AUNk>^hc$'$M+zkD$bQge%3YTCjM+2Arii-:1Y9gehn&Aqkb'3PeexXLnlN(,>_pfdeZEvLWFsa=O8^BQbVY.TTw67wiHuOM-)? U"9_AnfG1_+=IN[V=jhIUsrozUu'CK:Bc-Oof&uP#wZsHfKPkK1NT;*f U"*Xbpd+Lv%'j?$:[yLzXRQ3-4w3mW?PAj2dJ U"_^j=N.[uD%7I>54o&n]H._OV]=:4nk9Y7[/uXX5N79qC-M?L1>*j1-*3bRh\Q'n U"0V4,K(.9bR?,w?2oC,JFM>r;qYL:Z6h,,S*>R)iP\VY8 U"k#$g:XdZ8l\_u;-NB4fAPknz'w3&=WB_=?a4EWj7OC#1x&rlQ^uomZPx4u/F.9u U"?3+lpBI_SrtyS$\=b=)lFteN73$fG&1J]L8t<6uh>]dZ$wBGO=xZiht7hqFtyFw U"oit+51xXtodm.b65-Csc>2y_M0C-(O_$rnQo8M28<_(R U"VlblJtW$jnQ.?M=+=grPfc%VS8u[k:q$JJR?&mneF_tbG3RR&bez]xYp2(L>98P U"*bsB5uZ,Vx&u%p()9%%'%-C%L'2OILHY-go*%%%eF%%%0%%%%rxr%tzxj%SgfxN U"f(*>B[]9M-(MdUstWJIJP:*d/E_fz/*.ANOmUUS:S$oJ.*xq2IVok8Q48M<*$5L U"3suA%-?KkIY6$_BcgDn2#RDdmULoNy9i8R^Xj$$lWH#L8m#[U+rDxpj[0L8L_Xy U"EW7%-+M1,oc$dSodo0.%b+(,DI.V(k-u(,\L8e2M9>%,IW)cbP/&ArnH?Mk?)R5IQ$c U"(6;-YqpZ4oZ+7LA-rYQ)domZC-L?7bW0Ly:IR/8$8r>:)pBfO/s(V?_6ApqNV0- U"&#aEF8ADCUzZPbDY/NnX[14I*<;3OPw.+GpLO# U"g.*$xBo5\#I8-;m<&IJTk*uPGGn$leZMms;=TBOvs<-x.IM\er+P#FooM[VDLI_ U"TEwrEwb>hVZ/8k6uuNs3wskQsq#g%&[#hLeE^+y%-:'d=yQ%6:pe]> U"ou*Q6C,iqXQnInm=S6ewy^*/;YA_Q=h'6e;sEd> U"?RrrP)\Z/:nb1%)+-oXAWy?daYVxx%JNd$aI$2-?=H/4Orqa;&rfBMsPT0$-]x4 U"rZI?QF%Ch14IS1L50#$IH U"IhGD5M12IejmXR/=&$A$FaB/eB92=qY[C7DU9TgOWr[3p?0iZG\Dfq5*js\Yr:J U"Fp\$4A(:IeXI0?vW&n)'XobmYThN2,F.HL?Ex,h[<9Ohd:YU.c/pI:R51Eej-d$ U"Z29RZ2.Ja^MjP#c#(w\F^fpXc/gQp+xwIvCCHuShLzT(=W$l8f0bKg&J9psMUB( U"H^vyN.1SkvDH\fLi-imV1 U"\D&:M>+pa)N.e.lZjJw<2$0cphMH>xHO^V2Pl15GdKjFle U"R.1[q_jSvVf.X#%H.p1dfXOb24P8[SEs.c8FWRbv9ecfqsp](f?qgh&csmmjo#/ U"2)KOq-D,IWLtBTJYu4jJxZ#X9O*i%fnoW?&id7,>un*8&-ge+)Q]h/s5+;(3u+P U"U0%WDffpBSm5Mc0]dIYvbO8(e6OqAIzOARL>5OaJTE(4^:rTIV.91)*ZxZLw U"MK636:'(txML&kSOmrY5_ThfRVf(^UtvAu?DqLrA4)iuY/1D9YcDXDm%*VXU^X/ U"//?WAo6e-6]HCFZ6bp;Lay04Y5KvIR3Mu0?nmD;1qGICk?CcmFVhRl6EnPB*8.5q:eIIUY7]P+d:uZ,w_sL/Xzb]O)cPR)Cc,&>YvbqhpCU6;R U"\9Te7)\\R.Wpr]>W&%9N,#Y.'dqouk:*:K^aLXTKRo,kqD\HaM'h U"RDF5PGmlj3Xk5u\4zJaW(3'P$2-)te#^T]a7jd%Q8yETyQlF5f[zua\\>(aFZh, U"psY4bw*ii9jXYb?jk?Jl2abt8;mTP?vDphN&Lb.xLsRnvwncedg^,FR4l:Zg1.g U"7IC)EvDv?#awi&1n2Pi.^udCUg?/KEg\fIKl[ir?i:>TC8?RPrqRoD:suU] U"jYQWD&1LO5.Syt7lq^ag,XgYtHXB',N]yOaFF40CV*us;T5CcqRH9^D1AgiH#+; U"8I;e,VWwKK;h7LeI9_,qth-%XB/GRkg]QgrZ#Q U"N<'m U"7DS30Tj_Q#d'jwNZm*Br)joAs^NoHNUS8)j/O;Z;]xN>:]I$,3F7H(WUN\iE-^P U"[>_u^PYmrEsg^\sntRg2VkVfC+r%ik-tKQWgs;+0R1h)5=?*w=1\XRDP9cvDbtu U"7Tg.M6_RIlinJ[MX2H^r+Q9mZ;Q??v,S,V9FMM$6&P&Cw93sh-ytO)U:#coTU): U"g6N2W-6t.u%p()9%%'%-R%Z,11IjBv(jk'%+%f1%%%/%%%%yjx%yrxS#gfxlMd, U"^ide9UhFrq4B\pz8L9E]Cl;b-%U]LJv-I'nJ8n)76JgR/J,Xd71k^vg4Vk4[\5g U"akhlgC-UvOUkf8l97oZpO-&LMgL-Sghz6nF'_Tno/1>bF'jh-kcd2_Ynl[c>rJ1 U"Rr#NG4#aP?yFdyawHgASzdHn: U"-rq3\a^S$<&#_L+:uQmEzTV=:qYQ)-3_3M/o&NB,?),R73IBpe/o8r(BB\?+ENb U"Q=1GI&II_%=f#e/;%X.8C)a=Ce1%,%&w8m*moLe];2AJit^DFJHl>W/gA.*)#B+ U"9I5KVzaE74;r]?_a1e;;O_hD*$?3PcbA>:q]4O93q/D5gt8D?qp5,Fj-I;w.rJP U"pc8IYUQAe\kT_GySq7W7yFTo?yF79,y:35#3p;Igs8b]4Hr$C]Uh]kv\C U"C2GqFdE6l14^<5s&VovH*fGnWTBoG]Eia0Z$sj';ZC?DVL\e*GyD7[2Szx+N'Jk U"JT+)?Ij=DaAV5^sYj)oGL\hGrF%7ZpX',Y\pi/(AE;jFFl3o[\7kh%8(6A]UN2U U"'ELGfX:;5vkNu%p()9%%'%-X%I*1:InQ$&5\&%+%P*%%%.%%%%hzw%xVSgdfxlM U"9:oa%-V1X&UMh1';^h:eO=Q U"2DRH%1%%;3wC-q1>#Ai#?4MH.n0F^r\]a[ltRuBhOg,HB%a4N]]HF*Kf&o/[:?L U"x;qqI%$5+OWAV6\^gnO>HnsA[lqTKi=HY2sT[,RjkAGL;3T[V+%q(TcWf6PhD[n U"oFlg['sgg[lm>Z1XRaXamy];Ld&zDxTIS0zi_zJTXYd7=PzNA*YR3WNnRq[Ar5e U"tx&GArK'8up(%)9%'%%-%8$+1IU8xHsN[&%%/%*%%0%%%%x%vzfw%jxSgIfxlc9 U"6sdP U"#$\S\gp6ARdqSnBn##$#t_G]I)eRd+q[;2te2l5d5h85=rTIf(RZK/FNm^6sfsG U"IbDeyi=_huw$:g?VwE:AoDRPwR#J%=eYSVl*0gj=Z26&QS)cz(K#t['2'8;.)^QI9U4=q0 U"P#iP[\JI3 U"2py+H7X]bu0qu3^,AO'^+up%&'9%%9%'%%-%M'A2IB5>jNX1%%%nd%%%/%%%%%% U"%%%&%%E%%%%%%%%%rxrt%zxjS%gnup%&'9%%9%'%.-%L'S2ILH>Ygo*%%%eF%%% U"0%%%%%%%%%&%%E%%%%,2%%%rxrt%zxjS%gfxu%p&'9%%9%'#%-%R(yIIxE;S5*% U"(%%=%.%%1%%%%%%%%%&%%E%%%%K8%%%ljs%rxhz%wSgf%xup&%'9%9%%'%-R%Z, U"11IjBv(jk'%+%f1%%%/%%%%%%%%%&%E#%%%z%;%%y%jxyr%xSgf%xup&%'9%9%% U"'%-X%I*1:InQ$&5\&%+%P*%%%.%%%%%%%%%&%E#%%%>%>%%h%zwxV%Sgfx%up&' U"%9%9%%'%-%48+1I$UxHs%N&%%'/*%%%0%%%%%%%%%&%E%7%%F?%%%xv%zfwj%xS U"gf%xup&%'9%9%%'%-O%3?0:Id2T'2m%%%%Y&%%%.%%%%%%%%%&%E%%%%D%A%%h% U"zwxV.Sy'y%up&'%9%9%%'%-%2xS0I7_%^c%i%%%%X&%%%0%%%%%%%%%&%E%.%%] U"A%%%xv%zfwj#xSy'%yup&%'9%9%%'%-I%TS07IbSW%ci%%(%#&%%%.%%%%%%%%% U"&%E[%%%t%A%%j#ruy(.Sy'y%up*+%%%%%%.%.%'s&%%&5B%%%%% END SUB CLOSE:IF S=33AND 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