'=========================================================================== ' Subject: MOUSE ROUTINES W/CURSOR EDITOR Date: 10-24-97 (15:05) ' Author: Charles huber Code: QB, PDS ' Origin: huberjjr@nicom.com Packet: MOUSE.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"M4QB45.ZIP",4^6:Z&=10621:?STRING$(50,177); U"%up()%9%%%I-%qu&(Hh_,UXe%.%%Y'%%%.%%%%hw%txxS[hzw>&_V/%[E-jp/o$ U"WLiq=lxA5fk8<]g6fZZZi_+?NW+VZQ2Tnf(iKE:q3m0iStTuuD_Ka1\IV?2_HR: U",Pdu%p()9%%%%-L%su(^Hol['A;.%%%CH%%%0%%%%hzw%jiny%SgfxNV)*>B[o7 U"MFl[dc+]J+9^70EP>rl957XV#V^-k6EJj(l/X2Q%l$*Hfx^NfsZ0r(A<=BGD^ U"l*?2YYjqFcb/\iXd+P)=?MeeQB^7Hf59m5*'TUkWPg]:j^)T3fEjE(cdUr4AJ14 U"6?=nRlBXo0A#I_H]>HOu6N=iusQWFR6>]vb;5R/r8(&LJI5Tj]=4-C3Y7]$F U"dEySe\GeTFGqmTRPEAg)xe3t%;.g56WPAc2I U"*Cvp>/:dC*>za>^.G?2jZ4dV68QX0J[^=-jMm:GCIZQkl*%X2[5ZhA.;RkPZUQHM-;xyAYb9Fh\8(m\(dtMTamc\Kp=rVtkQs3 U"tJB&r3kmC^l3.;vSb'PN1HIdm1g\TfgiLKK$b6P]Y9R[g],xT7+0CA+9*>Qy+N\wa\=\V2j=;M_eFsi_/MNr2+,'y28#rY U"D3UqkgGnIe%.3zhB8g9%b5wbLmY1OM9+Et0=,,xJHEL*CnTmSD2fbW5FEbCO)WP U";D&av\Xkq19]K&Z8-jX$EoEu*KXO,0;?7LjS5Qj#f:\skD&iXW_)\k&iGbj[&($.j=qhl?HGDw[;/6jMaJ-z4Li.S6(O1$PmQr6hV U"),T5(pDa#g0qo8YRChV4x7/AX]9oBSdg?f$(Jboo7wAq][Z:t]V[fZS=924m\zA U"sWKY/9;T*Q>I0pY,)Bu_8CQ%OjRxs#%tTwBC2ER&o8Kf#Lu%r5kM U"1Xjkg<634N'64d+hEElNr0W7V9e&KPl)W5$:i5b6qinV2SSb4/2F-K5:pUshH+F U"s8J7)MJy4t>a2)_2PS?aWeCFb-cn2PkVMApY8]]Ed7yg^G[VvdbX%h^\qwx;dG< U"Y/Wb?+igmzcrHJ3d$95;_v-McgvC0T-lo0tYy99 U";R4#[1rlI5qwRLU%d#9FaG*lfi&D8V/Hl.pSCLrrUV':asU8m$pl'>VHa==#x< U"20;jb%\Hc5Z=T*j>TgX9$XK*KQi_^9GG$kEDUFkTs:g])_r:=mmssjv6J*z1J2k U")Vgc1+\SSo4kThtGZnnGIxQfIjv-wh,TWZEdzrR0_OgLZc(AS)$wW9gqxrr'+lB U"YhAt>zVV:o<-?'.^9*qUBIeb,^-JXifvA7hOFwEjt*hDiGNDd2ujs%e([v/h^b* U"k&:]C+>m+,MVeUpZF'HYKz[m/mv[TuoH%U)q8U:um'Zl'Ii9[.aSu5 U"3ZSpL#3<%,dmgK'jEq0))7yROxan'$UTUmL:X;X47rR$?G>CUHg*XaJhO_+qXFA3OsS7VGM0]v U"N[+,XNAMS-MHrIuLVP?nZHCwZ%MO;/]UU0\Q&<6E9ZjN'+oaR2-PCimKl6bZ9B/ U"SpMZfqI+Opv?nRXlmHGcPr<68z%PyU4&c,F$Y_Cr3,c'kYZrf&ah+ux+:,rdmLMh,q5Z,96I.5mB/kIyc>N2pW3:'\ U"dup%()9%%%%-%2vu(H$X+IQ&s.%%%xJ%%%1%%%%hzwj%inyW%SgfxNV)*>B[o7M U"Fl[dc+]J+9nWUB]%[$P68?KGFbO9>:95^I.P%95HokAThj/M%P#WU>JSs)vCG%w?U1>wAF.DUK_p&IC.Uy#'(d U"gR\llM1'$RB=GtPu^&]Op7PfCJ33:L#u3$,?scci1n9FtYR[8wNNjo1KiggVlf= U"/Z'u&nDgiEPG#l$YmVg8o^Z#<5_p=ea5%Z_z+t>2Ci0?Ow61W6PW[E%l7cdmT U".%vc8Aw*8KV)IrWr?)Bm(gvSj8>C;5/3r3.)S.hldM&B<=BpHqG2KOb]*U]WAa2 U"A?tcl?/3i8%EfgGaIiC<(MxNn#<+n2^I[bg12ZR2q&cEbdiXXdD*'^+e8F9Hn]*-jKp=Uc3UnRlBX9/'#W^j]BHOu6N>iusQJCRr><08q8$JxMv>shN3=Yt25wCZyRZu3o= U"36%Np3'Pad+njIo$sy$Fce$i#2ACX=P?<+FB2OD%SVPg?P^HoS,FSa5n'Cv4v%W U"HmDq]kh0fgfDe/]3y3PlJydgpLJ;l1Ctgs%lpWfl(S6u.ENn1KPT<*EfIOkf?EH U"Zg1I8t^b]v=dfb&=:Gg_f0y7,jk$zU)%Ce569-p'm&Y]9G*$++bFiBUk*4^p$ID U"kkC>KD[=D':B?.t\Co.,#e6pLH3[8t-q]<:'8\NC6rHZt>7WSxrlr%_lO2usB$ZD U"iLYnV>Q:wYnBe>Pi][xrj*b6:dM88jxTUv.,rK=B^1u9IrH>4Ol)Djn;<_82f U"&yNI8Po-7Qa1V1AIK9>+gW/'28)uUN:B[l%#r2rj3 U"O2'&ooayF#&llf[.tR2AhJA.bkrh:1^LvJty:'8mb14\6N&\\AutARV)cK$RLrl U"5sq?=mQ-(3kC^u,3_6.-DK380=rf+7Hk U"3kjx'b62fU?*$1M.34ng-6q.rR*1s5EIro(Y.=fE:6bBFW%67ATK9ttn[xQjFnN U"5nO.uR*8cva84?Alh;&u9LL^:F9]S2nEhY)RDiwU^Gixe$bFJHtIDt?Q,.kzks2 U"vqCzOl7Ym)n$8j8k1in$YsUA+Af-SoY$p_,K=-EeS^w;xM=fwZH)XH]?,;KY U"usGn.VMhR_o#\llU+ U"iCtp7-[sy0;F2l[TJNry(xKG)ZdpwBCbWQyINk9T=k\l7DI'j.Pco(UF)'3S+zQ U"kcVj+=TAc]Lr06EW/U3><'o4NtYHp=\Ysm#0VX'+6KDcFuv=p]*xFH:3P0GWM?1 U"#5IoPMb.QZN'+wvFB%tE,7]C/$oofnuhQtEps9pek_hWrwN**u;/s6Sc-4;_oE0IU&PPP-kb='qh6;lolU U">y]KrJ,2UEk.IqwAR,<,9VC?RW4vY;61 U"qHF%V)Dc#,n1wW>+?)x$5Syn-X18'$_nJ0i_4*Q7Tj->lK3qZW\$h,BEbk U"X7btYq\spoxKVl%Ox0<)FcT5X_s'O:+9N_OE]x+jf5(V0iZ&phh>Q77['Ngl/*BpX^HT-&,w)m^9QBa+\Ug]xHJgzh/^>8B7=W U"P]ep+^RO7,$NqjSjX406H?ahm'vb U"[r-?B'b9,p'bpQJ*$8ZjWfvO+G;PyE_v]^Sz;78fVqb];+u_YYe[+z&A326pv(h U"-ac\BniS6V3cTgWsN_6ibK3pAm3s.GN&*?u2FKhe7+2b'U U"uY>J0)+0y9$_%/(OO8Z73nA9#b]hycU$AD_5P%8G5VGA5XR?R^hK*r_WYV6lE'f U"T^h[?)e-'4as.?bo/CwQ;Wrd,+2jGvo,5xQ=L:/?:GqoAQuTF'-W03&SdlEM&+Pm#_B.#;*Z_2wwnej>p8W0idvTDR U"OzdVIZE5[L6yGe'wfn>[uN%*up(%)9%%#%-%z_u(H(VvAL9#%%%Y%'%%/%%%%m% U"lqfx%xShzgwt_D+.9U1jhhTgI5WPDlduj./EdA7JtuyR..4;NLO*(f7=:)I8o_, U"ku:%L>Q>4sU2g;*^Ol1l%Oz6(ZCGh2h6/*ot[UYP U"NPpnWoMV=OM;wfhv/,iAgZ[q:aW$R**hA.hY\p0rE\<]%CX/AC#Q[iQYru,00#t U"Q6D53S?9c_w,Y=+*fnimA][_MGL#Z[(9EWo*cW\oxD?fecRGYSGLf.JHfo8jKIN;RTAX U"T%p;'m)A+ig*$cv\S0%wpvW\i?((ZAoS]muAx$C.2^u?]m]b.Nl-wtY-'XLS5C2 U"mUiY9C_G0EdgaZB1jLVbHi;3?]%nnb3KPO6Rc#)h,mSbU08J6+X7 U"e:Cw$pmK)WgF)px)mh43RL)q)],.UBo;Dcj4>*Of,)S0$&^sIe4:79XWnWj:h3)5b1UYwl2Qgf9s; U"Z6Oiib*Ie6ZC3H*.Fk5n5VdqBe79el+kN^nv[R,uBOYo.Ur9?Y.[56lR2+.>t51 U"0[UbUX0\1C#-Eqq%G*-x[+4G^[DiG9qDCo36.x*FM&hkf%&1C=2;%0\1+Zy;o4O=/;Vr?/+NmEU^<.S?+omZZLwT>d, U"rAfz96m\0a)J0NU:HphYY%K(bb=I6VuXBMevMjh^A:t^G'Eg1smmm,^>(Fk<=w# U"ODi'),a(c>#6eQu,3ol_45_]Z$Me5ySs.4$]A5PFCMwTG1k$kZRb+;F]KDDYiDa U"0Im#8)xMKxEdd]Nv4Vj^OGkr,>.ob0;=m0Rgk&aKwzJu3Odf#]$P*l(VIRUM/6? U"E.FrdUB1_JbFSMu*XK?e>1s4ON U"EV_N3UmkK0tRP$2RZXp*-dA]l4CG^Eii<)c/rKE<+5rSg[0-JqsmmN;/O$o23d? U"M8&vVF9UFrD+>sK';z,PZnn-,DDt77xW5YdZ$S$452wR%p7Dh$C3?GE)]NZ9k>< U"NG9TQ-VUE?;9ltMups#^fhLg&\8D7'1du>I?Go84loE,4JHc U"6XMh*v%$u%p()9%%%%-O%.u(sHgeT(]<%%(%W'%%%/%%%%yfw%ljyS#hzwlb_J2 U"9[E-ix:r+;.t]8G8,(n%pd#Y\=g=Gq#YHNK&%8eak'S_(Kh39[.jf+vK%8W.q*/ U";%]n%+c:p+'pvoMm_DhK3M,_N$tqKV=354iXD;_ikFqf>6JdtA_2h6sGDXpDhX. U"q=3.U%up()%9%%%R-%1u&(He)1T^?%.%%W'%%%0%%%%yf%wljy%WShz1wt_f+/9 U"E1O)hQnoi*40l7x6NN3$7b(h85I#h=\-?.mLm[%AZh%[=U#*VR>WIMkzlhP?[G4 U"jren^32BKl-b+YbZWrkl6oWoX2x^wE^BZh'HLk\*=^q2'0\Cb'7E0** U"b+SBpY25_YSNA43sgB8>sWgaa3,0Gw]dj4LD]Fd96AMIoj)s9:KxIfEr[=IFuIU U"h?;uhrFX85Q3n&0?sUX''CUm3Oj[I2?0OF*MF;mI']L\9%?);**EO1jJEbFICT=U2be>^%a>NM\,7S:TmC=TMS0gZFoPEv?sEqpbEHm[NM6d\2g*3x U"]Xd$OjWW>OslS9,qvOJ[mDVrDaWh9Zr+6jjW[n>m**D0XVXaf,&m>OuQF5bdjkE U"(Tx8TFMM$jpQrETOAMtj1]bhbWs]#tu4gHd2/28UZOVr'=UgTM>3?lf= U"0oeUP^ZpuDUgNYu6.sef0G4n#xV+7$?KSLkMRFV2ppsb:hme0r_]]s0r7)t?N=# U"BC]&0Y3vuC_/AnGE>cBbw%,3]#DI)1rGV\B U"'^G.h(R3P2G/5BB[nkYQIKRd>)cG?_GQ1D5_/v&_\O$/UGWK1k:R..ht5Q:)WTmS?0W%5-e_- U"J-3AlDXt#UHCt4W>TE0>f9a[\=-W$)?Y U"jYpOim8q$u3sRneJZ=.dFZEP_;c4fZxwQDdjJxSc(oRp-'_p2PJB2Vf?O;+[l%5 U"q#kT0$W;%n8%xu=,KV3AWPU38hM3r_sl U"\1WD9i];I?2/=QB.MQD^UXq:N19TG/jV;L=HIGtXhHlQUZpvIa4U22g0B[r<5#= U"hEVL)h2X]Qh,oEfANHNs2jS/cTT.pfmj2M](r0sx[GS*u+e(lVa8d75U0cbaXV] U"k+[GtSEpJ^6Ppi-dr*&z]H)=>67tW$?j?EY0&e#*(L=Y]M.AX=##ZpALLIi(D_f U"Tbleb5qa:P7LX2>9Z;X6Z;Xb-)4xkjV*0kNR4gURmv%N&[-uA1VN_^a1AG\GJ8e U"82A[iie#N-92#h7MhJg[<344u3.5gQg6)p^-1[J)UJDKH)o'L>C7t$3yf(0$,ma U"iM[,LXw0NgR'?T#-[,qR8EU6J2I'4\#;.Z=SN?I13+QF.LFgr1DhtVz0Si'L:)p U"OdjR[IINS#/i6N3YC:MzLnz^h^3N(dLAFQUielN=2m/B#cJY#X\K'?Zd:D9V[oRUQ0aC)*D_d#\(F-.6N]KEgkTtH/h;gHQ'W+Td:z^rxUsou%'/# U"GCW^mSk>:uD7/$jq>aW U"ms+[_SD.#9b2\r7Q&f(I?6=8t.F-bEFGcqKbSujF0^jNZjm8>u4iK*m0&.psldI U"D?*VPRp[Oa=^Vy:Brb,*PCbjW[6'A$CA+Hb1do?Vd7:8,oV9/^kh,VGyS]B'Gk< U"_mmMGc(&MQMRy]&d0-F'nD=I+FxY](,-<^Zjxl&IKRymR<2ZwqNISY?<[0Y*HE: U"+r&WXIb^;dM_kKnN-kK'Xjk1_K8SN8z=55/ZO6E'SV8+\dg_,u_',Wn&(SBOJ_w U"aU0'CsF2Azk(mYe/k_4X)z];SQcjrQ[;CTxk9n]Hh?t\$o$A.mYzqn[o^i3Yz91 U"+l/P7s#iV=aBVq*s/nO]oO/69i6,<9TP+-[_1[2N4RqN=WQ=VzI?+=fqJ%Jx] U"^9SsL2m.F-xFNu*5$7tlG,f[d=_0eRL4aZ7C.;:qed=tsiGE217yGq&dv(qL(<0 U"%[i3fRq+G#-WKu$V6Qv9bRGUX,Xli%Yc8]9U=Je$BWm<()DFB(B_%.z(SWHNI=, U"P8_uNs8TkRs&-f7o)dUre#<[=TM$<9h6Y$fTV%*AYK4[WV4juKCTS4'u'%J=^oW U"#y*4Clq%OHp^KKg-ncw>mhrfHi$KJ#E<]y0-^X.D]7]*6/yo\0;*%_S8jZcBO)[Eb;1z(i/:#/G][FL2Ui)>8/qSG,3H>t3i.UKFFeaZYPXiotRKE^,S U"bfSHQB%dnjQwY>\Hpqy_NY,d26NToCF8jg9*5P.F3k,].fw8eJmzhq U"ogVQB:dh_Xfz[]nxlVEulzhe[ZdF0C4,L$cd0c1.h>'gQj2S^K U"XvOip(L7]-B3hK.#+p]&c,fL-xmc;F=/taRqHrDyV5$M.FKBWsk%tL:%)/]uWzH U"Mb1jXeIf3&OE1)Q94XNjE5/PYbhxh3?e'Iu+-Jj&P=#egXsW1pD4.=WJ\-d^8#uokM,4+6(9&djv>+>akK1Y2Y#u45x U"t;jD4_%%up&%'9%9%%%%-L%qu(#Hh_U'Xe%%(%Y'%%%.%%%%%%%%%&%E%%%%%%% U"%%h%wtxx%Shzw%up&'%9%9%%%%-%2su(Hnol[A%;.%%%CH%%%0%%%%%%%%%&%E% END SUB SUB V2 U".%%6%%%%hz%wjin%ySgf%xup&%'9%9%%%%-L%vu(4HX+I*Qs.%%%xJ%%%1%%%%% U"%%%%&%E#%%%u%.%%h%zwji%nyWS%gfxu%p&'9%%9%%#%-%x_u(HcOvW^*#%%%Y% U"'%%-%%%%%%%%%&%%E%%(%C8%%%mfs%iShz%wup&%'9%9%%%%-L%zu(OH(vA*L9% U"%(%Y'%%%/%%%%%%%%%&%E[%%%n%8%%m%lqfx%xShz%wup&%'9%9%%%%-O%(u(FH U"d,$-lN)%(%L3%%%.%%%%%%%%%&%E#%%%V%9%%r%gfxj%Sgfx%up&'%9%9%%%%-% U"3+u(H#Q]u$&'%%%&Y'%%%/%%%%%%%%%&%E%.%%R>%%%uj%shnq%Shzw%up&'%9% U"9%%%%-%3.u(H?geT]&<%%%&W'%%%/%%%%%%%%%&%E%%%%(?%%%yf%wljy%Shzw% U"up&'%9%9%%%%-%31u(H#e)T^&?%%%&W'%%%0%%%%%%%%%&%E%.%%g?%%%yf%wlj U"y%WShz%wup&%'9%9%%%%-I%zX*LHZk3'1F0%(%qG%%%.%%%%%%%%%&%E%%%%V%# U"%%r%ijrt%Sgfx%up&'%9%9%%%%-%2ou(H89U&s&0%%%&Y'%%%.%%%%%%%%%&%E% U".%%HK%%%fw.wt&S%hzwu%p*+%%%%%0#%0%5%'%%&%L%%%%% END SUB V2 CLOSE:IF S=25AND 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