'===========================================================================
' 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&<jh9>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.;,nxdpmjH<mH3YXXwX
U"7acXcDARCRlV42>jblC4y^NcL$:Y5:^K.Me5\5ZF6+VDpMTVGumn9Tno3NG+FY>
U"/Fp$.u:tO1Wv2:^S;Wm(6fq2?J0oJh7ZV#+kM9_H78;/Qc36PG7'*q_N5lH-fjG
U"=cVSA-.6:<sB0>OXS&6F][AjqBKOT$5:Wb*IgDjj1LRM(+?77]X\jzQ'&9l;;E#
U"Z0Wf<aC*_m:C.S$P#/Rh%&FK.ke<rlsaf(Qb:8ToUH_H&]+Z49M9&LdHYn+;90b
U"l4H1/Z[O5Rjo:h$98#PnG<[tf'w+up%()9%%%%-%7n&5K_w>9;&d&%%'9(%%%1%
U"%%%rtzx%hwxw%SifyVdb*=BTU5UMNYPh7f3Vq:C[Ie/-e*a:=e3Y2ha&UR_,&u*
U";R6/Lf_s>WLx,Oo]fQE%&o]eB9f5Je6<?U%JOd-p_a14ix]3EDrX_ygMrW)TA./
U"1b562*I&u/]#70Q#g**(s,.[Ab[MmE7mXO5>HSV^?K$:0i?5V>YW5M$Pdw:1P&:
U"hFoNnMMo0.n$9qzZ<,CRz0-_:<<vi.?alfV1=,V7>,jj&Hk%dnzfu1aeg7.paq7
U"HM.t3aSOBfcY8zitexDHM2N_5o&r,vr:E&,ix;,9O1#dw3jh[H\1k#/]F#8-n&I
U"aqHj]^>SEFvq/esHB6EvVo<uZ%>r^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$,=<U1b4K%oduel3N?2]$a(]UV_7oh.Rz\cymF,bQ1FRV%KO5cL79J
U"#V&_'jN7cvum\se7&Z)3gX>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]<hC.]RYiY[8[e^\S&m9
U"a*q[1K8%,F/Qn_m'TDup%()9%%%%-%=m44K'Q<KO&K%%%'w'%%%0%%%%xrkt%qi
U"wS#nht2)//)g%**&+p5G:=B9E+s1ZO'&JWBOg)$P*QAV#YO%6hh(&S'fE6\9P([
U"e?Ik^D[=w*xVuE%-7'6\r%TY'a%(umEgqXE0R%Q-x4?)BaL4[[YEei)Pa:m3g27
U"l9K1n%Fcxf[&r1Y%%rF?XQwxNo?wxx,+u6%u%p()9%%%%-m%r44CKjRk%%?&%+%
U"w'%%%/%%%%ywf%xmjS#nhtDka*A<dE1U^N/F0:tv'o*HI0mnrBZ5:JDV*-NB*.r
U"52#[CJAvNXMseVOPNYbS53)X_3m0GH,<8tiEhgdo4&sS_nIVX\5%epwESsBZD4(
U"UzFjeF$L[8&bg3^)NJL3vlGpkylPpk]PSmPH]a(oK\<SgrPakHN?\g[C$[Vr#Hn
U"$^**dJyU>$jw+#5$#et.^%g#Y:;9j98V5V3fGYQ9+[?v3IsA;Lp7[tP]d\PP5G6
U"2+N_[k^_x\GAW4?+1Q+$'-)*F*^R*5W?ig8H#S<T%i_NSZXI^-pY-qc#$x<j70j
U"#CGO<CAu\rQ5J9j'&i]6<slHcnhCNi)Wm96u^%]nuSM^np(KfpMb^hYa)s%4up(
U"%)9%%%%-%Qc44KPGjpO#[%%%w%'%%.#%%%BM<4G4LS82>22//)%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,EL<ky+
U"JWH86hJII35J3JCuTtk>q=J(LgBW5^VF$s*m;HxUhj^2ZY\#[zm\05,0*DX]a9:
U"Yo4Tu(IQG<hgSG\:3:cHrG,\9k:>,rwmPGL$g%)x'<aviDxr^ZVGYPQdDF,Nw<b
U"L6QO8&ilmgAL9olT41$5CIe5g(NA>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+q<MX2s#<jzsI(*2Ni<M:C6HZtjwOg23Kj%f6_JFO[Mg
U"h+\Rl.%gil<7FZxGf\p.Y+E5zED/=XJ(]^R&x4+Q,n5+rXnnPtIf5^LVCVx<sYi
U"JQ0;lxOFE]?LOYa2Z^cy#mt((&%I%8gC*U<2_66'\tpmS(C3[s);YvqxsqU>u8:
U"X^\-p:t?eWp)FL0J/6X8N=8SGZG#(9'>(JO2o&pa%fh_MycC6A>v31<ixV:qaWg
U"j+&n7W(F7RD$sL5.H_,MkZnGH4\PK%YDtb?g8Hw>lc./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"0jfA<p5<pZuq]^$(eeB:nD.SpN)&&NL^b)#j<Y9o)G>fJyfyj6VnqpWgygn]NxX
U"WkYtJ]9#ljQMg-WLKxaM4N%kU4g?zzN;FYArqK&ZSU?ZcD.4y3Z6+)'Br/<g/Y4
U"qm,$/^n*:WcC]#>$-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><LJ&0<bJi7a(dS7Y:?G?^r671P<[\</>8(g*\LSbms5x3il5f9ghkT]w<iI#H
U"D)0ti8(qV[;Lexu,<)zi/*:1o_-F.Z?Z)+A^dA3\DtMmw8tqY8fFGOQz7+(aKm/
U":ZukKFtWO6?Q]fIMQ'Rdj)VrZBU3YSN%W?\bADulI17<m1xP6;ThD#*H9G=V?FZ
U"SF=j=&KndE-_l03HNMUcnGo&WVM(mJr8d>Wdl:$B,G%NT.M-:w9eoZ</Dz)RU^W
U"^WU*YNuaC7e.V)TBaM&JWnszQ>qDmeZY:XVKuqG1e#')/_)4CG0x/vV5QQq)(SB
U"IwXw+QGAKRnC:7K;I*[Ogp+5[233J261QQ&T0gJ9jXQ+?wJH4a'L#bGATLl,P]g
U"[2Jx;ltfJ9M3gJvX4MBx74xMSl*Q0pS]j761HStMrpuD2<jG1^QqE%ds5ac)FpX
U"bs6)swAG3]W>]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.J<v+#+HY+y-QS(UhJ8^8k0E;S2kbns6tf&=.rC^EA%a'C/YsU
U"NR&3;xxGW93-GWWhW.xXktfRlW(<?oAja#bvwPE]G#YPPbcHqH$<qO.'yp=MFX5
U"e)l,#.*s*z5D5/Z^_)O%qC/TosM_tbns[a;[>iJ686B74-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)Hp<lhY*JMcjhqTM7)1oenTnqNDH^<D^<'Hd+hQlvK$
U"pW3qrmGzDm3lw_XZ_dHMuwtqrpG\AiTljselZ$Z-+^<J:(2eQd\.]?,NuKETIgd
U".'=JDH<p7d^$hZIl^K$DRx<rM7mRFWuKq$XAmQlGgNKSJV?XW:'X9UM.;UC3*-M
U"IW1>GUFO-5r5Py2=zCw]_+'6<&xn-R,tb?(;1RTNtKS(_w?;huMKZ;9k*&=oX:^
U"I7[L0hN%s\-MH$4t<q]/^tC:YReo/:F]?oVJdGMDGk/^mWAXZ&vD\8x_;8ke_SU
U"?%7_zQ$duAGcgjMKAc:],J*1q2#BYXO_c_96vr&x/vT3*uyuCXZz[:u<':r01lN
U"<-1DKSnUweIcyBi]88Dc8mdqLDy0[Fs/.)1Cou75n&NM:9uO2OVgr/T^_gv$RsJ
U"Ex1xwT*--Vh2eZKRoYYI37P^*ak;c/l21zch;(dN5pXp?/mB[c\-gO#RI\0A9<2
U"8bYa7Rk4)Cq3nnmKXp2gXKnAFSJ[Q*WCVS>0bT7/E(7tDO:v\D3>Q#=A5'25^'7
U"s^_:T?1dx>yC,9O1[is6#FPdzG$;*AbC>1d=p;]H;GjKUkn^lD-(lVxM<ikJaGW
U"bQxacOV:cwVo+_b53b>?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<k8SLd>#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<Pt_E9D7a:ra
U"WUCJ54nU;>\0fT<Mpb^0#1A>HwIP=>]<MmI:Z<lsx9f%TVf\EMEV$G'.G=hcJ?_
U"8Dwewbs-Mt/iYRzS.<SMD(?cX\WB([mpz6c9[^i<>>'0_hgRcG$%[[$>Y.Dph[7
U"OjCt_/u\709.pNV3D[ys*7IN_q[IRdSg^Cra\d0M7pPbd4HK(y8fGr<XO\X3Q8g
U"?hY(od]+Opb+pu38%7/^oPX4;+.oH&RX><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+.^J<ah^;c,nRL-,1F][SnRh>fGiKP86G/M<h
U"z%Mb?Ceo\GjG?iyk,H<T<6A2QhF_JJl9R6\U*uak9n.'][Ja8X+CH5fQ[>y,G\z
U"U/[R%b_B^Km=FgLb*]F4TUKmr_t$^gU(l\vwBe5c>nOgp$1n+K3<e'2u1shxs+c
U"D^mhER/_V%&.VHNqFpqg-6]uxn1]:f/+V7^Cy:#)13Z15WDGo)*bSw9\akqra-O
U"MW/*/eODi$0D=pTLuB*:'+OFo.IG.jANUMUWG%]DH:>W;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:J7<N+q9Q1#LaUz9.y?%0r
U"lH\BqeC0t_$hUAjZ_0dzO<KK_Ta>EiXcJJ3eeC'?2n7#NX*bWesY1L_bbS*Opcn
U"qBxn39+hR5Qs(&$J/s=>5*sxzWO39b4OTV>ATxjO)b$It4(._XARY#[W&2PN]:[
U"m6APvU9obFd\.]eA*<G^;K:'EZ?e%Z&*&gesiP$/ix:.'dZ[47I_cbLTmYoe[?b
U":S.(&Y9Ob-?&P,Uj:8V#INtlEHs#-08GRjI.A5MCanrt,5=&s;)/+\%Lh1rkU;O
U"hMb/[B>$,T74B30,E*QQZG%w6>&AZV\)v0q%6I_X<6D<bK72H0PgFh^k$:PtZSK
U"+HOC^7ev.lNxKi7ib<^.v>ZmDe5](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#),4Lj1slps<vwK24rNUzSWQ(K%Jvm-3;
U"O:1k_pq3sr&P/>DVs[[\.ITn+*n0Oz<12%#]VfQQgUx:isJ*91v;<O)#lR1gAIb
U"OsjYcl0f^f&MW[yBCbAJj'Y>AhdIXhSEY=()1h)<K'am%ojdiJr(.6j7A)ItPLK
U"'1RgnFO9N7)?tPj(3E2,t=BPZ;dEPVM.YPC8RVUaZtud=<BPM6*2SDqNwG<B?y^
U"pwij/Wa7SY0E2A>d)M%i72&L2HRn2sWHfGRcwMwBTdvTnNvcA;n?pL&Sl.Y#cU4
U"$JrLd>]a-&C\$q$,>S_HU+JYFNMhkdRMeU)<L2i;S^wti-%ykShPdN3(Wc;53Xq
U"6Sw&'BkwSpdAh3OygnSq;#k2)k3JbeW#*(JfQKc7]KS?tfOe3-i/=*dbo#=pP?f
U"oTm7n7cP-Q53T8P2dqG'3BVqFBRF.ycPgQ]_uer)=fGCLm6>&-tj+tj^r]MNj$V
U"c50K:\*Ur7%9%?z/q>uC9^FyjeD:.bq2J0K\u]<OCPDY*sVa1hyWKDyVsR>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"d<ZeMr-H/A?<X<2YoO#bNe+r2[guZ7M,%k3??^A7Dq\D>lJSk;gP4LgG]rG?.5$
U"2RkV8xl8uEN)-k]^tN?Whn3i>#FILfU%xokm5AqR\gou^:,%V7Z44%tfQGJGW>:
U"bd.eZLc<fSc9Iy+/RUQugvK;K<GZK\cPxLA&t_9F)&PXyIqFV=4JA(vF;\I*8]j
U"AzoQ2VI-AXvDg9Ae)fdu-7ca0,#2L5fYDVix9E/SF^eD:LJK)T;DphT=sQB*1JI
U"J>S*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),<WR.XEA'Sz&*)eRzi7Zaf*[FxL_l_M%zvGO6/h_Ug0IPD.er
U"LKC*ADm5rqZ'G7q-vbf]jgsN,I7N)5aBtP+)(V].h#M].L/I*[3+e+$hXp8\MUu
U"o*7WH1+4Ut?+>o3Zg'YqxZ5h28M%qPBM]SqpOJd1'LkzZObHjckRM3i3\V3kZT:
U"$Oq-(A>cvL;BFTt.ucmQS8o6Gr&<qJwZz-:W.bBg4OxWG9LOZ_Twb^+l%J<'(UT
U"pt&Q<42%-*:,]uVr3l8R-]dlx\N?E]if8Gn-Pcdy'kI4B1di8#khO\Fq*Np<:n_
U":^'P)OSxH&+LeSyk;51vw4\ibdI5p3rXHSqKOYOr'l#L(8tm?YdLRrZij[?sOh\
U"83uBCRND)gZlm3Sob2/5^Cop]Xm>x7SLW3sqABL_id7S^<?WJQk9QM(N2JVU<vR
U"Mo]c:t+k/e7M8c_L=A='p]-tZZ:Buw;nX'w*q&D0tGDyJW(1*D.z,Jrg&fl3d5/
U"tv1>XrPL*PIXp2*-u,'-gPTr7N;kz=\)1m;:e3w,Y]L=*]9SM9NNnG=6a=v[0L5
U"3TK4i%iSGu##3IFeIvz+Hekf-bG882\#cP0sVlnJW]9>)55S<Zb\DDZs%DNjZ9k
U"UYD;4v#BN2*4DGD0^7u;-cxocZv:k.kn7qpo&kr?es$r9=Mr0<g]7ZrH3<XomHv
U"9]$*g0675muDlm_F\<<:7,0l^LMR?-iHP4a4rj>sHP'i_Xav'-dtg>xt_O\X?Qm
U"1-$a<V-o.N<2(D7=V)qs/Z;SujGmGy:P84]?CpB&:?BTZ&93LVx/UfZpu^)P*02
U"=,.u]\3)=Evcl#9)8.lk>3oJ3hPCt?7q[A;x2a\UDPbOUvCARS^5Y4aQ\^6<pOo
U"LB^pW7s#QWSB:;J8CU4_ZC^60E)-?uzXCw98p?HS?$pq%e9>SlImA*$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;<F?A7<16&e1.wskSO4-G3E*pmPpp;$PrX>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<h4zHpaHJT2(l*p*HKr(sfI:z$bp48jM./:0qaDvYmo(G*_;1<^rg<2Jvu&
U"6_&$cT1XiH.vFc3b_.u6w?gT3#.rQ%6C$:Q?b?aQ9rk+Iv1AtO'O[*cr\n-\,I5
U"=AuSYDAf<nW/:Qr3C0)aisl--ob,S#EC=]tt+U+EGP)MnhXguZ^RStKUE[v+\7A
U"v^%tRbW,;M&#afL^ZK*><>oj-Wn#UVp4As6,TXV#%USJL*YspC0DVr^\vH%Q_p&
U"aQm&Qw-A)ASc>:#VygN,h<O[0x8cCoXMLbDIzqvk:EQ<M^2fRXT+DPo*0]s9p=?
U"892wbC_0'+>IG42bLU_kl:N4Qjc1tIK*=qOh3arW+?.]EdIDT0LqX/R5u_COjQt
U"0lPi732SpQ<wS>kur<sg.o98I>H)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>I9pkm<ChIXuRJIP/$S/7D7Zq[nQNd9wdyM*?\s)*l/=K^7W<07j
U":fnrr)1I9NhnQ7f\a_mx'R=#IL8cTOAg?E3]GiXFBt^<k;uqO2/1zR3?>F$#*/d
U"(PWFi3)pLe^wXq&WzFpt$yS:Y.<Nsm-wl6xv91[ki*?oXSt=C&hLG^ItAKMy%WP
U"'T'>jUaQ:+oD)1D&<t&^_CnI+(:opR,'VhunCLpq;'hLdxb5rH^+3D0rJ,KDkK5
U"FHRWgsVJZi%hgv8Egh61GAnRwu2*yz9*(%dn'<t$;f6:87HLW1:TPc^E?\4wn8,
U"X4#+/Y8pNCwgc,1APPDEV;xWT:e5r5_=AjL_#M6S#Z4s4%$HAmH=Z)x.i^hNpb;
U"#Osl)Qw3/_dL40gu8[,xRqXcEm+(ba3'J#cX[iR<k%_d.sDSO_eBDSg?Guq?avk
U"_nO<,?a9BeIU>DL-Jk8Djr:0pE_4=ZP)L,I>[6eR6H]u*Be)kC+=u).B7YC?c0t
U"k\Cw)YvL-J23z[0?H7wYx&r<iK828fs+xg60A$G=1fDVR^a[;NS;#dTNw*WTu.3
U"PF>Cjh[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<JM3hD.y\&Ngkm
U"L3eX6V'Uq+Dg/_LW-mpF_^d?0&**^tqP1Z.wjUax+YO#s?xeqz=.7](1mZ-evQE
U"[x6lMs-&8HDAwr(YXol/rwvr:oC0Q4$GjyQ>$.%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(<J7*;3SjAtKit/*Ndc]A
U"E&39L7lVfysYy83+bQxcd%N;oUg-R(aaS:6jAQ\e*&Vv5'hnYgWEKr*zo$uE_S#
U"(C)(*9<<F<RPK*MDa4o;+U%XLpI(tJWKnWbDH\,1a,xBZ.c<OeXLU$sHZP-wM$%
U"(YHY.B>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<%<mO]1c>]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%m<m,dd+lFF+8>he+ce06i&>,F4#xR.<l?e\gk/$
U";0VJ;(&Z7ePdK55^b.Oi/Ak-80bVwE/2m1$C#a'1zaYjC'n9h;hsUPrOmT/]TLB
U"9k$F0v>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'HaY</S/cx:SqiH^I*<)JLXV+:f*^3E\+,%:7sflm6xiGk&hnufK##EXrj#Q#
U"Sxt_hIEn+^/$*4o<SPY8m,>L6)12^%?G-WY0Wcm.c.Mee>h/-JI;<1m\g7Bg$^b
U"z%E#2.g=Igs.a8,(<9DRf]vp3'/6ARCA.V+83c$-87qLT<V&,p,5%a3N#.a_A;'
U"NI,'R/RA1#9jtvyI_7wMpj.?dw8Q1Nbl1Nv.<\HO9TgY8jskYdq$A9,6,pSzmSH
U"yK9p26./.e4VH[xfEMoVP&BFLcZVOYaCap1MYSu]E$I$4u^,Ucj/XRMF;*$G0pw
U"_\#DLQE*^L4)Q'+4-SI_:Xv:XkH:IfQ1ukk99rQ2;#,.j])c7+Ab<X3Qa5i=\z^
U"wTT#Ch64:QWJuT\JKti334IfUtwXtFpZP1[<qAt)NN%k58<+.sbK;wnoWA9FSVV
U"8Z]C>V\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<Ae;-q20R9$V&0vjNiP8\Ux*]C=u,ObcQIDfeQVV%h4o:BO95Xd1';9s+A
U"_6Y^?Aj7tyDfp\e)M<V6?Me/_>>Q,w<a<gRujKi/^,WP=c8<WtbH+XQ2ebwd<b:
U"c5Zq:Ey^>65Kfp-O./a'=ZY[#'l.#M9^iiWOKCATHBPO=WPN\4Ch?/r-AFciE)h
U"/bVVHLJvKWOJi0BR9?(h<m_Dk9j4d6%rmxXeJ#?5Xh/?sk6N;6UoF[/7G1l\7DU
U"Bb'6sT-%r%7p#3VeuY1d>bQ2Q'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')AdjL<h5X;jWQ+&^$a&OnMl?9gB2;Ojk2gh/'x8y7gbQq$jb0k
U"hG4:upo,/eNn,#2usxb]ijeb]I7aVPZr4,cGqI-Tn(u()[h'x#ViIDT'W^r/gmq
U"+2<Yp)M*pEUA('=I(RpmH.<=sq%aFv&vp3oREyuw#<RUjTi-l\pz,8buC=<fQg1
U"#s*11#D44_^]/QPR?Lm81UioJS1rj[;S=o4/y1l&%>D-z;QR,jGW9Uq87y'f)^c
U"WkP<1glkF_rY>DkrVSvp)mD0]H2<b?bonEN&vuIMYT8;:#2bYKUbtZ*g6<-C0]K
U"$)zzN<^okVQa,>_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_k8O8KsiqTJDBM6Hw<Z*X]:vaS/,dM
U"^[88JOa/%\eL\iItN\/S[0'G&SYK0xzNhsH/<Ia14;gW[DO+](-rfe57Nofr*u9
U"lAre+>gL=:/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&,k<mm'8U1qx.od?Qo]J]x.?hqH7[
U"7>sD1<:[#bL%PGe0*Nc^<EbrV8C2VP9h9RB^1UYbG^NSDg9JUW9tPvaAE(8\j5l
U"01b*=%H*d&AkXCXI#<O+5m:S^D4U>PYPl82+WXKs?KCS)rFE=Nk<LrP#6ckJe/b
U"pHOSjubfLQbsnt%YKc(hk,:?tH$bXrId^ZfTP2a:U/9ab'wI++(T6=+R6Tqto*w
U"Enmg32JM4hN:Im;zA9D(/;hfJ>-0iv_\X^YOLkx+9&9/b2IKYi71/r<jKA;Yt(i
U"u3b5nmqE/X?=o]%Y%;#otsOOc=?5-G1hXTH[]>&%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\]P9E<F?vP7h1?s0L.McT):d^%vz
U"j8+jtDNj[d?O/tXMAppFa84dJ,n8<Kj..e?NfLvw6C:%aQ'[?mA#X&xf'0UXKh7
U"u7wu,pcXUrX56ps,=ok>BhGGsX;V)Y<zxBr)MT+CEl_#v3W$jc\;;eVt;JqGP.[
U"Whb%fn7oeAF'\8e_c6,^JBCsS%mNLaOPwQ]d;He3%JVgC,r#.jErs-[a:-qP:4%
U"^G8imjv\h#J<P;b^p4awGJBUikyeG:H>.)$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]<bzqGpcy[\GJjzO1x'U6p;UNB=KChN/_4VOjcl[Y6wQr,HwR&(km]
U"avIu3i+Ea1yaXh]'(VvU3'uLHc$\fy]*Q0cEA;1BYz1bHad43OKr='U=94C4?%t
U"21b]]);c]8(F\:GM>+Q>KvZU?2N8Yo$]R_n'Ep<Zq1n80KY=D]KTVLpIC7D2azc
U"JQqB7$e>/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"<n7R(a8N/tePiOh+HDRsg'c[P[D[IcLbLXxdjb-kzYaUR$o8u7hK1TPAWacOn+M
U"8lFM$w:laP1ZXR*m._p:L4#s'M^3qmlx<^mdSa^9VU3Lk.JK*Y36uxAbp_W$jzu
U"^mvB\$[R^_l8+S,kUCb49n.F='1%U:LFDqkw5?6MGr?_;n3lb92l0BTdIm3[9^:
U"9nh'fszRUA^OjlQad:GvOxJ(UKO;:Biw;e(Bq]hH<FQb\Ci3M7ZJTB?U?Ua],p)
U"nGhA4:_Y3p8ut=+5Qm4ej<8]vu&J;k?Tj[hIt[/$,nxt&>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"=#\596<Ad(qLn001'aG)Vof%$T#7.5Df).JQCx,E'e:f2+_+PucPp6ZZ'eoK.3e
U"EeVX>Wr5hZ,<hmZHuxtpZuw[g\*s9H\$0n\PZkwo-Wg=8+NX.-;iO&Ie1p>RAB\
U"IK(=nO-lmNv+.GAar$-K4Qrt;&-JW_BrJ0CjKYE&k:bNp*b%q*bHY0A*kP<6d4p
U"G#)\pYdWJRSd\h.38d=/^r#VAfWC&k%<g[K,Wj^o2iQ+r6b3D*Gmav^A4X%U:^Y
U"d9c[:)qnZW=OGD9.b7FsRoCXtAb6]W[)N2lY;%RaZmqyju2[%l1wgMOkNIz1\T.
U"r<$ZV-5l/OX)GX7?ON=B'Vik$Z9UA4.*6#H?wKyK-xA0/V</RNTk#=/t1NG)T3T
U"a:T3Q([l0lZ1-A#'#.MkqP-\KkDELFw1hkK0M_13VMBsU3:%S0Ka*B6mEea>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^&>EYZ0<Ua3j=<xg$.K_$6ZarkcsFBwR6&+8(aUJsbQ1bf\RGFgP1B
U"cN=[-?TwEQn>Qx&DN35;:e,Z-G$cC.;z^NOGkO;+moqf=:Ve&i+PUq^=[w0hwNr
U";hDtf4bG).7XA2sHKn/<AAAV*&jydlls%;#Btq6OYeA=;+iEB6j.az6LEs2,>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_M<m\u:c5/pT\Oi?o]VQD(]t6ip%GLQ]*
U"U'nb=l-ZZ3RhAeuZRR'bV9EWL9kT[hy*h/??-P.,0+BmWN:AlZ0Te:ePv_$[;+N
U"k?^UJL$KTa,bn_E_:9X[hdK5*Ejb8gLNO;l/xuyIYfpXBqon_X:;i=-CB<eB'4'
U"Rh%pWE0O(-d?&=03O^B2Q8;hj)r#M/UTS+uV9Q9$^<03ujN*nY1w9r(ceNO6F6J
U"+l)jl_QG7Uj.e9E(0(CRuOqI<35M6X06rCP#xX2*4O&ID.6%u$t77o^rl:2%n_8
U"^+;1)s2HnRz2%?%ef\Hi\nO6PP=JT31]^6?Wj;#XC\o_F-eVOz3Jy6k6J'$lh)o
U"T#MTeU0IN%dF3BwNgCol)'fQ)ezsKt4a(<a1HQ=$ST3-f[B%e9oTrEFHxaL1%8L
U"ux[^Rg\Zmh<fR^qN'5>i,aut[p\>.050q/U8]DvOf-DmSI&]i$'TQ&'S>(iE-3+
U"qFBa](ELMP:&Wbx4RCB9MxphN=9CV<pXra\]>-D07lZ[u*9J;b>D<VrO3spMe\I
U"]C682=<2MU*]5XU1&Vro4rVCtG=&a6SS%]EhmSM]6kQfGh2F#iBo12c-nSM<3eo
U"QUP;Y:9Jb:3C=zLcW$k&ICTA=;^ao88#XSFa&^%l?8??0&>%0^Ak+S0W7y_XRJU
U"K]?oE8X9V*$fO9EfueTOR<i$wxj]Khbd*%<,?,mWf'LM'<eX3;6\>KF;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?X<VrhEI)43,a,Mw*u%p&'9%%9%%#%-%&H44Kt$7
U"6,Z%'%%%%+%%0%%%%%%%%%%%%E%%%%%%%#%sj&%ktsy%Sify%up&'%9%9%%%%-%
U"7n&5K_w>9;&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
