'===========================================================================
' Subject: DEMO PROGRAMMER'S LIBRARY          Date: 07-07-97 (00:00)       
'  Author: Dave Shea                          Code: QB, PDS                
'  Origin: FidoNet QUIK_BAS Echo            Packet: LIBRARY.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"DEMO.ZIP",4^6:Z&=22968:?STRING$(50,177);
U"%up()%9%%%R-%sy9$GFz41lG&7%%S(%%%,%%%%wj%fiSr4j&at+t\U5l>hdsFBW
U"2%.O:k5+P&io4'cyv[FN,1j^js*l]=dxh;d>8AE?)t(Rvs9rBX$pCaMXNZ'Gq[I
U"l][fF>[I,0[^*c/4viKfRj]>_KejRd#Wa=O1Z5I\L9C[0wf<_sRO.>uFVVf7)Vt
U"l3A:1LJwffRI>a9qaRLY:\.L$UWSIKzR)Y5z&)=mv)7u$Y]%hfY*;'R/b66i^bH
U"RrY-8IMS%OvWP:y:Yj6*Jy;kTiX\<JhFAt^sKWQ$HwS1Ig)^fBvyOsWJ;OASonx
U"i/q,pO>_FO\E3)HkvW5895g1ICFuk0:V+M0lmTdKj2,JM-D[lOJ;Dp5MBKv5$EW
U"7l3/c]x,.Zc6]^(6:E)5HJ4\PiZ1D8(7c>LYr49oEAZA=DV.T,Bz<3U5hepjpG<
U"Wv6ple>x**4Kx3Wb:7QXK?6WadSO1Deb[eo.A.S]sdL#oO>S.ZA.^=;+U?6Z#I6
U"0iaMT'hlLEw%(up(%)9%%%%-%=H-$GoIjLCc%2%%8%L%%-%%%%i%jrtS[ithFk)
U"dBTR[7xmbhu4TdsaEgJ7K=j'DZ\\4xReBWn;R$GcPlWD+X]b/O'OvZQ8wE#&uTZ
U",E$K\tBC-+pm?*hlvfQxjaw]xemcPtMnFv?ZW87PuTJF^hwFLVdDB]Z_9?_c8\c
U"<-[p9;ZpIL2puZqrf%qT?HN$TRbM.NLlZ92qY#USuCma:b_.EQ+=E=tUgl9hDR3
U"9:&I\m/dCBxr/8)pcxHIq(d72/Y_pid[kOn]mEaHr+nOJMftBL^bh?%wP0i%9;k
U"<eAO8ZTLLX(thuh_UhNm0?Ixq+(+_>9WE_T3&'O5x=r%v'cS9PA^j28q_F<BE*a
U"QP5=/Ege'H[zJ/,/Rh*KpjyOI-9/)PIvGP33)cJ1jdn8n#*M)35F8I0Vdt8C7fK
U"IZbRF*.srs2Td('Xg^itgKl_gkS32^m2EPcG_bnDi$xe+AaSMAnb;dM4:;PfR[f
U"_s8i8(X27CLm9p)Qo4=#IL*7y/218n1N5$=pjGj=WpM7.)ZiG$<d9%EW?<_0Gp/
U"0Ncp'5/n&Stul)fEV46,nV1LlvZ3u#+kMAlHiwXm$t(t1UbsK-O&E>amFI6dMpN
U"R$s6,<rj3mw8;W1>-Kl82H.>RrUJMlQ,LQRZ<aTPg^/Lnt4=)]*)KF/pus6dY6E
U"BZP*)CTPm7GF+6i>hSXp6].B/vsKtJ<%eI2lIkIHWLF2DIN2cB>S9dW7b=F1vT2
U"u0AJl?\p3?2kIHx_e]9EE;$>Ek8.%Z%l'xEJ<,.&>RZ8'n*iu(uJ3bFubhx1*8m
U"HVQ1Lf)($S/f+PhZN+1A=pQJQwCEKZY3Js/,pHl]cVkhYTKo*2nK,ID]2CGBZ,P
U"8O39MdTwf<C.QJoN+]EWaY-Kh70?WFt9->^x1s*?>6.Y9Q'D7j]9SC/FNh_Te5f
U"_shSxM5^sMtBeQ0h1:s&82tQt[MFe,A&f7.hR?v9Zej[35bW4Sbn<#u+>y&TJ.I
U"oznZi%%B?Uj/w%O)6W,TL03F,h]#003BD[c#1Hl'WnpQX90]edsvkh_&-5OD/PB
U"/BLi55k^q5(xCW8JsXbB$AbsB)9E\+\*HJTT_FWs\XS=K#8,aM8BkI+>s1CL7GT
U"7RVC,_?bvmW_E9,wdY^khmWe*Jp>f$6xTb3YgrFl<-#F#oFIPoC]q2]fO/YoUH<
U":l1H[HM7?oZAhr4fqK:D4\fK^1hk]U^7>E+(b7MJ$xaCFe-0pE_gL?3XxqCJGlM
U"%IQjCI7SOt<>FNoM%NA2'TX,H(X6\pvkC#f)$q(P[9/9/77.MfELHbZ8qXK6/\7
U"w]shW4h)g)R##Gufhp&m4g;J%IN]L'e+G]5g0*q'oCLI:hvtcAgu&X=sAzW%WR<
U"p6;<s0PE[FVd_2Qo'Rs]^'hS4/cN+i^#erj+WVDX<u8R]e)VE?V38,<<?7H6>jh
U"KE>y9#N2(NBLIb0XH2PhknN5fUqE7gawW3i+QQ#+atXUE^<Ehydh'm^pz7ic[H=
U"S*t.3FSDiVq*-dmElw(>pXkEA0^3q=EmFw?%V]g]]]u)J<:xsMbqcNrY)h4#O3O
U"hqX_Go9,Y3a#2V8A37]8iG#3MLnwNd*^5VI;g^eqr<ZPI0_m4p6)S+Th)]63]59
U"3c7[*a/=_nFRulDi5K/N(2i91iG9Sj/3xlV/Q5oQ#KrHaV6z:.maJQT86/9b6JC
U"_e[^t](j08ME;>lF[TFh.0LK:)8rWK^u.a?h>Jrw\Hlukm(.]+M1T7T:^bj5N^C
U"_UA[i<17iKJy'pEkIkuk%[d=NpJ2wL-0^AVA?jW>jtCnTCSMJj_z17=Aou&_uFj
U":Ef'pus2)StU1&ZHTQ%dsm4Z2v&N(CQ$)D#[&9(j6)mY-YtF+9X4dYZKZ^2kx_4
U"M*1:;=SKHq_(f0bmN<U0Kn+O0)ixL+?aw=5Q9IEa*a?ZacpX+2&.T-lg\)Lm)a9
U"'\sMk+J9R[-3)/c%>q$EDy6GQ>XFe7g)j6B=V8^(TTUp)#0<Z5kKx<h(jcMmY'*
U"hT;3)N[]:Y_T[4+s^b*aVytOFH/<#9K.UIU/ebcPY]NU:e0KBg79hhF;Qe9[EO0
U"j&*pbGg2HlT;Lp:UR'q:z5#t+(_Jc4SCk[Ar$-mp6.;Tk:8-hJIjYW.$,[-F)n=
U"+IjfeL#G+##q>1Li&<KJvUch#lUxk7p4Z_8YQ<q6TsDSA6XYwBUOtGGSg0qer2S
U"BlZ<4hMpi7$lelv::sfG[#*3jL<&W*8K_g1hB0%mzX1Twr=jlUrhoRI*?C_7Zf^
U"KA?WHutFr_gu_><S-4DYg^&1>>\6V)1t8l>OK'_2FxT+=m&[dU:uY8BSl_M<o2?
U")BEXAptI<B2%u4oF^Gi,p_uiDEDfFT9sV:A&,l3V9a#1/<&<5wA;j<1kNft*CN+
U"EeYM;<K=,IT:Qr-DwbDJ%=D)FM;Yjha)&yt,.lIP6wF7XcT6(H:MdXu.J_'[JfF
U"=GZhr=RYQWQUtEQ,1t?jN81AEsq0FHB+'T5BZ7NiY;URmhV5:f??2KK(2sD[AXL
U"$X)AI?12PT[07BXC%8>q'?/1KpUG#Ipe(2>^-5Y*NPR96p=YlmlWFrC22t96B#o
U"yB55YTV-BnHC8&Z[n,M&)7:FJ02:l0hwRX[/2,UXZ&P/2CBEkfCOMM:+,9pCHu?
U"6)$#l$mt;Jj32kdli1GeZjHA;,AuYG?Qa/[t+^al<*_'h?9nij;%PP..kiDPiN,
U"fIjhfKCQ^ij9)&?0vDe3#naT_I&RtJ/-f)x/w>O0&B9dMsm3+AUI\C)DQFoHCR;
U"V;Qo#5TC2=mdl'ZQEYa+Q,Quc>M;KPMOt$+N3J#:UA\8b3D5tV4XOU=wjLP_mdz
U"3WDJ;y0PTLnkeg_1_#[u\gUA)H9$r38//6xD'<El:T_BU8B.ooE/3E=hCi_FsE+
U"]Ld)l0V8m^Tojp]4Ec.XC:]cj:6TAO5^+UsHFijfXF(Q:o<x7BlbG>+pbYoaC6O
U"(vtBJJu#'T^=W6e.N+P^,^3XBl&J&2]x$ue>Qg1r0**:A3wP2CO20DyIBJDoM)^
U"*7mdHv-h0,iudU&B1+m;q32AC7Otx3q[3vNk#YnBQ$e5GBSfu=0W7kL.GL)T-EF
U"e]w68F2tE.R;MsK1FmvgWLwxJY;LodYJ:F=L&SDbZ<CE?.GhzkR)fJN.2he?;;K
U"mf$uDAlO9Oe4X;yOl\E/f8S8u;;r3EV0GXjhh.[1>uYtH1F^sk;[\,R[nZaeX(U
U"ej]U89NdYH)^##(Dx3$YWSHo<ela;d,*HcOq[#Sed'p5l$0w2iO,-PB#XAc.Xo:
U"iV,2dHh&tV4%VY:-_evpGJ.BH'^IvZJl+-\mGl=:7fuo-q,<qISz*Y#Ak=lX'#L
U".tUzW.bX9sOArw1uN5P>D)CW%yMm5B3Pd]4[jZ9L>[*hJ038S_e-bzTRp<+px?J
U"G\B)RhNw7Og+2;Q\SX6c$Ul,7e4aXLM4\]OkS$pWT(=#cu6*Ms[dC3AwAi28UyO
U"V4^ASVIr0K%&Hq]s',_CG^q2_p7bL0fPy,R\CS2a^74.R/GDYpB-%D,$jg(2jTO
U"m^qXrp?pFD^,HlRHK[rfg4be?SGIJQdpq680)aTjOuJ4Um2nH0Ipgm.(;Hpm%;D
U"G'&]GFeS2n)Jo;qMtRQJ#hw[MKl,tXk>H(Gdu:I\EIPN)^Eyjr<1apkB_LDc#Pz
U"a]YN10y>vfjj,j=ak#L+<+tq1I&+MgLl.y=:p7:t8;#^D^v'I(LP</9_t2bfM8A
U"NOy/Q2a?,-3D5asANFJ$j/catmV\_6?HSx.]??'V>0rr/beU:?SA2y2q+d9.djX
U",3.6fb1WPACrICEIl)KuZNRDZJN=ypmj[-T'hST:Z%?Pjesf:f#VTk2\Y8tp\MD
U"$J[;u?RknI]<PU;&V=X1V#5[VPkp=kh3Zb\#PWNGEB=K)cr-ZHLl<sup9%iT=2)
U"9nmeoPjJ5/ItV%_uv='s%<8SOtr:^Tm.A.\0<A6wGTP$%Gr42/fOV3[e2Sdl9d#
U"Q'([8UA>rJ6o<06N#$,bsv<wh_cs.['Nn-tH^q&h\xW<xOF+d91m,If[ShTm9Y:
U"p\ODZC7Yr[GCV86)nKC+T/sU*L5NqC=)cL=wZ?$Lck*Bis$)sujTencBDyvuuc$
U"m2^bCKYB&ItcSEbo;_zpiDCJoNdfpUv#n'hCfPgeu'/%6aAHhI-aU&5Ut&vDW$N
U"/Wa>^X9uF(jGcjh-k_(2)4-;XM.MA4-(nONBaTc)=dp&fI6DN2<*WrvMuou_vN2
U"pdup(9+m$&e__C70:vpb53\&2fq^&tc?D[&HoIckiLBO.i(N?BYAZUlh^.[-AFR
U"/1HvW#]Xtr&oOW$f;(;3)d%3.zPo7B\,^r?<DhzWv/>J5H8ID59D6exk*_='Zw3
U"1_v5dGEexuF*rL4LuU>h%i6>$jdEKf_zK(cZdns:WHY*B+9[-=0tnZ-jqDu%p()
U"9%%%%-g%+koaG=;_&a,'%%%l*%%%,%%%%ijr%tSgnSlxT=Aje5LQ0]Ng:o#\mVX
U"34fd,pL9$)/I9%;pOZb>dU=fT7W1>sqh$64Q]Ti1xY=^WfX$-EeS;#XbH3l9h6Y
U",/.9Np1>s6-<iQ:,^8U$>Z4RPI;JEd*1hyyJ'zGe0,j[SN*(gYiFV]]Gq'S3Er)
U"K<VZ-wJe?0BrK-Ck/-;57:]7(wv]jo9/K=YU07XKUkFRFi(\bxaJ-fSKwuk/5&t
U"4_bNdn&Tk%g\f;Ifg[8SD/=[u7,-?d07IqtNLqds%0Y^=jQ6^#6[Iq]OPOQ)f=$
U"zL5h66NvtqKF;VwyDbyR6k(%[Go[03hP%lI4$B&>\_Ny#jcH3I^^kw7.aYCuXJd
U"W%fjmW7elt9[Udje+*:VbN%GUXj#FM-lS^GZ,slOpJJn^JLM,48,27=AUE\130B
U"oVA4u%*Vc/-*9'jK)L)Y2cO00W\=YG_c:TNdvi,(H<9F$02-G)#CK:K\R6B0_K)
U"Plk=ue.KBD^E\-uddR.MqHjYKj[?s9$Y?-NG[fUf=-89$g&,WsCsW7KN(sb<.2W
U"iLSyk<WU'H$SNSNE3U4g.XG%Bk'7IP.SJ'EOzXm;Lv#a19-0&eH'tGBCq#XrsDm
U"ICCVN?CX3QOEjvN'*Euh%6\g0//p6'03XL/5-27_:GD[[?Q_IMKJk#rE+pw%u%p
U"()9%%%%-j%sw$XGp-/&t<G%1%g'%%%-%%%%ijr%tSvqOgfkJ\K9j33p:=b%h-FW
U"1?>;eIjy?(&e%OF+92Z>#1nE0?;F=%[&HFZ3]Uq#tQ:DI15H$jF=IzCcN\:=9\K
U"AFZZ+U1?2U=%J([Ug8lnQV[+3G+HErzD*H37SZDg7nZplw$GUha,]VztNZlM.z$
U"tb.LscIB=ArPH-XAdFS4q1t<0BVU8UgC]M-+Wa9Ra1?QC)_'u>O#:8//&G/hcPf
U"9ao);5F&W(j.eJw&-t9fu.,?O0E-P0O6aOjR7E9U+rsRt:+uiU=%07e/&g'C,^t
U"O*Y#Nu+-1'zO8S;)hRjt:%)#8A%V9:.I-\)e$1s-msn9_EI,n['\:%IU8aI.;P4
U"8/:q9\;*,9)0?'Y8Q;I37S'6&cs9BY&=U-1((re1I=4uP,hYnud%;P$99W)/a]:
U"kiFcq1;X(4:f0YMw,+rY1]#,S&r,#6^=TU1sQ+&YfUCA[+#IE6sP^>/[AR*jY('
U")9Q,bz:+iF[q5Kj+/PV0Yp?9EMRK/OevTOFuI,S,P7eGYzF*71n8/O\g4o9L7oO
U"d9YriVm].UY77mM68a2O'3,m_f*Y05*B+ec'F*W%d+E#em^^G>U88I]c%U1q(Dh
U"/cG[CQ(6+q14G.eZw*H#9j/S_-*O[UU==;RhY\[e&P:$4/PQ+07+L.eP7([<e4m
U"&p55+Bg(4Q(n/[Mm&P:d&/<]-9w17(:<OBg.mD?,.=+3UI#9O,'Y5]3CsR[?8B4
U"q*fE%4YG<)4kC&pfS[1,x9c,Y2i#N]+ITnI]%Ki5o/[Am+,.fc'-p;RNYkFY,iF
U".Q2Ia)<cI%<1%h7eIA)6^Y,ua07,O,-A(qU,Z:*//T7*JN,FT#5w*E>OvY5A7+d
U"O;nO'\9u-g'14O.(.>M/J/GB;*-NYpu.,?O#/+%N,:fp):Tm(pQ-ZY6E&RyUBV3
U"Pro[%Q+D99O);&K)c*(Z/d]g']RLT92GQ;nOZKfq+':cfYCiC%W%^;O'iMTA,HR
U"HN9.y3:-?9*MRXe'chmU\oE6Q?:\Y.fiQ/Y[=].U$9/J]#Ku1M:0kYb0)>K&MEO
U")?^-k)X;Q%i(Tq>a=^KsL1a.U.g('Rf)E)Pq_:,Y9_0).K3kIUQw#&c&fJOR[_a
U":YMa\LPF\%f^]1bIVkAb2YXi.b=C$XF,9vrY>YPtF9hY7#UYs'Q'=]%+s'\0qz.
U"g*[OBa^&m,D<9))(9-%dTTI4959)Be&tv9pYFLi%u*/$E;Ia/5P[Gu/Om(4Aa>V
U"mYY]q&qhstALYOzi./R4UWTkGY$49Z#iGAG(yP*f/4-?:qP,DSP63*,M1m.%8Pj
U"Yf%8*,n%D))UPvEC+[,-<<5v3<\5vvYkxK_E%n-ueQ^/&bPXtO7tX[AT50mu)3L
U"WmO(6t3D[W\M*EkD<[dF^JI;(j5BS+i;mqu(p\^U/2[NFE+<7[)6*Ku)[4G5N)V
U"ZymIpxkR3-FsoB:nxe*TmI>hYrX%FH'#ztD\\Uebn*Mn3e$MQHC2>5(za\w)kNf
U"1eF[xKF8$aa*%&oIu>a-iG3hFY2AP\UH*ZFn7JEF%V+4<tBC)[9&VX9&5V*KY>H
U"OY[,a6MEMae^u,ZNEJ(gbhcYvA$kVrprOGm18DgzFwrpy]N&Mjcqc&SMkm_vX<*
U"4IM0dW$_T#TBE0*lf$c3(/8d>?1%Xu5>HbjF+0nv>cU%=tdKY:)uD6$+,hyo9sM
U":oY8IY-:ol+hS+WeATAC$8fmiVU1+zK>on.EaV5Vv[(h=6>W.'f6m'Wk>747jB%
U">SRnu)<WeD_jia:Kz6^^EXF<kte)p3\g<.%zf)*\$bd_l.vgPZ1g#nDG8?c.7ps
U"6\=W6gS_+ZgFm2&&d1M3<i.+#CjFPZe?c&oxh+<RAojJ,c9Gu[CHg([6^Mu$Mc5
U"tK+GAdcR56dMhpi\#\YPl#qU3q5s*MtKhBhBgyYW(/RC6*VIJ/TaW:8Zqj.6b9'
U"^0#DI1zTz.(G9wO/XStWF=fpv(p(F\Jt]BXq7CgXtaf:]Il4>8Lp&]50<l=tOuc
U"%c.Y>5)sz=bRQa\7FOoVaiMdrdRRKHJiC;^zzRkNX43M1lM$X8vSWJ1>LIlkrAQ
U"U(wKJfj\T-O8Xf1N83H*s9&[o[<7DHf[OKF+l#/pci^\;--CkcKJDQ2W[Ii(O$i
U"sVAL9l4M$F]mTU1n,sn9tQ07bD/l1zXMB*-R]Fvpol[WnC9pg.nAx0UzBGQ/vRA
U"TX0(vMe3*C$%Bf;Kwr7fRn.(yYhc5pADCB^Q#0^;l2nN\P%#]g6O-+x23[*Ox[s
U"HlsquUa7nYO?sPFD6.DKpl&NpWsdb>Rqtw.Jzv-nO<vF^)Fxnj/=ih#nHP&1.oB
U"l/_wrxxS9BVFg(DCXjd'rta_Pv6UGn1p%__&(UtCM$59(%l3G0gJ6'%w'tNh_/V
U"t$&J+j8cXf-n[Hbw/Dl3G#*\_?z'ggMveehPXJCBp=j(tHHW$<4xRKL_VN;,GTd
U"[&[Hzk\<m.%_QE;.Ow&ROZD<$o;fLTvR2+KIqAt8q5JqAw0NI57RZnAEfXqqG^E
U"gA'tF0v3YFT12,auHCg1QvTLfj6TnKS>r=1Z,%o;C],Ug=p,:^rA=lwT&A,<7PR
U"GYU'L5YeQp,+UJDNq,AWV/'PU^pZ[tNiH\^;$KgfDol<3+2bMQtnm10<Rwv=b2.
U">NC\<ODnd7c'Lr8B;7=9JVrHqewCitfY)xBGy$co-^Gzkbg&EBnC4l?hs-7:1bP
U"+SboT?rkc'hUOd.]u][a=M;.LwVeelbn^adXmd>7\-1NOaa>*o)qu/,ZX[c+bAC
U"tI:JRbBGN$G=((=^'5Qi#eFSAih?f<n94Q:ug:uypSemG>1Vus-Np6qp<ibC(m.
U"NG(j69sWkVedTZmqj/0jRnfNc5lWPBq9#MC)klV9kszQ>J:#;-&\Y2FXr0G[,m\
U"H\b7VX)?*z/#S+XI3ONgp?VQ'%:,bGgi\22/)Al;2vTW]2p&Zhf-]JMO]0DXer0
U"[,Lv\BFnf]s9L]t9k+,(>,\Erx\=1P[9ol][Craz^''Lw2u6\=,r-,H#aR,<x8B
U"_drKKvMI&j5?3&Bb4DhY3L3I/rHrj4V2^eS#(Sa.0YzX&%3+tim*D]bbTYR)w8-
U"n-+*vdmfs+r>&&+pV$j.Gem#XXu%ASAUOn2$Tqr^t+S75[&#8NNUT<oThiHwB:<
U"9;O;(l'Hf^;+4fTPIB1Gl>;M_WJ#qF&cg=ox)Pqdf/bbYMkNiKnVmK75>?+CXb<
U"u8$jVR8rl[$h-X8kF?F(8h+ml4c>p(([p(C7JPNCZQ[hTe)4;2n$CaO&Impl5^6
U"=4VC.R2H(T(L<jjDpY*A,iO01J+N7_ZVMiLp5HKJ(jc'J(t*bKpGY<C07NlNwFp
U"]mS5i<ltwZ#^'BId;gl)5#au]/$dOAZ,osRS2j]7-m&S['_w\Fv1pALZ<8wAF)O
U"u=xS'^\.PRH]pDI5#oWT[_TxJ:-bW70gDW)*1:rIMbg1,cl*Lq'syD)bFuE,x?C
U"*7X'$qB4-ph73Tf7/CR.#4Srn,;3WG0xoDWA_.1F1H=2'.mo^X#tNu&%-TFiD:#
U"<J)*?W]Z0po1hSMKf508Q,A/l$A/MuhCwPx?<,8Nrh19,$8Q,uFkxkYf(Z2_Vi5
U"dg[Yac$bYdBlmi(Hrk,WrSFx5JvQ3]G^*UGt2pkX$IpijNeCvJ+rdfc4s6JDnbB
U")n6;Cm9wEcYRG)7W$kx5fDqL)Fyza:U9T3Tk.XukR<ME[FDz])I;^Al.S^jCRV_
U"<0Df$tMpbkYH+iLe83a9Y+HQANenf?HM4'iO5((62YINdfDTF<8BLxe&R/GgJEv
U"^Y*'#7QUAz1)jOI\dlGPtigLK%by+cwJ\WOuQ[uYdt3i9dxqQnqEhh1d,gpvlP*
U"=R[PJ;MjNGDm(Fnu2SQN1):iGi^BtNt7T5QQuJ/TTevhz]>W7p[=pzb<x^fAb:q
U"w,6O+*'k)/V0?(B_SORTD\PeVK4rD=k0Y;'baYs.MULP)9b;7xXma=O$.9M+Jw^
U"t8R.Yh0MIc&C?Dmp#rU(X[tYl7?'XBJ=toV\qRpjVO(fFLI=\2)*CT2__ctmy4b
U"q1u-X2_9,'GnCzuE<OBXbKtvgpklm]fHSCtDN-An1YwItd^>=qR20VKuUzEI9Od
U"U(hZJ(EC(B4.BlC7AAq.yC7u-S8c9%qkPjXXg+I(3Hnhy;nNSMEINRhrinj&wZ]
U"[xFdrTNZc/n^hW&lcQ<.Th.M#'?-Bk^I,Mc3YYIY/hmV?,Ch?zpr\N7Q,,,&7[&
U"eInDIVg5_0xnr0(fTT4yOd+nn&n90_]ogZ8tN67.Bwb=mZdimBVu;hiiX>zvl#b
U"zLS^?1efu$pxhWVsyT3W.NStb%(YZRweK^OBkV9oK4&oS^(vn;:Oxr1ml]zQEt5
U"Q.FEUilCF,n$6>-%cHpAkU$y7F?%op'SZG8^4vu<1DR>lhsnb$gk/'.3u:sVab_
U"XuNW70.>ruvcp;DV5fXr3:9PNvnyD.vh-JzK,:T.$xXWs,\_D&z.&k*f:wlfs,^
U"h_&ycV%)fzrwxs&t?ADNtsD&oYY9s,F30\i2>s^SGBATxp_-+S8f*cm'Y_QmOox
U"t#fk*V5myz5Mq9NZXIALnBiA4y+pWzv2s#lriJ:1<:4o6]<Gmn/DM_%S>Y;%5u]
U";juq;cuiNCM+9w6IfNk(ufd<UT7TSb$+,:I\T7z(FCA)bn3E_WYz(Ndc1'Pq7>#
U"qrK;%tV$OV,cxSku>1(+JLf;%E9%oqOZ?pMTqk*=C(J/\8#tpS7[60=nF/OdG,J
U"^6.BNPr'Tne4'rhCJc>.hQ2pz2M[rgdHv%B(r$l^Hmu]#h.Xk161&nS,KDKchwG
U"KS9^dM&,C0Qp<Zn9?uuYEinxpJ14KT3UgqcV0mK;j1QC&Q$D_^cmTJ*-D(QBO9:
U".b5Ce[Oa,2xd*=jmcb5nGCF3*8y/+uQDTaJ'J5#v%G2E/^R8xf;_6wcq2fh6NO*
U"n%TH'-A\oIhGJ0^jjtq^h?T#lkGJ.fnBJ.Z:PXz=bcA]rUD(Oox[N8h4Jc8eF5j
U"/&l069WR:*)MW_Nv%5,B>>.v\gFAeMS9Orc_6sif3Kr%N-aUA,%BoT(eeYpM73=
U"jMtQ5u[wNJI\ii7bjnZUFc*WNLS:<GLS?Q<a.1qCM\t'X)TV9Clln7I=SPl6=v7
U"P:vd^?_L>M?XtWHu^4mC>(>%AcYrJfuMkTbc)P]]ofG8f)%J2y5-7]oE<Dy=fLy
U"=L\%?kxpgrkhZ=xQCX1vlgl3vmi,Fx]ubv(?YSN(D*5Fa/8Ucw;/0n#lrE5Jk<e
U"Zp*r>tjpAH3$UYf+s^#FLe$W$w/UZ0Jn[E1F1jk=00\vZVG4uRBtdE<f8vYQ35G
U"S44[FE8?tu+0U2%DciN:wp:FN#Txun=t7$47tuKWJXyS=:qfBdMcpe+RY2.0D?&
U"T2_r5R1O*D><DE,[m^^fy6H:K%4PQiRSJ[2\#i;;pVaa7qgwsiP0q'n&4:qGM/S
U"m#_68<#:5_<>M;E:\)frS,yZ#Y)*0,W\%,12F8n5e+bdA,ydRZi(zt[en63QEI3
U"_N^X?qtk5YgoZF9*z61uwhOcE,=e_4*fslr<tFV&:yc.$#'.([?_mS*M0Khk/BZ
U"iXIiGO8:,o*<]5.,tTxJurncT[B2nJGDyl$%kNXlV1&787F&b$vPE[LM8Acm[SH
U"1l-Z4r4W%,vHS%I,0595cuttB5cWs+j)PIXN?trWG=xRH(SZhqb;Btwepo4rgDc
U"%XN)HLeo2(EI8dp.xu2_sSNB4r7PstGVtGDh9-+ZqQHJxjPbjpScKZokKZMeqjf
U";cmpgn#j?r^Jt<=_hKfBul5?D>x]bvVgBWalD(pn-ZL4l%w0?Uee*7F)]a[lY8t
U"k[?lD^0I:>f%JcYVjJdwXfZrehdeaKt-=vrgVfe<qihJ\-(\I.VNezigWr)&7YB
U"p(4?%dY_o%#yLmo'[[);.AA<0Z5&8F.(]pH-&M<(waS-?#mt<aa,L9OXfy6_ic1
U"qWStQ*/c7^wNS%-IUfG_k3chBcXDB$dB5X&m_8&bLQ]A7E+I2Am4SP2.9ZMj]Oo
U"Te6Dk*Snj4dVp9^:kJ,tmGTFYpqrjwSosjE%nX#\B<djY61UR:^iB=wIXPT.6(K
U"-7O#'VhCwxk*CFdq.e/SD-eO<0WFd[kc=L8t]xoJWj:umeW#1N3&gBVjX\4B7hC
U"\VPdVRFR9Au4I5Nw\Vcos^-7a6ZamgBbXFomXUNR8DF1j5$;z3NNhfs?l^FFiFT
U"R4E+qV,r,UwzmZj1p_[ZlCjWKvou#WfiiYnbDnD]QJzegAwSUFrEGvJ0av.VYkg
U"JP(S]kP9'fbPFAE09D1WOn)+YDgWJGCSuEPA>>>BZ.6LdHRxdc([x9;2kr)F]i'
U"Qm(JKy;[rU(K3>yNnvWdFvIhm+d*DZKf%c4xe/;[[SW^a9pHJwRuw1RUwR$_wR/
U"8wRKUjT7Tqu;5+nW;a6tT3FW*;9feMTLN#VYGhlUfhIh47u'k_U^:qzk0883mNv
U"XTZ)MiqNZBLIaZ7k%=t(?<X:#KzV\sn/GI.i)L4s&rcRgs(m3G&T3LzRnM:4ID:
U"-8vYf6_c-hMg-VYV-7bD-LX88LH6_b[-_L_z>H&kzLzhaE&:b$NLndspbNZtsn2
U"mucw=vn[\6sG=[SQm=eUl[F+7p:AWt.KWvv&74GgN9WTi.KZGKfEpTvb#;r+:.W
U"yb\Jz7m[hw#\8N5&aCbI[-0caW1K_d\.J>$[jf=r>kC7Ni$zIWI4k\-n\7btP^;
U"b[3n'9$T8:<%j?$_)G-beV?M*-omBa6S(cd(3eT1>eH\dM9&8gsYJV\rk2q+#&^
U"nW&P^qOb.%L>tu6+]$-<._Chp(.=(o%NF[oa+cm9iP#jWbt[g_giubA9VW\[DFi
U"3+3N,c:,p)Qq[I:9*CTRo0jh6O3&Gk9Ei[okXQ7qd_swEFh8d'sOBn\Tmzp6wCF
U"p4=OJP,hsW_tsQ)#nk>Tq%dPWSKfBV4eAoyQ6pT1ndv0#1<qEUo&DSje3[TW]%^
U"UWbN=+wNe4B=1q5+_v7tt/)(j<.klGoC-eiy=<&juXb\42/?Mb0,+esDwmUP>.?
END SUB
SUB V2
U"+XCNNi3Lo+S'dJMNol[x->&(D#[:\zoON.LA,bTjmXX1W-^#,D$S;aKY7Q2:W,p
U"k(bjdz[WsUMu+p$J\KJ<(kSNj:+e=7='g_7zWS8#uv_Wihg],D9c?W$R3sy;s\.
U"Lak1W%_sad-TKKN4YclWv/r]K+dU%fe=.u/RwzJkwU_)MD2QAt/i7kMnsT0QGZI
U"-R0j_&2clUHi&aItu&&]&b/[-T:kqDg:uSC/bjDeEth.om20N*x\8E8fLN?DyBl
U"j9;bIr]6o:ZC4Rk23UhI.\uf*MsuhJr1cF>(T9lpwqNmXJ<IO[.#.[Kk(-??Ai>
U"h30?>4]v6[8E<7LY9nedM5_/K_kMPx)CM<AjA'[rhUc^:-$njNL=tln_rkoArPs
U"$Bm2j?:qNHjqSjLZ^kY3WlXUepT630.P7/W-#RSO.Ro8_t/fMtBEaBUV0P##S$t
U"YiL=9^I&fcG7u_;k](sEtp+EDtssk3=BK8iS:Y[DcL6VK8]]gAf5?(1FlSlVd$X
U"_D7mvV0S\>HS$$JI):Y+MZt7qe$1miu&10t^Kpw:w)A+.^V\K<$9h3P%3;Bi[PD
U"sc)fNKX#qrfC#&k;&I1DEx[l[5w4gU-F8lPc=rJ#S]^(T=6zoARV^S[hr:Q(xL;
U"etS$Vd:5VJUX[w\svh(9jui:$gh'MY)3gX?FL.]Z2?]&TL2Fuy[LH'KZ\8=wGhJ
U"C[ro5MC6aF[3e2YQJNZ[]//CIr4FVsUrA^U_eEJ7k21=\6yD5CAr:.[S=XBHarA
U"[KVi-;aikdLViCVwlJC(kvU_PdJ8[1s6CKGr,=lEF7[rJB=LQBJAknD3CCr<2[_
U"Vr3OJxk/-OJ.gkZ=UR5-S3JT[cHFa0[Z7AaA^k&Us(WrP>fvd[76;a9k>NDa?Lk
U".4C1Rr>Vfs[r8,6mBk<X4mHIkd5C1XrnWr3TJH+=vTk:d6m0ak0V3PRJl[3g1C\
U"MrN3Cp4riP)f[Wk<81m5)rV>b-;aVkW80-]QJ\[mG/mIrWn[whfJx[w,TJ+kW84
U"-$$J5kxEC70r3&[I=V<6mNj=vXJ>Zi16ng%ue].%]TI#)IPg5?v8Xc50O^U?P1a
U"2U3g:%L:T7e]a,rsR49-VYCU+%U0+tQt9v'Y&U-#1+4QD.QFPEfXvc#1*g(eIWY
U"KJoUp[4cG7;Grl>,H=aX[XcDa>1=LXv:,rD=Rz=&//Cbr#g=L\J9P>vB_r>W3>$
U"Jp=$v>k0UX)F712rv>;<1m$gk,[3QNuC[&q.?=/T$Q><6XJcP[;5gd/p0a;l[;y
U"A'/h0OLESd[U7[;(i'-(S0DER\DU3/0:Y'[8Svm'2CQ.X:_YJm%klX?->a=kUNr
U"*[f?ViABa)kbI>r2C(WrX=;L[J1#kX>lED7crdtV)C$a1kDp=,;a2B[eXr3cJ$p
U">,>aI_kl[Z7:aNFWscr7DUsF_rnU3,XJdU5)B7:_r*>V-DackKpXIOBJdVIP_Jr
U"[SM2XrqvHJB<5?*<heJ03R<bGZ+S$jdNlqrHuJL5a,9WvRPrrGoRsq^tUfsq0[Q
U"$944*L2g-*RZ:=P&OIG4]1aCuC8U*_-oAiWSTQ),2nk0Zm;?FQ2aR(91CSkei4u
U"l3OJisrj'WeVs=?MSOl^T4/U$^=fpG?&;Wm,iW&b)gSXX7ULOORnFC^S^IcZ\QZ
U"Z>9fd.c_wkUm.R=wAbxQ6rY2*^$ii<sIBS?KCpC9^x[c#4&&uzT?8dh4u6e)MRG
U"83Sn-xX?fW3^grctac3k^grtTac3^rgrtajc3^g>rtacW3^grctac3>^xPl$x7g
U"?e]Js%Vi>Sei>w&DMwPKd^u_bt0)i]Jf]<3^6FFemsh;LR?22r0*j=_Fg\6M/bX
U"-LEsRAGGRX?Bt>S%xMBGW7rY<OL(AHk7;sPCGCLZaj<LXBZ$-/(RLq>EGU_KX1-
U"#RMS'2_j<ICh<0Ack_>BK<[7H9Sm?g/5b<G4./Ttf]94lhQo3HSqqL;:]^/5<(&
U"$T9raeXuH[(;j.X>/8aNBVUxa\v,s=qn)Xn7##XJ[MJYR5Y#Rc[H<;S]IYX%/Dc
U".v;j*hIlpgM-mb;ZBhK*DDD#X-2%.t>w2#t4*8&lwcWDew\=Ofdmj*aoA0?%p+S
U"Tp#&n^]pRK'%ilgq6cv*rF;kE3_Nbp=g#39L8#^K9XT[>7KjLgCjGw3L7E6GU0V
U"iM.)h2o7KZgbiBHGxs4-8/?aM]oLLXq+:grvTuVlXxpd*BHP8cH]K8bxAdbg_?2
U"9%[jdDKpHJFqH0(GZ(%Hgc.jwXI;XirOi2uiWc:ZNkqx%(mr9;NE4>8_<>S<Ps&
U"p+9WJjd(hrH()t/7*Ob8aI9kdii(C$[/d>Ll7,bD.7*xQolKi+-cNt#8Wt_2Kf1
U"G,X9#QJheXnf[\DQmQba3SSdQn]4xVe?2)S)M]Ir5#_k[RNmA:ts>gSMF^Y-q4J
U"GH;.wU)_.p$Q>nI8&m-\pm;F8#O<M+-,cW5wD>-O3M_Hr_,%l+m=82La'eWFKPA
U"0H'C-f4gYVFYA2wH'=aT$h_opi5**_0748^X8T]KtY8+E'tXpl<]P?,E:_GMvnB
U"2_].TCYb?MVL$r%[6S\loo44FrHXm8F:Ki-CXbWmZXT_aN.+M1gcE[#<T9wqZQ.
U"P+XP[NiSH0Nbqr56A6$H5n<A5l6bph,lWdy65i6_5DUK$W9rr'Awhe/#vF&D1pj
U"T;qc:#2ruS+t)w8Mr,m.gc5v9vcHwXK]LeAKF<*Rc6b.uMK(Ou[6'>YJHkxNA>Z
U"4eX->,8KQ]C]DKFxP3r\)M>e6SLa4H)=m0^ht$g5>LNIrP&+;^=amHC5n^>Af1b
U"G*[h_JJi*/7E6CbQU)j==n%BT1^u=,09eE?8W(2b8_hpJRq,&EhJHYh&BH6I#4F
U"6m67[ha6Ia0Bp5(V(yB4PW$O+F.2?Aj2[Br8iKXgm_Sx,.l-H:fk8SPpg=J]W$i
U"UylBfiUGpBd9bA8K8-M]frnM(4P4fOra4sA>ZErlK,Pi]Nmt^xJ=\EF.BDk(U>\
U"%vSBEEMOJA%n[f%^jIZLRIa;/Zt[HYhl,Afkm5ZPQ%THB1BBb)ik]^LRm3u]>tn
U"De[tYL3GGYY2ahhZW8?'ys($>2/Tj(*NuCeEb8O8l:/Z_6e*w)u/snbxWKui:C^
U"Hj#m[$G-jmkSM\#gPG]$QMA+SESGiJ##JaV/YA$jbxLImq1C<erjn%I[^VAHwoC
U"gG$r\*[<ng%ItsHu\[LqNNS3gHYH16([M^cm2+il.3X<nHoqnx]ja2IMc86+J.o
U"1C3cS7rDWqrY.s7yDXCBlghckUD4a2IK_qsKQe3v[M]BVUI%;<T1ROOA)qOb5[6
U"UU(tP3Hivq9h;N)s5<rn]TBGN\-Wh[Y^.^pk\]FRK([q22#%u;_fHB8Zo\O?+1<
U"W(0Yuf5hrTJ0R*T^NrH35H_]iJA%fF9QjJSXU8H5(qBAk_pE4oeE%qQMI&SnlXx
U";HYBk<9A\,X<=3=5uk$#WoC<BlFp%]LL<dRGB:-UrMY7sW,/$_e5R#;b.9;4*%O
U"'[y6djnD:wHeUaSRx$;T*RBj.STcReuGhE]uO]_]exLH>*lXace%pQq-2r-ltzZ
U"RrnTcD>X>gqd%<9:<Y5l;5c>>EWK;*qgn#V,+hAB6GmH(1TZYlr(.jtw^,4FSus
U"t_$HF;'oL)IMOT2.E-n#sfcFM4%%=L6)8MgnPu%VoW$y&mH0YG1&7Yb5st+.jcT
U"^YBl+AXjN]dhw56jSYSE(\cRQD8(Y4u7Z.NZsddBu)Q]usnm-FBhiT.Mb_)=fLJ
U"z?mV%>rT]7I]LGqlg8[B,<lk6lKkppA$]b5FzH=o+2cr.ejDLB_h(.aD)p#ivZz
U"u_]GN_yG;JKwQ.5n;WS%Q(Hz,17\DwUoix+(YNZILGzvArmsE1Qa-7#17bio&aK
U"LK8a=fG53crx:xX3cgH7F[kAKSaZ==]'a7h$:d2^\x3?y$wGXOiTLE9y'*jZ*DQ
U"9xGQSDE9N>k?[Y=;x\n2+[WLd/HM)87)qDoHl4QmlncMR.VBX8giw<%up()%9%%
U"%#-%MyK$Gae<pxp&7%%^)%%%-%%%%ij%rtSgRfx&c:r>SeU5Uhe0uDu;O:Ig7BP
U"&8*8<3>ku%cQM>EMoy(RG8Q.6QP#?.x7X%Q&hoJchTOhhLnPXXt^Ejp=raIS-L7
U"s<c*3hkd<L7U2*ONdx+y$3%_BG92Cf_9(%,i:D;1SAUYLIsYa28(M*';]2'2b%2
U"OC>VCSp6B(IPP+juW0kw=CIJbb$-aZ4*3qK6Uk7CKqU1?H:+5\I*C.nuQUaP7:R
U"?U#Cd3<O&7fI[5g_7dVq-6T+-eSUdRw-^;?(hKRp:VXl:h\7ppZ+7(6JtNZBahZ
U"gt8EWZeNS=</c+R)6g[+iaE[TZA^;or=nSc]'<S;5u\<)N',%#b]]dRACL011<n
U"sO#/T$P3JyFFZ)R=o^e2qbRYq5(8']E_T4i_:<CW64Tp28r)PwZRECFiQZN-y4,
U"q%zpauW#3K5E/?(a]n01?]3YdVH9VVf_7$8_XITVc4rAnQijuP&_(>bqqAn4X+d
U"7)e*[G'Zw[5ifoxGoC,(c?fW)BHm#Gg1ovXqdH&IbIS2H(qhv<k;S0AYyM0o>pR
U"[*Z<(7dXp8.f+^f]ap7DMuSk-dliE/n930CJ<GV'g6nl>ZGFy^SF\V(V\Mn\uIb
U"8Lsg8[eq1KA1k8W#c'XFE_V>GA1L?\6EGOAN%&up(%)9%%[%-%s,w$G+S4rb,%G
U"%%H%m%%-%%%%i%jrtS[qngf2KJG9sjOpb$26W2%s7gS(IS%O)wW.GF-2\Xo_W_K
U"('19IIG<RA:.W7H;gw-BaU(D+AOH$ZMfD,&t,XvUWAyD4ICekGV.[A1&[V#H)j\
U"V0XQ+EJRszHs.L.fltnpt7=d7iq_FDzp3hky_SDsNx4xmU&AW%'w>NdLEpZ>S5k
U"yCq[qH]k+,(^^Jrl=GFNAkf.Iuw%+DcJz=LsT>2XM9,5sZ$Y?YCu'3EjlPei(+M
U"PPyMj&4T7BNK7zcfYi0umAJ<TzM($i#pz5Q?^5O220^zt>)ht#r=%83KItW>LO;
U"9kjMFJ-(_MPV0:]vmKhIaAC4Pa-vUUz;c2._*^T#f0Ym^J_UZkTlBUOBa-5#Lk/
U"1x-(n^n(N6-E+pphAYZDBkQ*9E;W*1:J,loNbi.0OGUk+jH4hLTL64o%GIbBW:B
U"DYt$U%k0+OVrf&A2ehP<51Ktu)k%s]nNg%Z-qd$tTaJT8g)J:%z-Bq1xT):2h2N
U";Rgi(2/X-_vHOE1EkqwMO?r/Ms>.R1-r_f%Nbi?/T[-?J49Cc7We-v0q\uwp&1E
U";V'm+jbSj$[jFOvlEbL+nWJ6khJL;.WcHc0n9Rs2g(F.%fa-J>m]?D#fnotHB.(
U"hIc_-\0KG&OQQ$,=0Q\Gt<4FqY*R7EY3Xbwx<U,rO^:F+v>/3An=b3eE\%gtKR:
U"j8W/m.i['a&x2FC3TIz3B_\SSY_Um(N^]yYDQKUX=jr^\fX1uUrmY5[=/3$zr]d
U"K6N+wskQg^tBpBCH#1CvJf_8H3Vr>q[B05aN7*VZoPgXGM>>3I4#(eg)R&hMqR;
U"hriWYrR$BTeEwiC*?YV'Zt,ahR,cW\eqhvg.ZA%Q^sceF>ur?9l\7*YGLx-AlnV
U"7Rc$Va;8;B-#L/Qr(JRms-TDC;325Ol.T(GQJ^(Gr(Ib\r:WJ#p4;hCNE=jT(E6
U"4wwhF]3lJ%p0maJ+&53Dt?t_l;&h8Rw=O/FIS5(u93e\E[3:1d^FlbRi?AbUs#Y
U"#fbWEO54/c'T)gXGE?X=7$-h5Gbn\3jb=Z,1EUY4P1j5F[)-R5s3+Q(,WvZyomE
U"aYbZ?5OH3,PA<YL02hS%-:K<_WD+>:Pmn$8bV*tp+C>7;s/r_kuukkUqC%,%s[=
U"kI#J#zj>/aMHNF>VX4\POIu<Q1_;0GJ2hxC0&1G,&TWwkes4*X4,m1Vn,c&e)\2
U"lD\Ja4SaTmZ=z=8w(<r=9Mv<Q#?t.tKTexcqp:j[-#s-x),d6QpE8.;J^=mQo*7
U"x05eYs?Rr::?o1r_qam>4d*^,emJ$xj]44rIA6#HpL3i*j#JD<fs7Q1iR(QRtAD
U"5fsXree_4*VRLK0Af_ZnWaz4ccvTtF3=y*&029JsQNomyk<XMcP.=9jgw6hh7o%
U"(.K2o4+2,^x/^oH;AF[q+jO^=U,;aV6T.A:u#A'dx^B.bf,Nit/S+zg=5R_*Obc
U"L>[o(+epyQw6oV,Tgq5Rs/$:Zm\+Gk[jME%SBLC9T=t#3F8wMo56AH4i[6<*:t/
U"k&0WJ_.E&=JoJ=(\Aq6.>87j\P%M;KY,pJ5qF^r\%.zyM2fi/XN*%QolmsV5anm
U"%;N^_\qq0#H5ZffcshuRv'w'SbbbdbMgRcR'5WnJ[BWjniH37MAPmk-KpelGiP,
U"S:P^.,zLf?N^&z;I&ap4):aS(GMY7ZS%Ihu>QKB_>g[77tS4-5)/nG0)Yp,$4#r
U"/.40418'pQGi*]5'FaSJ&uAlMcpOw-OsGt1mFO:e:YgeYe5Z+[+A6%u1BBuLD0-
U"rrjJ]i:.ZsT-](6V\7+6:J;hB>I-]1r1VhoL_hQBYy4x8w+KUpx_TO^rDBstHOF
U"r*3e#cglTt-k=QRR#D?2Meli>6i#.xX8>uX_Y)8HqNmpy:9B]do0_2kG<>G'zMe
U"TGu?CZYNAryZu0gkJ5bQF+d/BDA</O5rlXi23,]rae3kM8T\dWjzM6.03KAx4Rh
U"?BwecDeZWe5l\Y*A^eyaW^7i+^ff15KUosq5hngfj2q]gmNUi_+7loA6i2J;.-z
U"I95?eEyV:FqGf,17gYeEc2pmrG=\yKCLqc?65SQkAFQ#t+0$Y\kv.$6NxDt'[/l
U"/aD)MVI3j2M7B,N.Czha?p>KBo#319R,n,G$-v8QN-BzkhN,r<5M(j'rC^ujcJ/
U")dKhgh)HrAjVhb>rYYQSr6uimPd7a$M?w\aW[6TT1%T(F;28g(RIuUJ_7CppU\?
U"ZN/&5dgz[Xm6W+muJo[6tvN5+svFqT[;nJwc)H?dFnvk.%p[PTsEWIyZNHds*Kc
U"J],p_4YF[Q>INg0=-[dI$Z$wUX-sg89VMQngH/m:A>J[8al9[VM0pnz['VL8Mow
U"CV%3kw0ITY+Q-Ex4-UcXvhkeEN3dk,3W8jSRbLxxp6/_i%wBcsql2AvoSCXwen1
U"4aCjP;Hm[0LH^&G.nv,&j1pu,Olf]>ZfOs;I8lU3KH+H>l#HLnlkc;p-cED$jfN
U">9WsqxA\_moZ/4:GFVbANa.K^w-[K^c/'_^Nf[vcGl6$$GC\\<frGrR#VVbG;6\
U"L?dOn$.\#]-+sT,btLaO/=T/0nr:EuI#%*3bf]M0s5%*>b6-a-GW+I>[8SL\%YJ
U"8f5g[+I:lIJvkb.XsT.A2)2GfXM[/PZ]-%y_A$&w*_-1gAgn$Ft0f7t+E,uL:KD
U"iqWeUSM]c,<.*1ui^H7Z%-+4MDUE)EIBPAA.wT/$LWlvRh'.iS_n,aFX&,jM$*%
U"8XNv=FRwn.aKhOiZ:y<g/b9pbmTrr#vKB3Fxw_bcXgRPoORU-R'cZ28_#Ym48A=
U"6;SV.zm07K7Ae>r+7oZR>_Fp'x[Omu8;7IK:?^0G;9h=ur;$1(K_yN[b]ZdNjbw
U"B%h17JmerL^J+2&>i*8A8';I*h0(,#wHKhGTSU8JC_Ygx;D'rPN:Kf70eo[+t_)
U"[LumtciptPpyN6;aaj]=-6Bw]asSH5;&/?93Cg]>ERgvW1>dcVI,Xyt&W<mw]N^
U"V%2B6Rut3gfR+Io$ySq-XR_;>7t'u^L9I6LmLPj=-NFs0GEgHJYQ/T8oU81JW$C
U"7N8siq99.CqBNKXe&sW8(;4mU=Mt*?CxI9C3zNN,bRT1i09*4$>C%o1YpX:CgZo
U"Z%m?/O%P0cU0:YFbI-thR#Kg;D'?rp)YivIK7#Ds+\zZjfhRe8hH[en,=;rPc:o
U":,.m,m(KXP4-Z7Jjf?6sA8zu1/Q^O?#jLeq9ULh0j&=_.x9Z2x%?J#_DX:aV\&B
U"'Og'A\2.5ZsHfvs7(_REtfoAN7L+p$Q&#G-S8tv-YRk6[kKp5HACJVLH]*6TsIe
U"DDt?n^2^w](hmIN[XdYHX<l(O6&\2X7lA%]lzjLBQV(XrnerfB4HmjjTFM%Gdi>
U"M7>dL#C9j;MzrH-q'N+Jjc[iE7qWv&+QOMlG#Dt,.V:EFQ/)h.iKe&grR,9r'Le
U"S[pXy*>v$FQnguS(feJTTD[89,,EdJ6-Dwy$h&,2BhQvX4V535V:)5p'ZC8#1hP
U"2c8H#[<gWj)'fk'_PKL9T+*JZotQEkY'c_h4;qG*\mimR9$^6)NIjms*8LFYfVi
U"RKCK%<#&#,]8HEmDc7+DQ^F%G4,>-BD-IMDtQ&.F'']S2F6KmcBw)tiP[dt#aw[
U"8A\?m'a7n6NQ$uGYR)0la/f7L]x28XU#KBETS2knW5gEA\DI/Crk++W5NHJf3V&
U"_YevbP^P_KPSyHJmh^R/>.II7ss#7Emd<OKO*o<CAIGR9WoI8=>mvZEDeR.Kl%V
U"m^).7m(1S;-Zs_ZpVT/a>+^m9+9VmFVPTr/eOR7v5..,m+nNFYr4-u&'&-baU[)
U"(DYB9X>?+(ja8Y[];'#vxx:$qmh$%g0fd5QI>76moZf:XTjPU3,AoTP6HTt[$rp
U"3&mN0d,SUv+)u#)hMYOXT7=)]nOD]9R3+5Q\OB1quGt$P:;BYoBq8xN(-KD&DND
U"&/#F%aVj(H59.p-G[((-zX)N(6,nm,x>HOS-+ag9kd*rPF%kkBPh,/90-]q3+5Y
U"/Rci7Q355egg^.4k<4)tKri9.gU?I4,7j&rHtg4qjXU[3STZ<URnHp>f:,)&Lbg
U"#O-33G_7,Um/FAI*_RE5md/+Lh9c:pS5z2mhQP:EQf72pTX-s7Z7fXB]E=pD3]I
U"GZ#bR%^gV,+4C.I,-4?E$*&bPXGYMvQP&+8iuwYZJnR]921Q.Xg=)_kBKw(BlKF
U"C2['Y?nvuccxw7mJHEt\?Y*CrewQ$UKlm=j[$3L02%N*04&'Nhb>u6XDGc=I'h'
U"ZBj5Nt5)u*=hA&vH=k0<:FiVZ&Nko8QN8D#)j]R<-FtCm4ODCmUV&C/QV(F3Dtq
U"cTe]_XdFd,G[<F77tuNA3WtK7>7G8_I:\#^>>b9I8\(FQj=AzSbLwf\DSturVY[
U"Q[=/&PI*=8-Ko4;W1Sy(L\,_'L7)P'SV[y$Bgo/MN1S&FPFkOZ<twt4ioP^)7Q<
U"R\Iohzhf[O'>eb8xwh8Jz)SXjeuV8:G)^0k=HLDhQ-k7FIZ1Q:_dgZlM_x9:'Hb
U"okSi'&cGSLG(Snnh6riA>LN6A2S4pO**mpFiSxWcD3-a#jNhFMF$4y^5zQd*LH+
U"h3pp<QVs[mtSe?SXeet7J=0uZgp*LkAQ(Ns7,\dmw=(4;W<59=46<STHgNdllMc
U"MGQmVo0b#CQ,otNX/8V-8-H0O<]'Id'p><<BZihsM&khtu5-ICt/3.$^&y_F<<F
U")$^n/>jzwC*a#8tl4*EBT,.^Ll3KF-p.AQv^ggw\Hm6qi*qE]i'Atudr7N7$-#F
U"MLK5pxm*,&>]2l)TMopYoru0L%)$<SqZlg?Od/RpVp.g,jJkSLE96=))o'[%(+k
U"Ml/r][%#6Y98-9Zaa9ELrvC)b1kOf6]Y.'Q7Xa9Ea86[Q1iboE]9w'a'1=%xS+:
U":U7=&s6A/;&'o;S>YJ->;?%6EcQ:?l(-+Uj'%:(UN?_;'6Y%+)]l(%]0%d1=r8%
U"*#u)B1(&]j79yZ[&+>C5L:U7[&?5Y72'Q[Fa9EB9qq)^(iO<6BYn'G$d1%%+<O*
U"#.b?6-#up%<9:%$V;=X$V;=WM#gkB/-V*UipVEZN%[<C2Ps6&1i4p**n*:E0&K?
U"FOlrbp)2MK68F_gbL/YUf[XC:0,GSqY%j+L'-0O<Q&uc)BaJD=b)%3m]<Bste)f
U"$]X_T^cmM0>Dk=yZM.ez5giCq5okj;>-he:=y'4xSPR>Ai;\7&6)-_o>DwKQV;,
U"+h2'IYomJQfj5NTd/S;QVUbtXwbRgOnNhZyk2hWf1b7<y3'mptq8KfqT4&;x1p2
U"*wCb>ds8j/Tbbo=D<Kd8b2VACc/Y8gf\%+;R(BK8=K4(8uw.]3Vf1K08B?BqC,I
U";6Vci)*a(q_Z8n:d?/F4=kNp0Be)Q(\7SlfD(VW7>T]p*\cwp$dYlVc5btQrD<4
U"CS:'VjW:EZ\fA>7QJ#AZ3U1$_)O2q-YQ;7IE;-mduDG\Xe(dj,:XAsTRQ#NK>wC
U"g6eEsgp#U;W5Z.'fs>h;0N63/oTNhRTit2bHtw-5fw_QFlX6)l+\;;,5xEv70Z\
U"NJG)l<28Jmxlf7i%FaDs4\8;uK=pju/m8iG/fifwwEhR*wx_nY=5,$%]R_yjJKV
U"fPTC$7[B:SMT&Z7*B2fRC;U]Qel>,ZZPG?P._o\Y8fP1V.gdA8=t#mPr5fpdtJb
U"DbO0-4_p+o:oWD^640l&o$/.583J$RNMA76s.T8T]PWU/5e#xFQV>XNZYKax;j*
U"Fpm$A.MkU<TutLGN2$Q8BgfPT8(gV.QrBmUDpH]6pV(as+bSVWb8Y>yUuG8xM8%
U"VFEK#\vSw</S4*#ZT3GEtZ(G[;nj5e'g[&63FWgIStc=K[$6+qUBX9z?ut<[mm4
U"kfCis-*<1^NvAkxva',R'scjg<lX/D26CIv7F9.C?JUhsOti5-4?<JkftPxHxR&
U"mH,b&*+b#7+bd+.b09OC*r6'Bxlor/#tKY$/6?3dZlr8+PF$2lhRG8a6h35?H>t
U"BhG.Qp>Jj7sa?vDU'nH;<])%2*esMnVSBOkO3fy6k[^+rl<)hvCt&&5pgYjhtr.
U"h6Ti^&F6'a6zB?,FI#XeiNDs+c9(=D.Jd$UH\OSm>QH-02S(f(3H.In.w%$?GKB
U"dT%=kaJY_:-c6roHpWN\Qn%p\ufdA6]p'f:t>qSd1JwpO95C^x;?b7bX5sZ&)uK
U"\Mo)Kaj9DPDDS'+-x]ux0q$c]4[;J[Qcn54,c/wfHJ8?ea2tIj1jJc4F)3'?\,g
U"9FzP,]SU&bh;c+WZ'.H=KL<ym[uL6r,t*,&w+T6G7Gg)*V+Br#f/[L;8V+<Tpw-
U"2;:OP>R(3WoN*X*RM9sOG'MDLEdpl3j#xjaUdv'nS&tH9J*Iyk.-5fo&e>]]14i
U"]=Qu38(?rtDAU#r=^?R<Zi)d?B#J14r69O:i]7djamv=;lKjKv?-ugRnlJN+GKU
U"kT/#C5?DvX't1:d#5Zn?svjh)W1B3GC'Z4k$<ETES1s&wF^;KFmOs.)01HC4k9u
U"l$%'79534v8D[MgooT?pB>K)Z#3L?)9Yq9X_\BQ/d9i##B]4]V1zPd,#+S(U4A/
U"FIIY:vF-jt:?fge;e&eVjI9?J]#dL:aY_z?&#.HO?<kWO;QFw5mN2fS07J2LFV>
U"KpuwEPoJE3P9Y1UC*eRlDaU?BIf_izO=(E'b0w-maP4x/NS#\4EB*PR1C0#u<%7
U"t1\Z6aA-T[4+'#OJ^X92QtY5kB/(:d/#+8mSo$Ex[/a(?e[N^[XbuETBypAGNNS
U"u7*RB^zT:w2T)0(*]7PAb1X'8uZD=kK+o;)N-epEe7IlqUp<&juxHd=2[nz88x7
U"BVj<IJUGrHZ,o0kLnp1zb3<Grb_\RYBL%vB&B1ZTkH5)>fkGYh/KEA565-bWOyh
U"KZ(%oJ_BCJQtm]F.Ky<%hYzl.exD*D8y[uhx]zSqub-F[VzATWdlfQj?.4j1Pc2
U"(a/^Mc#>y)w:u)8G_::lGdko26EDsMn#$;<b<*EbMKc>Ry855a2&f>aF$=HML.C
U"VbVEQ<SI1j2$;qn7LEg4jF.^uWNZ#ro:TmC?lgQc:[3g4%<#I,yjnN]AYNo33.Q
U"TFi,Y;7e=sVQRgjCfG-8GEc's$mfkcV2(u_>bsISbL%F.Jam,Tes/XM+G/'gOwd
U"Wc&fm>')s[<E[z]ecVL(mAswQ-h/:m,VYcMX_EMdi9&3A7U.*mhTP\M0(+a=nB0
U"+pVZPs3UaiCWr6R3X?*]>FEle?rY6#s]k=bq>m6>,hhlfv*S$/OQI]1j^,_2op'
U"jj9L_[.2i$rlTg^4=?v1mfjJqq:O4V#[\Bb3MT7'W&qFE^#hM?\[Ue9nBtCsCV^
U",Sv%F?li9#GJQ(GIdv/G$=WXy3,?LtO)C9a]9%Sd&YF,3jR3Nue,I#l(ahDOb5G
U"%/&P)/K?Pl=7i=6CIOhPnD?YVZ+QEPYjfK=42)HM-i.HK9\;J1/+c\=-/jZw$uU
U"QwtP<w:OS6pP2L]/(:&eEX/&$17#al$j0g6fQl>?B7p&1(Di[:kQV:EbD%2V06V
U"jS==1I1FWND]Dw>q?r,#6X2<bk,?YV&3j4X3u+,\Ij(5V57\kFiY)anpP[BKlj(
U"NDW*H[JoVB44aC_vY,_83u_4/Lu>G:M5.K:JKqj(KePxN:OS6wpNw^p2gk[nEnr
U"LO>$PZTZX)a2;'/VVXmc<oKscm<j?+qU17X]XeMa;8j^6N0s9*u;\16Fupkci,+
U"ca_q2-fKS2Fx(4dNi6_x=:MODi>.+;PFCqZs(4eKRs2iV=hT3:GP(H/6TAZpfq3
U"(Ur?P0R\tB?Y$$V'T%lskLmVoq%e$<biZ&+1T<<=*pn*Z)2RhJ5C9]IQlj77M]:
U"tbiL54*X8,:+pt;9W6Ujy;n?j_%s?rr/]>:JK,Q:[AYk64-((RA$-#8]Eiy2a?:
U"'=gW=G=F\P-hhsf<d7uUE2fqfDPf>\ko[k4mr1U[o)pI^^rZ9Mx4m*cM)ih8JS0
U"_ma4j8hM;)M+j&Ny;##]#2E'bv2#m43.a\z8K:m3?#8+sqN;Nv0(+oHn&0.p4:m
END SUB
SUB V3
U".b_CA'hhwJogOm-FLu)ZZ7NbbpDLI#YWZV]0H?AX6u]Y(K+7$gkPk]]I/7NQ=zX
U"33cB&zBf&jAd--]s2CJF,aVJXsBS:Gf_XuOeSXQZP;#dW6O+JC7//Hs7g[HtMj%
U"[bpq;W.?8E8\$0M/j*ZB[K>(ZGqQJ7rQ*LT_XLZW-WUmpm-5P4NhfVn6rHJ4Ojh
U"iI/z4Z0AXvN,7ckO3'YxWV>p[fl*1:3rQR>8d_r:E&Tyabi?8M=.b?<,1;Fq3Z>
U"[.vs(,l9(IMKRG]I>W>BM]djU$pV_X0E-nYqm(=Gt-0OB0LuT^37YB]0B)sjg+\
U"M7jRzuA=:Gsd_p<2tGEuM;0/\-#'=F<O,AgK=+%/<-il$tW,8jH(Yos+I_(d_bG
U"bGndJm?OIZ1_c&YYjt4a3fIg/PT^A*H[1nUm%1Ml95eXW*p(2qMx$Q.=?qrtYh4
U"?udogn;(XA$=2T0MY^JQrPOTpfZW=>fZpajI7q)^ms%-K(8#v(5&Gt^I8?_YoQx
U">l5m4JJ-),I$+OgaGU%e#bR[Ap'uX<ccl>44?E>&v:D-SHHjKkfE\$Q/qCbQg4E
U"0J2+4,0jN&jSm$=svgNR7Va:\X#BXh;Z]8x&1K1;OzY^u:BN*=oNDsw(/+f\\yV
U"lVD1GkcLYfQk)^,+6YZo:nm*=>B_2/=T*M[d\LV:,#p]A=sBep4DtajfHB0*cF&
U"9TWUZ$-AM9G'*qXBd.bnnSIsCP046QW4sLlpjo.kkI\Ut4\evk?(IF1FWqQk;#R
U"+'i;S9%WHF'ccd&zdCcA_w#&$pxw\;iQJ81yz3/\vpjP<Ida7ViU8+Y[*4$OW$1
U"[iV,C;J8Nm?J)f#E)zt-;cQcpw;+\E0n2sN]]^]#9(ohl*,&C_bKeF-xEinxxs4
U"^cp1T-x45d'nz_xUvw#obkd7oA.AI4j0cbG\M8*_<BU1N-(aaq7\6GGQSH7Z0v2
U"Cdm*-l$O:p2wYGRCDSvmu*eEIPC3]56*0rg=VCbs/+cyY)Q3ml+W=tV[BwJt>_3
U"%WC)%zR2^.0-bBv2csq(.R%,O0\?YO5LGk0ocS6?\2US,Ru2?AY2YqU0o&Mt>Gc
U">n\i<blS-tnMhP#NdM5B^UV%K3t4;SnQf$E>F=26hQtbOmtkn0o]YhT05f:)_EN
U"v#bpyB1xup.pgyGZ,wcTefnRdct*ckB(5'bZ]x#'O2>GytOFNtc/WsH#187vc7o
U"v=HHRdN>Y+khCqZ7/w/f9(aCWRj\X;wtI1;>bY_bJITXwu/sCxzUj/aILJ)Fi*G
U"(knq'gPT#iBLz]TT:VKdL7KUX8Cz])B\1B4$wVu=Y]'ZO;0(4N-d?VDk\rg.d+C
U"e<e\LuVTmkm6^WR9Gm[MN$FcUO$amxo1J*G8E+pQ;/mkc6f7\dpnN\9XnPiMMCU
U"L(jDPENK/$\JSUKXYscchAik?KAYw<xOb#7=U6Q5k3N$4d2v<,JewT4nhfYL[qt
U"#YwF#pn#?$62,Yihsc3oMk/:MLGAW8X),392g-\%)LB,>ESxpdInr[?;L[CQx2T
U"n7tBxBBKD3_Punr=ahO&_QrUFbFU6EfypFSc(9B3$kB7<>g+WQt/o18TG)Jrz$]
U"lc>E40MVWCF_q:xBpajl5YMtC89AwP(kY:bfg?X$d$=.e3in6;^damP)+F3CoK=
U"&r,i,XARUdtW3k]ex;BEjmJRP)<[&tG48-S8's#a)\UP/Z0,FoYHVm%;be\.8cc
U"B?HccB?HE^w]rL:hSt?2+bv2dH8nC-[#I8kIj24TmNf&[Av,h/jYDJ)\H>6S58F
U"moMj;Pcg4f1CJ\0nMNep$<4P%fB[o*)>8OCVMnxwR%EuulAA>Pt'[)_:]pRxJD^
U"k_nbl'qVi'2mpR8Nb?.*NSd>tr0?gr)TiJ<oz=_\y5uVJjXt6Ygs>9%mQLL]GS&
U"&-fNBAg0&0Rd,s[Mr[^LV+VZQXUi0Ms)=G<H\t0:Eg(c>iwQdD5f&-zYBNudTpQ
U"UWl$9n.Hq,;;ZM<sl30;l)/oCP4?DB&M4P'yQi1l516sUY/7(B*\iIXG<Qfq73a
U"lg<I_#D#a1rQmDG00=T(umW#,S)BKlIJ#nA*#R/*=\waWXl?vMWMG3*k.#VgqBf
U"i16lT*ngbpODAV4FrUKP6l#;lF;#Qi%J%1%0;L1:CtwH[SRzPg,aj.>0X6T$(F8
U"Hm&'dW[u8f&G^ELGcqc+UvBJ9[Ug#Z0KR5/[;#9ng]3O(*LJ9LMc/kK2o5H5CvX
U"*%)(4*,#l]QDHGw2O[&NaLcbf+,>X;]qSYin/*2':hE/\2%nDb:Fm<&Z,BRx)cm
U"^#t6wZr%OwFnA%c#+?x\QzH?nd]A*Bs*sBF3<P]_I^'\$XBJp$;AXawn:gR]?S)
U"3Wxamk8Y9TaDtf%-,N%ga]+Sc&Y]&KdzkLHnGXe#zV#k^LL-5?2s]+3$8e77tP.
U"blH5V%FN._3PuX&FBg>yS5G](SBfkZZnzgM2qA,(e<e:%cfRMmW2+LExb,$M,][
U"Y6Hmda(MSDMGE<^jTU.w'hdY7irGX;7BBH8<>?B<q5S6h:B<$W-)(iSHR^j64:c
U">c^D;mw47#l^Jnnl'SV\F,]6*,Mc9aOj=I<D?^Cq]7#Jat\;p5a<*d<6v6gi?k_
U"xAeh-0bQRqOL;G^84fL'LQ&EuaBKahIoLc;fl,<5(rh,sXGcC[>edqq^SnKybV-
U"]euo+t,srrrh6S<#J.h\xk^bLws=tf'l#o]O$t,t-f$6ZShh.EjswJOgLzL$5&$
U"]ocs2-sp?H>Y21MbNdI36M>2DN)rGWS#*t(=a;HOGaX=YnY94[;H\v<fX7aPPCq
U"twvs=oti(]#(SM1SGp80W8^*iu<a>:j/#T7Aa7Znht6s)f\xlxtNe?h*%,Vu<Rc
U",Nr'mkPmHohfo7]ky0:0-xW2J,?NDXBO(a&YHpwOK+cvV=58B=8Lshdm/Lq$&z'
U")3\A/(J3^g:vixB$J2g%^06L49etdYxxI(U^ls9=4o^1j%:$#y5T:dk##=E=(Y(
U"k^\1g1<m_T3_Mo6JTp+(UBhV>i^t4RcFFP(56&Y<j-=XR4>9cgKGO1ktfLsXW)d
U"\A.3]UPw_M.O-6txi:OT#PQx:N2LxGy(gO=]2v^Vudh'[#?L-m\69MN(%up&'%9
U"%9%%%%-%<sy$G]Fz1l&G&%%'S(%%%,%%%%%%%%%&%E%%%%%%%%%wj%fiSr%jup&
U"%'9%9%%%%-m%=-$(GojL)Cc2%%%8L%%%-%%%%%%%%%&%E#%%%l%&%%i%jrtS%it
U"hu%p&'9%%9%%#%-%+bkoG=4;_a,%'%%l%*%%,%%%%%%%%%&%%E%%(%&4%%%ijr%
U"tSgn%up&'%9%9%%%%-%<sw$GQp-/t%<G%%)g'%%%-%%%%%%%%%%%E%.%%R6%%%i
U"j%rtSv%qgup%&'9%%9%%%#-%MyK$Gae<pxp&7%%^)%%%-%%%%%%%%%&%%E%%%'9
U"X%%%ijrt%Sgfx%up&'%9%9%%%%-%<sw$G^+4rb&,G%%%Hm%%%-%%%%%%%%%%%E%
U"7%%VZ%%%ij%rtSq%ngup%*+%%%%%+%%+%g&I%%/'%%%%%
END SUB
V2
V3
CLOSE:IF S=113AND 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
