'===========================================================================
' Subject: BLOAD GET-ARRAY IN SCREEN 12       Date: 06-30-99 (10:40)       
'  Author: Jacob Wieles                       Code: QB, QBasic, PDS, PB    
'  Origin: jacwls@worldonline.nl            Packet: EGAVGA.ABC
'===========================================================================
' BLOAD GET-Array example in SCREEN 12 for PowerBASIC and QBasic/QuickBASIC
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"GET.ZIP",4^6:Z&=19378:?STRING$(50,177);
U"%up()%9%%%I-%oI]VK.C'<fX(.%%e.%%%.%%%%fg%tzyS^y'y._%,tT.U9LC=7x
U"ZcEepq:CiZY\4nTceqP7)/%u+a_5XL)rQeGEcu^XhS;#7L[(jiYdum<*hm^cpU[
U"#DD670^a*(x_Un/2R3*AdME4^aPT#al#lYl?n7OB8>dP+<q4%Oc%sgUpa\5&qfR
U"ikxEIQ[$+CUAW7-wS'wC0IU)eb%^*GN.M)t.pU]H(,xg8NFnN:8Za:LqO';,OtM
U"iYxm?fBmU'u6Qc>D8]p<-md&xw/c3hYTH1;h_/5SJO[6eA9js.G+M3G)S)X:BaP
U".mmNG[oOR31b&?$KoT$8U'b#hHP.ZC3Iq_VJ,p^Ir[+gI4R1Q=J^BDa9Aj;w&Uo
U"k:[Q5[<enKC6&fMHd$v,u's>Be%<0dXn&GV.aou)qOI'sTS[gVc(1zD%U=sq1Bb
U"/s?YD=K>-E6/e2%=Hhb+V.8RuaTi$\77%ePRgllW;Yvp&h_VY3Sju#Yjol:cZ-=
U"2lu-'4q3(R%T8_LE<PWVM5;piWK)Xke#$&[^fXknuOlm%Mpuc_m],*z-UN1.*Z9
U"ncU6f9cB3J_bJ6_=ea28tX0,kBow-6^wA&\^$Q<R(q\$gGrJYuiR(E<1O9am&W;
U".NidcB=e.Fm+:pEHKpL.VVnS%NjN[5opTt4Alv&phIaaeA3h+&pLlAOek=DuX]T
U"j57b2t&A<p5T.[R8xMFvDrS7<gjE.>sJ4:W]?S:UnYKhW-Y>%3FnI1DK9;y]iSH
U"a3prOQ=%t6ffl^/mZ=[P+sb/,/D'\cTxxp3XlhA6eA%[c,K=l8n10rG51j5o1n_
U"fU);:yi'tPI2Zu4pAY'LC3XEW/TV:[JIbA0mLzetz0GZ(P1l&[hb=j(djyi5HWq
U"4tQ)H>noU7c4;6&6aGH(h<z,[=9g9A0^O7ML5W,X[p*Y)96W>wMY<RpOj$mRKU1
U"t]nS%BEzFYcHHtH5;XB0A0jYrIAf;lN^jxL_AMZDgcGPx'ey1ro\P+='SI:*i(*
U"9;EKco[24oSq6a?JLbq3Y0s)tOOmg?xTS]y0mYM=-Aqfh?ipZpnnn/BEIZX24G&
U"N&up%()9%%%%-%84WWKmY5\o'h1%%'TL%%%0%%%%ljyR.mt&S[gfx>g?:BS-Cn$
U"XEuVx.%t(3]#-8da]QX=\GgO&Q0jr>dDC56:[u17NmH[vnsb$e'o-'Zq6/L-rW'
U"$o#Qo5.JZX%;/:;Y^w[%dDYhBF+8^>K$5,;X&y>i#nkMzME%8Tuw]f%]6nK?VLe
U"^p>ExVKO4H?i]rX09DQ'R:)5i)J=y*1&FlvH0T,vR.PH\&bugIY2iu<me%;#VX'
U"G36AQWUg9:GkB[^1R#L>G5B63)p4?s)nsap*CDRVj7G,[vCBW_m/^SMm1ufn4<l
U"D<0(sx\p(osBH;/.ZR](qZux,:M3i+7[^g%<p.x1Tc=ADS:5$-F<BMKFbNY/jj+
U"X+u-EE:/aIzZQ3AW(,)mAR:ja+lW.Nf:s#JgQkcXS84UnCgaXRAJpmZSI3-t'AO
U"#QQ#UO'T/7EO%)&UU6Y$$K.7)8Y]QCcnX*m24FWi(jIUJX+>ofv8P*xkv[-?f7)
U"cw09wHS?TQtv2$G#>rdW+.N^WDHPlW:gS/s^R/J9[2ny9%G-CfQ==H3lu^_N7\-
U"n\0CpZ''xNY9VX[,tsyKHb+8';nUQbIa3V.S#4qYjLM$sAxt+cUWedp&V3d-N1u
U"fsXrKv;(A;Z>6TE))-.js5G8rKyO9nlpp*T[]NAtX^-WqVBQtXW1c,9x[uo4o.&
U"ShtuQ#Pn\B#,p-EmM1aU\H8&]0B[HgRotVur3_wBwj($L23]UGeo(d%I:=h&$KT
U"Ag;.1UK)iHw454f='^<E[FLXX0k+>m,&)-$Ae;/mTHS9,c,Pg\d=CF=$y8/aaQD
U",Hj_\?P]2u1sBrl#a_0t<mB\R(CnQ7YX<6:,/gADl:quTCTf%A)s>5-\_Hd#.=b
U"fL#dJ7/eZ&.,E2<;'I#\hoFv0LiU^)fh^HZ\oMG:ZncVw:mu'.3fAISS/a?qWNr
U">Abbdt-7UHtKBdOpX=I<0,n&en%6WbQl&7+F]\'\en9,4d;&T2apgQTAvr-pAS^
U"K<foLC2Fp((Dv+?]rA_oAY$9CJke?4*Ct#E(dfAOltmu,n)HWiaFl*-2l=awJpM
U"fO_9dbGmq+[\FdXA&h(]Ib=N:FK<$9G%5&s3/ki2S6[9Z]rBo71'al50[UCBTZS
U"V^nX:EimQ)f&)G,p9^?NaW[v26Mb\_iAdYL/s2?%EG#2)r-\E,h4>#63I4^W&;8
U"(/N/wb7t.2Mh$w<1XJ$WT4(3Jg:lJjb^(iU?:eg,ppl(9^>,1*K/byA..tF&o'>
U"FhvFQ<QB8Y62mH2?FN.OB*?bMTW4jOg,EC4O%&;0LJQHF4#^Oi;xuZb&d:;6.?v
U"G^rI8rZJ5g,&+e=amjO=,HcOL-.ANx6^L7-*eFmGA>_GY;XLA\8)<9FND5,2i9^
U"7rb_R28rJ9KzU2wxCLDc^-VaQjpht98+9GPv?_n&9FFCvv+v0Na+,^4L>omvFeO
U"a3Qi%D6wa9\a>PtcY.:;BmR55lqpWxQ/o$zIC'wMnSbQt8wz>p+^MUK,er(0h*-
U";7GN[4;tn9++*>ss$Rf5kh9?je*/MOk1AZb=wBmL3%I5awKfCJ6?%>uINK1HCt[
U"-l2&;b3h1FEhUqDt'Q[#NfM&2p[sDe*[(5(vvQ4If7)9NPWcf0*Et+HGcls&u%Z
U"/Fd=G$^u8uk'Zy2ng1he<#iSMh0LmA7-E_tsg3&*ICws0?]Oq06'Ra+W)/L3C^v
U"6'aJRmYn:'7M0^5\9sK5MXCl3AQ9jBL32t+P.r\*sot/TAi^WHq0_hRPxp$<Zak
U"EmbZkI;5#\UL)9v7G;.a^:SA+EStJsG5[FeI/p]i%;;QU/im%P0BgS,UT[[QY24
U";lVR3Gt(A'JM)U/K^'t:6Dp[(#+5/t\<brqC^ni^_D86c<r:]U<^bCgk0c67Vu9
U"2<\w$Da^SlaN3H'SGa3tM?5hGUfsFN8AA)uFe09)Cg7\pm%A\$YP6WLr]xw#u=]
U";W*]m$f/OU:^7F*LOB[aC=GJEA-OKKd(tvs(RHoCFR/EUp_?QmNR[tW1#&vA_q]
U"9Zd.1Fz936tgnOJS6L9QS>H1h,>,.Qx+>'[zN^reD?pDr=&Usb81q'-o)_'Bs2x
U"U8%?0(FWGN,Y7?JW><2_Xpb#V]e$wl9SKOGpns.,6[.C(+iB%O2E[nWiXK0A:xy
U";G/g?/Qn)K2'd&;HE95.1K+>)^BEv0k#grYd%*YhWhkpv#WI<NdaeVXZ/ZFi16=
U"O7$xWUKw;94tvqm(muQ)*wJySGHaB;7;(Y\/Mz\ZX0Y;$()):J98pbb;NutXZDc
U"K(Nv6yF9E(7(zZgwjI0%)E]6foW5M>m/M,vzK^nEwWK]NodHIq,-6[BYSz^FG7R
U"rh-8SW:<Em#A'2mSlk5lvX/VQe>z1gSje(D-9b4JX:IkO*GP/qa9pFCA^%7IOD:
U"T/D+D%[Y(1p>O%:S^8Fe((7;gtM.bvPpJvvF=29^*=GToI#6#_fnPm_+G_J6YF4
U"9J&/,pWc+Me0YX/sH,9]N1*uhN(=(XG6*>9Jj\7$ohaFL'N5zS;Akag.Wj3S&MA
U"HgYV3p2(9QhSk;61:AJUq_kqZ#3c4bTK2;S8i7)&w8KfH%4W$Yu#?Y-JbfIAm9D
U"A[yKvSerpbHOYD3v12m>fOptCyFf_WEo7j\g_[$Bu^kQrVQ>6^(6l\rsIcbnUuL
U"'##gRH#'Y4Z.qd/Wf=0P9v2VndmS$:o%Fdps^l?%)QeOM,=(CjP/uL0831LF3A)
U"Vz$9h]?Fym[6/)H$Ax39sv.Qglwx%0u,w39e68:>&HTwo;gie>AnW=EEt%#Y=ud
U"nnaGf$qYT*Yk;N.n'Zh#tdB_n26>yMYA3UDH6UCWl6C;4rq$%Hgt,JP]iiFaecY
U"xUYPS9(vL\zmz'[3,W33TFl/,f,/&k,6%&6Cn4Sjuv8rOu\wk&+\nP$euk<?WZ/
U"PEIzWBlA9_.\?&l[DNxa5]E7dfE>j$^eVU'S:bEN_&hQ'VB>J:YO9G#RB3cl]Ng
U"q+Du(Z'tX>rq:DJSTdMCDrYuLC7KNo2\%O2#r\%z?-w8QG(YA_\LvNN)I?:2w,z
U"CSDl<a9.>vgNPYnUd(-x,tTQUHv8ku_x%xmB8vz9PdvM,H&xTCKnJ4<i_*n8$R&
U"d]nvsBr?:=lj-1O.R/BVz_3-vs_P^r<V^C.z,DyucS\YOaERcouR=:2;'E(vgoT
U"C\_WDQX=CNie=vrGgh<Xy1/RJ%y3MQ8<\mlv#-m,/\ffPwTfl/E.nc[B9a/VEA,
U"N7p^$wgq47b[K^GO$F+THV0cN<n_lfq+y,Y%)r)>:l3Nzohk%x6QB(6k+l7d[+z
U"=#hU8>IXEnb\dP8#&.%gZW=D]b(a2Q'*El_W;7YzxD+.V<)iQaYM;YgKuHC#$rR
U"]lmj6A$3jD8re8Y2:IeAEkzEUr1kV37$<wq;Da+'r.+K<-$iqOMD\V\;C%p36-\
U"GY%'Hs9r2mF&,)Q%^k#07=AwMvaeBGdTM=.N_#mu;DiUIoJl'b.k%W%k#uqpJoY
U"Gs&(bohkdjr0%,QpLv1sRH-vLL;5WdARgFWMDC=hn(E2<aeV1K5Ou82LIDi&:B<
U"iH-Puo,k+nArGA71<$>M[qBh8MbuSE4u#W5+TG:4f3An87Xw'8)nWZv+<H[]44>
U"[UATUCn[M$xK\fGhE0Pb(OJ<>FbT'[eraT+0gwI?hr^dMfW_)7,KPSWmkaW9yq2
U"k6Pj9B&GPX+]Ox)e*w4gHrsOMrA&j%XTsS*QVF*/1[9rB5O7='$si,-2z5ec:<J
U"r=_RRIZF4s_.]0E#(Z6[-)O6;N[$qkUjqL3eZ-?jAE<rNj]my<((r14rR%xSN_1
U"c_VuY'osN?fw/4JnS/>-HY-iK'Biym_<K<_lj6^.wzd4/LC[,,orwSt\3\tLvna
U"-;Dd>l$j4:V%J\[C37?-am*FrHJhc4UXqL2eeh_Mxcwa=RX]TkgQG*Ah]1tR'7h
U"8w&O:$gkA2Z*tn%fgkA[HLri.vuF-nop%$H.(IoRXLVZ8n?Scjd41*qL,=m;::S
U"FaM)T7qmr%>\;3?i9LNU04z(&Yt7UyUq>&H+]XJJQA_MhkM1S4dB1U^77l6psOA
U"nUj&-/d>HLKJ:\fg4l_sOlI.(R*&V_'XN9FWga2\YT3f?vvohi;3f3regV6/h_X
U"z5,x(#b_&$G.&a:;*2ijfb+.Ba9F*KI>g=WFjGk[&OywE,dekD>R^OMuP1FUPO'
U"z\mzsDddB1Rg+k\U4I6n<20+&Q6OI;B'q\up%()9%%%%-%7mXWKL(Nm[%O/%%%W
U"#%%%1%%%%ljym(t&ug%SgfxMl'8B]Tm3v9'Ov,D[%zp,1Chw>V(Az$/rISM#;fr
U"khEKRny;R/4__pJONDi.T8%3HEaWL($N[h+,PP4e:\Og\/ZYHq[j9.Y0XNKARtd
U"VMc64a5H5q'/K2L,6]Qb^bIY#>/ElF/nN>bSVgYXo$o9g6A1URKSuZkD>1D2Guq
U"pSdBuFqg+9dBWr'w)6,5_FbzB/0+OiX(hN('$0uL>3HaKC%ag,V_G2C'dbp'sc_
U"x^90;YLL0a50)w0-dX.hE:v.ID\ho5q/NDA:]B1Nf]\GWXki&BR<g[5Fq']\1-'
U"\_BLmKNXT9O'w3G3u'Xnht_:g$^m8.Cg#tkGJ=L-lgdKmY5kQ]YZgZ1HJ8+F3eE
U"EPL=hcuhw?B27FzpC9X%l_Cn<pq3CPH72p%4W>_s*'?yQGB2q:tmt0i/b>Kz1Wc
U"h+-q5Ko'j8WpZYwi19rIL-%>bINj5dTAMd[LX=cG$5ZJ5FU1DqEEIDykRuawFH,
U"0u-F(cx-;;pW^qi^<zX]*Nkqk>,$r_xcV1>-,j7Vy'/0s)&S+*29Z#VduTp&01e
U"ST\q^:*)]$M^e/a]X3cKmDeuJsJN]r$f_Fi-kag8bsl_<K8-FFhf'xfgk:b(18c
U"+TRVsHAD;j\NT1H)5NacFN'luk=niDPJ32a#O;G62mB,cg^-o7SWIAW<AvHhW.M
U"?PHqZbd5Hm^'vrK\;ui7EZwh$G1&S7&'7<&9BSM0Lwv</0Zi?%$X;=aF=Y5A/N8
U"XLVT$CZgRSPmFzcH6-Dnm&$WQ$-/pt9ls[1v3AY;jlqToQhFvJX$b-,6D8fA7ZU
U"#0[Z2+Q6x#9wy;9j;g^#*C+=SP;D'_>\OB#iOe:^<_aiDO-gV-av<W>6-b+Ps[q
U"TfjWiB0-egLGxs$XJB6U:AAo,DEL3ZI;0&&ZrE)<%984lQ<L+r14gj>[1Cb;^\R
U"P6sfD5\4mmx*OYzx^)E>A7X1l8Tf,S)QsFFJY<IXtv:L6Lj6FlHzIuF?tja,qWw
U"tWMw1H1#,z4+cC5gt6-6_^;735jW>.QRY0/A_g.&gk1/435Ob9A][gQbmJ#VAgr
U">cV%bBRkQ%Sl.?zGl3J/S?5_A\M'bXz/#Hhu)8vAP_ZL]H)#Z%/[)nt]uDQLwWd
U"*tAF1>X%9rB:h\$Q>76_MJ\7OV7/xuDBF>iv.?jO*wTEL'Sk:gl?LtDP2,ONZ7R
U":*lOBQVr7V=X[''>i8[(>T1.b_er1b(r]fL&i%+#PZg]Mp?^jp?N*%,?tj\OY+C
U"3#74*l<[Uz?DYjxrlDjS?edAI>?YE-]yetv-fnPCtq[BsyEa[QxX'P^7'5i+iYi
U"K$niRfN_2ce6Ry.g>CEJ+[<q5:<.'K48ibe4;4.PXH:6:)6Bn5SY?:OP[jU4%iz
U">tTA;;f5<dW_#Csy9DBJ=1c&,W-N'Ptk+t1STLS\U;l&Hbpn<p4Dr?h9fbCGOeM
U"9Lg(A]MB9Gm'lGEer/a)Ibm*dJIAX^(Gy[5lM'tI^+8e7Hn\\*mt-hDA3yT&7Sj
U"EWLL:d+Y8w#4&IW)_V74BmW3i,A-*G+_XD+WhoF'&iEZ(+oM>VDc$U9oHiX.FFa
U"21xctBzuP'Lget0g,u?9'FI)h[sopva^Zp?kvM4Z=_F,]YvbXpV(UoBoLPAea0y
U"cb?]vH;vyX#JW-4iuWsJLiQX8rrlOsEW;FL##i5s=WD9o#CCWhMF;r%E,;7:_.h
U"c5o9B.G65005Pl.g;'-I,prA&CPO$BcpN]pQaMp[3k5fVxno)D#LpS6VPqKAEL5
U"kuot1[9/j2/ru;r+YC:NZ]lvf&Xy0<X6]_jqBDp>?C7tVy1,*kpx$Jb)pn(83Er
U"g:2oAzC7RMfgVD4NS5-^=dNWH$tSlGBjt_lf4B%,E1CAxxYqd_BBaG\.dSYp[3M
U"P.PEhx=(siE6kCw4)Fl/VhCXXfP;NxI078-=U5lM+P^m2$.bqwFSkan6iIjU<W>
U"Ig/Lu.WPe\V_U(]^R7s1n6.Xc-.GCXgLXD+T]ykoJW&)&/kQ6OO;bI2KNysC43R
U";]A:Sf#N:<_-,%4icQIcGe_W.nb\INGS<+YGwVcq_3G?50?RNh_(#CxNLQ;,az*
U"KO?DPyIqMuSv$S=Nks7cqg?Nu.jqxq(rF?bjJdw?GHBh4K7dj)IM_KNIvqeroxg
U"bAYk,z21gjZ(XBD3%oZ#a7?6fvAzj4Km[?jB8wlh%V^rfa*eI,Jt=Pf5ffDK\p?
U"<]RUjPm6rMKkV^eJISm,F70Kbh#g3JbdrseHLKES#an=MCx>?aw:MVzy/&PvDit
U"RQy5NZX>a&&)H(-#zCoBMYtMw/m(ZM1$tBnH;cDwQ0'F;^4ls02K#JsW#u?sb/r
U"h:[27G2<VS13eVk*R+'GI==-,dqhi/t'P]xmu.3s*:PmDGwRfLX)F(?Bb/Fierj
U"cYvHl0hpHYv\bv0j27*$sJ%guGScu5K\%X*JzqYL;9$\*scv>Ol,ms\+u#F$4/h
U"G6Q(As^WubeY&Lm:?#^FR#S5$v,qixn\2X.eoG'&KJc1ehp1WwrO^IDQ<n1($u/
U"_qgP,Rrfs,n<SqH7HNdj5\5s(hf)8vtAt.]7(fWMt<'V<l3RKcKR^-EO6R$Jpbe
U"kF3eT9PT'\HeQ1Pr=f2NkFiJHu,6W9PK0XAtDfYQ:(ca<J5WGh3N7&]bEH#YU1R
U"7MB+N1DP-6<-QW)&2]_B^(=xdJ3fTl<qI/ZhYCqQf2R43pJA_-2lk2F4Q2BF712
U"ELrdHhkGF$mIMh[F;cmRbl4R=l5\8[Xit^uQGJ?s$/:&Q+9%:m:,4D#6dwN;E9g
U";LrTFMWY5&gP3CfgRYf3[e2_%ed^y5B=Wn2j,0VDmYC(xiY\2C#&QxoM\.dr'o#
U"U2r5<u&#EWlhzeD/.#4\h81Z>a7BqABpt*-<SFdKDYHq&ngTqeFMJZ2d\<2mO#m
U"E,#dm3wMNh(Z&<L2mYz7\,p__B#zU+FJb8M5LUxwc#3mZ2[)u0aCu,%)2KuBVG6
U"+ud;',>/G/b32HueC^kR5$Xz5J^ZY2&1YGu$31oCN=uxu$iX00ePrSm+Q;JdL\t
U">qIrrh>Zp>jb]?fq/aCBGV#+q+bk$#ebPBsP+OG[TSQb[DSnPl00F_OKuaA0/>J
U"0tLQr6rbjK:ERl\$HiFJ,PP:DCm):Y(Om%]#;+8d$L&rXUD\Z84kpH/8hqv'LDz
U"yYlaZaswUvu_YEHkkj=23eA^&,-(].F$aU15GcBnhQPL/LP)+^7QDl]lZbd*]LT
U"O>Q]2o4(T^t6P:8e59nFDNL;?Hr:RC)^<wl2H^U-Q#,lAQm=EJ0/X3RmABKu'x(
U"up%()9%%%%-%;h1TKd]-L6%K/%%%>A%%%1%%%%ljym(t&vg%SgfxN6(<>][m7wP
U"]=NwB\G*EPk%<-.gWbmAS]>=a>A',*,JDsD9o8I;1;G[On1.NOzN<2p(bFcGs,7
U"1Z3d^xkygyc-GjO/RDH*+=/Y$'ug5B$lZ0.(Ft($2MOyBMb10sGrH:^K.V9n00q
U"GmI7aiZ7oc[%M5zm2mm;7'#GlXaGOu7SMY>YvIkL[mWHp3EQj^=Zi+JW<+tO\EE
U"2;B$-7uV=nF=B^S%&tRigYnzqZb-ANa-S)B7>6EgLd[1G+v74x+.*qu)eo4>mn5
U"qTAOiR4b[i3Z=7j%_TVIkwYEb/o4//<$>]fQuDR?[*Dr7:3i9F_b,6+ep5eaz]?
U"L%&10;)5G^E'0m2\^e/)S#mkXQx6eLfqSnQb:nfDTiR/^O1ZLP5x),,zRx2t2Pd
U"[E5'LAsB^Uk#4V0vBirn.Rw57;R-viSB9g=l,EOtWJ)GoV[U''6g7Xa:Uqqpa#*
U"Qn<B0dSft=5TWJ/'lbPNkJNJ?,LKNdLPd%T'^z9Bv.vu,ApqE0+?F(lm\%K#Rf-
U"8L:AHE1SoMS8yCtCRvxrV8gs:;x#\-C7_Um_Aka.)zxDH[N(rfbuMa^rQHc3Duu
U"j4A3\w9JmGWH1#g)*JX11d;;oSsVxHC8AepTN$<fnhAZ\Ofr7Lgn+bv*c4&GK%T
U"$'7H2Rj2&iDDk)b6jz>#W7x.';W1yR7kaf#]6vQ,qc['<WsXu$:z1_jYgm\r1M#
U"J/$\m1glm-WW-,CtcTZ-7H\%2b7FUP.>7*^7u9AdUa5no6uKPt*(\POO:h[XRk7
U"c7ZXIs]G^NmyiBA0z>t:[aopk,-'?c1='pdPL+Jof[6.;]\a'LqjXM-0wv7hP^%
U"GbOkku^K9tnL'XDttw)TVhGY);O01DL66TE,AVsjP1]%$h[4o09J[hQKNAa?+*Z
U"(t0=X)4Sv=%&u+b+aC4Y0i4>%fx(>t7;;0sw8p+XivL2HuU95vqgZ5e,\X;-JQ[
U"[d;m^QriFRmq2Cd\AN6YU'i6_:.I+I8j1rPFC:.=*+09t^+cH8fMJf)TF99,\JW
U"O\9Lz;k=*1miTe^p:C[6$Oin*6SSTNkju4UkSCKOJfGGqt3B7V-2L\0f:-h1Q.3
U"r[sc2MBo\VH]DX';2daA<n:KQqHcUwzBTPQeSz:A'qiE:/6H[nGV-:IOJwC=(+4
U"PICVdP^?O^suBBI5pb]l6vW/PHj,gP]iI\5TL'ri15Z]'cGvGJQt<J>\/i'fYhd
U"Wo+Xs(_>2q4hspO$]nK.vZ2<dQ'CU.Tfd#o)\9tsP$\yW*H+u9A0[QhgrS#]o'_
U"_#G[/3\u-<8$PStEKtO4Qf<o&)N(c8>F'9pMFJhNG9gfI*$E8)E;Os>vofGlG&^
U"%c7^H#$N+K3>,A;p'Djl$7sGCCY)^:t/Q'wI;T#%M8Bs^qr%22N#k/;0\ce:nN+
U"4we^OF1..('ZPhTsC?EV-45NZ+u(^iBHAsD%:[<3qAMQCGcN<VE/'mySw?rj6$.
U"S^Kfxklfe[;zKE;kR,dfM_;Vf\xKiITNT6jVryokQ>S9HHbT:4Nmk#I9FI3Itav
U"nP2tm4g9H0YL(AcMs:5zjG;I%qcW2D2\fRgY2J[3U*4w$ty.FC)IiBr74QFs8=h
U"#EuZ))&*\V(?((c#8bgK)7Xy&RUnyWig$h/3f=U7l8bDT;Z7#7>hN_9.R<]fj\/
U"x^%x;Je166iMwmt=>SvijYrN9na*.Y?4;vT$'1AEY,ZQ(o,K71C]J':9Oj't]M&
U"A5P,gHH>'#u2DgC1hM.Qhl\T'l2gr/[gjLxHfdV^8CveLng2(Zhomb-MqhUM,JA
U"o;5.m'^w+nQOiiC,L$rsp]V8b&k[P_2NvB/I*ZVqCurx1Xjn^CcHU0So-vqkR+M
U"#51y]B%P%u2+.^eJJ0xBo[TUs5h,]]PZApGv0d%G*Pj=j34U:K2.HSKrLoGNaug
U"Tvov5,%,FIC7xbGs\IZGk0yO)?f$eQlwp-Ns3ya&'$Wco)m'0khUkA,w>g$7^ja
U"r2'D*Zc6gyEW\%_Tnk[Sc;CwS^Ouflm]oV1nhauU:<m]).9PQif76?-Q(bpszCE
U"qr0,0]VUNW1ji9l'K0rgmmCR^%^e-[xQvE<eqf+m*ILRN_($ef;1.TKbgmLhLUi
U")lA:^WZ(Bf*EUAGGyCGN_'Ml*[9nckgd-VhUPTT4VGKrvcHN:rRJ[V6;5UOn&V/
U"?o1P4R4gS+yaEIesB*d5EZoYh??\T6eicr-g(ATXzl[k%Cjit-P]I(suOWTHqXq
U"TN$KVx(.f*_A[zJPC0,Hqj&KdA$q:fmYs.n6z8g893fbn%SKC-uJY12U(<PHroU
U"jgXmXK?hhi_*sKC+dw$MP0$OD4^$jsn7uJ4:tloU/R*R4EdwA#cYEF[eLITj:aM
U"wtf,H/KB:$NU)EGI=-$,$r3N^\#q;2J)PVSZC%Gq<7$qV+,TP926S3%FZh_.U\I
U"ZIgt[^k:+sou%GW?C&vT*fhx]^x:HRMu14ZLNDq4Rtw'wFB$r%\oXS9?aL'\N64
U"2z;v$Px#q#'T[LylW]Cinj$[=d.IAychF8<_enBWZc^/%M)Ns9<9ne[ZLtv%PH#
U"S3sBFl)(F+OlJkGS/[D=q&3co3dZu$+iBSp0j9Zf4>LNY1Gl6QbK>(<I9Ms&ysH
U"\Z[1&i/tjq^V.$70,jb_*H&WqvsR7-R<WaQ;.Y24Hfn):F8Y_hj:Iz4rOyT;g;&
U"LbwVS,XRuf/c4c9VXtuvAd5BB4G>Kv>A>KM>Jx]aQ+&4D#O6?0e/&ESy$V]iZ4s
U"(Xl_)egb'(L8nZAub&ZSi?RIOh<nvL3uij\H_/0,3N=z<-Ep<^R3w#Gk0g*Frvx
U"vW6T?+0Z#04sCL),Pa^vU>m$ofTjt2sJe-u-KM'IR.f5d]Y'L:yOIN7OT[oM^p=
U"+aaHkb+J0rb?plWawcm$NC/5I#sU/*%v:^'r_?uH'OJbLz#lsL'<jV=0.x7[kt]
U"s$1&\T33;qk(rB'SKu0y<AKvZCSks7iL-C,4d:Kz+2uYmkSRuGj9kSXHiHxsL?W
U"h6.r:L0u,z8Kd,DD&vo4OL6i0DI2=y51icpX1Zrd/Kd$llMPK([jkuWwkiA+bPB
U"sn,JgdtT0bs4P/wh?G>wC>?rxcXEv#--pA\7q.[G$:JkE6EF2O8RpkJS;*w[c9k
U"WS2*=LH80]JURTbPuTuQe6fm:B3*TQtba5vXYmvk_SiKkXD7JdDwU#<Am/C;536
U"/rrYR.:s-tGds%:)$H$8b3Q2iD=)/\<^rDrZF#?dtXZh<_v:)+38]NG>TGEMsF8
U"YQ]1el3Fm*slV+*EbT,RK*x.up%()9%%%%-%3hO^K,:iQc&3)%%*Er%%%1%%%%l
U"jyu%nhug%SunhEfkd>]\[=?HX4P=.Ma3MC5q-IH9^0G[/Y-vTlF3C$Ksn,*YP-3
U"r1^K&)JF*Rp]8G]i:<OG7C/-hZcm.3'tiCn&,eCQOgH^o4.s$C(a/9pnKT7x$7$
U"i8uxug^&J'%%#%cD>+[XZ6rf-uj$i*q8rP4N?ZmtkfV.Num%%%%%%%%%%U%?]E0
U"<TQMPr7FWHvD*^m$C(mjNuC8/qd.Ak<a75Z]*Z#SptZvBjxfvXD:B>eDU'nGMS9
U"Mg?qa-*Gc9I2t_:njPgQSmZbkQ'iYDsrZ6sN&YovN[fo.>/b*F[pM8B\RHRC9g]
U"Tnb>&gQTfT.9Q](Qmkd#LRP1a<VxrqL]PleviW6(AwR)ipf0?8$qRlYp+8HZ$fp
U"ZQhiHk?<rs-YPr*ou1k8jIB+Bbkhl2fUoy2]XwRbJYlme*n//dX#>qJ9/hY,f8M
U"MTQjp;V'94%%%%%Ef0727Nus>_g-V)b>uF(3vuEln2=p.tB5^-^cuNwlikD89tU
U"x)s0rQmgm]_z#0;nH7c_Fw38r\$oJYrSu7r8ygg/&RETQbfo,ddb7fXt(3#$s,#
U"$NdBf9-p4cAJ8DLycFh*(Yy4XH9N+d<YLv7oo(+fkobD&v9fz0sT8p\KbLgwf2M
U"fVH$frt.?r6[zbDp,(Z3:s0Qv)M'ad%DgN8GMhl=s0xs6/x9fw\;x,Zs0%%%%%%
END SUB
SUB V2
U"%%%%%$96KLniUS1cC<*TMWZ'MkX^z-MunnLtQC/D5L74Q?8=kN6&&[[Z'oXcsb5
U"=jIp]nHN>]zcT&Dr:Q-RrYi]f'7PJ&h6V[zuTE+tOdD'ymM=XE0P>ZR_0E7m^.L
U"x5vK>btvrjGX1/crm$/tH?1CWr=on#T\Oaq.1rmLLk*rM\zcfk&+cr$N<I8c=kj
U"\X87dMM%um>jfL5cQrwt84XnK%nOXNxA]t]hbDgx4]xUT'n.wrmgof(r:?&F$S*
U")8s6kbdS;4lty^X.)8F)l.2WxvHL4O&4CTNT*KqIt?%3U[zy4Pfq3ioj*7>APG^
U"Y.in+pY)7BcvwGXYslbd=S,kZf'wp-PK:MXH^LP,;hDgxS8Pdw;MX^([%%%9j^c
U"Nt:LjE^oszTlZ?5uy:x4DcoszTlug5uM5x+4Divy<8#Z\d#?QRRll8CMn5)CDiu
U"8=kV\nOXo6J(Ab5v&dO=HsFSt.2TFp].in'U;rXTA<eVYK,C&elO*olJ(%t>KS$
U"pi).1rf+x4DFcszM2mc*Nj,rQvj7DV8A*$X)SDArmiFYuF-Ml&%fGk.lqAD8ScV
U"H\s7bbQTi*KLFZDNv9?xhLGi'.1rh%,<DlNv908nVk*ftJe(uXl23Y.fu%_qdVv
U"kaDFhWbM.z0$yqBo3+tF^R.NSZV%lxl)dhlRZVv_;>5rOjtpzV-v5Yd8.'v7uDP
U"P5t+V(o?n.5ClWXQv+7D,%#%%%_:=.x4%up()%9%%%#-%KO&^K1e5H2M)R%%Dr%
U"%%1%%%%lj%yunh%vgSuRnhfk<*=d[C9Ut>/Z1Tv&3-u3m+/]7DOveR-Joci/fsi
U"]&8[a5(kOcggDp*pKgW)??KeBh/)(lbd9mVM^SLHr/)9Hy&VoT.'xDf8o#lwiY.
U"VQeSX]xKTjHJ>sdV8r&P%%%qO&\lqnNrgKT&L&<+wC&qLnu7*rDmDtLniF&oc%%
U"%%%%%#%%E#7;4_k:54ma'XH3\WP5VhbDUSZt:tk$*#Zkhh\G1OQK%rEg..Zh8B_
U"w<UALl)pUNo.Ooq)WagJ_L(o_wgo&:FFm9y&b6B%tNDvvJK3/>un\Yg0KD)7x['
U"EY'na8,cJ.m;vJbK/tg8[TT.^O\t_,sEBlE:dNzTL77]o(aqC26.mvMdfvQO/7B
U"KsHqGnbl7C]uSqcPnR$,cX47ptkOH1s\vGZNV99W^Mu9z7P5_Q55Y?5ZMtklcui
U"2At*hBB'gDKRqu/vp2(3P4%%%%%%-IP&H[rD\rr'Z^vrW[^6Y>^3=P.L<]ueO7'
U"EX6D8O#U,fWh?(Nrk,P(uKK4vPA8sFW7dbe2=.ByqB30oeC>nfo*2G'rL6gnTHJ
U"TDurWIT<v5x,iVI%'utYmVHOVrLY30oDlv7*dNA\4?DF,cku8)lp>x2Pdp\;P^r
U"t[7UXdgxqX#HCD90sXrWVL%^ueO7'3XF2B$r7>U_,f4$a4$4$=4$hwTHDWN>#vk
U"VBHDcNqSLw9u$X9H68QN.'l&%%%%%%%[%%%mSMD;Kb*Ldr>=oZ#?-<rCuSGQlA4
U"yUbfh;5Qs)tkoeFS1H7\LFqr7zF)F.oJeNHK^XVhKPd+TQ\<\doOXMYhKFA4k\.
U"bo(5Ncb8?r-GmnvYlwRUuqlb1AmDK.DXK<c$(/KX)D,D)rtsvsU7F7T?2'jt?7d
U"3cj2oxb?emvR*oK%%m%%qxV8E6KXPXf-gD+i(uRnk&PK0JLVI875uPD0kZVg$rl
U"DlXshblJ^Z4(YjN&d)v_b>zhlSq%7-TVD/]ozX&=Jk6a>nUf7oC<ulXamlrcCD7
U"rdSK.,ld^*r?'dsErI&^&rPfQljZ4-7tdh3'It(L9\zygrDq2i#U8J7YT[KoK3l
U"pT<Ae4%?Z?wX0hWI3GYid7Q_>kw7u[14NNe?D:E':XO3(DT5\JcrFQgO07P6FD<
U"F+iJgc(r.NrGid3ol*qO_9iw7NN#FurRpbOb+PKQ=\L&LjBklb>b4O:YMerq;JM
U"]J$k,u7u[14NNe?D:$':8e$DDwrZ+\g%u,<N&c2'r)2>z5N'^(%%s%9#Six:U)L
U"kNF?Mno:rj6PX]gP)rvHqedCM<QLQLKVKbsikbOhg*r8J:XO>,A5nSbnv8TuX^l
U"6W9f&n3M)4tL_\KzcO)DJcX..o7.^JwnZ.k6a]Xs_lB]ZgWr0kdRWh7ohKr3ku.
U"X*fOlmF<_QLgWgB-.gs7BP7N;('r$8:8eYjC*aJ9_-se$T)'gM=1H5VXr1N\>Yj
U"-Ql&%?9dkT%up()%/%%%7%%Qrn\KI?(H$A%%%%A%%%%/%%%%qn%sjug%Sunh0vG
U"K%%%9%C%%&%&9w(uC#Caa5Y5EEy&zzy?%up()%/%%%7%%%]n\K^,%uH#%%%%#%%
U"%%/%%%%qn%sjvg%Sunh6vfn%%%9%C#%&%yAzzy5>5EEC%Caa&9w(uu%p()9%%%%
U"-d%KJVUKX&Y%-Z+%%%18%%%1%%%%rfp%jknq%jSgfOxF&:,BS]9cvg>xbV4SLBY
U")w*j5koG1qbtrN/<mCF$tv/L&9;Z]SKYv$nJJrd.IjE;C6PhnQRV#j^p4*:Z^>Y
U")u0mfn,liruV#:tfltRV;bF0%7rgSsN(LG7bj?;MLTctFO1KtOPbTFNg3KginOJ
U")]'bqQw]qU=/S8ALVV3bg&_cQP*&3V__(d,<&S_US&sLggNKrN[8C)X-(9ChmVJ
U"1Ur$#DUD7['97oPL:qcKLePG];?N%-6Qk+us32YT\$t8?QP89QonZ/$\6^\K\>[
U"7H;#?HORKC$f+j+ZBn,BZO6+2gFdLU\2#O.V\I6Fx\XNkiW*8q;E;r97<tv34Aq
U"N)G0#hg,LY1\5u#?#hC2>aZ3jpZt0B]5Qg'fg?Tk\i/PGwH?e2?.HM_dMO*0O$$
U"3Y1C,4<8>v%-<n/[86H0A_LQu)rOfM(Gm/)Z*^ZD2K[+HLD3hXg-y;LU>R%w^F-
U"iA?\kD52-nDsrp*YgFF0=#2k.+Zr^i%dNjCD0l-+oePrrU6M,l'usF\e[ah.e,A
U"4wSb);hte6reDI-1AY%U/R1;/,pb%UZrPTav6fC,\UQhiwKq+IJ'[e*dgkE0?Y4
U"eS)=hHY[B+UR=3Nl2(B]j&cwCJ[Osa;^UVY^%=hV&jCK8O-8IF3-Er4;1I%=/(\
U"K+r>nXli<^3m%[,[u=:fI2YlEqC/Gjd9yGnbB^kuCx=#&XkLR;LdQNh$XWO==1h
U"J*itg*by=V^*;#3.=]fAs]3kSgHme/i-$dVd:P9p%2AmXVWLm_*+y&>E.hek%OI
U"5VB_Lo?S*vnoJZ4hihU(\^%_PZ\<]oM?6+14Mdye4u6O03=Az[p;OF62aI3rd/:
U"Ui9b72;%uiNUICZi7Ez$+v''3qfuUC5am&%'3kQ;,Ic6^gPNVTdz;PlG-.N5fB'
U"^%fDluoL%HcIPhTym)vLRLll5ulNGst;e\Bu<s/nXiV+y&+ie\Jho)ic9uZp(H^
U"o5G,qCJ6-a,%E>BWdo\XW5>E_pQWndgQ]<:DI%61'CFpPqg;RzJkWd0yys5w2ag
U"0Cz(-#MS$u\lJu4JvVRr?KocjBo_R?7OD0h$i.4xln3GLHKY[p+]\Nu*124/pe'
U"/&<'ANu,z.c:*B1IZjd+VeHV*cW+SdrRt*cJOOP;_&i(5\*gs'YWmZ12Q]Q]e%K
U"7CuLRp4,Iewo4H?ctX#?k(3TVXBHT.ymOPFv'MfT0$cT8VgF]lk0,+b>TZ.bWve
U"QJ%VxZ>o9&-RZ$n95nJJ^d4INGKD-_-mJt^)\.Hqw=z;(D[JqmP6Wb_l.]dhC+k
U"#XzU;+8$R7?+dpf-Z?Wg(uo3=2$w?NDr$RgeEv-,m**Q&WVz'>P4Xl+Li'h:jU7
U"o,b+P%V2BJpG,fBuP+S]i/VhIS+XrmHf2Ba=be\h^TN])$6-\4jd=\UhP2JrsW3
U"FPq([b+,A8_$P=g'=,5X_<7>?4),rsU$7Tbp_\%,PEOr6R&3DE2quD%'H.)V6v,
U"E9vO;1$G<nxa87pwcm9>N^/WUsL.'1N*L5PyNx+)HMdo]baWSKK\<X<]eq)Gf]Q
U"fkb*M[jPG<xWY$m;gRdnFqcKG&Gcg<7H7BaX_Sx]5RMzNCV$\bA_m$SkYC3ANP_
U"'KiN%6[JS]YOx;g9A3X12X7ke_)g=3Xg_?&'ld<EIG)Jyyy3oM=DaNATe:$hc)n
U"LozBgo2QB&(h;YBSJL4B\Z$wUYDeF4i1pcU4l?xcCC^CY6_XG=fih^eRY$=HMB/
U">be<:Jnhz$^LOjEiMrQeLO\68mQ6M4vVSMZl,7l[hM=5MHK[m0*__8+<A8c6$Gb
U"<g^&Ob#=4j'&H;$Kv$]M8)3\rOe_nXQ9]&F%W-bsjwgSWR>&h7vowCdcW\LOt0u
U"#)JIX=q+OlUXD]r8EUQF\?gm2YA-i6^Gu4PG0M0+QQ[*ITFPV<^?-NDY&5aj,4l
U"+%ZQClZ^bR8?i'o=QPK#-O1s2v,voDuO4J+$NngTnmVgYi3XGUZ>a$x?^5ASQSu
U"A#X=MH22U\'8&up%()9%%%%-%;h1TK<]ALz%U(%%&b,%%%0%%%%rfpj.yw(S#gf
U"xtgy:>T7[9vsYOxZ%L-%HbObD]l^]:'q0:I-BLn$d5BV\ka7RG*A^mA8xNt,aa]
U"D*RIf&Y/i=cG2T6c7NSQ/dQ>Jo^6?XXwAq3iB6Wb-O_4NP:FV6fJwjNBJGB+59D
U"xbw+9=>U(L7+5U3KDl/cTM<ps*aR&uUedG.<VZw+>M?Pq8IwgsN+<Ba_6aDFzo3
U"PE1kNkGtF%pGLIopCGfBik:#(Tj+=$US$R6d/_:%RlaVP/taI;osS5ab1niB[,G
U"o6-?fl8NLZP,:Qa(i;Ep;H14SQO5kUq[HYo1MHH,T$5F>n'mBvrnK:-%%D%R38P
U"J+QpEj04[$GS(S/JUieE&:%[,XfQ,G1f52w'OWuAVn8m]Y3(MX01FYp'*rc3\\r
U"n*><:#T[l3srBPhg'c%T=xcqEiDCw[9PuM?<7EFSv)YO4h.DP\$%KoQ/:u'qZ'N
U">NvVRLHQA\q]W,J(54>Z//RB^u;_s$U^=DNR7\+p):*<a2>UamQY-j'KoTu\*6T
U"atR;J<R#;ex8ej(+-sdF-XOQ?A>GPI)['4%vpQY'4DNeT+'ERb+/?k9K%T:;7c4
U"mA:%^(m.,KhfcGe'(-)J:?p<=K)_iJj%3,=-v(SKoTAt0Wiv\WqPJcA^qRu78.0
U"'j[*ACLu6sEC?-Kf+V$rsY1j<-9GK(cRWBAuXbPmT:Ksh^iJaPNH(\Pqy?Aj6E(
U"dLQo_m-8j'^y3)n6lBEa,vFN0s#N+>viZgn]3YYV+.M?+;7DEjt+$h7(zc6uuS1
U"u=3#A_N8PVa/Nnnj&;ptAIe0:3EJ^qw1fyd%LpETP^c\h5TQ,K=40rCL\D,Bbm7
U"iZ8&+Aq5%Xp[,ky3hX1#k+1Sgi#Im$5.&ocrMv9jjMi/XWmd\eOi*WDB2SezqcF
U"47cKH;\A4Pf[y5kqDtvuJpi&C4K#zX_nJDRB$H^B<D9k+\(]l8sH6^g/qH*sUU3
U"J,ZaBnl9i]Z::lmR]m?hP:QXZM1<U,P9(+uUW;S-X9:qQ7n]I\.s=K:*n)?;711
U"qQPn#UU.U,YYDu%p()9%%%%-a%?XW%K6W%&6.)%%%%0%%%1%%%%rti.nk(u%gSg
U"fOx.%<,>T[5rw=9xcZc+)Q]A]sf2faOa>e[VO_%WZS5#o$Me7hX%i/9z?#tn$^w
U"cRD6CI0=hP'[g?gZ6b.l2BNR7n+[_O(\iZrw<v)^NS<>b>uPr7?;b$QNX7r7Et6
U"sF-P[?Ptr,#u#/:newqbrg0rb<vf>)_N01T^2Z[9L/'Kl$xM<<)exr<KC<v3<Jb
U"4GU*ZI[fi=e8Ib='e_$Ss35[_:jFJc54C9<A_VXg&FfVSD:pM#IVVV]3bDE;r0R
U"<ufD_;l[JC?BF(';]nF17x_*$%7O/G)K*BGc;;_3,dQLZ'>J(LFtqtoU#X9%TI7
U"PWqRJc7;M(wcs\f7^9*O*K+_UMgTu:?U:_j.;5nk)=wU*1:[c=s:5/J<8xEjlZE
U"9R;iIC=IrhLO2N/q5I#uyia[w3fQih<.Fj9Dw=]VkLKlul=toca1RRwCpJmGlF<
U"+V);7F=HpC<%OPf98,?BjOH5_]n>__?6O7j/xMwv7V[,eSfXQ*O]El$(GAW;\n^
U";;V2-Yq:NvH/Y'8pk6,$hvr7AHFHlSBTS>STDp>%.I3cONY+R)SV;e?0,L-KZOe
U"H$T)a%4+9&UJ#q30OaPVe%QhkWZ9_H<b?5-]B_5W,>%/tzMo?8d3Q);qNGV0wyW
U"AA2p>v^0u/l/MYT<iO_fRkYCy(D/T+_u\8?5FkRNYmUZY>-NDMP*&I'UGfkStO>
U"^yUEJ9<0R,%\Y+KqIwAaBu:nTf>R7QaP.+A.F$(BxR6m5-(Yo%\3J#?FZ_^k00>
U"G_xIuoMaXdeSZ?oo)<LGHM_iqR$+%q$RajpAaJ3U+[O2B'LZ9Y)hLH7[DsRo>D#
U"'Y[h?ajduN&kb'B'm2JHxAfX0LP*,ATT5wKl6%6jFe[6OnEWno]5\7W?<cYf&x5
U"otR<lM]4utXgGWBV3+e'5:)k'sXxeL%tiRofNU=/L$g1-s62xU?8H7tL6EwHds,
U"[6TT*U()y+z=Z>4K3HY#G>FnaV^?V^P]O-Zl./onErmK6P?:YW3Gj3.iN$&qr]d
U"ihR?P#P:GglCz$25K#L6mH2X#Em.&prOH.$1vR^<q2ZXnVHQ&j/Zr/<YP<s)$G\
U"e7_5g>wVd?<'ocuiV+7CBC?FpVgR9:qjHNR#[Nht)bpF/#J>t/IRj5vE6-[$.l[
U"vH#LtnC>S;1R[/ebZZfg*Hk,Q,qB8ZBuu3[djV6R_K$Gqq=7TvWoC#[d+]&M#Mr
U"%>c.pnNb4J-J>$cwK0<ti+X<3r99*lw808/=ccr?Y^Nr8NYKD8#\3_c>w0;*x]4
U"-cd>(ZCtT^.DekXmLq)=hIc6t[_wme?*m>up%()9%%%%-%9lZWKJ?<Ic%<)%%'Y
U"/%%%1%%%%rtin(k(vg%SgfxN.%<B]Sk5wT'>vV^24+Zd'ky\<*l=B1&Vr+gHQc1
U"Hg0(l*Z;FVnaMZXYFhmQ(Ibq_ql9?OhpLm$PEpE&M9<r?X:JFUkQ5=YfWC(\l#H
U"RWW9CiPh5+Ctt>4PP/<z8fBv?q;SB)Bi9:8p>KU6F5126RC$wVSe<PK2+=C<9V]
U"874o1a(nw2hTJ;EZEmqSP,T,RGJrU<''h9E:Ko'/S=i'0,=/8YIub?*SlxW:nG=
U";S0H/&2^z;aRJI5mqL#:D2ke$o8I=j:^4w4D0I4r=a;E4pE;AouPa7a_W/^;/-N
U"GYiFkaS0$4wEW09DC>4SYPXPn>7.$IgTZrprv,Z/\DfT/q+yPwCW[E&x05TpT2m
U"Oqh/QaPdCOh[Ii'$\#4uM_I2[B8.DoUvE'paOpGP5T*kE7Y_<^7FxI2=zR8fW4:
U"VbE2yaK]-KIv+&h&R38QM((43_wL:JUSNK]2J+3OyI<NCY<A,zeIT?G*nmYYJDp
U"3iILQZ=EW%i.?l8S3'2SIfLGd#DiG=u40k[rRxcj%hOW^kPNr9L*'O?X/u#R'J^
U"yt\wBNnD#G9hGJ(]E4dC]ai\Dl&2aM4cHmu[-dvg%$L(vAEqV7N3F&:a7%#7q2,
U":ao;2%Z/?^sng;8<apu/6#xf_V.qM(x+XbW,M]72x%OO8Tm0\?c4QJOL#=C$R0G
U"kL.QVk5:q-$S/Fib*uNRH2AF0(wtua#lltXmQI+Gg\rWqk;<Q]ewGP$8/yraamQ
U"/h:YYa&&'kw:cXTELH9i384I(CP[W^6nJO+x)$_ZM0Ioa4$+XZtSRGl:z2OKHDD
U"Y3z3>]3$GZFN%=;8Scw=Pf3>G.S6.88G'SDWiC$7V]]3Q^7iBD+7^s%T/[Bju#M
U"bX-MElJ&vhU_yWcK]sBUs9fs7<RSA[Y0[=iS1&,'6I^<Bp9*0]Ul^ER?-4Kcl*q
U">BvD(8p*oLt]*O.h>p-JA#_a8;hqfA8oif;31Y3O6CjBvBYId2z(l=)J^k.<Tn4
U"ZxnsP??ffR3Amys6s^i+RP^Zk&h^Irr&MQfNLR:/XrFr2Fc2Iq.YT:-=h-%hBAL
U"U37of7o,?VNKnmQ^+hjxp[FRI]NV+LhP-Ui^D5Y+.oPIkF%SkW3'%uwwV%nTOSV
U"s8B)RF1]02ex(](_UH_LyJeb/u0+qE:I/B%/_R=Slq6h.dTav_Hm4eP;n+M^,3P
U"\)Nz>qB:gAG*&)iD5>rA8eId9\m1vc[H\T8<h\qbDQ9P\K#N_^T9M#r7TFkJO=d
U"P#hqJQ$&6px<l^dT6)u9d:p-(hZYlK=VTA\]Uvrq5ax]uLhgJ^pRf_'I7f)QO,P
U"%VhIg+zw&u%p()9%%%%-d%4+VUKagq)W],%%%x8%%%/%%#%yw(%tzyS#gfxt_'*
U"x\I_7MvtYxId%hR[)g+6OZ/AW*Fj=A=)JB7B5TR\>%nW/TC]sgKxPMNakfAn5_a
U"y&0C;EztxtzhGZ4a$>^[nx'ki3P?mO?5SvGFVVO$VEtGmSt'(>lv6hlj0g*&7+8
U"w')mV4WrQ_QH.X(if:DE>_qFl7C0=wdl-Cp75=YnIo[8q?e7gZvZ6v6JWhphVTI
U"br^SKCq^[U5tv)6gv7cT'P/o64op1%IRV]W'D5]JM=:A25+_'jnfc*acJ9[<,f(
U"U#II=If#.V=H=/gD)cQJ%([*'YF\gn&-1M&46B/g80k+]/pV_go%<m8+:FokO7B
U"B9=>1$rA+TP843^[g%kw/0P%GOM1T8%UPm:\DPZ5LNTq7;,9;nuEfi3_/_MR35l
U"m32h<9-LA+NoEIZ#ZAoc09_..AF#2<Zb$HF<9X^3RCX]&et<LR;A<wHxq9iSOR1
U"_kgW/e/<ppmmxbH8+<t#[q.jn;7]ckp#T.H'90+?Rt'[mK8(hH\attEu8u1KB<<
U">'w[Kf$4^gffi5/4]G:O+MuokDQ'BT77IL:#g'\BF190N]:bi>XgO?.?+>b)'$g
U"uRHvtp(*<0P_HDk/ixlqflPqhBv$)u+ZvSU6]cdH$o_tP[3AftK[wBcUYl0:0'T
U"]fR:i69ckD]M*ef-OkHMqMIkbMnW,ne,,vPFp]B#zE*[nK*(Q'q:Q=KO?$H%='9
U"T%J5dp(1?$W5/[mV=8U(f^IvMd_aE*lkQ2pzTTv:OlIAA7gxiAd*aI'Z.f[bgkA
U"_a.BM=/sIgBG_=Nk;w[SgAgQp)_w3z2'3F47L&<8:(=6<sMpPCg%C\Fy[r7]',J
U"Ucg;obVUI?j5G<;v/(D*fa_b[]R$$N't%7)'hy4>\=5PChP3CV/c'B0Wru(WNQz
U"hD9RH/'NS9^j6I991\kagD+<7Q>XS>?<w,\XwhXm's(t63YF+ba+p+7>HwvF,P-
U"OoSxhCSdVw%IJkqS\bz%M^FhCX%]kA0mb0$LP?P(;^9[)5OhP6/od+QZ3B*eSO2
U"d)P]6cXncup7-9cNr>^OOB<s;.:llP>4WbRBi2v]Qw;,EZl[+TxfZ-qMe.+HBn,
U"A6vc+VWHC[/LXioBo_QK:P%PpJoh&?Wnr%v,[$74o>Yh%SXOCF5mV;%<5?-Rz5r
U"bo6te+fD9lX*BFK-(no)%T$e&m(Op9v.Ko&*<*Avhs&sg0n2:6QF-jQltm8+O4&
U"5EA59+gBfZRV5'3t(FrL^%dJ8KgT'vYTDdQrX=ORQX=HCXF7&&nq>BW0)GMtS'k
U"J17H?jajS=0HJ:KSLH(DdiDq-%W/zY,?_<28?/7GG.oKf#+EOSk6:^.L:qz'9TH
U"*eF9OPZaPc$d<%by'Hu-<YmDqtth?_u5p:nZrZ6#HPS%JRzwECUkV^'+rZ_LwX7
U"e=DQfpC(g/#:[,8P&v.XHZxC=AZtp3k()2t$Rkd4zN?<I#_r:LLOk8%q]'VPaHA
U"T>FVjdHW1OxsyETQD,NK*jP-pDqybjcHv.U.\9$uN7i[T=fq[/X3De3nZkg9MLf
U"4a1;-d'1:f;\kWkP,ZZ)gL2YLFB\1ntjf[#-F;uD)-H*0AeIw.9ZcYgNr+D6ltn
U"bhK9dsUD9+,'A5W2#PW.-L\zzt39ne$MJb4Q//wZ_7Fg8ra648&Pp6ae6S_+Ez%
U"Q8;aNV7z7NIQ&HIIlFHhSnes38A0DRy;8(qjzhxEDJbOQX8Q4$&\JQWEp.mo^Z2
U"pmY_)TS.ANcK]<[EuVwWA(0.kcb=NA)_=crZ9>4t(+ZTb,Np?TukQ<c5A2=nAfE
U"c':E)Nte,?N=Au^f1GNI/WFS(?h'>(MdlG?7BCbV$5jIi=EQ/kWAnmYx,Z.?j]l
U"RB(kbauIi2Y)D4AVi)BYphIn19QVZcpf*B/?nq>W]Y>:0>a7JA3M+xlgr(c[myE
U"Ymo8y#Ri;f?RN?[y0RnbF=;DmG[TI6-:mA>x2D5l0Q_3-&n*IG#m:#<&k8yfIm2
U"w$kzcF9U7hE>[=Kg*R/g).[;bBJw'^CJ((7<'_B&MZHN.G*TpQVRCtT6HsRa]^V
U"&5*4-0n6y&BP>UW6(J0>?*fRIQQ?_ebMwsHpQ]]%f.#XLd_j&JEdnv11KP#gDGt
U"E>\Y#WAxoIJ^25mJv^(tPM*TC>BO&dUHP<GU'2E.V^nBAv;:.9*%e9:x3u:Th%7
U"gNZ2:<9vkrh=P%$,HL%w[>1e4,?M<%%NG#.I,svL02hTM3ZTmBlX*-ccw/WH<>H
U"L%O$F>);Vcqv,'[t9T+Rj+.aaIFcGUdqf>g<MGkweME*6A6<x9T4#rt<BF?*NI+
U"J[z7+p*.ZLJdzja=:,Fev..e6;G8vRJJSj(espA]wuWHDH+j'K>-K_\s7c\dA7a
U"8ub,YhI6Oa&?fAepP0f0aO&FB04AbtmI=xMdZb9XaP:o\S8a4Mf:Fs-M=m6xo^w
U"]^TUrG]\V.m6DsJXXt%Dup&%'9%9%%%%-g%oIVmK.C<%fX(%(%e.%%%.%%%%%%%
U"%%&%E%%%%%%%%%f%gtzy.Sy'y%up&'%9%9%%%%-%84WWKmY5\o'h1%%'TL%%%0%
U"%%%%%%%%&%E%.%%)(%%%lj%yRmt&&Sgf%xup&%'9%9%%%%-[%mXWIK(Nm&[O/%%
U"%W#%%%1%%%%%%%%%&%E#%%%A%5%%l%jymt&&ugS%gfxu%p&'9%%9%%#%-%h,1TK
U"]:-L6K%/%%>%A%%1%%%%%%%%%&%%E%%+%??%%%ljy.mt&v%gSgf%xup&%'9%9%%
U"%%-O%hO^:K:iQ(c3)%4%Er%%%1%%%%%%%%%%%E%%%%;%J%%l%jyun%hugS%unhu
U"%p&'9%%9%%%%-%K)O^K1UeH2M[)%%D&r%%1%%%%%%%%%%%%E%%(%sN%%%ljy%un
U"hv%gSun%hup&%'9%/%%%%%F%Qr\=KI?H&$A%%%%A%%%%/%%%%%%%%%&%E%%%%q%
U"S%%q%nsju%gSun%hup&%'9%/%%%%%F%%]\=K^,u%H#%%%%#%%%%/%%%%%%%%%&%
U"E#%%%_%S%%q%nsjv%gSun%hup&%'9%9%%%%-d%KJVUKX&Y%-Z+%%%18%%%1%%%%
U"%%%%%&%E[%%%L%S%%r%fpjk%nqjS%gfxu%p&'9%%9%%#%-%hb1TK],ALzU#(%%b
U"%,%%0%%%%%%%%%&%%E%%%%WZ%%%rfp#jyw(%Sgfx%up&'%9%9%%%%-%9?XWK#6W
U"%6%.)%%%%0%%%1%%%%%%%%%&%E%.%%Z]%%%rt#ink(%ugSg%fxup%&'9%%9%%%7
U"-%lZ0WK?<)Ic<)7%%Y/%%%1%%%%%%%%%&%%E%%%'7a%%%rtin(k(vg%Sgfx%up&
U"'%9%9%%%%-%:4+VKPagqW&],%%%x8%%%/%%%%%%%%%&%E%7%%xe%%%yw&(tzy%S
U"gfx%up*+%%%%%%2%2%'$'%%'.m%%%%%
END SUB
V2
CLOSE:IF S=164AND 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
