'===========================================================================
' Subject: CONVERT QB CODE TO XBASIC          Date: 09-12-99 (21:19)       
'  Author: Vincent D. Voois                   Code: QB, PDS                
'  Origin: vvacme@worldonline.nl            Packet: XBASIC.ABC
'===========================================================================
' Translates QuickBASIC source code to XBasic source code
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"QB2XB.ZIP",4^6:Z&=17645:?STRING$(50,177);
U"%up()%9%'%I-%^t[QLoJ7V-gRd%%H9%%%.%%%%vg(W'gS#gfxsg>:>TZ/otO$vV
U"xHCf;YB_jsBIt;VYQSAHEe5,T8X,;tep,CE#n0MJxIQwpfVVs3B%SQ)08nq,HtL
U"aGGCcu\4#fiZ6Z*VYm;PQ[?2fhgmWLxpwOq>v6p09wu=dvYQN=;7*YMsxQ>AkX.
U"vencLKV3_KA_rnJH[jmfXi^at0*i4[+drL$IDh5YT;T,H)'x42zcp;GK%'TIN9%
U"M%*Ptj%bBIQny)N2r(-R$/GAmCP_1Y]PN#Ew0jIIyS[T=mePa-s+sR?nIg#7nfd
U"H]PQu?i9M+H/s>%.QJQv$RB/E.QaXJeVaZ-?;i)F1/P0h-gno9cJa)O9evDgpzw
U"B;Ji-/x50+pI\q'N&,7EDsEmJnTH+Ewa>761U2_Q9V[ZR-./%qp)*qB1C#.\EGi
U"''yb58^g_,e9DwMz4yW6Qo/gJ'?>P+f=Gr&^nh]]Ro?()J7sIB.he>FEPir7fk-
U"iPK&p0Mlvp1%aJVisy+T-+,w?w.OJd?9f)aH4n+go[Il)NNsS#]&1P3mG*\'XY2
U"A1c\;:x]8Xk>*e3nc./j+.v1Ei$;7VWMwQ&tUs90YKqIf.5x3_7N.InC=;(5use
U":iWrR40nLo#71Re1GtJGX=J5tL&#ubjmd]K%1hItdHOsK0D-Vc^XaV&2x5yV%6?
U"nj+aEvRR#4q5e_0P*4CJJ?'l1<fmxw25])%X:47-?6J:K7Gg/v6h[;YxhV+I9_e
U"v9b$rh)ou/*W)Ql$w;_'FrcQMc/(U[O;C;)ovb0U?GvtX(u70,Y?=OrtO#YY:&&
U"V=3P_y1O$VOj<AS$4O,HzB)=qRt>W5YNKVgjq_HY[fG)tnRLG9UU/9KA/fI7F_0
U"[-WXH3CuDoZl(V3ZE&Yt0ID-qG*=;/q7N,A[_P?%spukzw>Ftmvd^$NCCmXLWGg
U"XHx?*5+QsS5WmVhGNbtR<sJtXom+\wrUR>n%J1[YK5#0lEaC#%lunSURZTFWRE.
U">iuR151M2(UZ;G2WAWfRRq*DG_FtpYIjaxdKv4KAb:.:t/)JcM&&:4'$/,djC:7
U"rJ?e%,D(R)7J4wAR-7y8hREX\q[,=IkyTj%68w2hGaoHfoF;I12xq[W[iPp:X3;
U"gNe:SyQmL7/+o<&_9gEO\10bSlLLO^&h)cg3nVKV_Jci2[]<s(4L^&Yu%(CBSmT
U"[uZtY?R:T;w)sP$YDE[Pmy.fpY]CqvL2710u7n-$#D%_]pbuaPatuDPLC[l6w+X
U"'1Zd=k[(VW%*Al<Kxi+apQbxuYFnZrrwBo1us$dcYm=+vE:]BM[RWPhBIy*ZtT6
U"2*fW^QHV?YHU,8FF-a\pKI8-QtpO9J;j8UCAarD1%[hpZ\%HYS(.K:(Z2.Q?Yo0
U"eHWY(^=[Aqa=N?p9C,Jda-]pd3J[2Ssehx\?emS?j+4?Q:t_sp/'3_</EPWER9\
U"lSH&q8&eP8FpUiGZoK4slW8o8OAnsRcUdQjCoM^f;_6G4D#PTUekO:G30ior%lu
U"b^#L:9ddHRU4euIk_lHbu')N8%oMAT;i+2ZlA*$m$nN&9eqW0.*]rK>bX(P3e3i
U"YV;;>=?)svb3T1L-[Il7MyGZ%skEAN%zYDRJ16x'^7-U=p#LJciTfV>u97h0ZZ,
U"RznQTfGcRt8&auDjg(<>.dhlmOwWX>4WVD%<*4Y0>g(0ex]DJ.v0rZ\6:R7+vTX
U",v>ojXjVfOs8LqTZZ2=BPg^/i)?nmMY5NI?W-aT*YF]dq<)k?rG\_XnF1.:\U-9
U"%?kiOJC%c+A7g_6'Nh5xtIPhuQfs$K%;S\jsV06$yB8o\d'*ENrAYK.eki/o=[[
U"P-PWY=PxT3[VIuwd^4$h+ih7qv:%&iTl5],$p=G;Sbs36q:SViW?k&g5v#pP\V-
U"KVfoF/Ou^>;2rdpl,RioX(tOcKZv/<8I(Lz22J.-Yl]*1>hOJC4^%_B1H?#_N9%
U"PvMujdYn5b1;)=rMJ%FK]+'p?j:H_If/?Kx,md'KdO)v&AV&%atHt;OqS^;]i8^
U"U\rR*P)F/g+ay+mXN+IAeM,/0G(7OB&;6Q;;Jo5Xyb1k5VPHA_><(^TSD&2^mtF
U"0$NKI#2av#HsKJlJA-FX\8V08J[rWq=,)vVnP%eNI9J%2/H8X)cq?dK1$<L0&WW
U"sx6_zpi;L093tmeCK%g)$F\pT<AeH[AQdf4a=TnrLpq%Ori#XsZtdFdoEg=S:L'
U"5%I+2Lfj+1%9A^(W2V0dd24/em,Cq:*eI.dEN'Dc/I#u-#H$$A9VC7>2#$7Snf=
U"Uq,Kmwi*]q6pY5\bC)E'tp-3+fFs,gk3*EWZS<7P7w.?why$$4_3YkdnI3&uKC'
U"+--CiHSZs2R<-;+Z<Am9/y7p9rD_ecB*?.iw7,A12NO2t\,6Y''YM[r;ETm&6=q
U"LDbMU;rhq(/EU9&=4R:1^-he;sD_.<Mf(*7JBGBi+eD,ygjq>=kS*8vFPv&1:4'
U",4z2&nOdSPXEiI;e:>VFiRA]Ys.'1,JX9k6(c[K%fYveT]J*4ZG.Nl#rz]:]N*A
U"^D-N#qV&BjQZ>AK)KtADO4^G))[^T;N\f&YljD:=Qq>DZ>dwaEtL#D2gd8F_lo+
U"*cVEjC[&lFK]IyOu/_EGJER9N+*>IG]+mCM7OVf1e/Kc3.:miaIR16'3_jF05?.
U"c.toFg;wef]n4?I)G^xQeR0sS%V-vI?)%E_ou)4H6NAZsFWgib7q9kpw5]K-KKl
U"?N_EA02UC%eRXEMz^>$]WkRNE(%?[t/q;p;B*C[pYuwt+vE-MABd7vBEIjlMh^S
U"vUshA0YY/xPQ,ST40AP>-;Ff'VYS7z?V8.]\0UfpKu=Ic(7)PPO#z_):pRZD\]B
U"p#NJ9BMs.2CTwVy^ir;UDSBr8DJ-Up/*:t1)/\y89d1s=_MtrdW4TJqY1hVL/Ha
U"wD/iAZKY>Y*r0NZIF<DL>YT$4tk;zQ7THXh%y)%Kg79$PL.F?,EZqe$90uS3TXR
U"3J;df(^&M1r)?HN?rGCNmko6j$wD\TrltA<gJ_e;'[YKM0NU^1Ks.O0ZsoL\kX2
U"9kkO*t:2<,L;y:ts(]ChrKVweq)R>z4oZ:5$3<J?Z;>FGd2C:q;*P9Tx.ZtRbU1
U"[,(CzzbzJ1d-ToQH)8eKmoGhq9hco'v,NuDFiBQ?c-1pd$v.hWSnDu;QadV,aPU
U"m+t#<9lNr?F40S)3xN=cgJ7,En&>v00Xr<j1&mRVGmry^oHG]flnfbqYV?Sno/a
U"bc<<i2H0lizv,;SWIAxBL1:\o/dtj\5v(q44mT+]jg%4=)ITH[Q\kSq,MqMGUoM
U"o^7=>Q9j#kl?%=n]Vewn.ub:Tp2>8pm[XClidircSBr\%wgP3,a[6pIvE5u7EtC
U"hPe_RLRvihhCB--X%humNUVv4SOlMM\<=XHsqM3_?F4.^Rsz-kNGpo.qiV<i]_,
U".s()R0:s9O[c&st-q-+o#qSOOYlYE\nhy)Fa2UKVO\27r*#$,7%s^W?8Z&IlFZ3
U"8w;DOVtuJ0VzN27,lapU:Yf>%jT13't&l/2Is2_jNkj*N\1SxtQpsA;2-je%3(e
U"k\UBhD\?8-P>S-kw\o2q$_\AB1ip#%Dm;FZdpZ52k=p12XYZt:xwu2SW/n$Hu6F
U"ex(^-b:[G10dLn5j[)y/]:nu3#A3J,EY=*b4&JO2cw?N=Pg(ThnhL\DzC<.)$+3
U"EdRSf,sX4,,ola4mBsNruMCVw\>>a6xuwGbY\ST(sC3z;Fp=eRNctpDxHY8B_J7
U"=NCjBI4iJiP3hOM#Ojk0(JEY&NY0-x]<SR^Y..rmIx[FPmsF7LIOjD..s'mb<$V
U"cPU'?X?q'FlGPP3%3z.Itsbg+[ptkVaH7u&=9oYo.K=LaevT?Het$r&ip6rwVx^
U"?6&Nu[.$8-3tsH32CES+8&-]4O>B69n_&B=bSXjN%)nYA1L,lmmrc$hlolDW]x<
U"E>*_sO=Rj5F5bI5'G_zUzhAe_E2=N.mmU%WoP#Y+.^DV[eM:68)S\)r8-oHJ],f
U"MLvo0>imMG_L-b&Sg&$Mwgl8En:o9KxJ$x,MQ+&GTQV1.%V+HA%iqWu)6)ed3No
U")mN'&7nY[F\:5LN4kcdQ*/0ix2\ie-8)j/\.k8PV#I=E/?Gh%wiBaa5cnoZ=E\J
U"?HNkWA.(Gn_kRlA3/&zadLk:oudr;3P6h1o-f2b$M.Y))(ZUp2XQ61dFiNT)cbC
U"tCtr\SXu3;6&4O5xO4zn1s7VK[TGeEf8eD:e4t'*PQlt$*Tl0a'c5:mxhb=i?N<
U"Df;T2?>>+B<wA*J[jP:ffm>F\HSuB#e4p+\vBiLm].LRtk\0*LeSV_l*V57S^k:
U"g;w4#$bv67jAH:K/%d&n;Rn=(s;1/B;p&C9_nQ.,,K5^\J2bEZR]DQPSm[6-ic_
U"*q6,45;.IES1fRn2)(9i5K67-]ZUrE?E-C-i8e.8a+Msi:rNO.EDT]MI&=Gi>k,
U"GeS;u#E/eA:Oft%-S$Yc5q?7e;sJo6jZVVR,v++BnDTs(7ZrJU(J$T14-c[xXuc
U"O#j'[k7shkkVZJ:N$ArWN'4qbX*Y05qMD%0Gepv_Nv.5izq0[q/pG<<'Qi+Y)8k
U"kV3nIsqEb,_>lQ^9%&imkG6bstpSLB/GdHnT%5loke4d?ZT\c;QkcW&k=;nSanp
U"Ffhou#IG7x/asGd(.$\?OWmT,GA,YBr%rYH8O.,tHbXmr64a*l^;JivTLc6<8FN
U"wGDdoKo*f+=i>W3VM5/(M2V70zEtWNrOP^GmR\#y2ZU)+tm^Ehj-88hOm&D1yQ1
U"XQl?$8?$w,ZsWnVQgb\5r&yE(ZXvTvs\vLWWa9]B3o(uiu-LoMfN1w1UG(Ogc_^
U"tS=W6,4uvZYET(N=uW2abTLmJZV(UX<-Khcw>Ng-F=b)P,OFe8M&\rak3;]DHHJ
U"vgiqR:QL=0InXTHBgEcB5YrDAAaKNRjpQ?-Z6$GhY7_WTG/\l$D4j';]G9P5Tx6
U"jUh>rw7Py;MN-k.r\$?TgH;b/;A/GOwa'Ox+JVM?Io*u8P#%Jz<=XxKUOs,zpc+
U"';=a1>Lhj<jiV3['sEoqfiHfYr6pVB$G1Bk5Ks^Ki7pA%;0o'4C<iN]bw8RR)Dm
U"nYTbwm].+s4wb,d*4PTmeS99r'sJ*>nEj*stVgbt;mq7G=pY3k<1P/nG<]$4h/I
U".DKK8wB85G;tVs<(jbII;2+c+_FO:=ddVSylsVbWTGo3-xDSRHtYs$?281#9v[(
U"(aof^gX>FV^pXL?sN#,%El]Fei\^^HdG28$SNvlcuYkNKkV-(&%m1Xhso^,.lzc
U";_EaiwaSsJQd=1'OLOm-\rZF;eO$)PpAE-T]FKaGp0c\g?Xm628gjXQC-;bGsgU
U"kE.:d*HCDXIAsiW9x3KgiG>6s<Zv/ZA*G9IV6M/eYbsSQYq0i(gtRT97^N3.0vO
U"0a%WBu$w92UdCg.[BWq<U=ndO/-B9Taj5.8T3)4wEdR#3bOGe,ZqL'igXyO=.Ow
U"$LSfG1f$W,7HTZ$9G5>J\n9Yr[y#$*hlOxbnTGF4otj[+p;GH:_GRYzg)T+AjC#
U"58Q%Fv-th(H>b0)XjcLJq5W#($9he6o&8_jxGm6q_CeOuA=nk.uC2Fo/eDlWTt.
U")t%\Yg:sv,#k.U6t*kJSphW&,__fexb8-X:p.v)(ln/0TYbdAK9C$2o]%Ow9<1w
U"rcKd/)4V0Lxqee8wk--rA_7Yq,uD,_dtjrvw?c8;J(Jj2s[U,4#h/Z>ThcD$QW%
U"S=wln/Y0)lpezKu34JD%%CR3oqZ(wBT%<a>E4KNK6Hpj2#ZWFaYue=F%?6TwWb/
U";E6NmPr^41DNM0Q:40hL1CFIp?,mDL-HhSHC?8QJ;]/Fg\adPMhm&dh'_&J?u+i
U"g+*e.LSen5a<J^^(D7<<c6jJNS3%q*(H8'OO925hyjv-8n'HM?1\p<4^_%RY8&9
U"K2&WEJi_oqWWI;IWl)4sfhD>>\M3q7(%yG:n)_U4s9cCmmSmtT<Z-1V=;r2919e
U"],D5o(E#Ay$C3SNG#ZoFof;2&0Jk.,M]H9L#DzF7np+sNt-A#l^:F&xn?^i=AB4
U"qnrUJ4$<?_M:MXPcpkqZqy(JJF(SCuKnls#R6fQVB;?5^jKYmJ.k:rC0+.<A/(a
U"y^A-4DY8W1,82Ka+Y:Ff[[]5(S]%+(-U:]5\^).<QO2EQQ&tkw-FB1v(1(7=dE1
U"[FHx'['20CGc^^\tBZn_2qnOf8O(>q<Sn#s8At4kYta>;t/r.DSL'(M:.ESez:o
U"wZtOuT4ySHG(C_ZW.TZfK-gbXGAr#'<q#yS%9ohNp&1T\<*17]bl',WopN41(0M
U"A%vX&ga.;'ba+e=u9n:sRK$'$sdNJ;U7smnZddF*dPYi\4r?Cuos6W?F4^q;XsG
U"><nm:#Ru(<[bh52HB%z*jm7(<2I.z?t4U.9tq1:14Mi<?n&2$i5=,42(>tm$iv(
U"b8[OCAO(bGf4#9qzgpXXN;]M]\)AFof>WG.Hd$mM:*Z$taY+tI2j.Ij2\Ii&&t:
U"20YK-#6fBE8x>NjvF'IU3q?U(u$rHBc\3w*(>&,9/tdPTD$cCt>S'0b<RflY%%c
U"pE5I1s5/?$,51HTmQ6TO?>c]WFJ3<Q8)^IM;I'M+TM(AD=9isJ_6jB4U+TP=mu6
U"Ess]jhRikZrYeiF+bl<YKLoUOveK^Bd)=VIv4,X4r'L2'v2l]8>dFLCOZ<9i'Fs
U"PouJH>dn-8E')61_S;^\nM4lPTP47TQqK;#49qlalw_+KI;;dzcjOCXfj?Nw+dE
U"lYV'%\<j<BHb7?+=[621\W'7w(gLh/*]PY&TK8avT^W)iMaq=%$(u+o/CN%>p9t
U"Tt2cG/(x9MJ<>wrD.\9XH<NuNuj04QlWFJMWd47[)E^X..NX,qQyW?/bzSi-n4H
U"zS=DY*8j%=^%QsNbESRsG&lqDH0Sxe:[Hy\^Fy3'r^gx6Z>(5?>p:c2F-cHSxJ_
U"O>&UW\$[YiDuhjk/%SNW]2P\Ocr<j,:w,1'n3]C3rUL[YL?B+zkEC+b?R8mk4*1
U"[vY;MPe.JiC)BKyF8+b&4)i4Ii7OxG&;6'cqd^#ohCp(ak8%PTerz9[(PrWh:o1
U"w)01X2>=lQd[:,]hueUQobpu%icLac8?e^BF$+G?V%m%AaqULLU_hkT8O8=+QJU
U"x*IS\'/*ZMTXaX&p]K9LUd/\d(fkf6Fo/MNNJWdLDoqxD'WIW(aLK7#B6:ybB?Y
U"$;0mBo0%Q5?BV;^(2KQcb29YJD]%U<B>]Ew-RDe[f81FVCe4$SFWveG+iZ2'+'[
U"=VbJ128A5,f(%4$GHjNgN6C7?&t9gGEWm.,$iPW/d4rj_0#6uL)J6u71SW*']LU
U"rwv[<OJ8poM>Jk]jk87,7$TsBl0$=+[wL)]O(fALoA)],X%2\J$9;Q7Ix:*&m./
U"+s]';W83Rpqz;<q=;[[a9C'f:[i7_?II8PYHrqDIJ*p_5[#FOr&iBcx=s-RcvYM
U"$,:'Ia^6#D*TZLe=l#L]:9^-IYDcAXXdorlJb8-HwBJu5NFx7alV08?1(G.k(6l
U"e^#O[<BuLoVsdv(4hz<=TsmKX(ccw(=H%Dwhqq-eeE'HsyVgd]?CHZc(e-LD7#4
U"5.X)'b%4R%JjMQv*.5/u,g&^eXo/.szXJj7aHdkhbhgE$8pH4?Z>&2%\z9BuEP7
U"o:_*D6+eT(E&w#Xupg.&TmM+7?(54TY&#-pU/=]8/50bHSw?YG*E]kv1d7k]->S
U"6PZ^he1.F'o_nX?[/oF.$QR6mfgZ3NH-1*lrsNd1-&kZ2WgB.]=XSN1GF9rO,wR
U"?^H.DdJU?1*<z*C7fKzn_bx<Eoqi?QV69ol04BA$ODysj=c;oPS_=I6lM=_)EFx
U"z?ei%Iur#Yf;*&Ad]wMc'odIF_]ZQE#jWsQt8iG*mE:om%Mi>WR?KiG.C(e;(:Y
U"]9eHaM9QEUo_Y>xDj[A3;7jAc.6u/aUq_(qQ-no?Ka7Ft,z,sFajGJ%fGZ=U?EK
U"elGjtf9G=Ed(K6]PN+7m'WZY*,)Xxi.ZBf_Rn3/uOFLk5\d4B1eQr6;Z8]M?ofK
U"U:mr$k3ueH^)r*iv:5,74R8Wdo2/\r8=?T'i3<=Wrwd6$%oi')R:E*P-rJppNc-
U"ooO7gmg*[b<1wSta#C.o=M[BBSz7(%bO18)VmZpnbu3)I_7i%sz3lcGKmmBmrbN
U"jm3pCTZTHJv.[.7xTH3H)to8iJI/=yM::xl\pGowarnmwn:5Mfu*(E[DF]Pg7md
U"G?*LW5G[5G=OBJ>a/NS=(&b/fu-Z<PCAU<?a>wK6/&RE7]QNNg[:;>IFJLFd1#'
U"8(20[uTE2)=jfW&7Pr&d66fW*#1\&.^Ai2_]Ok*f.P$tmJR,H$iPzY;p]K[%KOi
U"[OEOX8DfrlpA+uSa)/_m'Et>13oW9o8yTU5(A.ot1.6ATWVSSNS5Z=rFDFUHw?D
U"5(Q)4]6/%iuf/VYg$l8*3krm'sGp<dv[*nkySUq8UQ1JXmp3E7?B;F>U;'Y3ei0
U"g4=)J-AJLSMOiOc4H8xa3HopMB[;cE[-GRQL(szGoCKW^Rqg.9O'fG9ko>%H<+'
U"B%.?F0wZA*S/ItNHN$q$55eU?mIA8:5b(j;^L+Bw3f1e4nGT_W,N422aq?$%.*6
U"a(-eIEX:X*9n9%hAK7^2)XEwAW[<c)b[$[/G$5'1WD%XiaN<gx9soRvnqev^T4D
U"%XaR2DHC%cN=q,$]6KLmVQ8?n1.GTdtLc?1(E$=1;k\#+T:&RNA^bg>i:089Ln/
U"fvx9&;Cf%gXmD[:g085(<O..L-/DjI'7a9<Jd)B(3q2Xr3m?(*i0&WTVj5)Mkc>
U"iQLB)%;a%1v'3Y^Y1+6,>Nqi_4,Y7*?d+'6J[rfm2#NUwVIj6]vL+77&)L6,6:$
U"yrM=j-N/en\Ss\Z1KEX)dCSoQi+(e?K#J&zm*1=+9)9.tqivl8Vs,)(I4wsy$FL
U"j$LFYlX=5Z0A-7MDa(9OSS)gp9<CRq$:4=$^6N6m2dIx4eo2kGhp^cP1Io%Io[=
U"TDZ.>c(/Z*kffo0ER*iyAxPCo<i(sQMn,f0x2V4ODLD+4%xo,5U[s-^JVPUFep?
U"[U(V_srutm4SY,OYvUZ;NN<++PAL\Z4*Nd_U:)/1w:+%3NOj)42]-OB]9T?BfSw
U"K(:L<0?SW+-0p21va1Ad?Ni<AX^QBbZGpX:\H,eO]SC\dOjz-hF.ees.=5BRYM6
U"i3'GQGkfW6-xIm;sZ8.cSo=_P<jh=(C:ap)$&5U%W$w]_E=K/\Mv3>o#<%TP.Q&
U"OV?VOJeOvZNBs0a1?w5Q,;UDJnyvId#)+7*B&RtS]H=VYi:6S40b#ZP.DbF;'H9
U"_&bbmClQKYY_LHG0+)?qAKK>18'c%c6tL9pI_1zN1SDmq)#6x[#2rUskI5:/M<A
U"?L/G5q4kyMaylo##YB^;fhM%%q6'3Lb\/$4LmVcQwl*nnvdvNEbjBF-vU*U0vlp
U"JhEV:rs.R,R5m3]%5l0=H+a%_ISP[c407u7<5qtk''\r3IHU,JTGP*ElSaK1l>t
U"P]Hi=8U,%o6,u&iD2P4y^o#L>Fgb:vOe.3DS\A9eOG3#iIqUieOYIPd4nu-,KS-
U"G'#IiO)DsWA6?fLFhT5USM8kIJC.bH1a\A^WAxRaSJqH[LkTypm'tGE#;1G<*GB
U"X$CUa+zf00%bX76VopRIl_;t'cAg;g53EY4'u$<mw3UTRDZuZ>tw#EFrQgS.3bf
U"nQi,/jCJFGQmr8XSun8YqPYbmvDKpou7&IpbIjDNb>NQ$HT&>t.xIbGW^9&+wmt
U"hd^UgD[*Z<[O&[1xe\D)30:kKnOL%98]m:;rS=dIy77r1t.6pIt%9(+IBHT_:g/
U"A_5[C<?%&nZa9<*ws^71KJ]7()uiZNKrB+8;bUV;\sW&UO1MsLE/.1ib<*S0)6/
U"IuPZyXb5sH]m>QaGOQGW%64+xje;P-QEa,p\[VZBA?bnT*0-J/NB8uortLvJ;+B
U"kH&R:qnoQbOx&w#7*c4;0okh9txPCs4?hHYues^%w2Cq'ZX5=[S<t%ES>X0xHRF
U"tu)ga3o/v.DodwjW2/lJ4eg-RTM7Ca.t,hZ+=_v<n'Q6j(Q[Q#*0+X[oG6^.$BA
U"kiCV]&VVqtT\MoS0Drsm.Tmj'[LH<G,YspZ9bvL\G+slzaG]Y#HX1KaJ$W.^aa'
U"01YAIlLV#oN,ps6)=WCj9W:KPlkB5g#]:d)F>^oYu\\::tY%a#RNu?TinoIj9/o
U"kRnVdbqgQFLAnms8]48%Fw>nK)CaKqk_[yJB#11EkB\v<#9OIs9QaB1M<m?b\1C
U"/756Z^:Uc3oZ_(D5]rB?2\_xL*uP;0QlXDO#Jlxw>gnr[QBh?6&2c&'T<<w*jZ_
U"XS<G>*-c^P.GXIs_KC6.Hv7*1230CVa%a,tn3/20iAL0\&[R-rp1M:GF%>eG^U\
U"tNNj86AQC$/RvKc8s7#6p-_(5ylkv.U>PrEugF8GTL-D,a\e*C3D+AC1^WnhQ?M
U"Gh.5=I)jtSd1TbFtd&\GKlnn,\N7QH^_)uET&bK\AMVO[&EJpWygFHs*[:?/sfz
U"dpbpCO0m%Z]+aYErgPpZ^qiLJU5*ZnUn-JY>y^1#65Vo8Y*H>E4HDg]-80/.EV:
U"owFP5ogHgwFvU16mIWvw;wCTLB(\*p2WBZ/AI#<,t\q^QY^X>iI7IS:DQm/zwEA
U"/\n$/,/ptjq;4k6C_Ta*Y0GVP1/P^BI7hEX;5F(QG$zl?63c^LaX<J-I87d&N\C
U",Q:DN/]kaa>ZYj[#uFm6^,^0udPE9jy,+dRwlp\$8?[feGoPg,j='\mmr/wvjgx
U":.4Lp=w(F<JhP\vaLxMArWu4V(hQ*7L-4n'Bs]E^dn1YVPO?n=LO=NaPqzZYjZh
U"2q98zt<S6o)Rrhhg7448rIb.,S&XFmt3E-gky3=spBIb#:?:gn,eF+BE\,ZnJ8)
U"K,SMWc;hw0Nj%M=TBkMnA0WPHO=ip9z'WSwpjqfG''PFjx,XJdOqaLaCXmQd?a<
U"'z+Ap#,lSloN[Y7kH/vq\)/#5Ji:$rkwu#^#=kmVu2/kt[aC0Q,pclSbiMDiQ_B
U"YE5QI=D*y]4^tGw>+n=xOQ7N$=J)J#Qh<>^R;/hrHTO8xQK**jzaf^[W[)[Nu1^
U"&U\ET)>[L$w=Yc./8/]*ma/+:x70Q>L[KiXYOrnO[.FJ^aubCuuL(c$O*2\vW#S
U"Ucyg>VmC%7CvDH7CPver4:XJ9i9N>ZtdR[mWIu&^+UL[_tBOd(V.gp'VE#+h)yJ
U"3-tICNd(olG[,DwH287v.2qDqv7T$B;6#]Dc5mjxT=ioYCB6+5wZnv/'LW?yp;b
U"6t2_M-*lw2jrDsko_]n-_^vBAJKXku.bPvlY(D$BwXqzlchGZt6P8gW0Er<ix%3
U"tiLzuku'?4vM'j-gY0C7e2l7,yeBZ)pE8XF8=]\xc>M:Fy,y/vt8;t&cTqkQJ?S
U"iFd?#-4auvmr<(NQ2_1m<xq$E<q;u?F;$6\t2S,,D&?6n<=,K5=id]&T8Ht(,sj
U"fjzKL#(ixt&*lxY7g:vvdYsG%h6FC.*t$vjR2*r_2FlMhZ%I?$[_:u[oaW1NS3R
U"#<m-EO>MyU+schLGv?Lgf0$xErHQuc\pYx_-7\mWg_=vt);mi'U7>7;coiZm%.>
U"m)vs$t'B8G$_&j0r%r#bw7PqV:R)dE3ge/4j[oen1N9o6B(K?Jr$q=Zvi((t*-g
U"UQspw,3U8ZZdqsNu.oj):B-0rIHv?<Y27*?wk2S?GPGFka6c2^PUs$Wbe\TKPaP
U")z/=uN.oO>u$k_mmR\K7pphuGf/E9*v(k]FF=/^aj/9,a/fR^_l;65%t_IPTm86
U"DD1b51e9(cEElB>#6'>06#;9S[Y:;q52fiNqZPfL/YMCIJW/mC&$IHKFj\Opt[;
U"m?tLG_9dZP4&AeMM#RzJajuKq<x]cxm2^-TYc+I>NTMW[?ajXNi;.tMOy)$Tnc(
U"Hcr#ONE45?c;jDF%Z1R/K3_:AZ#97CWBM50u2OD0J(oX;a*GTC+gLdI=3PY<qLX
U"s1G8&QA+;Na(-/wf)G#GXWntdfQgPd3+-b.&)eSU1B#061-?REz__-6Fm<N[_T&
U"'#O+VO=aoG3%Shi^vJFac,UA6sX&roRW<a/ih:_R/&=^LoPtI5)Sw*P=%cF,9_D
U"YR\n>)I+V>WT9vXP,X-?D$yyG+5s1(;_5jR2Q0ph2I:PUQGi)Ua]bI3A^Wg1pS1
U"ep7Xg9U&uD.WVPia/=3-%v4uUvfO6H$um/5Kbo6%D:/7xyb1uuJ15JEXlCx8Id2
U"rI%Ihb2?43cI[.0MgD[$3gU'+%pH;:PS\aHm'hQkh'ND\Bkn?tbAM8g<[=?fASO
U"qJrGT?gqsN6.s&XQGx*yTCsqjc#E&MoI2.r'(5:*WA&%mhuWT#pK3[G7N2O1]#3
U"4nNnZQM6\KZj)4XifSf(.T0Ly[rs(39K5I_.X/]XCwH0p1sLOX\Z0\ry4=Q&#O2
U"IP5Gm#E/V,I'9-PRV,%v9\YDo2_(m03U#g6P_9-,]9h&,2z\,Lq9+?U*ZsT';s\
U"fptAY:i%'M#vULbYsHxndNZssjAumpL82,LTT(:-q;BDX2$b.N\7KCIVg62I_#^
U"MyWe%5z4z[,qeOuxs0JJV4rZB(DknLdly^ffwMvaW3ar\IWA5f8AKY:lC/cJ\fv
U"y.OUys\i-v6Oqa0:/z)^^e)J:bcq3z>QjBe<#VpIamDPCX1SzI^otEGFMhQD.kV
U"\>rjQEv1pEwF<tsm=u8i&^.)QlhJce]zw(0o.ZL[)P32fs0mJa1Lz88A[)3;sbg
END SUB
SUB V2
U"RSD:=JKhsIi%Lbqf_KQ5M<Jc*hQta-E5WO)CKt7H:(PTYFt$Sj0<cqsDdDtKO00
U"Cfhvv6<DB5vbVKomXma5A,O%,\/T+bUibz9U3&U5.f^$Ls%(.XYPV.%+=u[Ha\*
U"bTE#X*LcvuZ>Yk<0/iN-qGjIe9>$qr3d^krN5Keg(t7VQra;&?5)$-pS6-\AfU(
U"\%'[0fgo*Hep\d0MRI)ErS7sZw7V)\8?:#xkG(C.1&,kE7W9cS1B7:(K<]1APt(
U"b^lo-pqh4Zeg3MG*r-OTE5/R+BPU6\x6JS>yj9-F6/FB.oMlVb,PvPDO2DkIv[\
U"jUsK.Oj.:_dKXFq<La;CEjFEu^<J\^%7]e+[*sS3)^wB2]QND3BI7hrgm$rj2U1
U"WUJ$I9Gt#C,^[$flN8dl?wR*fAvV8IxB1Y*_5G+Z)dWMJYNKKMqL_u)Xt#VAuO_
U"P73BXyb/jlXundW\Vd/i7Q6JYkw(RYrg:#lpYDpoYrpYutxg1cC4mR]+ZgZW5Q/
U"Pm_hU=WRK/a&4BA*afx)J'a8aCOS,j?LA8QknCv=ln?;$-Gxh;kJ$<w>Qaip8a=
U"oQ2Q#/+d+Y9L<MEQ?A=l)WBt*Md..McjNB?_Eji+mH,\M+EiWN>7f9XE(/UAgZs
U"4vX%p<An6g'c#Kl3ct0$ps%:0;7T/Nb9lG5n\-Gw>aj$;Sl*j2HaT,eKkv\B_]V
U"EYdx#vlod=hX_gXIEg05ZI;)0^9NX#yaQ[nOVHLe#n5K+7;VR7[7;prbIea)Ti4
U"w?(bU5,0>bxnWG6iQ(s6]9xfc?Z'>oTl(n)*_+'g=9=[J(V,08xwgZ7C?b6%m7k
U")VNY,7Oqb\0%7Ej9Ib\^bgY*P6X#?,+Z,xnsNUn_a.M[;KMgP[APC),;n\ciqFI
U",z&a#Hq(%+)HwLS$&/]&0fSN*3Y77<fMcf68],sYH.6*VB4CG3W=Rmk1GHFJdYl
U"PJYZDkR'M6j'njl%'&Z51n0_2*=ikN=C2r2Pwt)Oq*HI=D2-]B%nhYF9kek%=d6
U"PBo,:1ohO01jpbDN;,>1URU_$RYEg:;$)O#O'F8B:thX4W[Vj^YGUm1/q]15jY2
U"r8QYmzX3nF&^R1C]lV0%.bFkB&#9zZ>3CF&0k8LuFO8H)e1DgCK3rYq)8wNdyuj
U"\4eZlwo7-#J^cWP;J:7hz:nvQ[*2ny#QO;_&H5KTGAQ+GqMh7>G7ll55_=tmP^I
U"\M+s4[)YI%(n*435?eU)d^K1lQ[X\Fv;W0k;w;(.qm$dv12R2yzs>8Ix5.aVp,-
U"dm'N\/3.[_/fq$smbf$XOG55q$KfiP(sBK;#$y\We8wy>^f:JZh-p2?oL5KNgi(
U"?=\,/'P'k:q=Seyl_gENqD1y5>/Jpc,y%DrLu&gMXhgTwxj#y/KkeElf6G_[])O
U"+?B)UQnP/P>(;2$;Z''ifJ$Ub_.>aTe#nI9(rB7fOs>D\b&DZ=BwijN2*yMrRa8
U"Z=n6l,kCG$NUd<3v'S$J3D;Zt.kEOmcmE<N2u^epm)1(:PAL+tD_-EaXlOn[kMw
U"d*9[3mCk4z[t(CK2r0K%[gLTm_Yi\xws:-\JhYS-;Js_6K&2?_;;rYPB8O^%fTg
U"3VMZC/<q$sg,u=DHj;$gqU_xk#3r(H0F3UXreLSv8a+aZfI<4:)1Y;16j41x.;i
U"*0/\fjfE,NFu'p_SM.b++=NwBhKmH?Y>F/oTqrc[$](oQq;W-\<gMgTwaqU6PC3
U"<RMl_gU(6O_6L*q#Q;*?BCHucG^x7&6(ZQ/fx#XWSgqAn=Nth,9S=FIhx*'\hPi
U"?.8pesX/\DE0LWRjLxTL(LOW23]<ODx#FzSn][pJ0oHG^KI<$Hbd1nA]m[V7ekv
U"Xau[Wad(W&,b)U)np-5Y1.\9pdmfNn)IbZg,$n_de9pO7T0\?4AYjCJrfHnlJoN
U"Y/5E7M#qt7OD5r$&AxL&N%XQL\T2vnO7R[9L^21F/s%-S=1xcbc]FYu5fC1(S0I
U"w;>Grb/pQx:RQNbtA_>wgCQ=&5Dqbcx^XZACC1GumXf4n&]?WaS)H[qxf+XMqhp
U"t1Mk[SNSvNU8Mlu0iXB193,6Gz[EaKL:H&o2F%Mf*Ip5sxTt2.PvSn<G&+I?E2*
U"y>Fd_rdR+Qb2lB9]NKPj;PxhMslM<%l/k^tPWFb2TIbN,TrMiW0MSL32npO*man
U"bMq&Nup(%)9%'[%-%&&qQLv.mCeP#;%%8%v%%/%%%%v(g%fq%xSnsOh&+<GBT]a
U"$wMzpID5e6,3hNcmxT/]Dyx^)JqB%3RnhCE?+,l&.;FZ<PYIac=Bh(d%Ye'9QNm
U"3=2llDQPojCr6JV7%B&5WiCrR*h*kVZp9Rt]<kAonxav/sQ^OVKTsYrJL5)/Dih
U"*thJci3[sLF\AE_,]\f7\a$c-X^vw<$F6pVeH=bLo>TDW)J%CJCqVfV3H3bLHpv
U":GIgWeFciYS?_W75jQ8vj''Sfuk8WfsqY5Jk:_YdH$53>hpg%oe74?>ah20<=b;
U"D7N^MWr,YjI#'r0f&\XMLF6azkVD?R+7_rgF/UB^kduq6M)1VBmNVXt2J<.jLH?
U"5<(ryV$nfDW)K2]0cUAePcP%8<C7'?[P0Y[BBXpZ3oAT;,.$SN)eIo\(QRkwf/Q
U"-0\[]&jnu0p?inpV-W9uS/gFSvS_[Mzs%GzQ=I>QK>8Ihwk2I6sz0mJq4YWVb'6
U"k(YWstrx+A43p+SW'8-ElCxf[hmwQ=(Aj-LKrTO[V,7Q&l0V+]33*I'uLgcH)[*
U"'JQ'R^$nxmo*+2n8?kAAX[rH=K(KzgH>S^DxF'%oiF2v32Mf:i5Mvtwag>u5RDg
U"B=g0+JNoMq[Tfb$jd</yrE>7pd7-/wgf/Wpe^:aCgH0Oy\4ch$K<]g;;q]8X)g'
U"f->Ak<CF]k2KYa:jL##me\nI:,Wi:>m$0pa6<Bp7-#WR.7c^7$dKsiK;&g>ti9%
U"MC/0s(s$l,k15CF.f4BBb'md;U=)[NLYj.BXs'il2zW#UeYWhaiv9K;AL'wg[YJ
U"HJv&G1;Po75-HaJM;+9^ETP1NXBe3.6t]m8:FqTVF8CaYk=ehi>Sd6.g[ipE*hw
U")an0rrVa4R#'9==SNuMCAkI9:,+6=8>:p*Jc4gC7m,1JjM\(OgqgyfFER0b/W+h
U"?XG.u7ml%p;ozsnJ=(F>*ezuOb:iRID,gOf-9H=.B1Y'C1YiUgm-A0kgTYd^L:s
U"c%OGT'KJq\)\SyF2$)/IJTRX37vM&%8)eU?R$\GgMa&Wj^5F71JNz1'&/\r&lZo
U"diR<FlUK?V08HCLat0TR'P&J+B/<J/.d3ktgw$=b1:fsIg?CwovphH7,DV%goeP
U"5Rt+11ma<0QqNj.uEsAg.[y&3%YGw31907.QakvGi^Hi]Bz1/S;>Jg%inMUl9=c
U"BV<7s\Dt3JS4-UX$M)kmmq]k9&b2jydqf+Hu<8yVoJ%uDq&Y4b.C/aOac%'/h3S
U"'2Gacvzo=jQ'p1u0.+uo06QtbS4Z=dbfeJ9XHQE.G&nL2rcxWfX=;,d0nQ9f\ZT
U"__PB[M<FHDY\nS5H4#rcp<bSK=y-^Q7*[Y'ETcdX&u(YBPx,r2ejQ5=9g4Si-wO
U"^F6&'Ls+OZaHpYTYA+x:Ko7-mQK7Y1Bk1Y$7J:hA;i,>G4zFO]n75+L8jetF*?U
U"9o>+aW2q^rg#)7GbaVtcbd#d^(p6Qe88$+/zR3nl\q?&1KkUQJSEGsGE0GCM_'E
U"_+zC\w)hAH,i>zw4Vu(Z(Rp:,(e'he24sks\.'Tbr[#CW;Cyml->(oX.c(DY^oY
U"->SbCe8KZ3_b2C9UQ$3tEuiGOV$0&Q\mf%nqD>kG'a-R+.2H(>:e=0Adt>.68:E
U"6EMVNmZCpHfGs/4K'K3sIjiBx88JPp+9#Er/0R/OB]=;%9^)[TY?YesK?+s$G*$
U"t9j&aUhUEO'W\eXH#;A-chgB/m+r$Wh+2VDcXG'EGPJ>bOqh-7%q)RqGTde+zu:
U"138C,OByt(TkHK<jqP>LqXQ:X&F(/rwv0G;6tD:8gI)oiA&eZi)Bi(YD%_jOReM
U"3dP?XmnL'4BOPXti%DT:%8uAlJRbY.92AI;</:z<9Hu7'5+F/YB;PnLMLFQmSrJ
U"9>mi/pCVLK$YE]CP\m>*oZuNhA&P&OTZBVpHAtma19GTQS6qn,v$(:]7irM[0Az
U"G,%*?1-p<Hql)?IDkbq_/+Kka3*StY%Kn.SlS+,3nqp/Pb%us=&7uXttpJa2jC5
U"MT*jk*W#PQrx4[:N'<>-Wmk]&Tt240l%]swCv7i8rT)1$248rz=whhOnMY6v)]V
U"1%BuICcHbN8km7BtT[A1umf9.N:..<%SfeFIf&(7Hibg#sM=ij&]$^(T[JW(o5j
U");z2iY>C8$NY,_#Eq.h\WU&U-+*3+8]j=ag:iMO9EOzu-B<qpw+gJ;F24o:BUm0
U"/rt':IEx+Wj32JFWjyk\tq/Y9fs4Uw%DVPY<[]9LL]<q1,2gluKy/VF3tGZ/XSd
U"l&gC5lXUbF>bR%+<KffxlpD18rv+/tlgfMlajJA1aZsfJZ*1lvTtb<ArA1_4Wt,
U"o(NRFF*ohw,oPlbGEudv6Wtz_gXWNGR9EoQz<Pi/iN6iBlq&9bo(c:]e8c/Kfip
U"Z'MN&/PbQNu(,OOfR#LG,dvIJG]'hn]w;.L\#R),^KfpB/glZCq60fEEu)w2>62
U"\3q?x_-'Q0)5?2Bh*;s3Y/+C+hf7(vAV1i&hKEPm'1sw9Er&N--ELTviNi_4e1'
U"dPvZupAe(9OKv-+tSF\&a:uK;'Q5jUk2?RElEH_iLu\%(3#=E]=jE4o0*CJx8fC
U"hf[tHOQFczV4:7ZXhiNN&WdWlJcLbdHqu&]oR/-55IBWael$&:q#*wM-''xK];8
U"+$FIqP.u,P[ICLbnyTIOTokEnAkPA8cJ>5?pxY%BRAp'zEOem>hG=-t$S_IuV1[
U"Yz$n%P%MacA=.XWBRTE2f=HK'_DJp[kG>q#8]d4^YLzBfK[Ufdje;=c5kZ=3bDc
U"aSLM]zPtR<qG;>>\9UE)u+/^XR8Aa^^<BETR.,B,st(w;LY>)pN:xJF..VUVmjB
U"F:[.^=zsUHzXElJk*%$K;Gw)eV1?%lY8X^8+p9XhE'5O_v9p$V4Y5<4i1]dkt2E
U"Q$gC;\p9/?CwfnJnN3Bt%?5xhf8/EQ,L',Tnu;SVaN3Ba:ds1Mg&/6)QIwU4(-3
U"C.p.)C\.8w[d.i=73?WMjVT64Wm'\u(qe53ui80^wp)e.j.Mke]Nc0x]*CmZyi=
U"sSi.)MTyT\H_c:c6Yqlg0kJP0;Ny1X(sE9L14b1F-8?Ug-iE4tz(pGc=;No[;f$
U"rP4A%Cj<$_/0*8q&R51f?1H6QW'bYW>0J]%1uC*AiA=:D\FBVD3uIY5/uo5Ja6G
U"0?'Z>Y?B8u0M=P<f<rKj:yU*w^)&utU91[H9l4ZWas=1_)GXlUx;fDOrt]YVr)L
U"$Js\1n$n7:;uG^)4D^p-[3?#/-ZbPn/heX9oC.Ja1-RP6P0epi#By1MjI(k#$kA
U"mi1vU^(m4P97tVtKiox*VJms_k](w2)/[\-cFBuj([q</uJ7)8)xP#7jck=P?5B
U"Pt,d8\dZ^5XYw1upIkS%IL+:%&[C^\#BqfDlYp]=KwjnY#p2IWNVD4WE7SO/>aA
U"WQ6*?QIgjbhJse7[0Lr5&SyDfD2aq+X>SI1C[?D_v8NlJr1vr2aJD[hpS)cxF0q
U";o-r%#eRW&Tp:u07DYeAQJFGA/F4e9xs'GfcC%?W<iYm\$';(j_,:ZG0GC;K3Zi
U"QSh='%34RY2$F[s6s-RNb5#]u])/d<(g%l$l.t4Z9sx2NOFre#h1G2.MWM]aSha
U"]bYh5GNGYrH\jX;bqKn(]r]QBBvG=xFMZr6lV4J,KVL==r13I)exRVN1KHMBdaS
U"oZu8gfM<G(;U4G&].O&3cG,BIw'>I+H\(gb3;hYOtIlp-Tr\Q(<];nCZpHis4;B
U"=ea$NeErgjD04ZZwBP7Ki]x43VnzetghCS5_C,*$eEVj%Bsd+iw[d,Vj9[CDZH4
U"$dagDC\l$XJ;W?x$4x9P]kb2e2C,Kn%]Pp=F6#N;=FGV/[Qxsl4cQ&(];siIcrK
U"hkMc#B[8w[=k?T:I+S5.pbJX70?Y6sI7Sq\+o7npe-+yl#$i/LYHuND9u[B=EU0
U"Q4;7rKRE=N'yl5B'fB=]Fz?38D*0e,+wifg2p?S;tp+rECX=ShGp]0aJg%XpE+T
U"Bx%I%RM8ia]8x1pjP$*,\%Y]#J*8S+t0G,nm6p3pd/j6&-*,t;YJ6(erlWs%:Aa
U"NldnN=<eJ$:dEaDbklxHclK4w9WYP1Ffj(P1:\w[Q%ub#l)c4S2Bl??oYX49atx
U"WIQ+s>eS+s88TV?=BYiJKf+7x>2NrbloDgKk4X]1RC-Tt:0TRg1iVOWxOld\Qr0
U"kImST1[i<FmB^wTubXScAd%z*oX]-h^a']:4$g-*g<S^oh&wtiUUff:;fd^;ea+
U"pKa3$shRbDFK-sNrU5/2ja%lNteQktq'^-Qz4mVpgpJ9q]]1Rky?%06[W,J<qgr
U"4xtT<6Tp<0DWRE]s9bDdo;W%ii5g8h?hYC?$i#M1t404V+?+N$g7qePnf.;Zjle
U"fCXAKMMVn6q^j#hqM8>FLd,b0mCrQcQ]\sKX6>]UG\nkXkc1DnA2hKUGOg'7rV:
U"^QU_7+)s];UD43pwyrYmg,KJfKhy;r(;8E2K)Yn8KQ,r$7BCU\>rK%j8jn%1['d
U"EQb%.6f:P-ciiIhFbDgq:DaZ-?Hath+H<):)/W/E5.7Y,iZsI.2\?nYuExuEcio
U"VW'$_g.hQh^HZYU'oVov5BeJDuJa&Hr1W1FJ,leU;iqFPdD[BbL3o'OR82qPF3#
U":vH(2\rmHCo;),glh:H_l/Na-22m#*Lkcw6::6pMGucD+#5m_KSI3zgM$>B9YQk
U"6Uke<;+x777#/]?bSa2;we6ih13G1PT[uR;B*0KL.Alatr<#,G?rG$$vIO_eibm
U"p6](\%sl;a:XjdJZP]FPXzn_#YP,gJ\f4/'JV^<$#O[E(/w#$riK]u5prc&c9a5
U"%S<:VM+gjTC8dv%mT<qMG;gs4[VHr;D[s:>bbny40FHcsX:(uzncV+#4*Zs(NE\
U"Z)],3S7TdYQP\]4\,?>E;./YaB;<U,Z4s2SJ6k*mp:S3GW57#lDGalXWrU=wod2
U"E426XDG]Vd'4PMOv:jMkE8q*6n;3FG_x9XsmA+aCN0uIO&4j_'\Foglwkh62]pm
U"7*K^TtA8v)AFPwtn2'EKwn3ncN,]]v3dz)1IgHV6GGa'jc4a1m_+ka^OB*.dmkK
U"i.6Pa.OfXT0kUewMb3%Q(&NS_5%=GTRB5[C<_Q6uWP#^4>_jbugv,p<-mogE#tp
U"TW)>e*+>u(da3,a\7Fn5/U>n#UE(N<TZY.2d/gsV3Uj\;Qa/H0)kKsxhGlSl^Jd
U"tQE^5Bu]JXpT^IV<T[Z($t-aEbx&.mYa<;/)Ls('d:T4.J_pc+ai$Y0vuh1'HWR
U"hCxC>+qerjK]Ft%40Lwd=Onq#*3Oy%M#[*GAud\9o]If_/AZ4)j]VB#2q5?9[<Q
U"N-x>ws'M%J6[Wm$cR)2%RuGTlOT',/>TZ)hG7cO1EDKIk_^%lmhifX7PGkEkw\E
U"P<tnJtAf06?b2-v?yvmFiQ+,GfVoE](YYNRe6$;k?:,3ZC-6(*LoB8g<j$*2dFI
U"[<z5mSgc1GNXt$KR-SFo4GF60.LM4&D.O'[$[*Gf'kmd6G<I<w)I=we^F/h<+26
U"V>s1xu[D4wbICWn*gRj1F-kN<Al'F6]t9az_PQRi#j.kunr[oU)Gu1qU#h>mUNS
U"<C/69obxM?r:p<1YVAY:'/5bjeVLQ[fW_)J>M2t^OyQr#;Sw-SXa0i'(4fQ,UCA
U"F4hr9P40N4UGefRw+;Si^ZJUxshy3w<?Df$6]3V143tf%2<JLQXCe2Aw/V%0GKn
U"2aV4HnN5cbUEZu4Wiu(,$S1CwOH,3ugi+I:Zp^Za<cZTTRvEQqG\[HJw]D,=*mY
U"f%cntQ+9,<eW)E=u/qRrtRYQothoLR?n.NeoikY0ZH-XpqF0+xZFjSv6YM2ZIu9
U"XqBrG73J[Uo(k<o(PjEDjn4Pu9n.7;-$9ZTiR:*(N9XJ]Dd$5],#GdRe*s:Ij&m
U"1skIX20q&HS#Xef<#0G_XLooiR1[.t*FI5&*7yHGe%Qe6T]A2k#Dj:$g#o5Gc>V
U"JGu+%'TA-#c&[Mu1r/>qGd#]jvj?WtH<7nRugLMCmWYf.oDKfhP6,5=55+^pz_d
U"1gf1\;EE-:5v-6f8B,k^Pa]XB0Qas4?b;.-X#<+0UsSNW(kaF8?pV5ar7[Ex9Z_
U"*5v]*LD[b]peBPvDK;Z_pM0g'K7S+6\PlmTX9OF>OBm7:<T6h$$(Q4?sn#'rEEj
U"S?Y8WpTT;U;GDD[an%v8Y*MItiji\nx?YjHI)sa4tGIx0Ys4)\thiV+eu\*2Yh7
U"NtB-_2tHYf5ngw9t/LQMYXRG#M[zS=47P9#Tq.pismRNae,<LE46Ou0t44qWpT]
U"K$l5qPfq=V:o79WX\#PCekvBk^6e+E#40p&wkga.%T1mTw:T[CX\qdB<$v%A8(;
U"3Dm8dJ?ym,VX>*N2C]A?)x>WQ7;uc[)Jx7Z2nq7:kR\EnDZdmcI%59VR7%<og^v
U"-7D>=fHNH<S=r&1BjR=zYPaVSXe6Rc^RyTUA'2Y>1JMuYQj:j]/64%($FJ_ZEVQ
U"Y;p*u?JN8<wNIZj]N?rwB[_D^cs8D&4woq]&F6>1P_sVscwR/(Jpr=>+H]<L,[L
U"\*j#'$$YZ]h151E4u72%xY=]_2+0S^*NSgF%*7ArfU:AGFjXRAx+YQM89[-otzY
U"W&'2),,Ogr(5)#oRk=j7L3f/O*mZk(V:jMl1JTY6?9rJ:\&A(xK(<G\x]u0,V?c
U"DT-pCBVh.pK^cp2oSur]&Y%%+7x?R6X/LRpm6vC*?,:CZ_A7o*E?AB.f,BrmiKg
U"dG;,KY1]?s/NhRktt+g0\Ul)T-MN*2uOP<Er2o>Ae<8)#/Zt%(%nBv8P2mlyb[G
U"=64g0JB5+GQCU#0EIrZ[i,MTx/z;oeM=PLH/I(rgb1<L:?Y73x2p3;wY_9qtwv1
U"8c#80rqY7pMc08gZ1YT]M<p&1+i].a##2'>5cT;?W&TUf2fBfn4(c)YYc\w6NDz
U"EDv83OJ8(qxP44:yZE)t6TAJea)=pg30'uYqO7KR>KeZSVs+rHYP3=/1l)Sxgnu
U"2PikE.k&9bCwS;XNmKKW[4:bFlVw:10pP=t:+au)uP,uMFM>,x&PugtXU:bO-PW
U"d*CIjq>jC/idhNd4QWG']/r6TW6R7[6Sv)jk8Lip^2_d#3XL<xl*oBLM*l<y-Eg
U"b<BF\rd]R#MS'dCA4m\e%'gh=X^)f#X7r^<)7u;iYN:cdN$9Cgp/72s>Dswi;1k
U"8PL9i8Y9p(,ga_lX8S(ikb1)?sXx&%up&'%9%9%%'%-%)^tQL+oJV-'gR%%,H9%
U"%%.%%%%%%%%%&%E%%%%%%%%%vg(W'gS%gfxu%p&'9%%9%'[%-%&&qQLv.mCeP#;
U"%%8%v%%/%%%%%%%%%&%%E%%%%:S%#%vg%%fqxS%nshu%p*+%%%%%'#%'%>#%%%7
U"%i%%%%%
END SUB
V2
CLOSE:IF S=37AND 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
