'===========================================================================
' Subject: Printer routines                   Date: 12-14-02 (  :  )       
'  Author: Gordan Sweet                       Code: QB,PDS                 
'  Origin: johnshomeport@yahoo.com          Packet: TEXT.ABC
'===========================================================================
'>>> Page 1 of QBPRTPRG.ZIP begins here. TYPE:BINAA TLEN:20297
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"QBPRTPRG.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%R-%4K[VQo+:Q-t5.%%aX%%%1%.%%%l%fufy%wsSg7fx>#;<BSmihJ
U"6sLDEg5d+SUstd0Wn^+[h1(5o[nk#8$='PUlFp(sp]KXda%*4-(nWLHghSj[*&G
U"zNo)3&sd\Xg=Jtl1gF=Y37T4tjNofI#FIR#pVPJGeiOe=mNDQ%aN\5FeH[\$5gT
U",Q>VIJW4MA/.I3]$YrWqA]iJ7L$:4907j7?v7Y7/juxT[l&o\b<jc5T\BZ];])2
U"X%?0<)VP_'*1#)06?.kgVPg%na=rgjX'f(qvva(o9Jr6;#p7Y4SbeDjd4q=9'8b
U"UQeRl$1H7vln_=6X7BX(0/PLEFA#ks*d;x8G=F6q#O_4jo>w1/3fc_AlHX_UNBH
U"QKPmK3bY<0f9:nBS'Us,Fx(HM8<_l0Ya2\b?a)X9KvYcR9Dd&\[#.n7$u+/BPE/
U"Hm?AhmZ3S_XbG2;oOb(E_3UZJU*9\.'sOx5uZ?a'aJ*wRjNcWj++.>mKR0A/M(_
U"_*V#a*H91DFpS$2H<$RiA+9p3_[pU9Sf<M>K3D/C6kth?olHJwPC;n%EfV>e<MF
U"/.R1X7N9MPgmRurm#LE*?6d-Y8/l*9QEg[hGI\\zv4E[/](LLGC1PM[9gWe+6O[
U"58W8:ajkU8<F=_#i**ZtErALEWph1*e;DelnvwJ/bsVexmoaIQ\BAY8M(>Ew=F[
U"g\KY_6'G]NXY$W)a&sD>XloNsE>WfI.*T%CP*^bpmX>^=hJK28bq]w1%87oB/nb
U"R%Cc6rnrM\tJ&4CV>ddGs'9d+vBA&,ON6)k&f/#,:,KL>/P),*T1a'&8nwUEnmJ
U"\]QGX.0I)V;1>hT[s)i,:lafj0e>5fvCl6]WbI-d=H$F'+oIou2rW_s4]VuiDWe
U"E0(<(_F'2rraW5Z]yP#S$XgUeO:R_T,g8k2TAAJP\Yr/3_]H?ZDwX:Uq:.&]5Ei
U"+(t$b2ADR8roDiK1;r7[YLt?Vs66G-OHc/6PP\*-6</)R$X9^k]b]rR\P%to9<(
U"Qf)wkW.:fJaBlU9=Dj;gNXaKX-e;M5O+IH%rjXioY#:GjK5<k-b\APSNu1(ePg^
U"rcq'&P'/iH1D$U^+Cp+^46.>FNG)7-QkJ?Lrn::Gw.zf+e2)C*+^p/$kSaVDS'+
U"rOT#/T?89KyT])Kj4g05pdVTv5C]$GbS4^7liHM$(cNT\IB<?84%#A]S'T*S#R[
U"wRwjyD]TV7h6]EfI+QpNTh)j9LGI4>nVvKk1VaK,KBU9O&%&.lr*[/UQ)W8TvN_
U"7OL;*\r\r&HDMI%)o_ALY/;Z[%<bvT)wSNZ8/5ieDrr.SgRTS8Ot>3[\I,qI+k>
U"I;+w0Hru3F-ieF:7]TK'YABUx1g+g0=0,H_rJ^ra?Y_hveX,<,p,G)Kh$m(OeSc
U"lG5o49IbOnjm+K_^P^f>*L:?HIOfPf^;qVD.O>%<tV/#/^BRgO'4[$+vAn%;r5t
U"2VO_:mVY)9y_jdF[*v#w&Ac=2Hhkcv$9Y;KG.a>[5NG2_o+CqCz+W4[fi8W),*G
U"jMj?]-Q(c](raAJ>s_:#&F/0\s0KT]i<ydU1OPF/RX_Vz[eh0Az\QJ<G]uJ&VG9
U"9Q2#[jhJ6+%cLnYF:^>GOpQ/cF[C\%E??UYUidt,cVhCfWpC8&[&J<sP]Im_P\c
U"McVlXd&no(c<Dwn7=5i\u^k=3VTN:G,mKYCQ#m:xIcn^I&w=mMcpB+ctMRWhwz,
U"U)zhlScP1%dTR//*^53G>XuG,>xqAQoQ(w0U0[yWtN#VCI5-'7Z$Yro2D&.AF,k
U",g#KHVN.BVu52Y-mueo>j?)<B0(.YV>Bl)u#H0H3ACaKK/X>7gZ2Id2e83ALi*8
U"mqLHqgxe*:>X'l2QlKAzsrsQN_bdIF(OtE9p:ia;v%/9QhuAfsQhgR2eg]EJLR1
U"[-.[cI&:H=rc,/-2beG=RaAE:^]EAa<OxlOYmDVZ(v8[vPmk)=.x)u1Q%.+?VXA
U"tlPR^-27Ql+d.Ih:yd:lwj&E$gs(?CT?/EwbcGbs\vorLaxrhSHlOFtC5jd*9Hi
U"iFc'2xcNk?8x_Yox)vx:(0ko9Ka9Vk_(VOslb$9Y8<h.3Nm5Djx>vZDssBx*Jx^
U"_mZk,\hxuI-TkUkxn^GMs[-,I^gnYMArJm$^Ii8$3ssSfhN2qU.%vf.zrLeAS]b
U"(PW1faz7q+L13KILDQK<VBQ#V8L>_BD'k_IyK^&wix\^T]BaInYXA\.gJC*pB;V
U"T7?BOMjV8)?GoD.2I>w=ZF#ZPivvq4U/4tP_jpk:F*Hz+oxm7FAfpV(KuL*=?*M
U"j$dDe\>G9$Gv,UAt_<jfn-CsV^X1-cg_fKpQ']fY>*_G'y$OilW78k3:I/u.y5%
U"hG8=S.m<b:8xO68\NJN<V0:f5N8dceW6*4PGrC[IJul8M.l/ydbg6[ZAlWTtqk[
U"]3'%JWU.4by_<E\ldz&qA9VeJj?dZlKUBm'X_TZ8/1P3dV;6'Em5P.sdFOHU8mm
U"c>^#s\NF*ZL+BPpC-.B0p*50&B+4WAnYD*_w-'d0'hHa1v01XVR;hS6:m9+Le'B
U"Fz(F1&&Lw7&+QiF$.VL2\Nf,^ON$AanJ9Vb7)k$jN:)Hz9Bir4bmBQ:E^*-:=V/
U"WVZ5A/A%2RolKp[]8gby91cQWx:-jg3DZ4t>%=aASb'P2dU&$tjLMrjn]L$h2b(
U"Kbs=$6RqLG'7tTQK[v1M0$ES77vKk5h>f<bLb<f:qZ'8&FSBeU,z>=^V.S/U>bg
U"o;u0<x#)&H]<E4d9'/:]N%#hFat#pYj6Y>MK_AW)6R,HM10w1AwRe+Vq+Jk&-u0
U"1RT5qJviJtRZ.SO&McK%6jk4Wk:x%6X.pe\Zp9I.)?V<3d/C#tl8TdYhHcmc/J:
U"]V1d)%gNg(rfCl)YPNWn#/#o'6uGc%(DG+pM5]I#BrJz_ScE_o,hcvtst6qu#'x
U"?Rh[BsFHgW7\8%pntO+9f&DBKL72HIVKKY:Mrn145unQmh*W_&JP=k&aiROvNeY
U",4Ra5mlZu9.w'QDnDQ#-ONOqtsr?6$,_<_K%HL-QV$drK3U%z<Uo']traoUsNpr
U"lifml_^H5*1mPr'YW$+TVK<Q;'*j+s&Y,3e&9Yxska.?bfut+m8H76<6QDr.9(t
U"R&F.FyYqY;Q9sGY:aa7.;%UL=o\?CphH)JZ)tW/_OSYali9AM:bp?0D\&6,Mf*[
U"h[.+lEl/J5+S:s0-):-Z&zFaaCz#6cYd3c,5ucxlofxVoLz*(st_^qBe[&c<Vf6
U"Ym#x<qG[+tDOqEaP#G+cOO%A*O7^&wxZk=h_AUCW)B1?;.-=kaJ3S^Jl^b21=+L
U"f8S(eLJutRWr;GM$eRV;i&JW:UnZ4*UeYDcs927Fk/g<c'CcJNMctxV<>eETf/Q
U"Mu)HQ%#*0uxLu9iD'7b2Qd^b2sWH0w?O\P;vN)n.ff56jgjt,Hah>]Xfr6W^74+
U"Dkzl'FBQEm\EefQT]=Jtw%o:QO6nc.arQG^*D0ad?-]jTQ^*E#/du#5a'Hb[YxD
U"d\5cD'=%IdLyIe6u2.3^H<h%MkKDz2#)0QK1l'Ro$48]]^4Gt0ZDn[=^P8w1[*l
U"uo'c[z38ChoDqXk6aLqk\1VWE^-NMVr)tQOH(dkAdQ'mfpu_l?QMK0J[ZfqVTA2
U"cv'>Gvf%p)'R=8<Rh[)(n*X/&)LuZpV_iT+A<:OJQsZwmQE:;9/F(?7#;i1bqNA
U"VtsDqm;XZ0-2n.*k'jeJMfNKUfgOs(Y\nFf*OE\A'gyd--))KSh<tsegP4&c1A[
U"Q6RV2^:bT#Cw_pHR6SbhK#ub6(H\+XPbY1y=R+ICBnxpEO9Y7HaL\__GA4f[P]S
U"Qf0>O[1>:XNR$?/[(rBk)FGhX&^BU0bQ7,7Ph2'E%yZ)iMg1=>F=Ge8q/3kW[yD
U"WNF-rad(tg,1+B0wqS0/n2#-VuyOyb<b=jYTWC+4l$P=DVjIXL^z0^Uu>%OWXEi
U"<qP)bbEc,7,;4>-Qr)1(,+yuST/d/G]%IC1p0Ke_mJxN5JQv>]_<GH\Y+dH3I^Y
U"4YAnt2&y^H)Kj1EzO^Zi<?hl&WLK>^BG^2p\Zw<W&T>FG-i;h]^4F_&m<2q8$C^
U"ym3IyePIMhEZ-BW/BD*D)k++slQzhm=ic-,vv+WFKOK)V,'$P)3:?iF]2.p?edQ
U"t%Nn%&e*TOIC6Y2nHriXr722'A>z#e\<^U%kW[J'B^+S$N:N]>F^#V)n[%]o)5x
U"$ecQBnQS%u=?='Y,fA;5g/FZpmGkmN;^%-Es&3:e+Y\je+>#jYE*.5\_]<':Y)/
U"ecup9&&A*UiGssO\T9oFwc*s]$y0*\>aq13_z>PQ/rm1HLGd&-KnjSeb)eiNk:X
U"C5TkAa1?ORseSO7_\TaCM]Epa?tL?DnP9**>r/17BZ=fu0tM,E=0stDB>;*sOmC
U"D)Q#(Le#<4-'Dj\TiaE%m58MFn<#TMoU3etG<3DrE(luplNPb[Cjdm:vW'i84Gv
U"lA+<4UKuph31h><T0Y:,Zo$u#B2x8Xo8<D^:F<_R-4,)rOHR/+Xb\Fb0Q':P(90
U"2MsM\pr&1n7gr$K2DO[Ix:S%^$1Q*S4zNf1vsS3;\w86.EIOEEDVV&$AelR0;.?
U"T[^$(?-Eja\o'5W*&1EO<H&FEd>G3+>*/RdoDCBQQA52$wuQB>,5tfq8iIN*FtU
U"N.WxYeUKH2<N4j>E)we(Vp\wL(/j1c/gqYj^n2K7H-Zp;<oiKt3q'$GpR;ib([S
U"L4quo1VZ>Iu2&D0<A.ip91uLBgwJ#ija;$O.\lq>Ab_0k;rn]2]0Vnei/$M/LN4
U"=t[g6KPtYs_%imb_*cU:7R1+%c54LAWs00'u(=7.-'rcJnd\04$nRJO1#gW1U,0
U"Ij*ZLeGPqoPq>QR9m\4(C&I7\#(&G3UCE5./%erR]j]U'CRKPXg-(&bqU#l1LRT
U"i'Li0B:37-ko8)]J_4Kqh$eI>n;3v#Yv[R^9YX+(1g42;]AVdceZ.4Rk4N0PO>3
U"yEh3$mQ7DX-I5]&f(2by=k.qpnpP-u;'Cp&cB<au42*+,mM5'VR4uTS9C[hvD#8
U"F:h_ImN$jMmL<miC'))M3<3DkXa8UFe4N^7\2N$A,#pK4oX28tgBL:C8dOLiqtS
U"9CwU%nl]-c=fYNF-TaG<s&7nF)9[y7./U$*-]'vLp'=3?LOFtY8?zsjl%7PNqf'
U"kYk.9I>p>*OMiM<;Q]COY,)(m2k8lFsoEus8rfpHb?J%D*7?/QaON\eTF&%CCoH
U"W7FDsCJOdm]QOHldqP.eN-Ypdfo[$M&s,'_[QckVk,Ok[zq\H#^kYE=3w+E<E>3
U"pieU0%oreHqdi7MIqN#IOj[fy^^MGJP8>O3HFbuaMM&E,vawiWh/P':kR[]R3ku
U"M/n3uO+Ah_MP&>QrIDs4]crkP<V$b=jRTGBkO&<Z;YfS\_XZFPKbyqXj_p]&a[W
U"+T7g[&pW5>?n=\[T4x7-63Pa8muw]\%D[)=b67TgaEafeekHx4/;,xka2%a5EEd
U"#-&qP0U>A<dlIASDJH]h,YW'g8,=UoWLh7812F&;+;+DBJRh'RE:.C#cyCK8W\U
U"S#YN%&up(%)9%%#%-%J[cmLTs\,C#%+%%v%7%%0%%%%m%uijx%poSgIfxl'J*xr
U"'(5MtzBwhTd)iYSk^E&XdJ=F_S&$e/mNMHZ$4Ve5Egj?5v6pTL3C5Ax6ALu]v?h
U"vn*D,21rs.a:_5n8R9Nu/b%FP3^U=f&W_48:rd&L=]S*Q?2Woq3-s0Y?ys[I[L*
U"b$=[gNv94O[iwDggku49=%wq8*]EDYEDRcGuGMOjD,ai_nz:DJ+yX%*_.Im[D'w
U"h=WZ*8)kh1uf&Ru[2BRS$aL)-_S':+KnU=tYtE(z%^KKY[mI\2p)-RCfXf1=.6n
U"xPf,THEEQJs&.-G%(E.q,,:\mP1\]pN]9tI>)x_mX9OAB2JqSmiGGH<H0c>fYqK
U"L-*Z/hBZ>cTdj#xofI%Kl:rJa&dw/4w4C*:HXh4^9%1<q4aAt\)LB[R9)(hu4n=
U"1D2#hOlnD9G(m1_m/a^>jXnCpMo*Pj0i3H_%CK>j8%wXqA=#DL&ZLj6vi3PuZ1_
U"gJgg7+[;L*<h$,v(=JMo5,&/5+lb+C8Rzu8]_n%L&D7cT:xg=ntiE<-R&+lxqN$
U"#*Ze5EQU\?iD'tXxR4x$EebL*3H>EHBOAwT(u=k7eOd5k\,r<gCa8q;8ELQa+A)
U"*cJvBgY_,(v$o?:$q%A[/um9=5ui$:'ZxqMaG\]DT#Y.Gdqv?4leYb^K-6^<Op)
U"KF/,5_,7EUsPfZQ:^:d;eTxA0u/T'uvBqHmAV2M>i+huDM_7r'Lf#=:UI/gWY?A
U".M,I)<mC-j=J%:_mBuX3I<rF$<A]fuhR(hWkyYQKq17aQ:-(>:Q7v/U]Ub-oG'c
U"(w,zh*=G$7O^Y3YMqV4Sewl'2F4Ewhgg2h/]Zry%#0_F.TM#=FT2Ko9]8nGtb/S
U"8mS=u&ga(cqIg+N3Ql#CV)5YF<e&eYeE,56k+WJ(.qcK,E(F6$;J/sot?0<ux;-
U"Yj2$[;WzMF[JSIM7Al+,Q-SxDc[659lzq)0dU,Qcjg5E*RLqR0i_Vv%Kn^NP86^
U"q\,Vl9hcX;7_0+.TV>(NIOh=m,4D.9d2wJl_4t1/iUyZSA,mE<NF:N?.r<7*=<=
U").Qq(gAX^f'/t]a=_WKm+w>U:I,jOVD0LLHJg?c,?5fcOcop.1J\v-'>2WJ:*6v
U"LQb&*b#PRXi^T&UuoC05:3Z4PYM$hh#E=g0;R.Dq(Q2w_6:p8JP\W0dQD_3Tc66
U"zCc0TWXd7YFQYxC0F$&l=*jg(%gU1*HV_Afz0upYr?W1):\:(BLThF_2Rl$,3-[
U"$oUx+HmsH]hkQxjd1^a#TSSQ]9rN^ojcD2GO=O#HUIT\GMbM8pdcp.dw=#ZNZ^H
U"6If#0a/d%RG\lrWQ+XTs#UH3v*DBC(x5\FQ]:5DN/M^k=7r_'.se(EL<il8:l,v
U"'rfHD(0rU)a]<(jdq<A_=Tc(SmHbg:Z0PWh:R)9af/;,q+>*;/;cZ?5?>5Af0Ii
U"WZhc8Kn>#31W6cFK7V)HO(W)fu<xV-OK1ZsUV;KHDa1#prIt1:G=I&fb_ZW^oE_
U"0IfF:fn<jQcDM[p,<0v0k\$PIWxYe+gxk+T#ktl0K_'nI.[UfcGxq\ps4m'R$jS
U"Ta?IX?U*&6?XoF>P2^lUoeTkJ-O$Bm:mH)Q9HiJWm4j47X=P,1VH&HJFdSlZ%Wt
U"VH+*WsB.QR49^lL<,]bfQj2Mx^$$ZMhLhJjw+uOq?5^a$ndtpe]L8I7laX#1JZ^
U"Zu:FoI>T5kbkuP1Zy^#c1BNq395lKvd&cD4*^p229jX_;mDn)2jKcA.3e\.]O&u
U"B31EIQrwW^0j\%aB)/H+>R*%C^(-x:g8DS(r5oU5;oIT+RFPF%Z4Lf,$j,NtI7i
U"19#;/6NpRW*NWhfXE+ie;aKT)#=FlH&h4X6t4Cbwd+NS6Np6T0KOf^Dj>^PJUfG
U"*\&pLsbr)l2nHf(:.igbnN8$JH57buYH(;MXx'fM8m5QoI9#<+4ZqwJ8y5^Omph
U"VKY;8igrYPK8=<pqukfR$Sq>^p/SEI7&][j[XLXfWcla:8%ILH:F;jx_84Vq\5'
U"5/?IV$i-I$)pu^D</;igC0%,JS*b>UPq*tMG*n'G>+^55[fGRx=w^Y6cFsAk%_*
U"L7EPMdIWjn\K6kH5;tbT8*b/'';*a:>oaJ9roY?v/8j2CR4Mvi?iJjSA'ydw#Q%
U"S^i?Ip)jFeDRVK/hF5(wmH+-26fH+kSQO]aYNQN5,sMt$').2y.RowtImQ>5bY6
U"%TY$mbteq51Ooire/=w%Dup(%)9%%#%-%g),BRhefR2l%-%%Q%;%%1%%%%r%twx
U"j%yxyS[gfx>h',BS.o7Lt+zwhTHZW*.jf=V9OKP#P(5U'I[G.$WI\>c:>y1AJsf
U"eut%bbX7j7/FP4tdsIoFlpm$mkcVI(6$:$F8C>dnm5-a3b_UVT#)^*[^DmM\mll
U">$fq;Qf;?lHI0fLd[>?(5kKbTT#KDD:Bf'B*Xp0hIdOgfUPLHkRyT$]Nd(3]8,4
U"l<5M21y4Tjm]m[_A89mBTGfk;fW6;+UwE:?WvkXVFhMMzCz%?^pduto(DqdUW=1
U"<%7YR$aE)^#IzC8iuexKiqfsq:CHhSUk_F$5j?&c2VgxOHW<\Sa2WUnU:jge7Yi
U"Z3VdiaHL.QjomCrasaPjZ(R'2c8U3pZuiJp?-%+lxid]kJjmC]Y/c&jen?1Ee6*
U"2ROJIo6tXCROFjdnd$+$'j<3%mtaX[%F1jk0VZ$w_j6D9-MlfPVGW>TwOaRc-bH
U"Gq]V'bTmts1g&A5E,*r0L6dSHpRrI345&I2,NnwKY1Ag)YlxBhMlekX5xnCKV*7
U",V6Q9CDW[oeQGT6A1c;Vf/P=#bhjjO\^K+,J3'Ga^U,BEcU5Xl:ZuJfE).o(v0T
U"pSUX6f<G.j\H(S3iV4TBRkVenqhAYc]ny?]h4OFGEn0d=+8a_YYPJ]$5vUUgx\=
U";B1sRKuQJHichtU??ZdFw<:i'kI2*K4f=G]OSVz1uYvFwP'o4FbGSTlYVMWh#b_
U"e\4o87+/*Z9DlH4FOpcXB2OqjWEfiZmeLWM\C+EQy;:j%L\\JE<O^rPz6ZZm\w)
U"O_o62DZKu.J-$W:E#*3wZ<QwURn\v(V4)'5,0wrr/7[0en*aGjOUSGCiq#=iDrr
U"A#,:RhibZhQ+M2U3]AFsMVphwKeZ9JWq1onxv+\K=#,rR;r1>82^=Q^uW&>-lQU
U"FR_nV.xmx>c<E6XJ?JZm?Z4(t2_S+OR0^_G3YA4d0,kp2;RPXcRv1/8jZ&CeQ]'
U"f0<]plAX&/77#bJcNSTD)i=0aAFe541(/EemQ)R2cbQtM?=lq5te^c,cC-PA+]r
U"]pO.3P$4g>Y1s<=9swdrIO?:&dT*_>N''5lQZJ)EL*Arq42O_3sar8xiw=nkLq5
U"N&z,jL=i(EK>T&^:sR1I#Q\jkiRr:O^Wn1D2gz$0K%g1Sjc]QC)DYLQU\q(C*Jp
U"ca^cqd:8_R2U'HB&+<&5W0QY)A4OyvqG8(Q;B$Q$WFb2L/qtn^&jq/\FOe3+W*R
U"wrf&>m6(.V_lExr8g\q.LxwUttNec1-U#t9YB#8+,m=A,OsD]\ve'Y4i<(fp(VO
U"J>aP-o>LpZCOi.rD7IE)3\a,N;e#rEh08?cO8G'fJR^v0f.7'2%[eu6ft)wK.N,
U"g=zkg7,EEBJitboiWlkwA'%ks&vQ.V4#AHgowSW5?HKCmj)_Tk;c_[:oJ?bFZ8v
U"Le/0^d2kFL%5xXD%GR(h3=(#&e/Z\5RX#5F_rvUViG9c[=sG^sSK)cNiQSp8'Q)
U"pmNTL]W1<ER>.3Fpc0Jf+R5,PzaKn=F;j^?/4j4LH;bj?#sQd?RT5tjwJ/wdjFN
U"[VefBXko30#=8ZgjXp;2[J>n\dPm&t+_UKg>PaxKYO6Y$/\tJ6PAVKlLJQR;Wz6
U"p;;<sj5Udc$2X81Sd?^CV;9[Fxb1Dfg=*IILAE]2NgFN=p1*9>D^Zkw]=>P*Ggn
U"Q9g:iX?iu^Qw=2-)DSt7H90(mJYR;ua%N%cK[iZD6PrqorUhkU:isEB9hrNF%pw
U"Y_Qwv&cK4QMf/[;[HH=_&#[CsT5Nn9lKu-Gp41?J6.rRwV_3LEH:XF&1H;zYk%\
U"S*7x.C$gKw.tL2uuX8tS()&Q_79+\TRjGzNFuBF4n9..*#m*Z=:BPG*?\X't)Ie
U"oEpF2=\7nOiK*TaaCVH[JvS$LB0II;_5-(.nAq(9kLh%&h:?\2z/^jGbiLYtX&+
U"Z1DKo-/6>XHSk?;[PB=w+Cr8G<SMj_$oZ[)%&T/X-=<E:f7^0Gr&46Lwb>XH=g&
U"Gd.G*G-TJOyCm7W1sJb;k>;&k^MZSY5[?-]Dwj,7?zkJrt\97zI#kW,JE(c/Y//
U"r81,bIRVTJ$2_<sQ43mjYMBLZQv2S9/vfxy&R7)^])x_21_owX6DTEc5>TQE_]H
U"$F6Jo:^PIr5]P-wNA8C7_O1wYr(o)K,.Q=sXy0pI:Ki5fHq<a&9Js(>Tu5Vc):<
U"Hk.64s+Y++B7gX3hwnJHRUsUTw=^-_mbz[F$#zzB9GX:=)qEKN_cLO$KH.Li*hT
U"dg1fu>;ZI>7o/i[H2l+^XQBUK',46SFTSqV%i+1$wr9#vLHk1e=,=q=+eJ?UT9Y
U"<q&bt>OSf&8yM+jRu\/y*8f?(VcV5<((uKG5Z$W1MCSV_DA#hH%1t%>_+7EP>'$
U"N#j>QG(_;H+;$TFUEect^dZ)HPK$=wKdXhkln*tlA]X#%SMD0?Cj%XB*8nyze7:
U"d-,Ih:D-]vW]Zs]6IL=]8vTrB]?5bd'dhr2_d$1Ns^#/N>M+z2_lq(mX8+pp_7J
U"f4+5uRtVLTAj*b_m;h'>Fjj(qZvB7rYz_4bL^t_Y_<LA*,*O\^emamPV=k+:qX]
U"4/-)Nls+8A:CO=jknEZndm-%eVbH7ZH9IGne>5tq5boCLlC&fw\PrYQ3P$K=N+[
U"3Dd/+ET2itMnq3Pj)r0<8>rHu7H)u.3?8L&#fGQO^b.\ABF&Gsqty3I'n55dH)b
U"n6:TjITwUCG[H<I)-dYghzXtj4vPc:kD*O?<x:;ye0L^]<=t6a1hWWN5iIvNj8>
U"oQ1?zw.^pB/5_LOp-V/'FKL-ENTikuqZSuGCLb</nonCH'uKu(9a48GYe^z'n?d
U"+v:RWVKaG0R^,M>10[=3dtsQ0L&fI1>F'SQX,\%$7)vUhFDT35[5t^F;nD,h,dY
U"2_38<QFz%jE.yl<3N.+uRjP0kkmi4++=%\#4'x+up%()9%%%%-%/fjBRb#78m&1
U"5%%%hW%%%1%%%%tknh%yttq%Sgfx<.*dxcTO7x<Whw4I#f6?_2[Q8MlsFS.Qe\R
U"I>nus'XAu?st:_SVu<g.;NFpa2C];-?bfnqMRCmJ;ENtadO%sZs)kHdnq%xoi/'
U">YW5$v(C9*]Y7sLL%owMO.Hh8(O(IUUrSb9GbpaP:9,D2^0fKU[:[BgUG]1Jm?U
U"]yRxFh,ZSS#7qHa-V_-KShgu1vkR(EBvtZnj'kNWc=L?_U9s,7s0BN0v_GBn-vG
U"sTq*G&?dTN7Gg;++a:d+u<uGp*qiR:90JX8BQ(&&DKFju8Vg4<2jlJat\vlR(0o
U"+kKr5R-1>hXV.J%]>[[s4$,$>.5%TgChfVAO*=4^+THst$DXsFTG0r>L*Un)0.*
U"ZTx1)V>04Q^vaZ=aOh4*KVfyMW2W?0-rC4vTucu?2WL0aZ[JJh4AJCEo8eo,Uqi
U"ksH3PXJEtRo>WDiT#jPV<RqlLAk5?;LUcuw$UJSV2AC/*bfK]4SQRI0r>WavqF%
U"9rEapa93'(P?)^E']wu0??#ZIt4^AKR</RqVbXLa=Jyk-Pd6(4lJH9\+ixiClrU
U"<IMfiR;l?2RZO1JvTN?_W?+fu30iVb2uR\#\$&9q2q#,u*BQQ5)gMdjH?>FhLfl
U"$)\5E7lpL6hcC\W79ikI4'wIK[GVt17k#UlK'iU5HPth#Hat522U5/>%>6)e=8>
U"C\?&h0u3iK.Ebi\Fi2t6#^VO_oefZALRQ)\fO-.4JLhY-8*WfYg1v9:]Y'>Uk;Z
U"Yu<MA&LN&bHai98Cw^/'h9+,=ACO.pY:%hfHS3gpoRUq95g,7;vKEDENOBP+.W&
U"OMcdXac1D#Y23m+:Hf0ol^Zf4tA9,3uG3YD;y2H*.0P?:1MZ&:)\[Ush_KlAC?t
U")L'1ZF05Ji<?v3NAiA5vIKc.bW#1;/uV'1'_oSP%&R:_&A%+Pix*mYj2H,LI_U*
U"^dD;8:5&7(tZW00zYm/WpE-fs+Ja<D;s[U;Lf-d^H\GaTkh:Y7-teZIooxbtA=]
U")WUwq-OJm'9,1J&oGfvY5Ox:ALAcyUa8Wy.Q,LMA#;V'FU1?#u.ym4x98K0Q:tu
U"S/9[MZ^bX<$OhPhN/h'qPZg&7r+;3U%E1P*&$l8agKo'.b*9/*i8'R3N$n26Sma
U"ll,\S77^_VkXj0D[I;q[agd1m-l(9:?;R]ht$LKNA2vuLq$R:>Sbi=EA&+3[K&r
U"f/Iv;%]AhsPkZ^En'1*ET\g;#+/_%<CUb.wU=CxDh^&zt;/>Yk_Dk:1l8f5P/:E
U"TIW8ok<aqB'0p6M)e=;eUrQ&\jt_bZ.5T:wWa3*/tA:3St.gJsE_FFI?_V[8P'g
U"PN,KFcYgAdYnUOsaDBk/.M4;osem#;7;pMyCQTlY6Z5Mr]?\1W78bLY=.;JQd2&
U"j&S2_LD-*R%ptk5[3-QG<pme#,wU'jHzLdfDAtn;NWu%IsUP;JPAZ\()LkO5'X/
U"r3;02Pc,CW3UVa;KKlt'ip+=V6731C&e)Q(buO;9_mQ^d(uL<fi/Mw*CEuaQx#C
U"C-VOc#^=*[)hyv..)8#rP;+KqGOT'8o=:[<?ni-^c\7^ItnT0:0h(.sm6th_,e.
U"bM>HElaU2:Gl4G4-GKWU-AF_tuOtY1;tiZfr*ihXc+<#I>fvVC?\[Qo8U?M[pxI
U"DH\H]iN'4[,vQj(msyLQV5iNw.HZ6A84^*N,YZOqolMi#;cKEK4O56U1sTPpJ7D
U"HKE+h'x:<y,xG1(YWAAlJ[8RL>fL7cRlkF2259k6so*QL(YLVHcYbzWH<>fLiGA
U",#8z*<'(c4$]UXtBuihdBaJB<:X4V/q%TVe3A)+IBo7YrP,*pRPSw,WbzF<^^46
U"YNj9Jp3V>8LqSM0Q.ccWSkt1JU-IP^\gKLwfaZ1tdhBE7af8h*HXsFMt+oqe5lW
U".A[+LD,YP4ICD;-g[+QV+7oUxFmn-]oJ:^bpk*OmosJ)/dXxCaee,;uF=mcjwP2
END SUB
SUB V2
U"o&^^SNecu%j_q?pu1Jo=cGiAxs8&6vk+9uqU(lL6im>K=f>+ngODgY<$JO,o)^1
U"z?Jz;zR$mfGsr:-rDUiAB#R5rQ)0*5YQ^sMvRk&uPk^T0Qu^Y&)7K1q/?SEOvpi
U"ubPG+(=GNUKa6=#.RYsGR7060J^g>.(t6PRV[eak_SgGqK+_)k4_pvoBu9/F15P
U"BZTC^,jDCM+r]Up6Z/5(]l\C02sVEG>Pi&]*CBl>rlf5uR)EFkt,\J4$n:4nEB/
U"/jjOr64Wnbm8'p4:^+XFSUPBqZ+R^(:j(k>h>]Owk<2u6^OTNOIj)S>:KD&iSeV
U"$M=_Und;L%75E)FdVu5JY;kj/LbTbn]9xe:TjR\'e2)lPIWGxPIcY(UhcE=B&UW
U"j8=]M:2V\sYnX;p5pCJ<7OVQgPyshHLYiE]v#\xhh3LS+%Y(>f+_ISRC'G_4Y/,
U"#24;6f/*Bel?rf:yNIyeRJG3\)U_dH][#dt.Aasm\\><8ehxTPJNxrss4XWJVJ<
U"7FCW/V%FHz'<:'op7fPB=dCe_L;&8i/Z?ln>u>l-ag?b2Oh-CoGKZ4tyZ'k70M8
U"Pm)1xtyyTl:>rQcaf#P1$;Whq9Yxn<aGFr[i-X]C-P=]gN0eUwQo7:tmC_Sj48\
U"5uEoneT8%cX_U,LqJ.i6IdW5(/-N(sPB<O'jf'%o;Oi=B-;JzBLS9J%[4SyE(K0
U"vk&:[:O'=WrU7C%2PBg^kZBX;\nd<4dsUa4KzZ^F[=CVv1elOQ&>_]xgbq1C^l&
U".vnG/VO>e87CfWgNe^m5K?YC$(e*;0vQaZjlZBn5zA0G6^#B*8GNN;WVPaZC1ct
U"xpp?c#]hN_A]<.Kbi1D_=dfY]udao1\mw*>Cppy9/.1-jB#X(d*'U:he)_kBGgu
U"uPebe^*g=.o(H)aoAhYitr.YZt#JS'cWNB=5/RSjgOV^UCg'FZE$b]VJi*a&F5=
U"-,BNcUK6ueFqbqGQ=D(cqUrksVU&<W#Ntw[XBt'$ToXGI2S6N)/rh:XGYClV/>Q
U"))$-sg3.w>[^Ml)(a98Q<Pu+g1TS/E%6I.Aazl/W+0XxWlaiuqK;WIzmqD)h$%I
U"5QYH&#'HdopjNG1>em(1,-9$VX+3c2,-Z3rJ46gX2aXE5vuFE?wfDUjj=[?/,48
U"c.s:Jw]2TSw=y;%xW&>5ilX;77kl<vnKcCD:GB<8Hp'dx+0rDT=de\,Q_,v_YMc
U"=)?sNxgGqy+j-%3=Zi*.(<#tLMLT_b?bX8WJDNRbup8DCfH1_=D%[^%zIJ2==5y
U"AWw*d[e./n+a^qZ\_zDrJIxx4?qMGJj*JAEjR5YEUB4mPOmc:0-+D+OtXvt*m].
U"O>3f1ZXuutN\SA0[F<c^v]U-zpZ7gD\znRYJ1Lx[x128f=_V5y0*Rt3#;>NSCAu
U">sO]Li;yZr]y]u>]-P1Y(Seu>d,i-.OOTXIYlu8Q[-Os)bc'sth]Jj,xYVLu+Aq
U"1'_p]9Nq2RgIF-a:48Ze:HMUeEgl#wcTMuwk93]WuZ$Fu)FX=R=m\sE;h-z&W\V
U"wATQmowxMou<9:O&RdgeAT?F0$EM=M_BS&aY,x;<*=bBtu_q=fLT8K.]#hNOfsK
U"Gd8J&B$'siZ2'ARt075&EkG4N$TmSqX$]gQh,58VU-mI\\/l\]+OOsBlF4v:YYT
U"s1%#.eh_1K8\#Oa,(&Y4_&C+(=cg=MzL7+>A#8$3V+61K'qi_N(?$;A.'2Ez-j^
U"$T,tt_EY;98/NRX04(XANBr548k5BeL6b:FPunDqbmS/9c:s_r'Y<QVQiWv;2Q,
U"oba51[eadb<.(5nv??Gj(Ag\eU(2$C>0ZqbT,6Z.k^_rMPGy^t_OZ^z4l/'qi+<
U"2=<6Y^vAX[:\NY90xj+J0.q3X?0qNOpiLq0KL$Hc_KmG8N\dP4Tl6sRn,uqy_\v
U"h<AmUZ^dMtn+ep5%wbp-j#7?hU3%g/+G8)t7z03odpN)^T?v=Qn&LW>CdV.6Ha_
U"WY&]kvkDUPhAM9AM;'Y%ivNPr7V%<h/7bHZOuJ2w-mQT4cEn'l'-b;et;d_ICt7
U"or-hnl5qlXQD^\'S.Fzhk\mQ:qSjqMi24LiX/999EH8:$BZB'u&Ap0=E8xm-CT8
U"ARS-wY#z%Gb-vL]fd&HL;1tdEn4=KY)'sw'_.%yj+[K+MqQoU6Hd[oOEB^TvE*:
U"TsW,j:QrLNj0p2lU69EP^8NLI>&10=*FBJL]X:NxAE_:8xHvXc)CZf$T%*kt#n'
U"(6#zJM#[l7qfUoP),&SS%WZ:OU=kZ;L4J.RIH&T\BB9,0(4hLF.wdR(mFJ[OA#x
U"l/#n3l08AkX3Eb=:PQjERuC131^T%O6cABAYzMaqRYi;PY=+P/lAF?rs6*w.4af
U"-sjE>At1O:RBRg?\*LMO4Np1Ic9L6nsxtk7utbZCNio&4B'l88Qk-cXN2MsRAXp
U"F3m>gOG-l09C3DVRup:5X,dE8nLl(82b&l(I.:GliI)=3EnN5p%fqez[q(KR_8z
U"K<C?S:BZ*cDE]6EPhaiIuVY?Fm5Tu79>c3g%-9p>+ZHr\[(0bg7IG)rG;7m\Mau
U"/e#S/m&OwYHTu8npc^\7n:0AP^A6v*,kGyJKJZa7=>4KrCm(SoC\$G0>Ks*5cX[
U":0OM_:4M57Vu-WZ.#6PJ$4=JGRQ-1Y'n[_'HO:6T^&LniY86Ps]iE[SWqqEff&>
U"GgjYP485W>Zrk09Ua'\U=8x-OUJjj-2q-g]U4Zq17YgznVDb2REajO^8Ld.'$0h
U"z14pG-*oUiGLCI1uWAZ'\BhN5hrPdAYsnhg\Xu*'hf'5BudQ]I(ISWs.r;FIX']
U"q.lukWpv>p1=z:8v?i>9dB^u=uE3r;vW7t:o7'Hmo_d-2orzN(&h;PF0JUJn?w+
U"jtp)X^<$JIEVh'.f/DKt3<>WKTLIDq%xiz;k]<ODk(+_<]IX[q4..XV:lJ*0#MR
U"hU2?tSlLMwEEtJEllomy8SV8OMYOfXAZqm#Ps%q74sdJ&6)d._[%Etid;^6fdEZ
U"=VE)\y;Gj//t3gHFGu.F=2t7cF,^*JozI2X($-sneYR4c75%Yica7/SQg\RlC+;
U"P^QZ&kt*2k,$m-B5N+j99Neg>3ovzO4UA:BPLZVq;EZ^Obq31HN^TJ&wO;7+Pp/
U"BslflnhxJjvP(Kb1(/)p]$h19,*-6Eq+L17fR'0/fHf5v7rQf<S2-_cJu+mv1PQ
U"8ufc8*7(Q7--Cl-3mV3y6%PzZtudm8XJiMc3[G>t)-;fqHu9lLf5G5^pkE%4nlL
U",kDAvsZS^SLVkffyua7#Vw_8A:7tInm'0,b*/ARP;enm3Vx:zcEW+U+CzpTuhN7
U"ym'0ZN33020f<)HxXCCLjeuD-s?N3?>T1Qp9NxV&N&up%()9%%%%-%)aAXQYU5,
U"W'<8%%'Ia%%%1%%%%ufqj%yyjx%SgfxK>$:Bs?#+Xt,^xI+j]xMskKgk:5oQNCe
U":iX)f(Ihu7&IC2qQ':YoQC.UbN_E4tHB&oBc$_J-^$eMlmmm;MFH%:%r),Y&$fb
U")#v#kb>X%wF1s5]^kR6-+,\&d<C$lss4Gl.+'M30jUEf57')WF8^j&vX=o:z$<D
U"LuF'<vvXd'<f?Grq'>yqoX;Ko:TF<15Mfq2K97Jc<ljMPpN/dPC,H&?]Se1&YmG
U"IIjgdw&K8'G=F,k&fBqI<-I^8B/?lRw54k8-K3=hpkDlO1fCD\jSFs&eI#]PQd3
U"D[1&cmQL8aV2j3TxdaTvO)$NBI?\tr?pC&bPazu%0TBh3+;>%jKk(<Ls%2[NaUK
U"z4Cfn%jts)gK>FGv[.AM*)Nr5nHOpU.;$n5Hc-XERE]SB[g#VrhpR9<XAjVjvT6
U"hPP%;nT[Bp.2F.LhX)679uPvXNZ4me-,FAN+vqI0ou%2_58ocY?x;w]4AN^16$C
U"(_nQWJZkr5Uj4GR;7a=H<1anu.iCJ90CsC[(B)I:,a$,We&_C$c&'O5J#[V6osp
U"J[[^-'BjVN2[?\_jCJ/eKcW/'Ryajf1_CsE<zVK^k\/tE$e+pioM5FE&osks+qD
U"(bIq#0I#:o[8Ivoe.PK9/0dDqY#OArrk#QJtYu[*TR1#V?)[+B[6ipwT_f9CI&u
U"Sk,tHxmmf)3NaiHP.T.W02/N5i$[gVg<5=:=TW2n:dhhG>md6iB(xq\hn8<Y?.3
U"o6+wn4Pq?s.TIzSD<jynAs'z$_>Um#=3;^+EF4b*+JB7CQKTS3VT5)POz+M)8;m
U"bv/DuFuDX2yocNk==II?Xl5hDC(c,m&:0_\Z)c7F\pfiq)+MM->aU,K*'K9QM)a
U"LSKAEs?f+8:8([Z4mWG1*V=wNb-[%0QpetlYwk[P'Q=k,+0#%l>9RhT]4M7TN?&
U"cN]orh-2S;mu*%_tJ3\5ojyNW>e7v]cJ4J5%-jaBO9tLuh:7Sj*Y9LaymTF]tjx
U"kt[Mxyn9fs.fP8^j?E,Sfp:%6+I:hd%bEWl,?a4xN-)%2'RGbSlUcQ-t9AQgEm>
U"2Cx3tWfEs0:IFq.oZk5(g&y5VLWBAUnr_m<6BQp(A#z9+aY?dfeRa9p8Je:\[43
U"2W+S[RXA-AR:G13;QQ_:hT;sOJJ,VD[4YE%D'q--U)Xs(_bOBRY1_'W/5eU;IB/
U"C*NK$H:wc%,1k*Um&'=Hv:sNhlo*=en.L5XrA7+$1_+gu_Drs07%W*5H4<MOR[F
U",-)#=/W+Vu+\G$<OoTrL#82+8IU,b<?rjxL0<VTw]#F,yVsNwbOkpRu0s3$3A1D
U"c)0TxEl7GkNJ>%4A/JSvfm,E%r'd./tas9&k&(,joVK7KDa\AU[nn3qO8+j26V\
U"eO(T.8vsxWSkCMFLxhtT.<j6#DEruvpGwiSX341pEDRhi9=x=GSrst1DKO(wC*V
U"?e>HSDV.EV?g^_c>8kC?^/9?T]]h#MY\hM5Kak[8&\LI6ShJw9;Q7N=cURcrNzF
U"N6_f7w-<FEhi96$;YX&T<*2bL;k'3%6K4?NvBP+*QTTc+sn%R#FQnIi+&#k)%%^
U"G_Znl28<LAHDN*uNgmwlKXzK%2p[Jj'C%,7*)eL80uTpP*\$[]qo517=B;<oK/;
U"ieD.[GY]Rmk,GD8K?X6K(axm0'&2Rx6j+nvymQPhR][9)O(yZ,_]UlV)PkZvKa[
U"8p&6fU4B=2'Dh0?t8J[OXW^f4gQn.O1pkVR'1-L;iK:TmC0iT?i_PN'bX.+c7gf
U"r:&+9Z6B0r_B6:%vM_uk.C:h)Q5uA3#r40KshGrrMYGp9liRmx.H78&\RE9/d/]
U"Y%;p^(eA9WKM9yL('MPE?Y((KR4(C8xaV4q(#B%67)IEI.JPbN7.b6Srf&^*P;B
U"k*s&6Oj0]Mr'^<q59]1b]>dfY%Gy#f-e]oTC3_#]WfsKsprfA*8].QGhqnh9tih
U"kr'_g]eW9$woMdDuxY20HZ&2,aw(bo6__EM1%N<BktaHX0mfSB#-1;maK/GdE,E
U"c+(Q20=:P9^;>'NJ+,-]t6qj0q^_d$S'[u8ub?xOLbd%gt0H1K]CttsGVi$W7D.
U"SCCi&rw*M3BgL&dZj*3#zpTDzntPz[ay5y5im(r4JE'd_qZ&5q%W*5p:/'ls1Pg
U"C2#_Nnb>YRwn[hn1_HtGw$^dW#wVS?8[>8$OsC&8)N_y%b]Oec4)4BQ.)fAN2'P
U".Jpn%+)uv[ct0SI=Q:dpa4#PJ2er*a<;Q+SDrOyIQV;%ljA2K#HdHx84X&;.mbA
U"4gD\[xqOHl(pWo*+3#e<vd&+i/RQ1RkxJ)k6l]4C#86L=$mi:L+wjSrP.#V*rqr
U"8b3j;XkZq9jI\:vBf#Qr02xSNmMURBpRo3&B[>o3NFOJ9;,84s8pO&l\KS*qQJ&
U"Hl[mwfd'/_>*mP0ER.9f*[A)WJ0*Fx-j8nmG;g2lgs(Y:O_O^&5hBUwKkaS\*b6
U"-UtMt%\8[KrGu)Nn=dAez,bpejY-VQ3?GmL/k^z']3nIp]xdb;r7QeE3+a*Taib
U"Zm:Ic<'&M,DTKJJOKd/t?Q)Pt9oqjJ]]bw6nDiaUc:x[AGW](nfC)dtzsz+U9D1
U"]*LSI,BFhKoq9h1Sus'Qw'g>Z^D/_4S:t^7=71,l(D<ojXcCKFX#1]6Ki-[/OJj
U"s27VHF<1sq]3(Y/8K7v]S1mG\R8Y3iYN6XK'1LSFOEGiX?cBc*Ye,U$sOA/qnYF
U"j5DaY]lf74=N.Hc:,gH(>H*'lohbcAo7&*4*jY=F2IBkRkm'#UiSb;KL:YHJigA
U"Nt;?g#>1O,QX:l'eB3,^EY^WI?*Uxm8KMgL)kplJv^h<>U/ZGPXPwiEjK(F4NnK
U"u0'mhjkdtr^:Z0'2^N2RNEcUzA[b&u'&dImumX67tms*RWhcr=D$5hmuor;^R9h
U"Ml=73MR#%w.jTnVydYO-#0/#]p0GM:qb'qq]\Ice^6.h=YY8^qc0B5AbvKl87h3
U"1rabKfb2m*QCgo1I4arcnJ\fe\l]QQf'*:f]K8bb]GDFOACIM+&y\^8bj*UesK)
U"giBd*qYqg)JLnY=)P,Fu9?5Ofr^,=g6ztE^l?f1&^j;I\G-\#-$\ZBTo3p$YvOg
U"ILPL+jLjN:oeu%j*F-3:q6p=LQa;gMCaRYlT)Fukm^3L+Js*1e*+zk9+5(7sqV8
U"\Hx;cTOp-S3?*=(5Cp3DF*wFg[k<2FZY^_dJ>ZRnHEB59i0f5JyWcZw1Y^Cxa00
U"pZUi,e9bpKOKJLPVQ#,4/ovcG:nB(h.wE10$[BXxNPj&gg.:N#p2y3bo=hZiXJ#
U"2jM*GL:Ps12yxo7*.6Zx&cU(R#qvscWa/:v)Iqwi+j'wfHZt_h<-]2OW3uG0ROh
U":&K.(B]257wsc(J3d[^<vB:f3p6'fXV0ji=1g3Br_XKQO(;Q+n7rL$D/qi#GeU0
U"=$?zIB]=)U70iXS/Z3ia(?RE]\1O]e.zPaN_z7k7:q_M7xlV&X3AJ]Mx02IE+,0
U"$Ba%4*hW7zjkz9HoKHQm<YtCPsK;Z=Ba)U\ni2>)oP;S)qKP?OjAE)KC]xmGh;=
U"P*WQn<l2IyP4lY6/Vx*]0?z4YfV#nnKlC_(O^fP'm?^iV<Z3f0Rh4T;,J=Zld3,
U"Nc6v,Dy8Dp,5H_WW,]/6>,i%S[^2>6NiDf6M4)z5oOuFsY\M<iHoWqB(m;iR0BJ
U"D)],hYM\$AkZ4=kb'[q404d69R6U-AMRJCUG(KCd((NhlX3hs-9.CN4MC3sDQ:m
U"W;A=S[/+_b-L.O#._YKprk>u5\MUx0).5Emxo5/J:mYVL9*T8q+1WXK3t5Ncw1_
U"hN#(1ktl^FLYK*Ry^nTH11)h#*T^7#D)oE=P1F\dQXSJWzP5%'c>2EZXK1a2R*8
U"s5o;([czqxG\oQ%ew*ntN8[F471r.-z7/f1$q%4Za^$Evz57M'(Slqb;f5+I2N4
U"OBNEX,6CfN]Xi:0UxALHl.c*jiRDBPjaTv6t_.eRZk'%Tic*CwXyWS(.pRb%5/.
U"WjIIj0HS?Q+cHx&Itn'V;sM>ac1e4tak5z1'7pM)wH#8:^D*KD2[%dK<oEVeN\u
U"Ir--)?iM*A+x^[$aRC^OLa.u,,kjJ5b8gg;*td*R]ZVMV$r]+S'8[Q69G6UWd(T
U"8g4xVA+sclQ]s4Wt75^?,oGEYL+,G6%]u8_3H$O/5N5Y<3$o$Wt1xtpz3UNs.VX
U"wl\_SjHVFX-D4ZItAv>RiLx^rNdvYu,*LD#.yKr^I_a8dPYWMVZqjg'w,eKB(ED
U"5Vpt%V%Wwwm?:]Qe3e$wd5xFNcnx2C#:>dXfipAlQC+lg8234X&h*4uinxG_6)r
U"[5dDfd1o60(E=jmR(Jr#j9GEtA%kqrNE^qQDDgqKJOV$hnAV5qc9<qxE)OBENch
U"h;Xhf>Atn8=<'<Vbc6(lCdm$,6k=wOGtC_dAY8-NE%78DLLq;BryYV<,$oaTe2q
U"Ir=T5_K0o>n85.=p,gLj]9g)#\M'BX%__ko0IJ#Hsr6CALSJ=f=(7'KXqC>jchh
U">DEV%q#U_OthJV3*=z?(a]*;9d>m-$e<>NL/TZadLFA3u%l9upKT=Kkh2km%:M%
U"Yi1\WpcBC0hQw#C)xk1G,e#9EqMdHPJyZ=':./8GD^0PI,\?^15detY[^&QYhJu
U"B1^enr:V.-r97H9n\5p*)F%X?ebrGtbFe#PYJ'A\YJ;^zLZ07?9*.we^cu'K)3&
U"IevWihJqg;uA4v%5in_,?Iu6,>Y$fp:mb0\kTa#])Xf#+wP1yVasW$t&i&x:aJA
U"1ZiXegpbBp5V<k(o9UdFPAoK:M$mDnwkBQORk4NB+1pDnT2r^m_fcNhijj[xaZY
U"Y=IGD';4^pJQxHnrRt:,ujLIw%#,^zT7X3bb4wOsJ_z&WYxvVK;FD?4T]P5Q+F.
U"9o+,r\Vxc+cLPrJR&^0f5tH[+P&aDt3w(Le)Uv-IHGaiqM=(8wL8FbM6bl'/.7C
U",k>trmU.64A'j,wWK3Bq6k%zk5vEG*VP;*GO-_l-iw'8q3[O7:Y=TAk;$Vrfv3;
U"wuN,<KX8c-RC2f5fcQI4+%Gs89OoIe_zZG,O5yk7L*+z[ww$cF8TPE%u?NvZo&R
U"LD-jU[.MSJg\5H9Ntx$?<)Y+lVEMY)CXRP-lO'de^<&)I<-rq?b9%xIB3dSSPd]
U"_Q.Ctvi1V)E^W\jPzVA\p%v\QJ+ImV[^'kf'ySL1pe%FEG3E.13d'fwYZMT2]^S
U"KA<TWid.J(e$I$AT._\>$Xo&aaw<4wC84TdfxF4piwH4pHvY:<jTw2SbM3pT0rC
U"?Bo'JtbAi4SI3FN[*pM,-6CWGLd5q3Wf,XDMa.Teji/*5(k*,J:'$O:4B,A,;rD
U".#a[AbM(o+pw_3Wim(*k1L>Xb[SrLc'6SI$^qBp($+%zV*[GoVL5$Z8C0MH5FV%
U"4arjE1ahP#d3ej8vGJOlq%yqxt^rIOjXi\Z.37%qq'_?ZsS,TJSDR7Q*E=:-L*J
U"[*_]/)o;325P/&#NWm,SPw>P(39B0?St:eqPYcdo$FV6SIFR^q+Tl7JP^,:N5o+
U"6vGGUtY-4TQ3w;=LdzX1OCV;onZ2Mtkh>^[KwhIv&)gycIdbaa#5Lz8R42EG0ry
U"k3Fo=*R2kZ*Ihbg0ldZI#G\fS*_LZlb0K%TGmnF1\tp)=[n\KK;1Xrg[v]>kR=n
U".^Q;-&(W91]64WjI%-jN_(k$^T80[>CK3PUfRjQ9h^ac2Tpk7W\32m,>MSJ,X/z
U"^s;n;j,mqO2'Q\0kM7_'s>wh^qXts8BQhK7V8Y/KNXV3DR)&=q-2?.iuLPAX$)]
U"Q[HEgo8*?//2GqmM^E=A6?29s8^z^uO\BcPrwi[aH5>J6;vkuii-W&_aij.KTVB
U"<<OVsH:r/XU5,eGhp<=ku:,qSC/9D,k'2LKTpy-sL*yJc3&)O/o5'Xaep\K\X,+
U"Si)Ar0i:0B6n1DT^yuP:q_dc/J/$*=4b0Dr*\\Bvok^HXj'bPC(Pa2K?&A#7S?i
U"YSMfAPQ__#g*2/P:Q8,=OhU6UyCQ.555s=6Q^E*^+FjndZ<Keres36#bG<;&)HG
U"RIf7r#KVSot#lKTWMczu+3]C8j>uZPy,uZK?E>/tq4vNxgeHli*^X&-oJu/=uRe
U"6B1(2*RkXQ>=P81FLn4V(qs=S=&8\tNf2TE>]m2WtCynURU9,_hk7Ak:DjhecjE
U"^GaoT2T9*ut<IBGWAT[Mkt1+ZuU<+5L7vgyhR[u%NK6xe8n_vkVfK^VAkm&A9eW
U"bxejc$S3KVuwM=]_a,HMj5/(lL<30M[gVpHv#hMSDY*(gKA[WhW(OkR&9+#tJwq
U"FSZijh.yWi7$80nwg>P^BZdMXHGcg0ga9dVN>7=jF(fcjZrz:IOwgaM.q2[.-i;
U"P#$simSP2SrdktMR9QcpGA=/,0r9pLf43Sl;R/^e^dlxQHehT9k-8x&u%p()9%%
U"%%-g%c<p4KBG5+2Y)%(%G1%%%0%%%%jux%tsyu%SgfxML%<B\qm5w97zr4&,ycI
U"5F2S&aZJA2Lhlwz:'0iagdqhV9)p9'o5RxvfnUWY_*ywoXUVHC$pCdL=%YKN*ID
U"?lBYIfc]j)=H4[dzT1%/*eP,PE0)/J[5mzzlHH%$w9kPSPrbwh2ZC.tV,YOvsi6
U"hLxX7)hex/:W_wuH/s>Z0BAb=w8D/NBkGetcQ%D/sY03C/IPV'er=-&_._hDiFe
U"COy)JuUlPUPcoM&#(B(CMIeBU=CX>VpKk#DPpv>_U#P7n1;od3XZkEg\6O5L+54
U"2Tf5k52WoQTG,5JqVL6piD8q=P-TM<tCp_$2nlC?[O/GM<dgBsd^s_jSho3:0,I
U"[\mFZHwt;S&]wf6rO^;Q&YX3P2m3M5T:Ow+1+$n*_#cgu42K;#tAqm0R-=xV'IV
U"Q^g)nw0jk&4A3d0eV;%lEhbt2$O3_BXdYWUtWnR:hu/p9i,*'$aUSQ\K\r<Fi/)
U":]Wrb&i$IYJ^rs$3UOv2GR-&rDaY$<W3)XX^+JTms9sBhFM?EXAxB(o4+cn6[al
U"libp0h=H27FuFT,/(rp?+tgpU'gYkm.27p]<Li*/jG43oQ)DUD/CP%CH-w=ly1D
U"4M=?%c'[BG>ap0CIWU2$:NJEm^:DMpW,RKS4o$m;)Jc/rMVH]5[g1aa^>qS0MCw
U"ZH8rj#U(L'Nr6;W89%ld3PGl^k&=je%AaF=9J47g1aN\b&Csrh[iC/6iWVnqhzQ
U"NGGxd+gTD]BAhV<U&FI3IWQ7<9b7IaC%OHC?lKgsKbA3WD]n_4WYEHfODb7SBaY
U"9RM9TG.Em#FzbyB1G72&3^X4WW]EstJEbV?-I4O[bZ/<6PuK'oW5r+&:t)*O7=$
U"eN6pJL,r^rtSd76LF,F7+K*RtUStn%Q._t12Eo'Gs:0/3):P'sINQ+He:pA4l%J
U"<v#j7./ud(y;<1b]E62v(GLiXZbWdrPpc4<:)73%G-sGQ*xp.[SqcOoM$64sGp[
U"%OS[T\Qbn)DP\sQKWu:jP<2H[ox\[4LXz-?J9r*0u_M:k+dPH$1PAK+<J=d_>)N
U"BkRV59kV)Lek=*lay>MbAD^V,-SIo*:,kL:wCd<Y>/dol81hcl%5^r05^)5O)'W
U"]0#7iAKQ^jIwPvB7H#9rWaa/JgH-_g4ZAcjwcC]mex_qp]zs's;Is//E98z;j.K
U"R*el(u2E$JXs<(^cU05b;<Is%+51Eg.YijciM%^Q=(1w$Z'&*Y1&92KKm[xLaWL
U"xb]+.-1[2vL[+#C2vKC0GWg)2]QwJ2st<\KZBL*;QUQ3Tlj0$53)*5ug'8S9WJG
U"Zh/1LOJH'M=*_TvJMp&h\Vd(JcCAS3Z/D,X*eYu=#KoT4RZzk,keD#7rV,7FW0L
U"l8cQKi&O*M^0U#>Yfq^4eD/p/.FsV8]Hd=3)^p$a;[c:spb=9.SQ44(QDB?y48A
U"KRC)%p6fn.^w3yH4T:Oi(1&);xm$vP:N8/hkr(mt.(uW>xRhP:*LE$>5E0Ucm<q
U"giDbdVCH%SBq03Z],LVN_&?,Jk8D^RL1nks7Pv1Yrq&ykE5e\:V]p0.0(N2Eo7v
U"1r=aG'bLNnok/;0n\x19'rM:5Pw4%up()%9%%%I-%X9nBR'q>Nn6'.%%H*%%%3%
U"%%%vgM?A>6MA0<BLSCGCB.yp>[?V57OlCNgRh4&SL5YcyFbk/p5H)0\_<IYoc93
U"=HcCogr<pljgMbmI8Xt)WhY>7#GLLgcD(672tRP:&UFGIKwt,551-51RK?Lkgp&
U"NYQTpTUGJ4F;3vGQK?28Si)xTwMFxFk)c0ZiC:i;KY)g26#^k<C%k[+K^Ad8*4u
U"L-0U;UZ:1vPtX$_wEQRzj,O5$gW;g1m,K'b<,Mua=bRk+'f(+Lq85>Cx/Q(TR:A
U"9d5sgd6n:#M$2sxgB*<'Po=F3:W9N?je2WI3qxV\7sqMF)cZW#yqN5IlOqFcK3P
U"TqQu,urk^LmE\Vi_nNQrG0*Qv1z(lY.Xzj:%]yFHdcuWQ=(.[N,KW)W]&ku)k&:
U"1C8=y]>Ix=yc3Hx\u([WkKF.CDMG\Bl1F]'u*11LgL-ICheh4/Z#1:x/%,L[&QM
U"tIx/0FGHpIh+I/bGEBeB,M61+#m=yi;]?OQ/1h^tz>[7lL?Z6N0q,PZ'B+U)k2e
U";n21tXqVY:PF[=IPjnqaTGX#N%q,rWkf=ZB:.5m18*Zige3FpDMR6Zj8]l_XSqn
U"+]SJl,22c\Mv]^Yab.bxdo.k4Z%%ja$_$9:mrRqcX^f&g3X:tH>iw_M)zLH+L\^
U"3R0>_IdsrpjkP3/#tH^bl462*sw;=eK?hraR)8Z/(xl2S>Ul#/uW8mY*tVC9Wh/
U"VI8lQrsqzQ$BueMFtKDmHWu_uQx$QC0pF?uQw_uetDVBdt6-Lc\G8:>3m.erM7U
U"U(w=V,6<+3xdN0]^U.%-Sl,p?/*\GVD&PREW/UO??jSnFVtq<AGx0zIHDA_l]Uh
U"NSA[[,nDR?54QU&1tz^\bjG5,h*[;u<hCVL3d-koT)U<Z'lE0U8X'ZeCuEGD-$J
U"71HYFU6:n)+dx%'up&%'9%9%%%%-4%4KV7Qo+Q,-t5%(%aX%%%1%%%%%%%%%&%E
U"4%/P%#%%%%%lfuf%ywsS%gfxu%p&'9%%9%%#%-%J[cmLTs\,C#%+%%v%7%%0%%%
U"%%%%%%&[%E%/&PJ6%%%mui%jxpo%Sgfx%up&'%9%9%%%%-%2g,BRChfR2'l-%%%
U"Q;%%%1%%%%%%%%%&%E%*/P:=%%%rt%wxjy%xySg%fxup%&'9%%9%%%.-%fjeBR#
U"748m15%%%hW%%%1%%%%%%%%%&%RE%/P%WF%%%tknh%yttq%Sgfx%up&'%9%9%%%
U"%-%)aAXQYU5,W'<8%%'Ia%%%1%%%%%%%%%&%E%</P7V%%%uf%qjyy%jxSg%fxup
END SUB
SUB V3
U"%&'9%%9%%%I-%c<TpKBG752Y).%%G1%%%0%%%%%%%%%&%RE%/P&zj%%%juxt%sy
U"uS%gfxu%p&'9%%9%%#%-%X_9BR'rqNn6#'%%H%*%%3%%%%%%%%%&[%E%/,P-o%#
U"%vg?MA>6A20<BS2CGCu%p*+%%%%%,#%,%e#&%%l%r%%%%%
END SUB
V2
V3
CLOSE:IF S=216AND B&=20297THEN?" :) 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\20297,219);:END SUB
'>>> Page 1 of QBPRTPRG.ZIP ends here. Last page. TCHK:216
