'===========================================================================
' 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%<taFwslfcZV+[FJ^k6p0&Ph
U":=&Lz&L,<0=HN&C\vARke_MggN-aQX#>l$*Hfx^NfsZ0r(A<=B<Zl+7#DU40$s3
U"$Hj)us)W<a8&1Njo1KiZH:E0/Fn5MOL]+$3oZ,(.JA.HlIUFFG]\S-EcQmV5DaO
U"i-+g_]H2t]0BkT($0hQFN2\SEqYqhOp5OIAhS'q987.e=O,]driY,LZL)5y?42t
U"m6R(9PMU)hBkAU1Bhu(jk,+cQSMyJ9d63t5rj/yXZ'c/P+NsD.NA-9eHDkK.ZDV
U"jg_sCB_9LFm-$mujiq-ew1_uus]Y4UCStNxHj=1bmgs[\E-WAAdoY(](:xWApai
U"[*5&H6Z.G%=01d^M?-/Q]X[H,=4R<1++,3V]:go,3FD.$=]QE#T/k;nnxfmTYP5
U"30++zB9&_-1nH)^Mmvgoa^Z$u%GDVgo6/X]^g4qfjAL_cm:h5oA5)^a6inDnY/f
U"xZ.QXep72p[b%P1pd:EC3^<Bg'YIq4x%eZUp,WKNO0J[e3K'P?c#3rep\[,tSUe
U"Ztv&+Su)m)__-.-5$Uo29hs#)\sV79?C#Jbq%wW8Mv0?#v+7q0Lu2GQxX0_>GD^
U"l*?2YYjqFcb/\iXd+P)=?MeeQB^7Hf59m5*'TUkWPg]:j^)T3fEjE(cdUr4AJ14
U"6?=nRlBXo0A#I_H]>HOu6N=iusQWFR6><f8r848xMDVqp9U[uKUWMEGzrRFgTW=
U"h:Dw<#\CDRRr7tBkyl5nUqq1+Bc2k/3*7B,2/+dppEu*Yd1M3?72B[xG(RpcTE-
U"KfXHdtR\JwB42rbyje6Y9^)a2s=5&2Cdl9qLmKu%e0r1e*3oWI)i5Qraiu^KQ-c
U"F'0V$Ggsg*u8stqw?oM)Log#dZ_.^)pqK))$g[y1EOa^ZiJcPTd37R$t/_q=1pO
U"mW7RhRHjL\?IlB6;gxJ?E?-#e<[U6rZ&+uwVO]I/AQQ&#dcGx2,881,*5hv1WVk
U"JCoFvttlTSpkajA(Gt5o[gpULy[b=qjB<::NMNXCr(Z:t7Waswl,5Z_?.q-s$ZD
U"KcYnVZh:jY<0]m:OjjxqZqm,Y*0ioVAd:zx7??FjWBmM0h)r2G39Ty_)%b8yICO
U"Dw[Q9u=g)2a),c--8%Q?MylM^X1e6k=H6F>]vb;5R/r8(&LJI5Tj]=4-C3Y7]$F
U"dEySe\GeTFGqmTR<Ljo_POp-:,lty&qv9KXIoKY,A*xuQH/UhPHFLa?)Ee<]Mq*
U"./F-Ai6jIWN,s_$[ZIH^9Imbo.:,za&&;1b%n'KgX>PEAg)xe3t%;.g56WPAc2I
U"*Cvp>/:dC*>za>^.G?2jZ4dV68QX0J[^=-jMm:GCIZQk<P?Kj?sFZ?OI;IXh:1R
U"]%jzI27->l*%X2[5ZhA.;RkPZUQHM-;xyAYb9Fh\8(m\(dtMTamc\Kp=rVtkQs3
U"tJB&r3kmC^l3.;vSb'PN1HIdm1g\TfgiLKK$b6P]Y9R<EX5HmNIY8s1q39_mwU<
U"Fa,Q:5LoCs<>[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&iX<m\xjies*arwjn
U"MbJwLLOyB?pFf.f;8=kI'P/.x_D*o4DEK/_csGHh0V4-VomX(Js*7NTQC6Yz43#
U"u0[zq,F1kR>W_)\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%r5<XU<gIAFwJ>kM
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-<Cz)(2%u5M^M&8Pc_gb'qKh>lo0tYy99
U";R4#[1rlI5qwRLU<pg[]Z\Hl,[X1;VLb&$2xufxf5=xqE'xR9tU/FDkWNy,oVJl
U"SqRMNR=IZroi_/+r8d<,RGjAI?$uD/N=IS=.'%mBcT;25J[&C1h6)\oYnM/ughL
U"3,6Nn.S8K4]6yiU>%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&:]<CedlvrU>C+>m+,MVeUpZF'HYKz[m/mv[TuoH%U)q8U:um'Zl'Ii9[.aSu5
U"3ZSpL#3<%,dmgK'jEq0)<AK:J-qTiq<B,l',BR[_$5(VRI9K9M;]9T%)54fEdNj
U"NfzAi]2H>)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_C<UD3$hI^#(Q<JgBVfRgDroDp
U"K)GfK?+xpOk>r3,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%95<qbke(uX'71$TuBA,kJcQSi&
U"4,Cz,z,3nDD^)V/,01Tg$^'E[vARke_MggNmauxtdoKQcu.-^KFa97h_h<#?1d2
U"?<7eQ+i2GRJveV=&%5<X7<UN&IG6.^7ID8f=q1+^E1C]C:n]S*p?(X1TOg5Ds(&
U"d6[:I8g6G*qC.Pl>HokAThj/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$Y<p:9/dplCqD.P2YVG<7[a=z&K,_'6:ZxJFtC1X6=MkW^;t:
U"X4$lCmbYaNs'K'8rVsOcw-lmPwl4)7PzmSrrHQf9lsM&1;3rX[ejaRWeoAB-6HS
U"Ym5OJ&TQy7*P[*'*A93D#Q]X4[,SS_A+SnC+l[,Eu%B)5.'/],AsSyPoJ7K\rDY
U"PBg_SU+4Y%B*(saLL>mVg8o^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[bg1<e%g6W#qS(2qQIi=op?jiwN;jEj
U"eD5F>2ZR2q&cEbdiXXdD*'^+e8F9Hn]*-jKp=Uc3U<e4(W,2mu?6q_6CnJyX3r8
U"VXm>nRlBX9/'#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.,#e<Wgv'+'J9?hQaY:ePKb<XS&,Ciw:St(=50W_J0Ws5
U",C/ufttbSjpkce?(qbs'>6pLH3[8t-q]<:'8\NC6rHZt>7WSxrlr%_lO2usB$ZD
U"iLYnV>Q:wYnBe>Pi][xrj*b6:dM88jxTUv.,r<o2QK+LDgQOa'N'YgzD,zB.O*0
U"d_y^;ix=1)2aU1m)S.&=?MyHeD8#WF[UmDjZBriQG*e<V5.s$pRMU(IMeus+p_1
U"-v<sjTmu=AA*)DxciFnU:=+9JTo+f==OJC0d87>K=B^1u9IrH>4Ol)Djn;<_82f
U"&yNI8Po-7Qa1V1AIK9>+gW/'28)uUN:B[l%#<d-%U=)F&E6J(MD19kLD)RF-(:n
U"h=6E_Vwq)QYrgfsOBtSJ3r^ZA4dl8<SXJxnmV['nhOQ#9I-/hVrngp68D>r2rj3
U"O2'&ooayF#&llf[.tR2AhJA.bkrh:1^LvJty:'8mb14\6N&\\AutARV)cK$RLrl
U"5sq?=mQ-(3kC^u,3_6.-DK380=rf+7<Q1^7Q<Z;bk5K8&I8%9RW\s#,vI4)]>Hk
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$<xLHf-kReMC0kE/Z.-s/382%_7G.18+=(D*<kD=\dvCDV7#,a?W
U">8j8k1in$YsUA+Af-SoY<M(aB\;Sx3R?^-/dd)mL$>$p_,<HgsOe9qXhiU;0(p;
U"y<*]fg:ZkoN;kah?n,M(zB?KLGz_=u]ml4v<H>K=-EeS^w;xM=fwZH)XH]?,;KY
U"usGn.V<laP-P<2v$I.f^<d=A<_[Rc)El+JVuqkjFg2J-B4F7Gqr>MhR_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/$oofnuhQ<VMkAp0MEHkIwCUvdE[lzK+:3d\o.r
U"pZq=OoecCLz.'>tEps9pek_hWrwN**u;/s6Sc-4;_oE0IU&PPP-kb='qh6;lolU
U">y]KrJ,2UEk.IqwAR,<,9VC<D2eY[dLQeLbN&$xp5eLq=kxqxbaye>?RW4vY;61
U"q<J]P6G0irVFLIx<<M-(qcCeB8zh%]waANGe9Hk(Z%t]<G/DK\-j2x]H''#]fLk
U"69$BJOQ$Dh%3P:Uf,VO(kP&?/$s_:Kh&,gt:ucY2&&njN&4t(irY8VKWI02+J0e
U"qUa;G>HF%V)Dc#,n1wW>+?)x$5Syn-X18'$_nJ0i_4*Q7Tj->lK3qZW\$h,BEbk
U"X7btYq\spoxKVl%Ox0<)FcT5X_s'O:+9N_OE<F=?ol^]MFI0*4JfVaHU.>]x<mU
U"3,>+jf5(V0iZ&phh>Q77['Ngl/*BpX^HT-&,w)m^9QBa+\Ug]xHJgzh/^>8B7=W
U"P]ep+^RO7,$NqjSjX406H?<xMi9P=\vpLn/Ob\.r.Ok:;kq;8GXzHQ47>ahm'vb
U"[r-?B'b9,p'bpQJ*$8ZjWfvO+G;PyE_v]^Sz;78fVqb];+u_YYe[+z&A326pv(h
U"-ac\BniS6V3cTgWsN_6ibK3pAm3s.GN&<h.\CrC\tklbzUfb'jQXjwcSV:n=88b
U"+uEF.2;yjNmpDhhcGZ.dJ33hjDl.ZOdelRkBmF1)JlGa4:n9>*?u2FKhe7+2b'U
U"uY>J0)+0y9$_%/(OO8Z73nA9#b]hycU$AD_5P%8G5VGA5XR?R^hK*r_WYV6lE'f
U"T^h[?)e-'4as.?bo<Yr4VdT&3pETPI8AccH&kWgiAUWY$R,7L$VJk.uKKk,G-go
U"KpdvVqzjZiJdBP?Me'Yo3/U.Mz2H'Yk6tSlPg;EtSDGi3Ckmcg<-Ua1W32?k-r;
U"M/jHJ[f=x7^>/CwQ;Wrd,+2jGvo,5xQ=L:/?:Gqo<X/8)XnwB\8%up()%9%%%I-
U"%xu8(Hcv3W^*%.%%Y'%%%-%%%%mf%siShmzw&I9J.9Em1)IxCgF-hfYQCw*Ri[7
U"(SaoN=C[#8iBxk+V>AQuTF'-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><iWE7sWW4BSHtsQ6MXB[QDUIwsQ,Ev]Xy,C5&f50oX.Og2M2e$0AbBWI0
U"#J2u\'iqVhHao6L:Eu%p()9%%%%-O%(u(FHd,$-lN)%(%L3%%%.%%%%rgf%xjSg
U"Ifxt&8Nt\k=8w4m'pB+SUJ]G?O]I:J2L8dD,u*?qViSOo$cdq5/P:]\-.Puslvi
U"lRQnSXb5:'F;Q=W66P5$h6Xb/t=b>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<UL49?7Zt-.11$oJxh*CVpTNZ
U"A.$YN.PSYU$pU<PLpb:YNfCbF6K3)GfU>\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?]%nn<Ri11e'I%kz$F7=hiQn8o^,taLBG_kY)GI
U"pTbwuB)%C3?mr':8g:QdtX$;[a:01NiU=RnuMJWXZORjpCF*CFw9GK&35k6%<n=
U"<A-O0L-R9Y3p3-fVMiZz$3dR)3sS'?A)3CbJE:-$yrsIuS$*0E]e3N3)+*4vQmf
U",91m3q(Y--&UaaOts<q/Iv<$:P&A?pOq_Eh/WDLl?557FEtp?(X)_I2#=<C]:zB
U"p]4.ZKxUCLUP7-)oi;S)8#YxM:bKK2nECF8#p4o>b3KPO6Rc#)h,mSbU08J6+X7
U"e:Cw$pmK)WgF)px)mh43RL)q)],.UBo;Dcj4>*Of,)S0$&^sIe4:79XWnWj<bp4
U"I:n\LU?RUE^f*%Vp=FwoSl_cp2+w[=Z%X_OhdeyJ.iU4jSDLD,b2u6+y)t$,ia*
U"0T/5bZbAf2(pK=*Nq%=9h+PYs&]NsZqS;:8xTimZb4s8>:h3)5b1UYwl2Qgf9s;
U"Z6Oiib*Ie6ZC3H*.Fk5n5VdqBe79el+kN^nv[R,uBOYo.Ur9?Y.[56lR2+.>t51
U"0[UbUX0\1C#-Eqq%G*-x[+4G^[DiG<b'Fa*UyAmOttA1]RGFHyCYpQ19KOn+Er\
U">9qDCo36.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_<GyS<W4xmd2*-1v=WIA^e/y,'LhB5U3Jx+5w>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<uNrg]<lJ#x5G82P1g:2*e<I87]7u*s$oqt(9V\uF,3S46$V.\-O^Vd:ff
U"3zV;/,Sd,%R9$Yg/LQQxvw-Zh4f\QB/h++Fq4u%p()9%%%%-O%+u(%HQ]u)$'%%
U"(%Y'%%%/%%%%ujs%hnqS[hzw6BIf/O[U1iJ-6YBgXtidyQ$8hYWFsO=CQ7;ppa7
U"A=PY&Z<7lprO)w^I([l>-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<eFkQuRUZt8dTQ
U"\ZD+,)&=up(%)9%%%%-%zDX*HZ;k31F#0%%q%G%%.%%%%r%ijrt%SgfxSt^tB9[
U"]Kd;.ykdfmU+9.\IZBUWhB+3g]VX*1e=;iA\hsNczA[+-WV;V2jB4?dwqx*d00h
U"(CbrzZ)Mc=BnpRxpzRJ_#[/(g$LdD?Ni*vD7+P3nI.ICb&TVn4g49?tO%VtndiI
U"Tw*_eI-^H[E3SOJoNTxbr&IA+CDQ;w#?d96nj9Y])G/?D5pci\,q07F8;0K]<%1
U"h,$]/2Ra*(LV,m1\,UN4Q;WeN3sj7a30)uqO0'<m]I%tqO'v/oT$bW8[fu*/jIt
U".sL<Jg/G]h9r<tJw0$f*#LS\];-0d1Cp#l/#tnfbL)re?S^pDX/\J3#gK-L;c'=
U"pd3Agk7\6E<[K:?q=P/^HUpLXa-/cd03-+sGEFfX\0;AgR=uo\sfj*q5Yj&STp7
U"]<K2\I$mRS3)]8&XhsAk1VV;nbS,#EEx#R2gSXhH:\8m%0dI[XM3$5jf>'7E0**
U"b+SBpY25_YSNA43sgB8>sWgaa3,0Gw]dj4LD]Fd96AMIoj)s9:KxIfEr[=IFuIU
U"h?;uhrFX85Q3n&0?sUX''CUm3Oj[I2?0OF*MF;mI']L\9%?);**E<W'/q7S.38b
U">O1jJEbFICT=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]b<t)MFK>hbWs]#tu4gHd2/28UZOVr'=UgTM>3?lf=
U"0oeUP^ZpuDUgNYu6.sef0G4n#xV+7$?KSLkMRFV2ppsb:hme0r_]]s0r7)t?N=#
U"BC]&0Y3vuC<?(u,LTbaYOJQ#nvu2_BBUK3XSPPk[^$s,H=#Y%q0W/T.$a/d$Y+F
U"t)=JU5:6p.Ru&VKSVv)t[ABf;HFqjsF,;TSYO>_/AnGE>cBbw%,3]#DI)1rGV\B
U"'^G.h(R3P2G/5BB[nkYQIKRd>)cG?<QHm9Cx=RJFGskN1q#2,BM25WM1</e7l?h
U"qV(CfEmRI(+=q6IDSX>_GQ1D5_/v&_\O$/UGWK1k:R..ht5Q:)WTmS?0W%5-e_-
U"J-3AlDXt#UHCt4W>TE0>f9a[<s^L8Gn/5%q%iCMg5u(<dt1Eg+Vm#O%9%,^W0d7
U"4K/+*7((mWpBHf2g)*q*&&WB^1VHq*KF+[s]g(of%/Nxp,Ct\b9V_$Nj^Wb)j]C
U"ZR;\$bo*w%jUHLF9?wv2QSOc_$oi;R(R6m-76Z44?0?&P-:xJYl(6j>\=-W$)?Y
U"jYpOim8q$u3sRneJZ=.dFZEP_;c4fZxwQDdjJxSc(oRp-'_p2PJB2Vf?O;+[l%5
U"q#kT0$W;%<q9OER9)BDSabJqC:<%#Q*DN&=9cGYzJsXmHZ1hE8lwmkOFP$QkBpW
U"jtZ8)r9Fb.^._swc$HHdNLcUM;,=)jH$IC0HaeGWZB'qVR6deg%]OwG?i:][u'5
U"N&Za3:L1UuoHl9S:7Ax6/fgja[JXm6\4_aP4a*TX)Z22A5[az+V,1mCnu[]\SDp
U";U=K_YUE26W09GpPTY9#kc[rj1H6Xn8lNUuNS3k>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<ZO
U"BEXuF,)UH>[oRUQ0aC)*D_d#\(F-.6N]KEgkTtH/h;gHQ'W+Td:z^rxUsou%'/#
U"GCW^mSk><QIOqQ)X:PiN%jQ^ZPn]GIs;0+I9bG]r$G^e6G_4sF_^s0p3KXYMf$B
U"#%&0<0Da_]bG;-ioE&,$mqfffw3E*)6RG5l/$'ga)0Z.jNCq:T5;-\KvatpXF#p
U"x_=/:T=vkwK#Huo[/#6\ZfWZct6w^jTp#^bN'P[OF<D8fvi7;Wo>: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<v0QEPLiarOYlQo95+ppO&f<ac#Now:qfhyQXr,^s
U":*seS(r,%oCK(xJ)RIZ/-dS>/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;*%_S8j<q1eda
U"w[Dux4i/tfZd=0^%VYTZ^P1<fQMN=r*xD1_8G-uIGiO%U8eRY.xoG#_lKOI(_y%
U"P/w;5u:f50G86NaLAXNa:W6KYZMwc(FDrS\B+/g^N'u9&5/[TXw%gW,LN^&,b'5
U"BmtZw5RXYg*KWu4k4bg_W)?zpV$wSh=gi4^5DNtlCPD/+qYSWkXPaw(vKecs;uf
U"CcW>ZcBO)[Eb;1z(i/:#/G][FL2Ui)>8/qSG,3H>t3i.UKFFeaZYPXiotRKE^,S
U"bfSHQB%dnjQwY>\Hpqy_NY,d26NToCF8jg9*5P.F3k,].fw<h3Q/f<iWH)/;<4<
U",F?<+Zog47+3.nvxOW[Q:$'4;e?nUi9b*k_OXNQ%utK3GxIeyPAb]e^rpXOkQ:)
U".(Nv_MzlZF\;tzbUI3JfjUkJqDRtj2GX:I&onq7C1jM+DT(O_J$dmKh>8eJmzhq
U"ogVQ<NKHpyjOJVnF>B:dh_Xfz[]nxlVEulzhe[ZdF0C4,L$cd0c1.h>'gQj2S^K
U"XvOip(L7]-B3hK.#+p]&c,fL-xmc;F=/taRqHrDyV5$M.FKBWsk%tL:%)/]uWzH
U"Mb1jXe<?'\c:\b8CN<4)\9uxi&Nup(%)9%%#%-%oDu(H9FU&s0#%%%Y%'%%.%%%
U"%f#wwt&%Shzw->If3&OE1)Q94XNjE5/PYbhxh3?e<f3jwJE\3goT3+fDNETHy)+
U"%8y>'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
