'=========================================================================== ' Subject: TEXT EDITOR USING RICHEDIT Date: 08-13-00 (22:01) ' Author: Buck Huffman Code: VB5 ' Origin: hhuffman@highland.net Packet: VBWIN.ABC '=========================================================================== ' Editor using RichEdit control for VB5 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"RICHEDIT.ZIP",4^6:Z&=15004:?STRING$(50,177); U"%up()%9%%%[-%5'%2N?B+7xS<#%%&9%%%/%%%%kw%rxin%SkwrNV,JBf\[ax7dz U"r35+heDPB/qvgDjj6ha3H[?3*#$Toq+D&^9Jf^;2oMD$cDjlVhM8)=OE%mv7^*^ U"L*vfT=[J7RY?V\nMvt2upjsuWdP,qb9,J%bcc].$az U"DrMy.o=f4JbC^wC&bznsvi%HAOHr$D:GdSDzP*XJ*BV48>79t'tlH6>8oja(dHHK U"EiT[\rH2ZN*D>R:qkgau&w9I$ic+rLE2K>5G7Ig=W8EsR-=E#8[p2D'>>YRh>WP U"V]/r;5]ViLX2t)fl-[P\Rd+<,C%,th]jAiDK/5g*JWrIEVFXa,L$ U"%%51qm*SBr78Nbih5$L=8*HR^.I[2aR*V7Wmcu6wrCMsCF:3+CMQSVg8e>q#bquEUJq# U"d7d(].DZ)l=39Xq2Or5Rs#gEL:YiS,5HQ_1lO<]mpA:KTW,hi2\N_5?ucRYrc=8 U":h/RI20OD'Mw^sgMuXQ[=_n8;;s9i_n U"x,RJ,ISu\j+p=o6bdUHNFu/cHTNONYvQ>v+Y^,6pR3gp<\3:[;xa>a75G1rVCWB U"a1\4=IGfL+KgXBb+A'+&wq;S7zRWF*F<36:.NT:[/:/ri6+9S)nrpxY.P6s5T)vJ;qszA-)Wxq<,s&wE,7ZBJ2, U"GiqlWg.w;,.KdhjAQ^k>W<_eHZbk.&AX.J+VT#M**^%_va9/#sq:=mbu8*,o8b[wK*5OU2%c44BAl0kxc7Y8.kc#. U"cjXC6bj)pP\j&:8bHpHNPpQW8*0>Lvmt4=7,_9c9=ZuHB,otNqBmYiBxns?O_%a U"5(,8+SEju;7Y3FRO=bet7MRw;ciXyKXgwXW\G7qvH)MVKfj.g_b?Z-kL).m<]Cx U"q_t#%EH:RpFA7Tq-z5z_H;GtSA_n]d1d(k09#IE,DsUzj#\WYzDBD8,sgi%-wL>M;0S_F$4#&,c.ucpJ-_3Pyj>>$E4R8X6dM>zWl U"Rlz$m:S1$'[uF$HgT.,[o-,x^9eY,16qiLX)P\[ea[)m&t2,U/2S\Zu;TK%FXGk U"'-/,YDIZj^5CGs\0HqHCa1W8T5+SOO]4uv4SBtFNcDQjKL3I$b(2aF2bRrhcfuP U"Glg-[kmi(DC4s]f-u=e6D]R*i7[$lOQ[GzMhv(ZM+hb%IpD.0)J+ZtImRD%=Y=n U"E,];5sGoJyu\<#Ve6\FhjNWn;Nr/(LR1'*y^kXv:.EL:E6m3dseDsEuz)DJ,L>v U"6?fQ.S=&bzFs$o1z,6gCN1Cllkc&lb)7O==\VVToIk2W\J&4EShDZn)G&+K>Lk: U"RA+L;hpt%vaanhVa+3/i1_\R$V$]\7AMp,.j11)%sT'ZFVnU0c$7niLHL94r5*( U"JFkNBlr9;'?v^SKj+S(h7I,diB\q&IJ_ri)Jdjw$4QhZ2d\FR%-l)Y$d4Ox%dru U"R3rbUkZ;((5uGpC7:%A0WVQA6fgjorsggvVRNurpBUrlX\mm\SRNP4_eVH&m1II U"'JfQH47D4cO^<1_pLSuB)#nDl0Hhl[P/7/;)(8X%22VuQ9;r#37H(#vks3_sq4. U"aNTfV5#RtYMY08Mn02<)?F4G:Py;o3;,?]SZ4mtId/9>&HSRN1V5=S*oH=40Z(=R(-.NTal4W2)>m=W[eoopu%M+UxSeO U"'v76Ddwn&5_^'i^m'?quo]fwRgk)foQ,H.seYe7YL4EXWkz3doWkRXCu\V7;%rW U"J[iMdH?jde7YlgrXW?O#_?rfA:X?Z]hz5S##?;q$QQ6A3kJdkZJ^3EYjVrEfggD U"Ld]aopPjOBaNjrVCN6t4w:AL0Y;I=HQ,0B>Qk.YBb%*sjM4o%?O]/>St;/)bJk- U"cALBag)au][&6\R>70h?'mQej%$Ba_=1mkl0\?YgU,'=RH1ic(j?KG/5kqOJIAh U"te\MQ$2-OUcoHg#H$%16]kzTB<$-0Web,>n?Jc%Nt)wP,9?dD]LEaO^S1;sGq^: U"fGp:/B,':+dUYeU&*]_1XM-kLv%NRZK:fbyO^&kKiKZdvG<.+PTuX6tWnRt2*+; U"Y':v)oAcrmw/dC-Dw4G5k&0SnPQZ%=gIgl=J%r[eR:b?3x8v-QHtB'Q,HlnI^8P U"fY0^tzhg4\7:0r7DX7En[X)h&vB'U0yd#0CA3J\&aJM:ZpC=ScM&k4&HCH.0s0p U"]Z7D3eZQel\>W8GTk873 U"+._pQG.s&eMj#_G-qXIouKiBt)4]3[hq09(1dWU'?HvM#(5&D'G36cF/):/]E#B U"oUYolFJ>W_Zu[G>GxNZ0:S7QkgS>TBaHMFVfBUx3%AJ3e$pElK=f]Hf9s,N9y7Z U"=MTyl=b7D78UYmdXUshjZXD1H8K0R(n_'(.f0_#;\G:YJgcHVBF$^m:b\[%kq$V U"WLQ]=2eNwp'>($AIKXB[38L>)YddH>af:9lu6hp55j*g77VpQ[j+.AS U"lxFRqLS$CkkJ<73^(Mk-#eOgsVlE_c'uGK3<6,eLL;rHQB5n?H0kg>1VBFA_))/ U"#pv$_qC2QRaI2oUaE;jC,CDKcn:0%-?t%5\Wb,am5,:T3=KD'$L/EKeOUTA-9Z1 U"6TZ+L*8mgdz(U$JT4n$R$&_-^BV029O^Lr6*fQ,V_/C)_-*iy47SqlBbeX4spDP U"GEko<-H9YH[.+LC'Sn7)GW,k5>.Y9n(gE&'negb#dUv1sF,A0e#Cef/BeGT[OmEPYa]D'F/K*$(%AIq U"IZbgAJPY_YvoEn%^jhj$2GU[xa5ak_E%.yOzUKRbv,Kw4f#='03:NPN*X6&6Pd1H.\xlXVb0.^Ct?#kR> U"c8Pv:[%/dS%vvwmeUM U"YWrh%UmH]$1AS%R*M$?jRA'[NYNjtSk&0Sh?A*;1eK<4PKT3s?o>-A8nT)XDS88\)\_ U"FKO\4RGrQS8X)hWfjOiF+h+GQU7USr_ U"ET>g2Fb9d5RAG%s1yULs<+a#VJh(iyS#-wUhy5V_R+/7PdPRV.Xitr(2lm6+xv: U"TwlP'#z6e9.JGhQgsJib6'HwY:#Q.Y_n2iY6A0A U"cq)VnMxAR,%DX2Qu U"/OiaJ0KhnU7+eRjV[ChY>emhbocYA(''ac]WH+c6(4AsuAueIAgyU?/byO4bk/d U"memi))HY[F>?:Qko.y,F_P?kTotuK*C0$o.Cd4F1]FglU#:C&kes1Jg54tL[>>t U"a:9<'=\Tg_f;=U]WebbxfG.3V1I5gh[kNhIb(s3=0D&G^^z^%5L$ibtqOvf9**a U"B]u[)oY3xW&ZU5d:)XQTCgv*b6G%'A+qk/1,onF'%-=Y=HLCVY+*nMHoE5MDqwq U"%R%Oo:L:QnGg>\gi**MAwJtjEE^Dd%R/98+EKni:*5ibUu[='F\)%RBV4l]kp5D U"KMoMrw9-DLSRqDWQbFl_'6jPV2,+y.vdAhXD6MO]Ck3sJ;7)Vg+:$HZL^1$&-Mg U"bOtD/e_4rAr#3n$p8liIUS>;:uIgw_,Go5(a#tYKO4w2$OhB'x]C U"vJ2V9MyF'-GA'k/1';,yak=w0I?TV[dlgp4E?>4Gu+lA>e$Jd6+,CbC

jMLzk1>h[lTE1#BBBAI?i4A#mXkD3(4wOi=91txGaKbXS0kdRoT\\gq6$=%bs U"K5V1O]JD7fcUV'7/Jm^u1 U",gE_G[LD1RNP2.R8rO]Ze$Imq98u;#2H,'X^H\Itb>j'Tdc\_k1TGX-e&'v6dza U"vtjiZX_rvfkwBN/r(Yceo];[zr($Kg1x#SgiXV.NYSl6C0I<#,]QKmvmGfd2UZ- U"NblfpjaL'rp>kh3DWw)8\OcR_:5abSIU;#^OG#qe#p U"Q^8D2k%2Oma5P>8i,aXE\B]Ybticc]$lvb6H:d^KefW:s;mOOKHK:H'o;V$fy*2R-g$(Elk=j)zPOd+P/_^/., U"v/-9xy[g'Ve]1HC^S9r'^*1DwC9Ph#P()=tq5ra?L9Z$kR]$wC1E)$x6%TCUBiD U"hVo5#yi&sU.5YODkA[W1N5vAhMuCMb$-GlatN(g:-&ZC*$l]#k<^oF>jFBT4:(= U"#4<>L-d,O=R3Rx3$^z0zg[QPZLQ.]S3hzh7DQMhVX_:LhG44$yrs&#+TY:NN&N_ U"Mbg2HJKB83:':;F-p1ITr6>6qeGDm5GL<3W7S#[iS$&Smwwcq'8N^r^4Idn2A0fm3^SL/cKP7(lo4Q#,?dRK$cuG,ZU$+\YR U")-OSj76;R3u2=mz-AHpRZo9I9o5/kXN75#JEF]68Hf*DLF3%*#V_ U"cw<\[6r/g)9$V$bEed5z._;-*k]lolC.;i:G/8$EZK(;-0JW.H_DF]Z=*3rq+Z7 U"oN-;<2>uxn,,gUjG07BOy'wjk%9[*kgmb_S1slT5 U"n)BS(o58,U6#DRJBcOKAS)4)N<]gKB,T62?FSkOP(^eJXOE^nBh%G]hfB0c/3Sw U"$s7&%OHy+y;R;9%*'*#A1-(sFB5t/;3F\1>Ihp)a](=\SYgl_SQ<\s-p58pQSi+ U"**qmIL/CrcLTgXj'Lnzkq5W4UC-xPynEVNbh>$a,qc_E79wQT%K]FCmiI:s7W_d U"%0$wTakX>4'5]bvc'QY4Pc\zj4HuB&]x70/S71Z+*f/QsZ^+8qzr\Ad<;m/$N^= U"q\PH_XD9aIRqbPT0X>M)#?Vlo/U:ui'HzClY;hX3A=&_n+7%h^RFw9=3%nCo=w: U"\j.2_+%GvGsOK_svjk?)2&#oUyHnC5b'x,up%()9%%%%-%*$7xM3-J+g%G*%%%5 U":%%%/%%%%kwrx%inSkUw'N'Ct:#&15NY']dyYdA-'_H^ttlR+K&FuSjGIps)L3# U"u6A*]L?38$-N798kE:Vqbeq(mX0m]2:FVa8BmX=AEb#4ut:)jdq>5WT4d+j7K05 U"J%2>6NXZl_6hPlpE&P.X&97Uvcph?t9cJm/QHf3yNWjxcBiWrH:.NMcI'O,#DOu U"/?oUmrJ)6Sm7wx%I6k,2X?is_v_=wgN2SJ#fG_,RJt#(N%#3),?%X24.A02pZS* U".HP*FNIL-US-Q1E)KaYM^uZnA\LsXejaM\UHd?Bij3))QL#h/ U"hfn(6&]>H4rO-u:uG>#\20iqlS/]kG:VNGu%C4Jt>Aa_p[>h8x.:_PbPip$iCtD U"sd:Do2_Mn-luPt]Nw5B3^y[=m4D-2qmsJ4igA%L]H$)3^8,%PSm8fZ3_W7\NDRO U"LEMp7L$30CwOaBH%b):Btk2LnXC[s?wph?sl(wqlePFcs\nfhuXJ'k:tHE7Tz$-uO=Qw)/;GPx^RE-#3ql9XQ9=#$KdY1H5FSPG_miogZg*O6iAbHJWVZO=sdbC\c;5jSD>c2]T0U?]kFKXHjhU%<&cMhN U"ujh65e_QUMfLS';B5N;'coAATjRL00MR)k>2wQZ*PJ,K%B)P^uf,>;'[QS-)\)d3JNQF6 U"4s]+(OI*6mju>]4a#5BC%&lyUCN64JICjX)vWuPh'YPj%1ok>trk3j#=V66h?Fj U"h#n;-aqo+U6J;j=(UOLdYVT7W1\9b9X2h5ENK]MuKCZJlZD6ov1G\L;kzjnQB%6 U"$'yDEV&JP]k75+&ICYjC-G*_GhI,/Ne;[t-T'J1-+eAgP2y- U"5jM==R>A9EBM]mom<LU?cntRR_t3jn.R.o6TGG36 U";o9]Qa;\Fst8-e.=lo#rV9gUedct*$WKdreQ2\.E\7l(OStTvVJ2%>+w^dMAuoI U"#hgj141+'uTKT4cv3dAK[?[*?gp]rg<.;%up()%9%%%I-%xyB'MXV-<6%*%%%04%%%0%I%% U"58M;>?4J=S10kBF&T&=#\5JL)3Qp*oEINR$,J U"AfA2X.i#F5U]-Jp^=lKbLIo]e?S6GfEuvO,9*QQtV#,8q>'?Z7)+PORSww=HIhB U"\N#2g*LK2u2-AU_a^.je'=z=\gAB(PtTZnb>sg'vW:osUqEj7uOcs=oiL=%)4\/ U"83l9lp1v,e$Q+c<+A.'+atjc=%u+GzYLmGMh[F#OT[sk-QM(*Xj+.X[5Jq'&Haf%$7BEH.m3tc4HYetWHT/*+q#g<#A;.fM-Omu#lLScj^cwp# U"vnlS,tqKJU-S)O:-Gb0p>r-xMMZj)S2Wj/qP#UiUr?CNN'CUHtjG'Hm*pNsJGoU U"4fY1a^V_[^i4IGg6a6EyEGl#+UQ\bah6J,JbjTI)6/0\e[6inKTnq)u'oK>,-l& U"fY/QjnKi,uw=SM^8#KNAdHq&mMv:]I=Ruor.W8?tf\l^4]pMJRfVr.iF1X.KHms U"q:342.c^[o)Lwa&ue.QI4pBa;;2=^bP^1C U"6$FdU/Q[F7>/r8tb2[3u/ZUOilHQ.qXCH-5$+i:8]2UTQ4E&m91$C3vTUBYJCi? U"K^'XXWbFAmgB61h:;p62g%,\*R\S(A#4iQBD,tW'&gqdkhr%0A?v?PkNt[$r5,0 U"5Yr.9?[*K]O+D9i92&YO.Ox'xn_PeS)Wxzy^kXOm:_4?)b]EHFN2k-b3a,_iVg^ U"pw3QC[3?#l(UVO.Y0c?EsQZZYv12 U"28gtK(9ZLGnd-E^K)eQE4\BPET,5-41s04,UI4Y:ft1IOeTWl'zp U"y&XSoU5pvnD16_GE(5.^<7Pi1pycpk9_*QQD'y^Zr0w>fO$C4CClsY: U"Sd'Li\<#vM0_s-?Zj&J[iB>kTbl7JHcSWF8oAJFPDw(\LPo#l75gX&M1R)Hh.Cx U"v])tXAORXxq,p$DC4S1V0B6(_*>#2^:M\YTxeqpPa,Y:kFpx&m0]+6/:YE U"1+pBc;hcUaQ.B2vAn]Tvn0v3>h3G[k*4/%QIukEZ25nhkhe.>r^JyZQL?tm(,T7 U">BujJ]<&V41d*C\9*iTe9>sp/0(fRk8/617243CWis$sCxX$-qapr?uQFPrje_qp-;RPOka^TcQA/35h0)UMr'2cd;q%IM=> U"d/hKt)<0O$(;>sl7^^c)7j+R7T1X\[qW*ZBRoY09ay20Fd6V*pvBtxFTY3b+dU# U"DtdzM9JKCIx:[gha1^fR/o+*EDjmqRE_QLFKeo:Zw?MUE.Lpoqr6,68dz*e__yR U"j-kXW[W8w+7bgR.O=-'P$55=z^TD^EH;2DjkTm9rvYG,Z+#8zHy7k?rAlQ^[YX3 U"*/M:BAd=/HjYeDk7X>Nnr9QidAfmrf(03a&0wr\KozJ_\(o]Hd1vXgOU:qO+5SDY1+ODTQ)M#i,OVCU63oaSRw0+'RMO.leny U"WUtN6R&CVJjUb$i+7x88b/&YG^?qIL'g[V\joMFm9do6WP]p<,s5AR;9^;)4K1V U"X2rkIgGfQgad#B6bqN&K3.%PHrNnYYe0,<^uM%=ZbBFfgby&.8jj8lR;Lj*Ajx< U"44paL$pn(LJ-1k2yX0PF&#vg+/oKgIG$As#n1P8aX,S<8b/GO(p&+9'Y?>Q2Y%R U"'D6;3POaZdi;ChKq\b\c$n=5G7-KM(L%20Kx3?B(^c9.qJY_a4yJp#xJjuobUHg U"EYF3Z[L;=zhRN:AHjxRuNHsY#TH;MMFa=Qo.HjM(FTb;CWsKBchF6Q$5)ZO7b;. U"[uku5a0Bp.t4AI8^VTtp:,9S(LNug%C7d\i/2-JxZMyQEVj6$Q4_8 U"J5i(e:2\a+ATa]LEo.nTS8G=f-#19l.bK:)GksC*31heg*UHL0&>_BHi2UX$XWn U"'QagL=:FDQ*IPJ'zLIUUyV[FuIkk[UO-;;xQ^nYxMetrHii8#2XB7^tsa\G2-h& U"4fBJP&DlELEnzGL/eHCj3)Na+gTPPsdrq5eb2KVY%>R(W$3(K6gQR*b/Vgmt?C4 U"]N)5:EJoDiD%E..&dVQodIu:0#aPQ.tp8jhm6m#nsojRVTH[lhb4>1Lw](I>X55 U"eKkX##RagK^$=feuW9e2)U)mb7>pZ*JLD999TvV>c>c$Ze#4*TC([dRd,Pq5TQL END SUB SUB V2 U")]rV+*3H'2C_[8/J#zeO/H(fEu-78>t5u+-Uc&?U;2PP0$6/1V8;0Ix:&mz U"T2P7VATq0P37*m5tQ4uR0F,a]x3c.t+P==QWuQ')yS#Aq$qL]2Czmei*crJt6Ka U")(KW77bV>,cwrmUXZc?]q]Jh.#b)>O\YB0SekvT=Sj#%W0Jb;CC?jcQV6 U"5'ukN%Tg8t\8)w58b#wEpggyD'B$A9sm6ZN5NlGC26TQ]U:16-PjVP4mOuSPQ7S9$Fui$v6XV32\_^3R,bgJDRL\3B.+5uk U"FmoMl&bj< U"97Q.l4D.r9m,P98z,QCkxuk5bG<:I^c81-]hKw[K[<48*jn;X4#br* U"R?NP_PVm=?'oj*u]hCxGDF+%zeOw+JdiqrSCFc$OP4NX:QbM4b).)7o4o'yu6S0'GsY5p\.-U6l(jXu\P1n,wW#I6Yh)]_X[X?T\gpJTNJU5;o/;D]d U"/JfHFM>n4PBbQ[\Q4_-1IxkcRXC'4SUx#.nZUlX?'2#kn/J\xYLR8[I>n$qIdmt U"k-38$XaJLikIMSUND>)$0[g8ijOTGl%SSd50<1.,Q8Q5nC:SJEYno4jW43CU(5((UR'JyVo'NqPf\,a)KEf06Zon.fTO+83%NrX\Cdn U"Rj9Z2]4Gh6'Y/V_MjuqZTV:\4De+D/sl^E/DuaN6VM&RtlV-BSZr)Q?MBbrebnt U"ewTL0fi=$r8R$Yz]'ar'V_/l'xK;i'obvrZH.]Pzwl_-^pEIKV5IE3NO.L=9g$J U"V5n[\\oZi4Rl/j7/sc0kZ>6=rT1]W1#^>:5Kh#c1\?P2I;H5n*B?y2T6iGYtbng U"eq#+u#0Hf,cn,/tn5cn?T?]i0$UnY'03]qxK.IMbgJ<94*%]6WYOL4n0jFs+\jY U"r%m*O?K$9s,K;K3I403jD;0*rpE U"qGt_EKm]f9lAW&i7?3*g#O#B7<-l8TkQC>At4[hH2BccWrYyB(c'x,up%()9%%% U"%-%(R9xMrmPC:&j(%%&1+%%%0%%%Lx38=2>C4SME1?c.]5Llf[d'ic+4w+ U"#sgFwBChcJD$oEatr_t$pXQ$I\V64KwI:(Q>QxY U".tXVhRWZKrRZ+BeAB..8>(TUhaYChpg.LeTFtohC19L)X:P2gh<=KVw>VirG,DcldwD3az52OjKNR U"^>A5CxT:#7f&30JsI4.g32srWEIwVI6TXI U"padF$_dS\2(-k6j&&%rOrk)_58Akp]?pu.Fe9(HBTZ:=n8Ol2EkJu55(FGnE#HN U"T:E%)Y,WCiBK8&%WMCqvu&3eXZ$L5]P:sQu-WT;pW/hyrX/TTo7w%w&JyH+X8R\ U"G&605DFTy]UY3+/XfDu3nV*#&69Wv<5bWr[/S#;:#4A(2_HDVGM6y U":4tH5&+]?desAK)l8fo*NvS?i>U$$daTu:[g<$qz7c:]3Jk>h#jda3BV?&s):y_ U"%A59f+2Ww.t+,PWoETep$Cf4M7ru2X]q2Y4.+%Zdo*c7qjf84,0;#TJo^wl'x(u U"p%()9%%%%-%))9xMV<84D&H%%%&o%%%%0%%%Lx38=2>C4S2E1FZ,]*/'[f1itkT U"vVreO9feq5F()%w)0P,NZa5^aT(xNXX/$5SE2KY(pfEc3Y%h)Q-*cRyu_(XEIC0 U"OjIuXK[=Qku'h^l]5#Rc^y:H'^Yes\(D:I?7NRgdKCRvDlXG^PUg9UrP+RYH3U2 U"+IVIKIw:ABs'%up()%9%%%I-%xMAMKh9,TXR*7%%M7%%%-%I%%58D=3S5VA<.'8 U"*td]^5Ml[Cd'a?iLmY/kcD(n#&Mb*..]W90GHA8a\.mfrA#R+W8M#f]Q3r;FSek U"qUJh*6E7>Sm?mbsF>iu5htRGJJ-oOJn#Nhtf&lV>t.9[:GJB^qPdJY$9n7BHGM,0k4g$LTQ>?VwrEj5W_2 U":;(Ze5H_SxAm,#FTHsM\zj;\9jwI#+NtmJDY#kKi]zpPRgD8i=%c59pO-s,Nd1'j&#HOmo%C4qg*elSOn0&YPL U"OH#;F?[g=Y>,.^i8BCotsa+BK0tJFcsCf48p]+uG/4b$RHv#?^u'JK*)^F2d1:n4hL7RM8.d U"DTE^(:58L-k\S:yKS&OXkgHnwx5=8>AcVYjRsy-A.6m$>(QSk?;akT/PDdJR+\L U",^[Fth+wp&x.&?g1T%EnYTfngJ/ME[472^;bQAg)L*RV%;WFcw8G:l,# U"gPFv&]Ub52R7q*FT#JB#($PLcXq.2AhC=+vbg9o?6MpwoI]l3]M&(D9WR/qNP/h U"sd06m1FGpKyf9so_ZL8FR6q_'sl/Rn1qVFPK.m0Q80eux>iYd?\T?fv/3H^2BQR U"Zmv#CF0-kB&I&wsqxnk&Jf7 U"786=7Kj.agmhxw+(qB-9DkQT/h-iiu\p3/)tqDCcUo+WAJqnx27%Yg[sN)G-(KZV(QqiT#0Qk^oa=aZ^;QvD:J;:JDq%i-G-0UvxC9V0s/RVeJ9n%CYH]i;;8KeDg+' U"VhG;re;F]WVSVEpk/:d_9uu(kRQQ+4 U"URWwM.Cm4q=:%51q2?Q;^[V]uB.79U^pna7jrH;ir3)7->?HV)6HDU.H''cG-j) U"0$\?aNtrR?3F+.JC:jK8y^L'_$4SX_MRQ(;\jVt%R0wtAlc$7o3EE8a[-+jF_qb U"rXsN4w;7gEP,Cu2u%p()9%%%%-=%;&2LNqK0-uH'%%%4*%%%0%%%%wyk%styj#S U"in)SDy4=]Te5ea.iDOD=;(Q%OLr_7<.M):m11dWke[)9#$_Ctq](H0evA7RE&M7 U"'.\$X:$z$vF7ZXTPcVh-4pCcl[KDWH]?wWLWegs/L>Dbx7\8LGMHsfvs4T/RSpA U"CM6E-rJ196&1a#%Q/2Q$3je-IL]BRfdN#nbSE#l?C U"p;JV$1]ZmQq^XaB5V^h4I0\[OX1Upt]D[Humjj)WwK&UpMJj?9JAA U"eIbEAXMmPot[BA-ZAOfsA,UqNi.KCU5KN#rq.eC;\-M*8c,A>%fZ1/rJlSPNqX] U"[4pnP];i,F)WMMM5F=,j[Rl?nHKb U"'=iCob1m,+ha56GGd[-]b>9+BNM2Or0GiQmsMju)StD[JG,sD9[wM6.f>Il2siq U"<)gHOk0)_fodJaX#^9.3[]N:/zH>gQ$yVTr2RAt+c//%:PKjuVpNA1,z2rT+5p* U"KB;*2AA/Qmtao4f(TCSj;h9Y7wSv&:)$G&GyS+T/0uB20EN9c/a%j_d5-vNb^B% U"lFM5MsU2w:Ci.HlWL[;a?oU%p[gXn5g7ZEQM*o=5Z%BlbAQQ8jKpu):dsW?SO1F U"(7Q:6-KEOMZ71.wofa%soF0*aZdWp'H>Mojhk,KkkJ$\nh;?W*9[VU U"KdB^0%fCHIP/$uREcz9dJEbsJqR6XOd=fp^_VD,A3ZSG]06Kd-a\:%=O_?u$h[J U"C9Ur+r7<_hv2;AQ:bb];])8Bf,2mIZ.?E1)/Y:b%Q:l6OPGqp+e%gK1a:htNNw& U"[pdF.vnQ,:F?5ACTaWhS+<8W2BV<6%%*% U"%0%4%%0%%%%%%%%%%%%E%%(%oA%L%58;M>?4=LS10B%up&'%9%9%%%%-%,O'2Nn U"CJ2B%E/%%'oD%%%0%%%%%%%%%%%E%7%%BFI%%B3M8=>CJ4S10&Bup&%'9%9%%%% U"-:%O'2jNmPC*:j(%(%1+%%%0%%%%%%%%%%%E%%%%7%Q%%xM38=>DC4SE)1?up%& U"'9%%9%%%d-%O'I2N<834DH%.%%o%%%%0%%%%%%%%%%%%E%%%'OT%%Lx38=2>C4S U"2E1Fu%p&'9%%9%%#%-%O''2Nh;9TXR[*%%M%7%%-%%%%%%%%%%%%E%%(%GU%L%5 U"8=J3S5A&)C4Si(n)up%*+%%%%%-%7-%<&7%%<]%%%%% END SUB V2 CLOSE:IF S=246AND 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