'===========================================================================
' 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\nMvt2upjsuW<tPyUyzXMWlpxZU=sW*t>dP,qb9,J%bcc].$az
U"DrMy.o=f4JbC^wC&bznsvi%HAOHr$D:GdSDzP*XJ*BV4<vchXZcSd4VnB/Qi\9G
U"6IA#[3s^,]H-vi$oBKA8ByjWNI&*W&mYvYPa\HNpVjnAY5BEM]IV\Ybs:#PzSeW
U"rS6Vcjf,]Xtznoj58tW5]NZjV,jp?v+lU+xNhBvAF;>8>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*JWrIE<oWYXD0w+$>VFXa,L$
U"%%51qm*SBr78Nbih5$L=8*HR^.I[2aR*V7Wmc<pf8AA8j0$X^bnT,K2X#t$1=Lr
U"9HjGm0HnbR11I%Eh([$dAZS2Y51cf%,>u6wrCMsCF: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;;s<J071+D_zA0Fikc^Ni7hcPcv&WJ:/%Edgc7S
U"KS$b_;As'QWdaTh9Ap,Lkz(I1FKsRtwUq0U0V4t]0SdP0bxw=8gX9+]2-C>9i_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+9<MgkQ,76E0Q'[/i
U"5=9Rz6iH3g*l(q]iuLi1\r<aTNgKbbn,3vE/BbK;L(].aX&Je8%83Q,\NK0-+l,
U"60^s-w8ovIV=Q?&QNIK8]ni>S)nrpxY.P6s5T)vJ;qszA-)Wxq<,s&wE,7ZBJ2,
U"GiqlWg.w;,.KdhjAQ^k>W<_eHZbk.&AX<VQE5hBS;jZ,LbZ].Yb4HCZvw^t9_Jv
U"^Veis>.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#\W<uBHiWTbV3%h0%7
U"(]2v=0Y;tj;OyNR4#nIKD)*n8MH3RG*Dp6X.1\='r)AcuA:JR.M9YOpXR,)ei+&
U"WLC%;;B+Gc&f:El#'2RSw^0bLk(xGN]X[7q9b)7,^?&6CC&)RXa,G6bMcHezoq?
U"GQw^OJuwrHzeZ<awtzNooKlt&R<jk#hzeLftm-A44L<N#RIt^bwaLkzepVsVFid
U"KfftYD-44lu'\n7]KCy'o$zoIabv_pLheyHedrkoH7G*$N^4-2#8ZqM':r9,jpu
U":o-LnYN()jLBU9bn>YzDBD8,sgi%-wL>M;0S_F$4#&,c.<z*a6\yKRAn&mNO0cX
U"LRiD1UhTGn^Be\ZQ-WJB^tjwl6FbW4K^-Zp\.AMi[Q4-NYmk<XG1fH^?,HU[Qa2
U"rn(6bPSyLN1Qa.(U^Wh6W,go$\*T'v/Yru?]B&='n5Z97ZA'+iAFh^f:uLVoN'n
U"XXVhtHsvTST$$r,t(<,rDt<c(FGfC[N^ZMk+/>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>&HSRN1<KTY*1W3WFE+E
U"dzK<4;lcT0Eq1:QbmD<>V5=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\>W8G<JU.=*GaQj:\$GKH[iPGb'GHm/RtN05GnO[jxe?^r,>Tk873
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'<VLH,%(-,/'8xA-^I;DrIET\q%$Q:+4NW5+&Nu:;[HA9jN#vLPtM
U"I4h9n*Wk7kmAmdeH'0>>($AIKXB[38L>)YddH>af:9lu6hp55j*g77VpQ[j+.AS
U"lxFRqLS$CkkJ<73^(Mk-#eOgsVlE_c'uGK3<6,eLL;rHQB5n?H0<EP6DL1G0<2R
U"8(+^Aq]Pda$H0<c8X4x*&fhq]-)0.[ci9l=HCNuS%LGW:H3CAO>kg>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><j%]HL)&b8o.Eq_^)0I#O0*M,M^/LlSj.xcaV
U"?<*&#MPT/w7\/i-:/SuRJWwaXG3bRS#=$-u0p'qb)cy9I[e'=C'0XFfi3b_9GHp
U"GMBkC)]+4-.QMha%^Ar,m5q[,YarR[bVcIoW&cSnVhf(wm)WBpQbIL&Xk[eqgKF
U"QSJ'#/?e)>.Y9n(gE&'negb#dUv1sF,A0e#Cef/BeGT[OmEPYa]D'F/K*$(%AIq
U"IZbgAJPY_YvoEn%^jhj$2GU[xa5ak_E%.yOzUKRbv,Kw4f#='03:NPN*X6<UaGa
U"af-DSNt_-S16.ZtW<g'A^,5BapHX8R)qn9g9ett/Yi6F/kOQ(FV2K=Rxo#W]&gx
U"j8wIW>&6Pd1H.\xlXVb0<L]PsX7c2oTn7o%&XU74BeSHQ1YjmrWBw[+1^2[ZpJU
U"%EkP(09Q-09pm/r]t2]%.k71M6PLtZ88YeJ,Ss?CM'Muu-iR?[bZRI:%.TZig*c
U"h,Dg0Cjg5$.S+64;b(YJgh:ed5m.o6ilJ-S8kV8+Uj'u%-lM:N0H-Ig,Jh\sveV
U"tJ#eysBQg8KJiedPZb&Wr;#0<+<#3m)N'_,)EERw1i4_4-Zi=bKZ?k5vOU;hUfR
U"x7;+,xN&;jsYcaijBT\vE+TpGw5[5%wOSF/19;.eU/]I3/LF8K?=i>.^Ct?#kR>
U"c8Pv:[%/dS%vvwm<SNv)7HY:B)AZKPH%;k&L6Td8X\)eB8%]Q=Na(E0*r#18%'W
U"Er8/AVr2Y_FG-F,5]FG2A]rEjFt:y\B]cfVwM=&[)j$[vyUFFg^yXO:Iy#,>eUM
U"YWrh%UmH]$1AS%R*M$?jRA'[NYNjt<YE5P#3o-$DH,%UpZ'3qa7olk^qss]k=%y
U"A];TyXBtvv.j%*j6+8/Lf\[NyNn(^:qIw5OB)$7Ja+f]8Q]nHb$8JlSy*3iFu0g
U"SoI0I.?*8zu6v&WNPFn:)7jB>Sk&0Sh?A*;1eK<4PKT3s?o>-A8nT)XDS88\)\_
U"FKO\4RGrQS8X)hWfjOiF+h+GQU<DbgGavwQY;kfgNq%B)/7Yj9UH+?'D[>7USr_
U"ET>g2Fb9d5RAG%s1yULs<+a#VJh(iyS#-wUhy5V_R+/7PdPRV.Xitr(2lm6+xv:
U"TwlP'#z6e9.JGhQgsJib6<m)'8]=0p]7]m<Vrc/BT4e)>'HwY:#Q.Y_n2iY6A0A
U"cq)<Ex^_VLme8o]#''Qu?*OKD:\0?fmUJ[#UifVD4Lm=,J0'kWG9_u:U65J^G/h
U"f9qfEiqU)Kf\rM-cO&,v;9_sKkat7u9^[(3dr'J6Rz;c*PG_+RsI5PMf-WhYYip
U".v_m?PNh$a%[22y04i?1$-a1qtfx.^h<*g0Z6&x0TsWK[Dk^kptMRog?tVqb^s6
U"^=rO8='BW(*EthTE?pzIExb0Y\rZrO<K:YMeoOqt-zZ/(7eCo>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<h6^STAj_H?
U"I:tb+=[uWgJJd^6R1]1A<1G;Oh,4/'_Z#3p4Me2yOKm:CKx.4c3x3d36'tVe,C9
U",PO;'d_2fDVhQNL9(Dsx#ocs0D)f6g.ci]_(&4$><eidpq-/r?+7lwmc%\F3Y5>
U"vJ2V9MyF'-GA'k/1';,yak=w0I?TV[dlgp4E?>4Gu+lA>e$Jd6+,CbC<P/4H*IL
U"J>jMLzk1>h[lTE1#BBBAI?i4A#mXkD3(4wOi=91txGaKbXS0kdRoT\\gq6$=%bs
U"K5V1O]JD7fcUV'7/<Oc\SImXYbF)mvfNDT2-M4;=/jkR7bf*s$nQ\[U2Y^M5D[i
U"x=*I9\j82swu0D1br,.NZ5hGd.+H,:+MG6LBcm7[Xp_*4GDInBI<t1mh1>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_:5<J94tM'NI5)P2IjFS50KdtmFyb,G6rYt'*oI
U"_px3S<eK+tZn']E_Cy4S\isX;AED,pXmkr%AIv]VZ=DKpEo>abSIU;#^OG#qe#p
U"Q^8D2k%2Oma5P>8i,aXE\B]Ybticc]$lvb6<Q?AgE7y4sK3J=UACHNrp<S4k+)z
U"6B#DycNOyTH>H: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#[i<REU0PD2NgL/.RP)['/HS9N
U"]*U-:LxIw_9]:0:1uTDW(#gC?UM4f;g*c\+p8pUd='L<GP/n1\%0SD<jrA.R>#$
U"a6iDC*,cnT^lZ>VapE>XV14tsqGAB3d#chJ<1Lj&xQ59TAbrWjaos;SAALNZ[TO
U"WBdld0NdNpV)BSqBlKf4gt)J<<2MacMU7mrBE*;fT=4>;4&eZ2K2'6I3.3B.4O:
U"sfGe.(>S$&Smwwcq'8N^r^4Idn2A0fm3^SL/cKP7(lo4Q#,?dRK$cuG,ZU$+\YR
U")-OSj76;R3u2=mz-AHpRZo9I9o5<MM39$OTGf(4b]Yj0+JKz-S%E53TvOc6Zok1
U"+AvlMDOBP$qCykS2N%HwU[+P](QAIFnJs;xqt>/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[*<k:QRBmxgU]LRO&NQvWg8I>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*F<XQQPSoIQ_w?]KnlJ&ea)3tgJeHcm_rp6\L<AaK5*M[XXNGvH1kd#mt8bX
U"\]DnOXPXH)/=.W<Ss'>NIL-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:<CXantXJ
U"He7SzM?kV\(B,o>tHE7Tz$-uO=Qw)/;GPx<m/)d8/l8=8V]k2Qa<o6=JIiRR)S)
U"\cCWZ8x'1)\B6iq>^RE-#3ql9XQ9=#$KdY1H5FSPG_miogZg*O6iAbHJWVZ<sn+
U":66+=UA(LsJNTV.$_m<R2#=Lkck#p=.\VA.qqj3x.+6Pd%diiS;#A,f&1k$3&e*
U"_kSGcIAtXecJgcE%_,39:gF^7pzhUe[k,KW(/1s#BhN9W$Gsy_oWU<LQ-Se4(aL
U"Mt.P]hekS9;K3X9b-hq:o+0R$Pl[b*.-8K84zSYt3,9W+FGv[?Pk4w#H9_WMQ,V
U"mL^yqR_=[vt&[v<*(c<0c:bt.&KWfxsJ?h:T8nY=^Cv+lFIJHcX1[ynGLbl*(\(
U",a&%DA9==7:dB?;?-Z=UEOYgUwtdOYU+q6jLI3Nqop]747Sb6WAUo9([0^=H-x6
U".^tVgBBp6NU]Fv$AvYrhMRafa>O=sdbC\c;5jSD>c2]T0U?]kFKXHjhU%<&cMhN
U"ujh65e_QUM<SowQGC?.xuk.=D-:Qej&-O.D6.#.$f]<&o9GCM0;c%V.O=JQO]y4
U"=T->fLS';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-+e<I7j4&=ET-Kfsn=;KsVtN
U"_ppR+sb3ctNgY<tKnnESubAz0d(u1iMc+*wK])RzXz+hlU$OojQh\yzQ>AgP2y-
U"5jM==R>A9EBM]mom<<g_?>LU?cntRR_t3jn.R.o6<w7]Dh;3?TJ/tJ2I6>TGG36
U";o9]Qa;\Fst8-e.=lo#rV9gUedct*$WKdreQ2\.E\7l(OStTvVJ2%>+w^dMAuoI
U"#hgj141+'uTKT4cv3dAK[?[*?gp]rg<.;<f#(\M;TjR;nI&L6ILs,ZVZo1D:H^[
U"?3\&Ug?CFY=57p;/&''eX?9k>%up()%9%%%I-%xyB'MXV-<6%*%%%04%%%0%I%%
U"58M;>?4J=S10kBF&T&=#\5JL<oN%=MeR^.y5$&Q;jBi9el=VO>)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<pEq[K=8BShU
U"k]ZwX:(KGjR+gSJe=D(SS(W2aPU<xPUp8riWdIX'Crimrdh54_MWy+J46xH)&fP
U"<_'>+.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&u<Gj9^$ICk(=bs#EP+;VjIDCJuT^)Xrt+AAaVu00ttm)CU1A
U"j$58:s2g?]_+7KtR;.=58mgGEm<(w<%PRBY0T,e1ty[JRFw,Y;j%%-6W&/qnDo4
U"'HAI.S+OJC5]CuKOps9OHrNvh%,Qxh\)\u3vg%<P'HV]>e.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"pw3<XkB$ZS.1Rwv#pic8*k4L)Wg^u+w&lC;Oc>QC[3?#l(UVO.Y0c?EsQZZYv12
U"28gtK(9ZLGnd-E^K)eQE4\BPET,5-41s<E8GZCAr'NMBo1[dgg=M\.UD)mdab6N
U"+IJS2Pc8fU.Y=(U4=b\?UKE/tO,b4[6a+-O%S_2caW8W460C#V]Tsc%<2\?4%Lt
U"G<'GBBZqj><AdI)n7]_+X]wJgJIGNums83rkjmU0fOeo&Xem<qi9IBQAqkiu&m_
U"tc3sP#qF%4H(WXLewOwj$JxxLuFtZ/b.\i2;wwwT%]u7D(xAN.*%z[jdVY9[JR6
U"Kqt-MEKP$8A$W^W[bWOOkr(rUpN5):9j\,ZX3n;T<W>04,UI4Y:ft1IOeTWl'zp
U"y&<Cqm*&spFDNT6;_TJb-8.*uLb8--9T$B1T*#B%9Z7<UP-6j?3h)QgQ9he#)jz
U".FoFwiUxt&5O0vxyX2L*,L\Pc]mR8qi]t)sl,K35[TV$i-lL+EhS0r023PZ%N+P
U"(MT$px(Mt>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$<bOKr6'<_-^1Wnb?w-u+Rhv%(up(%)9%%[%-%TGy'MC=J2BE[
U"/%%o%D%%0#%%%BM38=>DC4S1V0B6(_*>#2^:M\YTxeqpPa,Y:kFpx&m0]+6/:YE
U"1+pBc;hcUaQ.B2vAn]Tvn0v3>h3G[k*4/%QIukEZ25nhkhe.>r^JyZQL?tm(,T7
U"<eaPlUzqsR>>BujJ]<&V41d*C\9*iTe9>sp/0(fRk8/617243CWi<?%Zt?M^H,f
U"5AF\y'N>s$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:<A9j[t
U"OQ_y9U1*g38BzP[?d(hM&dt_;(t1P#/r6LuN%Xm&)X2$3#I0AmE=)yU-VCwY9=K
U"Zed9.VgiHq,*ejgi2byXC.A)tt,nQr97,MlvR9ZjC13=dx/e(s^$Pt%&YTd'u;4
U"o?n<K;QXCtR547g$J)7a?+1HppIgK^:QXru&r<=m$&'Y\UGa8p(vBH(%u601CH2
U"ik=<2BfPsQN;LrNc]PBeZ?FZAxJsa13T-O8zph6fH$G)7SpxYkYFf5)Dl'^m=1b
U"XukgGsXdfW,th1[%p2Fs,B>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^VT<s.j[1;2''hFaMWoApr\utgd_u60Q8BGj%xS-\JDwK6P]
U"'II77*Ar2:axP_Y,fPogJ6&#Kf8Re%3*/kha\Unbfdi<?mAd-;yNb:jSBSLXsuD
U"V=(d*7;[20CEJ:M1PuPZ=,hnN2eKT2y)0AjNI#;CA_Y#1Dy8=mLS#)TS_$CMWX-
U"^(pEV;;jcYa[4quo%n%AM)#9\.(i\l,43(:W3,'OBh$R$),8];XLP'eO5BXkAsp
U"tAlDZpd;4]tp8NJ(fC/ho0Q9GK7>tp:,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+<?Y>-Uc&?U;2PP0$6/1V8;0Ix:&mz
U"T2P7VATq0P37*m5tQ4uR0F,a]x3c.t+P==QWuQ')yS#Aq$qL]2Czmei*crJt6Ka
U")<ke,8>(KW77bV>,cwrmUXZc?]q]Jh.#b)>O\YB0SekvT=Sj#%W0Jb;CC?jcQV6
U"5'ukN%Tg8t\8)w58b#wEpggyD'B$A9sm6ZN5NlGC26TQ]U:16-PjVP<O4Y_UBeh
U"h\)^*2]l7<CO(V?V4&*cYBGOaxx6I[0k5b0RK<#Ts-J$eW]/Q31NrYbeAknwcYf
U"YbTv:OfOPt)1.d6#Cr(z+>4mOuSPQ7S9$Fui$v6XV32\_^3R,bgJDRL\3B.+5uk
U"Fm<lv#IF7aWh'MZzZR%iw&.5GC:\\P[4&g5bR&EmDIqRjJv9_%e7-3;jEZ;B4?M
U"Hd+Dc3tSaQ83fdBUh14]:E[V$*tw^PYdZwcvt=x;ZoV(#'g\._/Z7w-b#&xWpQo
U"_me3vSo_xpgN)w.4)0JhOBAc$K;3xakh8+X*qUAI3<p[tHsqaF81n&?>oMl&bj<
U"97Q.l4D.r9m<Z()*8)m>,P98z,QCkxuk5bG<:I^c81-]hKw[K[<48*jn;X4#br*
U"R?NP_PVm=?'oj*u]hCxGDF+%zeOw+JdiqrSCFc$OP<E9c.(u/<:_18Xc]6\jCH[
U"+m8:NU;X#rIThSBjPRUMJ>4NX:QbM4b).)7o4o'yu6S0'GsY5p\.-U6l(<PUNM4
U"ee^)o*<<2iNZYpPz=U51Ro(gn1:.Q5M16]Is.YEZDwaq3xmC40/^#_[QA7h+ltW
U"N<xC10XeV.4V*2r\/[h41q<88oNgK.VW%<G'P)'(H-#tZ]YC'oJ+)fX7+?nrttP
U"vpuKno>jXu\P1n,wW#I6Yh)]_X[X?T\gpJTNJU5;<HQm9XoIigXd$'-e>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<ceAg4X2Wij;VvlTq
U"05kW)>: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;K3I<rXJ9xAJ$>403jD;0*rp<gY:?+VaufJ_X(RQLO<N=j0k(>E
U"qGt_EKm]f9lAW&i7?3*g#O#B7<-l8TkQC>At4[hH2BccWrYyB(c'x,up%()9%%%
U"%-%(R9xMrmPC:&j(%%&1+%%%0%%%Lx38=2>C4SME1?<gy,>c.]5Llf[d'ic+4w+
U"#sgFwBChcJD$oEat<hNf1cg3MD8b]AVkMe96xt]n7MR3MO5H[L55_kV*BJ2soq+
U"<:GIp)xkCw\_qC1r/o&jLAfM191Vi:rBP\Sci\m>r_t$pXQ$I\V64KwI:(Q>QxY
U".tXVhRWZKrRZ+BeAB.<N:Y6<7&spW-(BcTeG2d7b2FjIK1KGyT[73/L,d&(^,CO
U"GU0KLg-r/;+'?yX1XdI_&gx.rqHjbIk?qMvM(S#bd2(mY$Cf'Cm30ve;cEemnr$
U"8WUZ4KaS_iUtb+AXD5<TTxR*rM.Vrn5ZMMijiLajV3;2\Kyr^q+xLK.(FuOEEmq
U"\.y62n0=G)O/<gT^BSb0o%XDJlN2$9n*S[].7'*[_<n?#f_TM33H3yEe7,#,A,)
U"LW+RefeqdQl#-<F6-OZx[PCa+'hp/7%d=4qUTV=RnLTu5xW;b?n5iD;\s9cn*#*
U"#az>.8>(TUhaYChpg.LeTFtohC19L)X:P2gh<=KVw>VirG,DcldwD3az52OjKNR
U"^>A5CxT:#7f&30JsI4.g32srWE<??)mMHDku%6swA7Qk<&KOM3*PNkKRMq]Ak'?
U"6?n4SN9P3p0eptCYv1J4J'u%X_2N'5&+[dqCc0.P8n+%5<(c7Tp]fH>IwVI6TXI
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#;<p3PcqyiG4V:%6FgYG<s8Kye
U"A5&a.-9Q-wMq'(_NFHb#>:#4A(2_<mC1_9'O0l<Gh#?ONGe#++;IHPK-r8Zuj(E
U"lvI1%-h%,,PlIr%mq4ta^l_+i)1oUKm*tD*-N#TtUOa<.xeZFy28dG*Nqcqm+m]
U"o$*KHRPZlY8xZowl_xKjOjeTZd27f0=J[wKlDXdT=l:guf_%_0sj.$C>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<p7Y<DVn4.SWIg-,A\$56B<0
U"[9BmghqdFH-\u2:ao6]>>t.9[:GJB^qPdJY$9n7BHGM,0k4g$LTQ>?VwrEj5W_2
U":;(Ze5H_SxAm,#FTHs<d*87G<1sGKc[UPZ%5J:BGB]#?B[K2K1ugiKYX.66\LuS
U"(PmGGaU012&i-xSubQdm[LH^;'ZqQ'H&lUQVdSf(eTAv;=+n^1AF[MP2a?.i0\*
U"?(fo<&X=>M\zj;\9jwI#<G<Q'(wjk,\OZpmo_mv(24Teu%TT=L1Ao6uIX[n'^oo
U"<ENiR>+NtmJDY#kKi]zpPRgD8i=%c59pO-s,Nd1'j&#HOmo%C4qg*elSOn0&YPL
U"OH#;F?[g=Y>,.^i8BCotsa+BK0tJFcsCf48p]+uG/<p7xH*i*k+_9^3;8WoV6xL
U"h2<OTTlKZy'9N6,]k_kG#bF2kr1II-$i;olUN(tWBhi)ZDGPI&;8WqAV\G5)jgn
U"UW9P6S$^3<dZS;:OrZKqOTMSjYdnz*1c91dlaSO4x4m9Cl(B#Ei((<RO4\DV]wT
U"$VIop>4b$RHv#?^u'J<l^0rrS9f[fap7kj-[^/<Ps6o>K*)^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<rA:ZL>%;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&w<HI?B\qB$Hg(WYq4l?6]#xov]22t8lW/YOd:E'[>sqxnk&Jf7
U"786=7Kj.agmhxw+(qB-9DkQT/h-iiu\p<capd,YR'+\$':=_icuDa_;ld7PwTaj
U"S#Q#oNlrLn(2wH9DA+E=H3RsWO*m&ZC0wSKlr9VuUa&1QwQxJoyHos$t7])8yC*
U")Z1JMbKDdq'VQuxs[q0(#Ayz-)#>3/)tqDCcUo+WAJqnx27%Yg[sN)G-(KZV(<K
U">QqiT#0Qk^oa=aZ^;QvD:J;:JDq%i-G-0UvxC9V0s/RVeJ9n%CYH]i;;8KeDg+'
U"Vh<j.fxUU5_&5Z\/nSAKt%C[r/^;)6U'rlpalJC<CUJJ$azKxNW;S.f:='K_5Z+
U"4:j7QkhB'm2os1wIUV2g$&4Awtehu#0i2;F0Lg*I<V'c5m#ee%JBdiP[_nO-0-j
U"Q'loVsYx7+lMpHXl*s)pIw_Fwg7$TEY_0cR''BC20NCAuF_Plb,<p7#E=hFAJgF
U"#:lDCL0DcLRh1;5\Zp0W,W-=RM*l:u\e+2>G;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[LP%cMWEKC,m]&A$j=U>%Q/2Q$3je-IL]BRfdN#nbSE#l?C
U"p;JV$1]ZmQq^XaB5V^h4I0\[OX1Upt]D[Humjj)WwK&UpMJj?9JA<c)i8pt:J>A
U"eIbEAXMmPot[BA-ZAOfsA,UqNi.KCU5KN#rq.eC;\-M*8c,A>%fZ1/rJlSPNqX]
U"[4pnP<cCFClbmELv,IjCRRC&NA#fqDLn,Imasdi>];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'<PlG$M[7>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+<8W2B<R-&tA*9%Q2VqA:<7VGk)^9Q\t.h=7QIWCOhB
U"i09SV/_pxb(gO0K;-8RTu%p&'9%%9%%#%-%O''2N?7B7xS%<%%&&9%%/%%%%%%%
U"%%%%%E%%%%%%%L%5A<2B38S25A<u%p&'9%%9%%#%-%O]'2N-)J+gG%*%%5%:%%/
U"%%%%%%%%%%%%E%%(%%<%%%kwr%xinS.kw'u%p&'9%%9%%#%-%O''2NX>V<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&<up&%'9%9%%%%-:%O'2LNqK0-uH'%%%4*%%%0%%%%%%%%%%%E[%%%D%
U"Z%%wDC5s>)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
