'=========================================================================== ' Subject: GRAPHICS MOUSE FOR PB Date: 05-28-99 (01:14) ' Author: Buck Huffman Code: PB ' Origin: hhuffman@highland.net Packet: MOUSE.ABC '=========================================================================== ' Graphics Mouse Routines for PowerBASIC DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"GRPHMOUS.ZIP",4^6:Z&=17204:?STRING$(50,177); U"%up()%9%%%d-%&4f4Kt786,Z'%%%%+%%%0%%%%sj&&kts%ySifay.y:,=Le5\Ls U"r+16q#gD)Y9t>u+Sw%3)IO.0j]B0/-&Ak9BX=.&?$/FFMhJdGg8/.,cR(_Vm]k+ U"2v)c^%po6>?YQh5si50eKfH/n.K,4t>?,,++wTq'Mu/oIZGB4ViRJ37Ye*^n8;x U"3,Y4Yp)BA,8n--g6Sz&WFu-hhQA0GoSMbWsq7kI2j9E5X,B[6UOlQ7vU^' U"qQVZ[U'XPPP(iFc>oiMuj'yiP[Vtf-Do6)luR]PV^:Be[Jr>=Y6T)copJOCt0z. U"b0Ye9KaPDTPQlq+A3_TJdrqyNoc)?'D\aI(\PFlOkb9cD;4VwY9v%<)>(B=uT&: U"##/VC$[N-2gQS*U;k[H_yYh)XaVnHJofg\'t_Ih]]#pAC%;o+DtDZ-T-VADzDq& U"s3y.>VbO8lR;S*XMbr[SjU1*A?/S]IRU&a5)^HcPQJ)VX-BdeR2gs(9Zn21LQlk U"kM[0+F#Ij^1Xb\\^plcpOH.f9IH?g7V3#E]MqSgwLekg^-dpZ9s8?HFg3/2N11Y U"gN(fff:Iu?7$*$UncL3=-mdhf,eukPpEXa8g]L>F1B$EHE+7PF4vzs-4j\YgRoh U"tvXhnOliJHOt1nV8K$ZuPnCJ#Ly$BAkcoI/J$IJ8JCmj.;,nxdpmjHjblC4y^NcL$:Y5:^K.Me5\5ZF6+VDpMTVGumn9Tno3NG+FY> U"/Fp$.u:tO1Wv2:^S;Wm(6fq2?J0oJh7ZV#+kM9_H78;/Qc36PG7'*q_N5lH-fjG U"=cVSA-.6:OXS&6F][AjqBKOT$5:Wb*IgDjj1LRM(+?77]X\jzQ'&9l;;E# U"Z0Wf9;&d&%%'9(%%%1% U"%%%rtzx%hwxw%SifyVdb*=BTU5UMNYPh7f3Vq:C[Ie/-e*a:=e3Y2ha&UR_,&u* U";R6/Lf_s>WLx,Oo]fQE%&o]eB9f5Je6HSV^?K$:0i?5V>YW5M$Pdw:1P&: U"hFoNnMMo0.n$9qzZ<,CRz0-_:<,jj&Hk%dnzfu1aeg7.paq7 U"HM.t3aSOBfcY8zitexDHM2N_5o&r,vr:E&,ix;,9O1#dw3jh[H\1k#/]F#8-n&I U"aqHj]^>SEFvq/esHB6EvVor^cLW=)oQi*\G15IqU-J+bWP7]kefJ*CRQBU U"3Rbo&.]Z>t\+bqQTuxGWqGv_tko7eXrLB3]]yj0QVkL6dyY9%pp%*&SYo5q_B1; U"m+7YyRX\C2y+3r#)k5WSh(hhKbVsgIRJ1e.KbX8=d]-83\l8vui5Ca-+-+L2zTx U"lx6lxnFtW.,D:\Cufw%&up(%)9%%%%-%%F-4Kg(1g#*[&%%w%'%%/%%%%r&(htr U"%uSnh(ttw$,=c7OiEH_$oX(o9YO[RFnqK5kWASSA1M[_9$0EI1gM U"fiCj*8#h23l\x2FFE2\%m-?zuAZ2O*d=YM:atO,S2p[KDy[5g,Y0)55\o+D[9m] U"[-9u'toJp7PO4LvSRGnn:sjE2YeMOhtruPcfa#tFTTf6W%WnA:(XYm#R9KzXA>d U"wZdjTuvXThTc08C'mc-bndj](bm.t,>x/D;#CXJ00oh]$jw+#5$#et.^%g#Y:;9j98V5V3fGYQ9+[?v3IsA;Lp7[tP]d\PP5G6 U"2+N_[k^_x\GAW4?+1Q+$'-)*F*^R*5W?ig8H#S22//)%g**&d+5G:-=9 U"E+JsZO'C&WBO2g$P*(QV#Y&O6hh((S'fXE\9P%(e?I0kD[=6wxVu%E-7'(6r%T* U"aO%u(EQf$OUIOOhMKCt2,++ckKqO;[,')8RA1YKGwt$?0r41Be4%k)-A9E%%%up U"(%)9%%%%-%pc84Kv0pR9p#=%%*&A%%1#%%%&%^Zkw%tsyS[gfxf),Jx#u#+xX+z U"w38&1#6IXDmY05nYc5*;%>ICoW)A;B>NGXR)*s,t-P(u$<4g*(JC$6,S,ELq=J(LgBW5^VF$s*m;HxUhj^2ZY\#[zm\05,0*DX]a9: U"Yo4Tu(IQG,rwmPGL$g%)x'7\+vs?p\D<:T.5c3i=M02u1*yfP;)tB2w6 U"$pD:C=\Cc^l&6Ga<6P:C9J-lSPfiCG,XTw%s__dj<;=M8lsrfnsSqhFW%ftMeic U"yyS:NZ.:HU'y.?7a/tp+qu8: U"X^\-p:t?eWp)FL0J/6X8N=8SGZG#(9'>(JO2o&pa%fh_MycC6A>v31lc./Gw%5#7)N&dgE?Jegw$$ U"4x&ZD:fd_^IZJIKnj:4j_-]Pj5*.$YQ)DN;+dWeDL*\4UkPeJaz**APqsze1z;Y U"QPSJj>Al,G0c;^Q6UI?#7\=Jatp4ZMT-uXI8/0b[0/923a_V9c-n?(v[8hDWiER U"JIX+3GmQ5+jK+UhCQqlveMY.[VRtJYiGrslKb12fH,rwC7\uF=K0W6/er-_0v5s U"0jfAfJyfyj6VnqpWgygn]NxX U"WkYtJ]9#ljQMg-WLKxaM4N%kU4g?zzN;FYArqK&ZSU?ZcD.4y3Z6+)'Br/$-v7km.JMNK.D,C5hBdc1=udVICs=P%w2nk&x1fNdUZ&Gkcj U"d1SR=M,XhNjZoUq;#GMCHIfXNZa:#X(E-k99[j*dph#^W>Nav4/17M:sHIi_,A& U"cI.xQZaJ(y**9$GIe4uW\(q?:'GVkJ<#>hU>4+G3A83Y?;\0^'aUF2?XHZD&_\. U"k>8(g*\LSbms5x3il5f9ghkT]wWdl:$B,G%NT.M-:w9eoZqDmeZY:XVKuqG1e#')/_)4CG0x/vV5QQq)(SB U"IwXw+QGAKRnC:7K;I*[Ogp+5[233J261QQ&T0gJ9jXQ+?wJH4a'L#bGATLl,P]g U"[2Jx;ltfJ9M3gJvX4MBx74xMSl*Q0pS]j761HStMrpuD2]n#t=w#rQG(Jk7+)i)4xidMK;oSn9'cGCm;-77xS^6?I[+p6;[& U"D%fPGh-NS2ucR&i_q0%<*\1?gFN5FPNw'*>T5rmt:b_Lx:qKSL6]>ZyE_sQM^TZ U"ftKY5_O,>n3tk.JiJ686B74-f9DMZ\d,H9%vG:qD< U"h\l1SspJ_0IE#7:l7KiiH>1]>P,Y0jYSs^Mm83?X^ebu4l3\D7b_s?t&tq1rq8L U"7/reTTn?j6TbiuSCEC*9WxJKLr6cj$^aY*#.d-FicAD4m:l3vsrJ:w;hZ(N:%D. U"a?3GKN/tnZHMBMxka_F1mIDOSXN#AsTgEL)YZG$]8h[-b#'PWVhFF2lUsp'#?,+ U"=+4W.[H8Kp86E1>HRZMEo1CUS3s^tNJW3yu-Xb/&4J7-Y3,CpfpNLL$M2814yel U"'c(i<:fN]-H.(GW+cvG)+NT:7?4O)6N+[C*e)(_*r/Fq&Q:oCXMWK(%p4Fg,h1& U"7q9Fr2IxHtd/KUh._O,zt#/OAk_fs^Ycwnu'XKnf^YcEwe'NevTB9QNvFiC\'Wb U"WPHe&F%NZ,Ih0S5EWTz[J[z\+/MOiYUdDv+DUyS:VUyc^'>uJS'Fuz$)fpo>[Yh U"zfM+M9,uMeMsQ(1x6*CxVTZv]\];HQDADnxF.7]OLhCQFqucYhA<\H;JTOo^ic2 U";J4+T1H,+]vY(UiJW+nmY(UJ<0+nYQsa7B3'Ii&Kg3e+]vqk17$?ll8KW9z(2)' U"SOCj5ST4Zk\93>[S+v2aZt2Ufn82VN1eAl32daZRULvW+]pK2UJT0$?KZfRHN.d U"dn.>mh$XZ:lvKUKG7*oC)HpGUFO-5r5Py2=zCw]_+'6<&xn-R,tb?(;1RTNtKS(_w?;huMKZ;9k*&=oX:^ U"I7[L0hN%s\-MH$4t0bT7/E(7tDO:v\D3>Q#=A5'25^'7 U"s^_:T?1dx>yC,9O1[is6#FPdzG$;*AbC>1d=p;]H;GjKUkn^lD-(lVxM?pao02hDa6#oqp[]HIZ1s%z9+C%wi6&dwO(0b-BBVyn. U"nC%;TK0NGD'XitOOa\D[FQqYMp:lBL%$tO->DCIi%L5*SStM]x,&6^oqV[G5&(^ U"$u[vWuaAc:s1R8O0FjvmDwd[o1f'.rs=;FV&Z[*ID)L[255)PwKqMT1R]hB=hOO U"N<7'5LE([GEsmGlE7L/F\4Peh#[p*kAKs^O\'l-=k\2cH_gEVSXU'oAW-h=l/$D U"v>)Ct;bJ%),Y4T,,AJV2^#:HJ=^V^DCs=i0'Rj*u#lMA8^(.Z'E,+V8e U"&lH;E4*LV]lIBKaNnBdMi-\&4f,$dX[.p]lK;x60j<=)n&P\RWM]L.7#sIYe8AB U"+tO<8>8S,o1w+Lo7LUlK,M/4]3$*TK&nFw;PnfKmnsJpht4:^ISIeA*&s&0;0T& U".52L)0E)Tq-\d:mvEf9'w/fF%LS#mp*'1kqGS:GgYF;iT,4pomgb6m8K)aG.[qf U"5VA(.?O?YFra[Hhuh4-\a_^4ou4XAiwZattN55&\wZwL-d0jwLp\0fTHwIP=>]>'0_hgRcG$%[[$>Y.Dph[7 U"OjCt_/u\709.pNV3D[ys*7IN_q[IRdSg^Cra\d0M7pPbd4HK(y8fGr<8kYktAMVRvLDMq4F39,M^Ntk18ANj U"P*.XCRA1uEb2IE?]A2vMYeCk6#nn(u#8\%V:A3:BJxdV>'Xf-u[[*Ss$>i5-akb U"ltS-vH4st>C(68VaqpBdY?A#JJ;6qS2pGke1+zRmG+6Y;sJNELg$j4+3di>/aUN U"7hQGmNjQPaw:bCBYD^ZXd0$Mt;.naKdB[KY3&aj4DF3-FwNJug;\bs1)U[:lSjI U"CTv,hKrm/U5v2v.U>q]\?(6Tmh+I$QuUQ9LcW*D&$5&-aZRcW-\xn4hNK,&(\$A U"12f<]]qJtyL.),zFX5_u*Cm*8ZF,5a_bYoEf,%6EdQjPx)ZYKCR4IQzsMX)s:1# U"gMX,A<6oI^5hwR=q5a0A4XEsXs+.^JfGiKP86G/My,G\z U"U/[R%b_B^Km=FgLb*]F4TUKmr_t$^gU(l\vwBe5c>nOgp$1n+K3W;FL:%+78&6:P(fdnG4b U"w-H,.KZ_H3a.8CQTn&#)m<&(&jio_#Fxc(6?Cdm\)E[UBkF3T)H'bj5n'6&osXo U"ic52=[A[=C)jDBVwkht%h$AEuk>QG#td(aMHheSA0:J7EiXcJJ3eeC'?2n7#NX*bWesY1L_bbS*Opcn U"qBxn39+hR5Qs(&$J/s=>5*sxzWO39b4OTV>ATxjO)b$It4(._XARY#[W&2PN]:[ U"m6APvU9obFd\.]eA*$,T74B30,E*QQZG%w6>&AZV\)v0q%6I_X<6DZmDe5](rey7O2;_i(oARoFsK^7SBZigb)T;#dlmMk U">y-m,tYw9*pqU]_;bbY>*.hO9FFj1UBWC2.1K[Bp4O^aUpD7QSgotzCY>COwWhg U"7+HB7QsGWLzd4*Lf?5R]$nA2G^TZv;3q(nD>Ngk-d1NgYGrFP6n'ey#LSNE9'%$ U"ir-b:cF;#jPoiA[gV/5;#W#wiA,Ji*wk^Jea.r'r;8=2SAc<9nP&h:s53XtO1Lr U"MUz)WCia2oO31oH;cG[oXV^60d-G>9#),4Lj1slpsDVs[[\.ITn+*n0Oz<12%#]VfQQgUx:isJ*91v;AhdIXhSEY=()1h)d)M%i72&L2HRn2sWHfGRcwMwBTdvTnNvcA;n?pL&Sl.Y#cU4 U"$JrLd>]a-&C\$q$,>S_HU+JYFNMhkdRMeU)&-tj+tj^r]MNj$V U"c50K:\*Ur7%9%?z/q>uC9^FyjeD:.bq2J0K\u]Me_# U".gXg?'1=B'+.p_a)dwA&68E$QVbU=M.c?DRJX^HsOZQE3s:LnQAKL#pn)eD%BI> U"VI]I(ABHFO*?gr5WPSVf&QRr'fX_\*NrZ\>r8K_]^OR_&27)Z.+Rq-kHgJES<#l U"[3C?n*#tN)/8.sSMl]*;M?,O)n3J2n>xXtlg$/HEuk?BM<)TB+Sg2)YY6I0HL9S U"LMb[D%_JysLK/%a#eofUhJo$P7SyGf#n:w][rTySo(QYFYKYE=%R)z3J8ZX=Iv1 U"_PeZ;;hAg5cvdJE7hR\t>*&tmjR>&VNj3B6h(,=LqPjC&8.hnb-^K#Bid=v[#Zn U"m3LNHHYoI/.+OwT;)T')6'z%V?AxxS89.8]tSP\\n$h+[k:yxpXvpL;;G(GpIi& U"dlJSk;gP4LgG]rG?.5$ U"2RkV8xl8uEN)-k]^tN?Whn3i>#FILfU%xokm5AqR\gou^:,%V7Z44%tfQGJGW>: U"bd.eZLcS*45gc^NHw*U=kP>)M(0>2/4idK>8#lQAM+K[g=XXP)'+qk1>b.s[4:2/gt.O U"JjtX)jKW'[qE9a-/p7X)bBO'N9^B2[T-OVfvMy-1N*goWzOtTSS0kL-25/85K_, U"9o.IG3^F9o$&I),o3Zg'YqxZ5h28M%qPBM]SqpOJd1'LkzZObHjckRM3i3\V3kZT: U"$Oq-(A>cvL;BFTt.ucmQS8o6Gr&x7SLW3sqABL_id7S^XrPL*PIXp2*-u,'-gPTr7N;kz=\)1m;:e3w,Y]L=*]9SM9NNnG=6a=v[0L5 U"3TK4i%iSGu##3IFeIvz+Hekf-bG882\#cP0sVlnJW]9>)55SsHP'i_Xav'-dtg>xt_O\X?Qm U"1-$a3oJ3hPCt?7q[A;x2a\UDPbOUvCARS^5Y4aQ\^6SlImA*$0U+0m%07 U"Q]4*xC$(2IfTMoB,En[$6sb>YHpQ>DT8v+4WgpSfw$KtM=;&Xs>HR#5ktv<$v=a U"codYaOu?^WWZ_3SWWljZ.a85wEPrfl3;-=.48gvbX'%WK+zZJj1Uk4WPP:c8,)q U"U,9E*m=^amH4(h1zzTN7v'dmAvHpqh$qf^0w]s$,q0hI,%kJu/TVNW&t-5U.yW7 U"]E7slRUVw-p8up%()9%%%%-%=h84KnfbQF&U,%%%Z#%%%.%%%%rtzx%jSgfOxV( U"(>>TO78M\Yd3Iv80'Pwp,QjK;G;dj U"pide*#7NmEbTEnhXlFi?;>fEK(w3GQ3ji^J8k(uhpTWuSb1gTaB6urv&-LeDlmP U"]h]S_^,g$#bE$1\.hCFl.h1^Uimk.f*l$XAG2wH'NiK7JlE^hW1CIgaL\bFm,\b U"0bPL#bfMg+kfAfd*j?wa;b(BCaKNV6#U)rm$_]$>0L0h1JaV503LH4tDm])](tD U"3+WQ4aT*b*$[SWnpyMjg->AfdCf1trMEN7QUeu(5I_6D_)V,fnD,nJpqm<*]vDR U"SVGCpm1k'>=S']lA[dTWS:H&]jF?Lz$o$nUC-S-mjVeX9q+Y2Fd137aiK>au3#o U"8.XjLYowQI*sQ/A%eyH=rOj%Li(VRZ#1>]XG\55mN%3^Q5zwHG;EWji.L=f4S3: U"6(37SC2o)1Fnru&X.3Z__IU9U'4]SzQIK>O?W.;FgE=zHOZ\9xar$<#p(vD/(FA U"sOpm[tok_PW7euj$F,w$zt4x8nM]ld/Wngg%lf]ks#FBHU2W;Hk$hwB8JPFvvV5 U"D;86atk5KIcbk(8CRE8+Xr9h=C[bE4b%$O*kXDj/i'6iei;Z5'3Z7>XvH*[7zp+ U"jf;A<>oj-Wn#UVp4As6,TXV#%USJL*YspC0DVr^\vH%Q_p& U"aQm&Qw-A)ASc>:#VygN,hIG42bLU_kl:N4Qjc1tIK*=qOh3arW+?.]EdIDT0LqX/R5u_COjQt U"0lPi732SpQkurH)CC//n>[k-e^_k[*U65+Odf6pW_FAVeJ]Bcx U"DU-bsTo[nu;\ov0$MMr0h'dgfGgMw1IR7MY24D=(pIjRVOE,3KO1?4=8=W_RjdD U"Y2no]Jm6sfY&6L(fQ^m_o*>Yelk>lvl8)&?ol'6)ePlHWXE8q#*09V*QuB#(V0- U"ROMPm+;$wC,'KvdbIkfT&?P&qY)32H$6O$,sX-zs(KLA<8e3s>_\K:Cuf1[28&Y U"<:q$C&5b0MylDanjKmJ&&7e[uD4+Fy=Sz/r[N[1MTNpq+&q4&?YTorRVJ(1>ZpG U"c_DoA[5cas3>I9pkmF$#*/d U"(PWFi3)pLe^wXq&WzFpt$yS:Y.jUaQ:+oD)1D&DL-Jk8Djr:0pE_4=ZP)L,I>[6eR6H]u*Be)kC+=u).B7YC?c0t U"k\Cw)YvL-J23z[0?H7wYx&rCjh[6HS'TaKE64qpM(h,eoQou5[TLGyc(nax/9,.3[x1TP-sgxezM=fNMdo5 U"ZnNo)JI==+%psou_n&d-cS?jn4>?KChBc$sFp7Yz2.=]tn3fZWjxoZZCE6eb^;o END SUB SUB V2 U"<_\>HUt+8$kdDIHg[6pST0BpK6e/iKWV>0d^lh=G1_MEi/&Ms$.%D%)_>Ac)'*,EsPvVy$\CW%)' U"=%DJd2s'^n+PwlRDPEB7i1KBcSTq=Xi[Ij9I5[d[UAmijOB_DNKo;JGK[,'9>Ay U"k;M%;O4fI%1vF77mc+RSFJYcU9zYO-S&[Iq//rSBi0>p=a5oXIil>A3i$E8UBpb U"q&HXC3h_\Mc#xk<4Wiq/>).Il2C9^fA46Q'0?aK,-7MNjd+a8b4OmD,gHS)R>OO U"Evlxhzf-&x'u%p()9%%%%-[%0%5IK]\p-D()%%%-2%%%0%%%%hzw%jiny%SgfxW U"&%b=][m5wG^=$c35XO.9RBAK)h_qI0#Y/&=[+F+E_n(O;P?XA(9+,)I,Sm&0z$2gi1&.lAKfBJr2Z4[YX=*X3tfo-N+8'tr9#Cj U"aVAGSG'N2bJF^KTdRHv]VQ&gl2=hqV&?=Z1w9T'+P?$HnH3lD]H+3AK^cERXK:$ U"bU(c3j^LCRoU^mr4-=YmS;iYYU;6*k?b_iS2c\0d)Ca2VCn=A]6Q;oL2;jYA%A> U"t/ZRTtK[5XN/$uCeWh2//,?-U/Nt=C.i'l%Z_s-&NO+4r)9%.aFe:XZ=d4B:A]Y U"$APG?VwJp[<7CL\y4h601r\Vi4Swr%*1(W\-8089DPL--Oq(qfN\KWON)PIn)KV U"3LC>UPj%k4\*#\$lR_%[nLp00?-:%cIA3A?Zm^)243&Et9.n.kfg=5L7W,-He6_ U"yJAsZ^rVDgOtX22L2#RL\S'w90NR&?wwti<%]KXVC.h(5&OgI7_VNsVM U"'Pe8N:\=wiOgGu1(lo8Jl1R2FodET=kRJ.T3k:9RX,^zFuV0ZD-TvT#i1[A\/yQ U"Ak.6'ISIK+QX---ZMTmxx[3CuJCHZ(ZTqzsy*VL$hs%m7Sk5C4'k-xYcH2odQdd U"'%[^wSF_2k'1^4gYP$YXPg15v3dyjNPt+l+*Sr\l#woQ?:;UEnCL1=-u8'-HDY7 U"EJavaDX)?cooOI$^tw7;+O]4'+6p%fW21/E=rkun3=GkVeP\$xSGJEsIrUb3mr' U"3.dCL:452W9hn:Pq2H>VAOITuf3dZrYH9tWQW\t9epL%#CrHD?,Xp?5aIb?mC6- U"23+*M>O#8e0'8^0gfT/(2k3XF7n9ukYPI6Ea$,1,YtVibMi-UHlq)VMZ[E5f./' U"bM'/D8VHr5-MPZpMes53&^*dw'0'N4n-7BYP.bqs=VeeWI4(]C4b3:beV=>:[V. U"R:QotNErLC[kpQhZ+0]jJ_3Kj&o>%n][eZLYJN,^/PQNALk&_GJRjf/J3[R1ZN5 U"C,c<8beAx>+u/w)4t0aB-JL%mhe+ce06i&>,F4#xR.M/)[x#?KQKC2OU=hO8L)Ro^X2IfFO\2fK8[vaH*-\x*Wgz%tStg-QSEz U"C&T80dP<,hdJ$G&A0[3>WTwIrV?KC'pj]N-1ScB_\L6*>(oxw(Infos>b[+=aHk U"D-bT,zI^V:xDGmTn0fTYttoY[&4+.$dRHmuP2A(;])_N;^u.8POD9TsMW:pQ5lf U"CGlQ8A]51Kn&S0k]h79r2(RVnO;\P5Bo[,2,ku90hsnqi?WXxu%p()9%%%%-p%= U"84mKSk2-#11%(%$M%%%0%%%%yfx%pgfw%SgfxW6)bA][m7w9h-8hj3Z(\D8?=;M U"KTvFU%Z/qo2g9-6VxS51k:_-OBf5nM>n:168%aesLoEo.QBPfqd&^jq4%J#u8w1 U"PHZ:V\>Qb8q6<8tTVeLLwPIw58QKUD;/nqJktXP6gkj0COYwO(y7\\Er6F9.]9g U"R.'E\TCQirKtTUnufz?fE9bS;.7Pe:b*o#RR;al$0Tnr5'coceM[v+]Pu\e-qgP U"8B'HaYL6)12^%?G-WY0Wcm.c.Mee>h/-JI;<1m\g7Bg$^b U"z%E#2.g=Igs.a8,(<9DRf]vp3'/6ARCA.V+83c$-87qLTV\p#$-ERTalWl7FtBwVkiSf[*WeJI<&,L\J6w=)q)6Kf5E3RKF)7R<*7C5 U"^ft>XE&qg(F+/;9r:#7M?Xqspr4GLus5/H_*O0LGPJgR&N]KxY.5,94,XPL.[XQ U"TYFUjRf.QkRk>Ju0R.N,Kr#u,v2I)Nm45/^VPrC_wdK]E'(\,'CRmP?8QIsGTjB U"%2]xW>Q,w65Kfp-O./a'=ZY[#'l.#M9^iiWOKCATHBPO=WPN\4Ch?/r-AFciE)h U"/bVVHLJvKWOJi0BR9?(hbQ2Q'WgOw/LFV(<2u6w;JU<8*a3Z+#A9Es,f\44sV, U"fpoVDW6(vi9.OMPl%tu4m;(,ip.fv,,XO/dXE67r9,hgc1TG:8b]\s5*+;K<.>E U";vutfg]V-pKf&jkl#lm#v9/RwKfn]$kbiZPYu*h/I$da=hw#m13GWQpw/Iqb>[q U"e=KqXfR[xZ-Y')AdjLD-z;QR,jGW9Uq87y'f)^c U"WkP<1glkF_rY>DkrVSvp)mD0]H2_5IT79,KD%G]**^1dB;VjjB$mN$A8;9rp,y_PJ6]9S>W?jZ5l U"liPA\YSl_8,ciTZ8BNSt_F&Tqi]9m3V5,xru8H\um(Tu)8q22i1*.?(f0;jTrFF U"#]d.JWU.k%43fT%xu\NBn([t6AFMVg*_8;e$D)%btyMWTbL1QRuee.bWf]ZxIj7 U"eP[#h?5S9hEP(.2X&KS'']i)NhJS.$+-X_k8O8KsiqTJDBM6HwgL=:/q\5iTZUGto+#O_ZlQ9'pE)>,.p(4RLtXFfe/8GXP):(R+PJlgc>' U"\,sVANUl4.^\Ycg?a7)I]R5ZAo[NvAH^FPcKOj\UiR%BwE.l<&2]jr/?bA[PO.# U"7G8-Q;7HKU7ajPr/yeb0K.-\m..T+lQCd3&,ksD1<:[#bL%PGe0*Nc^PYPl82+WXKs?KCS)rFE=Nk-0iv_\X^YOLkx+9&9/b2IKYi71/r&%1Fa&k6Mh%r>tY6J&qcUL+*z U"ZG7lIOy'lo1t+pH).+g$lcl9$D#HW16)Ye=PfqR>_>O>UM]463+H4(1OIm'pJv/ U"D?M+V>sVV_iH(NTVDRRP=SO7;Q\A+YU+q+mXYTL:W3&qJ.*h'Ri0$X/gw?9GAHb U"53PqImu-mah1E&l6DxemY>js'RRbVbQi(*U\]P9EBhGGsX;V)Y.)$3n1UZEyQcupNDB+0fn;NgsPMgBxH U"sWV?W#/t85=eCDp\E#U\w.cv)vhv\*tg6/k5g/+ImVA(Wg05cS[4_A[RwZ2eIJ& U".l9G(5U;ZNknd#BO)Dm.unbh9bu:l$[2^wB-Si3StjO?SjbOGh5N$V.4JB=O#YJ U"iU=sw&IP+UgOL2(r_k7s#P2:y#rPXmdiHYdCEDSM;nq(1f-PDsQ/s)OWgo=6;%s U"o)-E9Gz(a]/G0m>L.eg%J&q'B5JRi6r?uR;h-K2Gjf[u2/8.>ddI2ZT&io0tk'V3P U"V+$/bW#R]+EL2C88>,oYJQKC^,0,gG*/]RjkO7+7?XrubZKqkw5R/\3%UGJW0jI U"<\Q(1nA:N<+mhzy';eS6KkBr;Tj^hNadcJ&KUo\?7$2JV5Lje)e/i9er-vO16F# U"2%Wj:Q9oWJ1HtzZ-# U"qXXHc3A8K6XH8WDZkXN8gg:O9J>hy)Q%/-i%tS_j$P41RHimKsF;?c5SlWR6UP9 U"\ES.?_luZ2s'd%F8RZ#0SP'erxQ=DR-ykj3\mIuh$/FUJpXoiLvVM&Oa\<>RBoW U"9fgQ6'W1s9,D(mL3;2TV]-\_R//&i$7/0%YTBiXp\gTwZKOro2(L3J7E]i6Z1NV U"D.I+LqtHCd?Dxass3aW]u56mPgr74/E=\-*R3S4RiBmc']41j)Afp^&F0rcG(;% U"_+/JTDGrn18V.J>^l/go,ClKwdi=_P5sl0E&^WD.fkMZ9(e-Gr_Ip41q7y;/>7p U"4RNlbGvXTwp.%up()%9%%%.-%))]5KIx-n&c+%%%x1%%%,%%%%wj%fiSrgj<%:& U"=#\596Wr5hZ,RAB\ U"IK(=nO-lmNv+.GAar$-K4Qrt;&-JW_BrJ0CjKYE&k:bNp*b%q*bHY0A*kP<6d4p U"G#)\pYdWJRSd\h.38d=/^r#VAfWC&k%J*P U"3'+q24c3X:U]87$Mrpir?y0_Mc]Jp4Q#9[7l.Oo/>ZG*.1Up)E39I$Qh,]L,]m5 U"r&-q>/;#IoFrhm-%4/&;h91TeIo[r<5kj3I_ODa6e#r>%,fFoc%?d_yRDF([8NU U"b-A.Du>)c^&>EYZ0Qx&DN35;:e,Z-G$cC.;z^NOGkO;+moqf=:Ve&i+PUq^=[w0hwNr U";hDtf4bG).7XA2sHKn/Wp U"o)f]D94Z[^/=9CkikCDvR4uPzsW_3InfzU(CUYm\lCG1%N7FLvsea-Ccv:%mTU, U"IuV:?<)P&%^qOx49t%aFmg]d$s(89NMRTvgSEK1N)/)vEW'v#aFq,LV:,D*;E]% U":zU*'B<1,k7OQ/gr94sSr4LO%dUp_d]I4XCaw_BE&DCpAR&XmpesWFBq*[yqhfL U"KtsybXh+,6(fZ=IVF6R0%FcI/r\g:Te_qypRLTDrJi7OQeVIBunt>sQ_sMT&-,Z U"8_oyhAdFi85\#(KH7'8SV5*$,F(xiN_Mi,aut[p\>.050q/U8]DvOf-DmSI&]i$'TQ&'S>(iE-3+ U"qFBa](ELMP:&Wbx4RCB9MxphN=9CV-D07lZ[u*9J;b>D%0^Ak+S0W7y_XRJU U"K]?oE8X9V*$fO9EfueTORKF;lTPy-$[ U"0Jg*%kmZ57>za&I?c1B-:*:'jFQ/Lr2q-d%F?p))8/(lD]OMVG)aOHD/rsBJkIJ U"Q5>Mnfzp'LSeI^DdX]2e=w6tuZKK/VRR6,X]VF<$2y'(\7y*9UB[f8[3+hG=me$ U"rb/$gr^:K886bZ)H-fXhU;:4*bT4WN;-RR;HzZOT6bC\UnJrDL/Jjy;wu9aDC?e U"JBY'_./ov[rehYfx+UH*-q1?X9;&d&%%'9(%%%1%%%%%%%%%%%E%%%%/(I%%<>MDB2ADBAS3)0Cup%&' U"9%%9%%%[-%p8o4Kvp(R9p=I%%*A%%%1%%%%%%%%%%%%E%%%&D-%%&&^Zk%wtsy% U"Sgfx%up&'%9%9%%%%-%=h84KnfbQF&U,%%%Z#%%%.%%%%%%%%%%%E%7%%cE#%%r U">2DB4S210Bu%p&'9%%9%%%%-%Qc44KPGjpO#[%%%w%'%%.%%%%%%%%%%%%E%%+% U"V,%L%B<4DG4S8)2>up%&'9%%9%%%%-%%-04Kg1&g#*&7%%w'%%%/%%%%%%%%%%% U"%E%%%'B)%%(r(ht%ruSn%htup%&'9%%9%%%[-%m494KQ<.KOK%7%%w'%%%0%%%% U"%%%%%%%%E%%%'o*%%%xrkt%qiwS%nhtu%p&'9%%9%%%%-%rH44Kj(Rk%?[&%%w% U"'%%/%%%%%%%%%%%%E%%(%j+%%%ywf%xmjS%nhtu%p&'9%%9%%%%-%0+%5K]q\pD U"(%)%%-%2%%0%%%%%%%%%%%%E%%(%fM%I%hDALj38CLS10B%up&'%9%9%%%%-%>= U"84KsSk2#'11%%&$M%%%0%%%%%%%%%%%E%.%%>R#%%y0DB:g0JAS10&Bup&%'9%9 U"%%%%-^%))5mKIxn'&c+%%%x1%%%,%%%%%%%%%%%E%%%%u%_%%w2403S)<4up%*+ U"%%%%%0%.0%:'7%%,e%%%%% END SUB V2 CLOSE:IF S=230AND 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