'===========================================================================
' Subject: THE ADVENTURES OF FEDERICO         Date: 09-29-96 (05:29)       
'  Author: Thomas A. Hirsch                   Code: QB, QBasic, PDS        
'  Origin: thomasalh@geocities.com          Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"FEDERICO.ZIP",4^6:Z&=16528:?STRING$(50,177);
U"%up()%9%%%R-%0Z%bF*:=14u6#%%SQ%%%1%%%%kj%ijwn%htSg7fxfB;8>[m]o$
U"7x2pc<rB<'>./s8>7IN,h][[.6I)iltP+'_m1FI?q/<7\-dYKdN0tff+js6K6,V
U"pd?ck.6Inug+d1V;,UkhD)wtTfARZ6wiH_ged92MCHLZW3.jl[pYwfJnOyuOyd7
U"sirfy\Yf+D/].lDorJVVqet#8.uwC^>p-p96:,+p5nycEqGT<S5+S4=vnge6Rkz
U"C:G8-Zxw,DuwL_)<Y]DorFV[AQ+e*C)TJCzm[-_lv2(r-+ER-Ndgk2m2JY+^/lx
U"VN;tf47k54RX4Y0E?zb[ls5CnfuQxno5=,Kje2<v\-vv(A\1jxCHAjst3F&R;uq
U"[WgHW7+0+C72+z<:UdMk0RkDmVTA.R&JWpqL9uVZTiW<mw=aRJ.;[d-A7IyqC#q
U"EB<noGi8-Rf2VxD:*ccC?S'+44OG_O\Dt0QX.unsUEWA:?1qbmyh0P_fnOVG-$x
U"TOE930cc-O7l,0^Z6pCt<P73+9<X2S=2UzE,Y,XVN<dp,SisjYtTRk8MQ678pP%
U"tyqD%82w$qQ6ZTt\PFUR%\>&9BR,p86Z3bnCJ9O)8+oJkW$CPtkQxduvRWg)S6V
U"AZ/FeM&u7+*Y4:(RCYDtZ4O8I]-9\R5=XfpR<\f=U0G)C<t]4A^]chOSKm(DoFi
U"HoHCv(.hN8iaQBb^+j/L6IH^K?NuF&NSdi#I.jVJK/Pp6;D-G3ROYEOHY[wlo.R
U"v^I^'cmd_byO67F]87I>z[3CXj1Pc%C&e8-rJ,'4O%1(9p<vB)f2/\Y-2_fSfpP
U"&.ib8*T?K&Yb]jrM?tS3HMmQK17EnT=:5P9O*vDB\j*/1xmylpV&%T*'LrY/e(C
U"PSjEYsl/oA5EU0m-iW()r1a^]_GISGDEg29YXeNYLu>GLI[:I*j:A1*Tj93FN$Z
U"C4=]D1,]sQYSa9JXeVVKK/&d6di04=#:e,SLWy.PIGb)3%Usu$5Rx:%=6<*Y+?&
U"m$X(*]LU_r74;6sonXGUtCpkJDG(mL*.?5hL>LbL6);Ff1H9*So9t+eRV;4[xZZ
U"1xVYB?mgB5_S\#%wD+n)(I\ONn1_q\tlFnUi_Tt(l#M2U,_5tK#FD65_n#9/+QM
U"C)pXdyImI7W*#W2z'&[OO2sNU+1f-pfhm54OWUA?j5V>i<V_SGm]GRek]c3rA\i
U"Er2X]d._\Eul3q1qtG$n,4f?V(_tr'4gvR(\5?8?:p:uk/d4kN/Mt7i5mnuCM47
U"D<DqC]R[6]X$aT,QhsUeAqxiOh97nIVLL>abj\8=b+ZTf8-#20oP?p$D2:s/b?l
U":KaKs>ZB7N/7#HnvhZGj=c;Mbe3I]sMlWkgBP;iaWx&3L1N=f9rsXu&J<9t7e-]
U"a)HQ\S0e5&:qDSZ;Nj./tgaZSe'b_q+>5tIgM6qG(4sNh3>EK?St0MuS2IUS/VQ
U"8F,8lb;VQWcFstPFU^ge]/vl$3nQ;h/5VXprV$x\TBdsQ:1bDhVL3&Rv72_^CGR
U"wa0BX2=lSIe#WVVtj1BGks?oL>):kl$JPSg1AS]6a7.t=3&ImbdL$S\/Zf)/-3K
U"Zocr(+EHP^BjT^$D-Pt6\g_6GGAt>x7kZs)I%CR?rK2iJF=;OxF,Nk4,\bY9P%i
U"T^(=80&Y7&Bo749(%(hfp%bi+(G'/3]N.$e9)nIvla5YbTu2TDt;ff/b+7Es>1T
U"K6OTZwiNvV]wkzCZDRVfcE/II47q-*9c-9UkwJEZ=T#vbPQ^c?T/U[(XjGrgUFW
U"4o2hU?^s$Dfs52auWWki30]if];E1K:kM()F&p_'Ou)*;q6;-fpEEsqhT>f5Ik+
U"FmZJ^LL2S:a0k4,ddc2\2^-n8O40p<60gY_XJ1&=v1</.$nO./axIM&.?>=g-Q.
U"$II)Sp6opi4dYv<eIi/[2Wk6Z:;-m7#g*RPMk5Ok?j;/kS='qf+51XB7t7Y4&d%
U"aup^k+MVXDY4pt/mD,9cg/EYBBQ4_I3WmBc_wYsLcL6dUtWnjk35apV*[AlG<mk
U"FgUc&lE<Cl+gUcAlE<mlegUcAlE<nkQeWeC5EF8T_^'f_gbTknk0L9rCg)u?MVH
U"_2(euC'JQr<M-7_V<Kg+KTb3(ksVNPu)Khx4es7n?Wv\P,DG4HGGy:)au1^9*8'
U"K0kbvaeF*gkw3X/,t^R1H*l=EH$d7Wu68?]rulL+yFQpanxAFens_E$Cs(ZAWck
U"E-l^v8)/$9RXE'Yb>di$]=8ML'hoXR4zj^i+u]&g8Y&3t49BGJTwW:zAS8zeH\*
U",;CYRSfq-&HHmhi?Y^HJZ/bxY_&h*C4ROh-=w(d>?Oqywtaj/XNaOt_\J?4hwvN
U"n-?3h[8sq^=mK$C1YAP[v=hgQ1e$?s=]8AE2i'k2b#x5MVY#vU56WQ(PotZ:Jvg
U"93Kj1_Ixm.1Z1[$=-Um1_Op]T)&E#>Kql)m;D-\[i;MPC0TA$%f_AX20B6\RQej
U"-TjJWes9&i_fR51ET*(x'].R'71s0>>B(J8j,-JI)#+Co^FU[p>mQ'?JRdPf-q+
U"0K/Bn+PCJRnUpU=C4L8>DQXD5UV#BOD8ZY1Y+fOm(9aiVdN9a9nEBN\ADyTybrb
U"6=A#LbU.=34EJ0#f13u,i;+7nLb/QG+o*Mr1IG;Zw+XW,.T[gAO?elgkRc[XyFD
U"F?lC+km[4mL]1YGW#nGggc=A^hnXr\2CLFMgve8*EbJXY]BBZ56nTX$t^VHcg?a
U".BQVtY7;/brCVlNs4TB2C4RvgL*$_l4.b?X-%Ikr0;]H+E<A>Ej)TbEESPp*2;m
U")JV#t;)#\+O]_9Bi;[mSnlB\CRI])b(59'ZwgchhXSU22m[h1C4ZYM1+<PmVtSC
U"*2tum4'TDY,EExp\d.Lc,7JVt%;1VA)IjVtUREEb$'TivmN__BDQp%fHKbw+dWx
U"/EPb/A=9g9[q]ZVtcRF4uhKw5TMQPQC*Qsdc\b)u<^E]<sNNb5KF%kMG]5PCA.2
U"-D<g]^OBl7)fvnW2PP8n^.(S4CvH%P$r2p<P+1HRKtf1L9<*Ap8(_AHW)>31z?/
U"/n>cU[_yu%gq(#U[c[A%gZ9EVKQ1>DbgG=0bq3=U[\AI60*)yWdrV#A>o^sr*5Z
U"DoiHe[ow?uQ>:IwGE#e$yMeQ[[xOW3Wdv$kr<PpzXa>ntz;EUC=N5f2ifV7Zy3;
U"FO)-^.59(5(OGY4A^AykO]cP9.wu#g/$,ypCfD>wj&Vip-&:)<qhPB'3:TZ5M-K
U"%K%K\6q$)'\w$2']tn->])\ju>EhUTp*V&o\Q$wK_ldf1+K8,]':fYXj)C#-hHj
U"IGz_*MVF*IT>'0J&.1b'E9.'PWrR+<(QD^SRF2YNSlF:Ja[JQiQk(8HTu85A^;*
U"p%V[et5w29HdiS\<gfaoEG^B.Cg5PUjCZrzQ?;N<FgU$//1(W3njS:r*plw\jYR
U"n3%Fx.RU6A&<0Hd_J:hIR<,O0LvQ1S^H<TrIDtjFCt)pasd6FJk5Cc-)A[9T1Cf
U"<\AIi=^UJza$;/aSWb6pE4X22*4B\>YjEe=:Iun(N1jO)l84IdC$?\8WN+$9l'x
U"Wg[K5+WHFv#>ra=K3qLRD:CmE\C1?4_vM9d'DV_D#CF-%NahJvCWQ4?fa0kbS?+
U"rB+%H5juugJs7SUlYoNhhqx;TwMubfCQ/X?,i?<.duYHKoP4NJq#HKes/NNgypO
U"SspM]#a..^Mq-1?x%#FptC1(&b2K)\<>Zi7XjcKoaIUU_xWOpSU/'jR;cO5g)I(
U"Okg]S?*mb:k'+98%(g0b/;w#:h?6dlOps34?t2EN[fk^dkSsn,8FQ[(cfZpro;6
U"Aa=d0,UEArZCP)QNZu2,(mI^Ba+]I>naE(<\w9IE%-XZTf&flCLozo*lu<'G(N_
U"]clkgiR[\&(L4Jh2yk)+XbX#xqU=Q:Gd.60^(f]A<At7n*J%rP<H%1C*0L0YNw$
U"9s0D[MXFKXz\<1)TZT7hVRUL:%\Wg6\4:V%Lj[_dFF;4'HZ/1+8mO_q5^(XLd)y
U"p27x%npIa;c:F'6?MCPxKQ)8H/<%>xc2HRS8W.F$SS3qG-MmTZTuO;elWLb]l;x
U"w?n*MEBs.w->[cZm)u1u;M7/:XC0.08E%]g7U+m.UT2#(<tuJeh-ArLFP]R<HSB
U"ILAUM'PujHi4yW93N9CjqvOJDZU2bXqBa:fkT91#-:[a(nGjTgNAzvg.-9(j^AG
U".83jBf9T4y:%ZO$:lPi7SE&9GXTu$bXl:vV76jaSz4VS\WCqu:)n.:IbfSDoCTp
U".yH0rvdv3h^IlO0NzzHPH4VjJ4tuetR>,6F'[:T7syioRY-+CbR=83I^H=RoWrA
U"o$KhOe2/m_]25H;+1$oBy6(vx$=kJFG]b#o3G(]VqmuZ-(t#B8*^X[k&TaC'p#W
U"rwuoLWXmN2I;NKjO;ad;WkL$A[f22LuGPMm3nxjKc<*ItL;nG7TK;3h8s+%XwE&
U"UkkT[&c1oduelx9^c\youBcq,XjqW(cxDFt=2;o[rPOqO.5t#&cUT]KL5F*SD8X
U".M=fDb<-u)P_F,nHQMNGWG:4pwEF6u2q/G+Br>Y$kBXwXN5i.^OwG0'wBHNk*Cf
U"QqcGlVO7[_h9csj+JH$WF7e]AhiSj,/g-8HE>RQ0DJNdn/X5>JL(W[*e1t5M_Rd
U"o63>nq,g;>e2Uy_(='Y%%.B)y[]BXiUj&s?\(yK_gX\$(H-097m6pqR5(M7uU*3
U"c%??>^-G/uKO&A7?Qwg$oyf'q,uE\EtZ=Vj)au)wf3dNhO,b#(4%__l^%>KU^>t
U"g2DJ&PJ[ka]jPf]:qdq6UrpgA#[.8;AhIf/a&2=7A+3y.=SwB3qUN+<[&-sjZ/g
U"[y^FXZeIshkGuut;/Ff.[;lj#Z0hSdO,JWuPAd;m7uAoY)6=uL>E:TP^E*u/&Xl
U"#m<ZVx.oYd^<,]e>y7QR\-BR0:5>+eZf-W4=XT^Er):)(3Vo7.dh+&Z^DFeYrh;
U"e,+&/Rm<c/=q6p1$#MiW7*xSC<+li/llFJBVtSl_Q=*5U0#BBlB:Ytq>5A]us(Y
U"OB=C<1vYk2_CX(BLAXqf[Y(PBE+YJuc]cBt]w=;&lr][ws/lV#sU.9um2Z7z(7d
U"r*Xuv,>[si^7%h,=x)E5^Uk/Fbp4\&'ObIKuR#.W9q*\d$#'U+uX36OORVplen:
U"4snv4Lhb)m9[LE-A5Q*bD)Y0(br;x^jJK-M,p'Jox9Gi?1HU+BY\d+-AG]^F$2h
U"G^cg34:FTu^j>PrW#>gO?xHvct;]5,UDE0SyHo:X(8aoQJ4X9A0%MP$jug#bj[.
U">;LI7D,=kx*=;MtG,uVVH(#38x$xp[A/]^cU?uQD$YcIhr_?k_wQJ38,-mI*If#
U"inC:JAF4,pW#^YZjwC([em7I/KW[NH0ZT8O=B6'e8kXi6OBG88.8EE#xtyiaB>c
U"b)o)o$,wYP(zur80Zi8gSbOKsT^Fc$Z0uAX6Sia2[NFCaHlPdn.lH6Djz-D.Nw*
U"NU*T*3K3]6S[Io6uN0/y2mAqEXG4g4Ak#WERO+lSZb:%qDe+1*NNDa5%X%F(^-c
U"*iU99:,?S4]]Mg;bFkbAB>#<sOIl>NIirYZ7'O>9x)0[;n*nP2J9\RU4l?A:vYY
U"zul'1c,_nm)9VR\B[wP+AVO0I#\RhS9^Fz*JD$+eyWeXmA^ZG7=5'8'1YmUvIe:
U"bD4dCcR6ELr-n%[1H)(pA&Fq^1]quw6bHaM;Sbc[(0tQBh0b:Jw-\OUxk-N:r?M
U"W>IQ(ZQoedAxA_BW?E\e?vmIBK)9$%DLgVC1IYaPhWTS7lH$LT]/ADZ*rNA1$..
U"lcc0t]lHKqEhn[.B1?g:rN8oVFYCkfw2mEd][9:9x_$.e;N:=C8=dT?+_^6AFCs
U"x0>'*8lhD'w0up%()9%%%%-%3fd^E.6U14&Z1%%'\L%%%.%%%%ynyq#jSy'.yji
U"p,a=]3ahpBJ1\xTNdv9Hw&br?4cgR5r=6B-)IhOcnr8lxwulu^wrpnIdJ.aYtJG
U":*#NWg^1RMS>.9gwgw9gwgw9gwgw9gwgw9gwgwrg%gO?dMdyklMgM0$lnAIzcyK
U"jyrwkjv^rCLl(t$Mt$t$Mt$t$u>h$[r<&hD6pnJ'.a(m'$HPL:Q,Y8/1CQX-J5G
U"gYe/SQBC-5HgD]/cQ...5I2ga/shqG&5Z454CW1C1CW1C1CW1C1C<1C1y)8yYzA
U"iOrdAuoxtGxKy8AyYzU7Oh;eU*unT%0YU':20'<kB6g:/4KhoW_aB3$Og[_QFs*
U"Yp6Q0VD5]\B<5h\r0oKJ$eJPJxBj_:^e1N->S%A>GJOE^0Mj#jPqj$BA;33Kme,
U"x,lP^PxG79pjOH/[My5:Kd#B\*kzTVvBrL'V#VV*Y45qBbeKo1w4KTaw41s90E_
U"OcR&R*(MLAiT?;<W*L8#$3%]/QZQU2f4zrxqGl57Re(<&#45%(qaR$v5l8G:_*#
U"9XJ8nweo)O\6$-.Q>PzQYr;wcI1%J1q=tgUfBrVmUflBVmUZfBVmS?ZZ9gSD+c[
U"*48saKmra)j_XFS6gGS&k.^88AK]q[vVj;2S#XK[IypDPtAbqjr;$-SSK\_'Ha?
U"L>]u[zEMCegASU.0C7lrSR[vSS:jXOKh1jwf^0><*OO>y.UyLAd\_P6]2S2X=pL
U"9u;h*ydVt)1O;^Zdu%[YVk&CkRlRglRV:3<4ptITAOsFrOK<;bf]J,HsR-rSHWB
U":$q[T$7T4=;JP([3X82gfj3Yp+(fr4kjLr;O,;mG_>_HSgCGHY3^PQ,\iB.V+Tk
U"_:D^1N-$>%A>&F73y:a_he97(r3[a$7:%H6a79:H_BbXY6x8]iim#)4GGPo]Pa1
U"T_b9Ux4QGb/\f1X3;nRB]$JGJV<H]lAlZ&g]Y9BpKGYL&Pt,c:BEq(9&3-_HIce
U"zl<_H'l'gyNLzzz%b&&S&ISdl\?o)JCFiiEQ#,6aW'Yf)4^GG5:JR-m%=l*s<^z
U"grp-)bCYWj[?X9I,oC<qI_#ho2[AS'w=Qn[*hcTr+aogH%d=K)IUT%%;iPDW%-/
U"1FOT%j;ezq.OJHn5mG&U?,=977(0O:]%P))O59QR%*,03.;''-//FO*RVp;%M_w
U"s-FJnOxoPT/[pMyhr*?yboJ%M(XJ*J=dT1z[%-:&<gAoyM%UUu=gC72/1F9=MW.
U"v5rEIkf[Q%=*V/819=M&WvGk)p9*J#/o9cXM/B1njQ/B_1jQ/'Bg2pK]N81eXgT
U"k4:C&-NRdS,P#$q/7<*4M<Q4fSq:?26sT0p^$=B^jk+/pDkX$A[32kGSCg?6Qqz
U"d5%']j3SMA?$Rm<SI9#-y7x91m>j+O'saZ8Adrh'Y&*R:lj,'Y0\SQU1;7nfrdc
U"k'mZ5LcYtG1:*#9Rz1/+NQA$o/Z),I6a;l0e.SK2Zi^;Q[00SdqN(xDrs.Oq6+?
U"fZJ=R-:Ej)lp0Ovw^m/ZdRW%6,m\\WYC]IMh,%HZ$wo,H.]&qJ<RN27ll2)6vkR
U"_?b7Msr$][k_?bM7sr$&]k_?Zbaq)WbI-TLZvuUY#&Fv$R,?wu-qLiAvFe:iJ*Z
U"WpQ#,=]F7\0;NBt\g,h5VDjRqB)_83WfFfuZ^iZ&F\I\0VoAg,l=YDWQtJ,eF?G
U"LeauFGL&G)S%)r#iO*8u^OY^)7T+Y=]O\QU3$*qVjOZ8u^UYKThBZj\0G,/(Yjj
U"E,(YVkj_?LgA=i<Crr.r<v3Qn%+72I#?mY_87EJe)qPi(&X+72E#i6fF++13^>G
U"V%Wv7fVB.Di60QGUR,1QG+2-[GV1_c[3^JrhB'auWA7o+S1eyZwOAoj(fLkN4\k
U"]Dr8K+kN412N42fcYwL/osR'%2/Y5Y?Y=?\n4\q)?R4#-;)F1=#;)Fm1#;)%F1w
U"Usm:mX+/Y/yC80=SG0Q=U;\0Q=2U\05&\fY+=cFuj#(HuV.DQOF(PP(9e?*jhum
U"pvlhwi?9j:?4UB?YC2m>T1v3v&&so<8wW5%E2Tc_*>lNQ\H;T#aj.emQY#5]E2p
U"c_*LlNQ\H;T#ao2CC*U^:bg#K$E2<_9JDdTsiq&iZi*on%<7]eI&<7/MOG[.Jl4
U",?l2[AB<^iDjMhmqNZJ8a.omTsP&nl[Us%vDvWDLDLWDLDLWDLDL(TLTRN'z+.j
U"jl<l^$ifF3h7^>T?18K6wxxdY-X$8aa?W7HN[vdcP7(KsDsL^t^Ppr(Vevj[IfT
U"amOcXgjXY1lT.I$T#0YUO8uX/pQQ-Z<:,#TgcUo504r=<<b#TkUTo60\Oi4M$0m
U"sILr6bWbNWu5sMJvJvMJvJvMJvJvMJvJvhJvJ<W_OF0Q;?#ff\v?gflLrUW5+EU
U"h4+U:Pj1+^uvDH9ouAEHc;uaEZH=u+?EH?1[-;5e%XUd,-l,Ud+4lXVdd<Bb=Un
U";*#?=eB\:DXet(?K/'og&<)7/%w?Rt;c>6Qa9C_H$J($L$dqlnG#X:wE4am4qSW
U"nhFnuTuRF>nXu>rGn\uk(Gn$<uhGKrvQmD_S-KmLW#fXi2a0_TWWpeu2/E.G4'R
U"B59:x*\v;/24uATg7SP]W$Ze.0n]Tiq1,jO0i.*wVFgf;9l0%EDie+5$dOtaxs.
U")EOG4/SWZ.SbE$Af>/7c+R-,.<z2,(<T>pL^(<+cr?<%#<#tuR1au2&cN(ra?o;
U"[*?uJh<M=G/6gNt:WKVUhCjaTkcUuWa[.[MrSZJkt$;Ws/ZIhuQ/P2N6x'O]P'$
U"P.mC[E<5]rZ99*cSgX44_0TTaejqV\l)eBC']\0laeqTVFiO<Lnbn=n<c=35g<I
U"?=O)FMMkp7[/.T[hThh8Nh2?Zo2VM702/<pa(1m+wZq,WOCQXU3*J$2Z^fd6_M0
U"$X\e$U,lUms=DBbHp^LYhd++>Yui7I9p%cp6b4D\e$rUrXc)d#/YL<7>-Qq2$<8
U"0d\HevkA%OnsJ$BxIR.FUU(56qT+j+YFrUya7.ffAV&6\)FQPCsEMI_dln9wFuS
U"R;Zv>Z,mwafwd'+M]EfTHPQkDV0L*l+(X^U8m($^A;blMFAir>Bp^U_,.1e(m(M
U"Po5AQ.3O#E0VU^;bU?fT)(O#//T>45?[:3wB_u7#eR8UrT]sm4FT$)J#/t><w&9
U"i?T]4E^L4HSZ2*r5#YgbP4,K.CmJE<fP-,fKCboYg-#s7bK$V9r3]$>_h9_=A^9
U"wm3a^9my34C3;?5?gbIJq$oG?r-o0^AVEV<uY>Qn\n2cRd:2j6T7WXWcP]x$Yl&
U"tQKKC?]ZX#Q1P,^tg(a(aoeidU\Vc),#/YE<W=cQU24340J\6ehU2?W)<#k'5P#
U"'tg((ZITtSu6X)rg#EN<ro>QxR2#90.,];&nVbY)m.A>7Lw5HLKx4Vth4EeRM(5
U"*hY<Q?P\>A=#DPBA'<#0h]J;CV<6\)>QkCOES)E-_T/ll:MGVLA'<FPPAU[j<=W
U"lZTR00l>40XCnC#t4xyOcC'.cej/D2G\<AD_Ic;&c4#[bV\g:8:.+fgAEW<=;*i
U"?'T]Etd#aMU?Yjl+>ukNdr4-i4I(9?PR++IKS,8ticQP)74Ka,9M-NMF\O'SI'9
U"%9[5:fI0gbIJq$oG?r1E2.ah;[Vv?g)ZB=[2<S>FQ_35JR0XO$e5Vtl]1X7(CX8
U"+CXHC]XXCX7hCXx4CX2C$XBCXSRCXbFCOGJ3E0b^]eW0(**\(w3H)4D^_;i#=Zj
U"'.G5d^;gXVL_')tA[GY<s#BQO3J<>0,]fe;Vf6[).Ag[[r&CO<z83(&*jTSOK%U
U"6jC0a(pjWqJMTlrTmXouu/$0sb8frP<H>JPMtJci_Je_VJg_JPi_Jki_Jm_VJo_
U"JPq_Jsi_Ju?3l:2\ueI?qPIf_U=RK)lWsqc\Z(XOvr)[PQo?&BTZx^bF]Q+2t;o
U"0dXWeL?Gd8C>7R[h<=,7Q32Ntp0jOXeBUXbF)x^>ES<6O^Iu^A0>($*\(cbP+,>
U"76OXtF<Rc+f/4ffW<4t?fRc+/p4ff<k4t?RLc+^nam+R1tmfpTuhLhL<h^XDTpd
U"gNuUx1xt#x\wl#v^taDPPPaNPNPaNPNPaNPNP9ZIud%up()%9%%%I-%#NS_Eoh0
U"wg?(.%%V8%%%-%%%%kw%tlSnRrlFg)(=P^71jx(\3L/9Yh]s&EOqy2QeP,E#J4B
U"*rGT%a,?KuFdH9Ro+D8dd#ub*,oT*jrL&<HLMMK$qJ8m)JFfwtPMy3uo:\XvLN[
U"qZ$p7O92XHJiD\wP^A(j7'8qspeI0(sTcK9n.R&F4yXH<bOk]F(jr#%L05tZmPR
U"6EgCZ6S_5N(;V)H^0$u;5Ze=Xr*xA>EN23/KadUej)6'OL'712TqNVUdIf>Mt)+
U"R>&)P[MN]PlA[0N/='fM'HeK<[gGgCz_4n&iiZ6JX?I[nk6&o2*+kvH\L7l%H7J
U"Lm92SO9becoZX7G8I5kn,-IS9K#V=e40Vs,m]FE<eyO,DlJZc4'Y3;-p:E1]&i=
U"JB)+r5#e'=V2(9u:f8,*CkQNeQX1MwL6^eaR1tq4+=kEM[6JfRs)X,5%qTo=$=,
U"nrlLxi\.0H90mD[sXr8F44\\jOX9Ht9r[ihg9re=ydRQ]n,nCA1yH3F:8_=.x'[
U"H7-xJPR8lBYNim*UamKf4MUpd>5r*7emjMFBxB[95nNHQ0EdY(V*9blTSR8X;WV
U"XxoMWEYgaWl6fgp9n<7lh5GnrCq\EO7?/R]GrrKyZKogj5_kD_t?2uyLW7V4[>f
U"Vk*a.+E]E0fI:rKn<Lbq6IFT.3ol7C:Fv0g6]2;?HDe\?ZUxgFee.ku]0Zda6r-
U"#,s8%Dbv]81<vIQ0<g[q)^SNHe>i%r)HGocKZ&\&o4LJ[t'[&b\rQ*a.5Y0AC_:
U"jjnLQOR^J:A5j,62..8i2mSCzhg$-7B8_OuaSe&=FcjdhqCA)^o.Ul#F9,#fBO$
U".l#%Yu-;PB#CZbYap)RnEoe*T8PIXRqwm=2*2=;I>r;[aKMRFi;/yD+J&iP7(Lx
U"7un^DX]L6=xh.*\tJEb:4*a\Y%HuSDT1G;QsM'hy./]^-C]6]bEE34mIiC&<Cto
U"J9s#36b[UGwpo%jvjK)XEgg)IbL\ZTM+.yK(KLCm^$PO-4#\gR/t':cY]K[)xvC
U"bV3?tz=cgVzRy&%D715YiGA+33+ek(7s?Vn-M=Sh)nJw#sV'rc+l0=u%$ZhEd8R
U"HFR\[lEck5AGLA4U[z-6I6vDf*M%unM89$=KawXq3E*-*3+4p_aX:'x(up%()9%
U"%%%-%2#L\EMXl4K%,'%%%B5%%%0%%%%kjiq(j%VS[ify.JgbARIU5TJcHq3g=w$
U"h%#EE.#/fHs,Q>$>1mIReHd8'J%pOKl-34a&tPi1%[S9?#RkzegaX,tgoSE5MjU
U"-[O_.[X<z#&E#qCZs2rB&woihc2o61R1yQS=y&w'EYRMRvSmB)49NXd:NBS?)L'
U"\Dc:b^l9DyeOsgpcgrt.Pi/hl=_cB4.qPm'\ub$pkDK9r1)i57)\)0>J7>pc_a5
U"ZOO9d4MI=1-*Y2mo0f+H>Rkbo.^1[vW<W:,q6%bdO'SjNSiFJ(buIq#$cfZ2Kh+
U"#)eX%/$O2S0-A-pA*qz;8q7HygD-0%n#uL7DSu*QRwUWE^J<'d%rENjMgNO]mxR
U"mkL]to-+\[grtyQongDYztZ;(M/I'L)&BcG/:n:;3JBt+hvX4Ov*_=vG>h]GNU[
U"$NZfLP?)iu/$;WMBD/9\+w_1&s>tZ7]wfb2X1<1h#xUQg/Xy?)4<TBW?h?fe=dx
U"#[i#b8r)6.MFDNhoY?urv3X_<PdbhI\-l9hR:v9S\QV-;)t$+=q+o;j_QPbZ#Gq
U"_B/M,=^&0HyC*pv(hsuHVD0O_O]:%6[wTnxTK,>u4VXapZPLl5rdOl<1[+&x\AA
U">9Sp:YvVZAY.m$v$KQ<bGuoI9BZHNEs2%F6aARx4a5ZvSZU&pwt;T.k0X%0A+4x
U"up%()9%%%%-%3tt[ERtMW_'C'%%&q4%%%.%%%%kwtl%WSnrOlff*,]\]1Fjx(3I
U"L?O>kad.R;Wa\,_1v_b>CHHEM4S?+-paw9CJb6Ysf4q7'Xub*P,TD?B8f#n-tfD
U"w#Y2n:1dTNyAin^[DwSGO'jq?Na?BhVX%=2*Bh_q[LpGu=.+&=wP)epv7(l0kR)
U",r?j?ka%RET]luM#Y>ls8lB(P*]gRihaRm5'R%[-.:8DzyKg]7q9n,P.Z]E,1-U
U"GcJB>0ZlHX;3W/+#LUw9YDf^#^KZAsSVSdXm>RDe%S_(m5zd>&#yhN/+KAzrE[j
U".I^hmn::8w&f.R4[=[:K/=2,-9zOidNgfmKpDSgOi'm>;D3eR3z9=u9thTQ2I)I
U"pvsti%;)S:vEe0Mo6?e7JG[o%B'x3Yb]%#c8NYn:#2Be6S/3MP-Ym,^tNIVA%ru
U"W0Ho?eVjBO\rOo32.W]6oQW03gSgxShX4^oW)Y10jk%C%9Zt+7oUuq[sIU.[y=U
U"/>8b]RD[?v0rB]84>0^)qNm8J.)VTI/Cd$,p5i9d]KpgARCFaSgSw_SzbY5Ottr
U"0_/&NQEMT:HZ41]=PWXH%tQBp;M2EgTx/['u_4%FcSw3\P'_JW0v%HSeY*1?t2M
U";*a9T&4Z-H.q>.Fr**<'yPBrMEEKCeQ<;8M;]a[^x??eHxHow8=7$CE)sO;Z'2L
U"P0xz.<)4/'>f57+Y4Gm%D-3g,oIk-n8)(3oM*:R_Akwsfh]U'.3OrnR&KU>f.C<
U"m1MQ&n93'mVGBB>22]R$I0[]&-sIrv_Z.$0#<gMbeg's%$.'5W0geFc2%+4e<Vx
U"eo=3xJe4b3P;V7Rlih07[^t5IqXc;#]oo%=ytr;O',4QsphMUG]l%p/>kkD$K7a
END SUB
SUB V2
U"bf5H$uaU:BE,_9o#d92i<96[tM>f2Bt-0dr\i^t7M.GZL:AnO8fNs.X=Bw8u%p(
U")9%%%%-p%I-31E%,$)kZ(%+%<:%%%0%%%%kji.qj%W%SifyW6gB=%#V1e9h&k4u
U"2nU6M&<=j3QvMguh/ehE8CIa%7\^>a)aEA+=HASI7n#ksoRw]6nq_gNAp,VFU'k
U"Nk=pBYM&fl&2LTeG2mE3LeL;o3$+JMbML#xH*w=9l[jTpRNa)bg3udGwer)w?.m
U".&n^6:/Q4u'jvJU^l'*IPJJ0%M1r[F41fo;tTnuZHXT3#v1)RWcOd'+a3s\A*St
U"4ksI?o6kXhN<mA)Fx2]:cR\36uhpe-ChEDdIB1wDkFPi.giK2*j4re1JnU#\Liv
U"H0<UpOi2rjQ=E=F#<*Z^+dM7*=4>^%NU7?i9igEddJpwa?VfS1r;?S<r'.P=VY?
U"Xk%bm0hQK?5b5%o^&EW*</m,)qKzW:AKVX$mL+ELMR/\Meu-TgZazKMVP>]+4E?
U"Ys+j^QZr=LFuIE4Jl+uY>Re>'[#;nN8OdpsdlC?2?-gU;:%5+GW&Iw>5Lw$oRLO
U":Jwf8&ugpeRQw7nJ'3*&b/[>7]eg/CY+F6DOZvTZWI'GYcw252v]D]VxW21(n<:
U"5M8EtZBNsI=YcU1fS?regnqc-q.IKk<#=uVG**b=4zo3g,uF;uR4xo5m/M6An-'
U"p%X_EIwis]P,:dW-#(Z>N#\%^zI'OavRhGV5p#A/F,D,9wuCvjAzlMi85_IC6>8
U"j4e$DvCwD8Ry\l(^lPOivrsvj_$)2.Qm<:R_x<9GcQzTEf5lXqe(b%ClXKcn4G.
U"ZHAR'sYov=7uLQ^r8jj8f3p0>;5#IUt2sphll8kK,rY-^o-I>yhki+?niwfX3/<
U"3V>CzJ=g5po_)8yVKGOr'937Vpulpo(t&k6fq-*CZclR$2GgcRhC&/9kjRnkpdo
U"b(TK>3#VKiFWxJmWpr$>(y^ei(:%?-\.[?>TjnOa(aQPudzY7&GLY<9U5aUVdKF
U"4Ne%Yi4>UAHh4AFnh[c*^Yc,Z8b(F[GX]<L3LL90Sn>c-(EYzbBt1Ezq5Zhpk9W
U"RFnw[Hqnt06L<[s8L6L;v9b:rV+(/*3bXv='N81X]+.%_^U_WLpg7r9f(XMe>uT
U"CL'Nd7rIId_?^>J5-gazYpq:HeF#i<2Gz$N+'>$<.HHQqvjz+[cj;MKaYBK-V5z
U"'vO&sj3ppeH&x[/y1IZ>2%m7Pfo\Po,;GQk0(oGc-d)-Kw(u%p()9%%%%-L%4^[
U"=ESv$(N:'%(%I0%%%/%%%%nyj%rxVS[nrlfnepGTdU1Sp(&A8#rYj<lkn%cf3qF
U"[+Cv&*YCGZMI0F\smDSdN\neTXHnVP:QC<E:1kF*-l<%3FV2j4K>%aDk:;L-I</
U"w-ec[G%Rv8HcsQ6CF7m31eb+/ezkHmv>tI)0DBc[DFg2-%6Px-1P'yB;Ch(4JnY
U"E\[cM:$Dy28M?gd:dA--[bq+mt#A?NaLSnc\k*_yEiMUEZ:K_1-?pNSSHAvu-B#
U"q6pt-[6?R'_=VW&\eRc1qrSLQJFy3JP_7uBH#QsY+l+u5tKVIY#do6.iKin>_NL
U"D+[dyg$xALBX57S$>kz%3)77.c,K+Z2[1LfBm*:t?K#EI/xy<>0BNG[;Z\1D%Q5
U"*1\*ue=_Qbj^%0pp)Z?NO]E59;465NH1P[u#i4v?l(:OCZEhczfs%kGC>JDcXO2
U"<$J0MY)7AJSZ^55z7GYhySM#XXQ$GCyIOuY0OAEmU;7<Ie=(3QL*(TIzf_qe8Cp
U"7(JbXKhqb4-)Dkvc=l[giVm#Be2Uyb3,kJq1e6:TDiq#0b_*rFHL7Qxj]##&Ac+
U"Al29F6eVM#akR\O'fq[X9<cWL*-M+uCY>]oC1*Z=Y)m-b<T3/<XI4qU6TTj-oF)
U"jJtl9>*8_.)%8*JaSa9=1>[>M>/l&>)><]Oj10MKQWR?<LM6:.e(A$'IdTdtZgJ
U")0e>h7TsoZj2)A66kRJGN:X/;1/CY^'i+lb.y,T=9.6pA):%c2X?-6)wC#$SUmP
U"Q):^]vn2sYA,,V;38W8Sro-F,\6sk$RKmE;NO83l)v(UTxUvB*<.up%()9%%%%-
U"%3+d[E,w^Pu'k&%%&./%%%1%%%%rfzq&&zwk%SnrlEfep]'TU1e0p&K8a29dB<l
U"n%7U:8e8PbE1QJqe$T(D;jt]-noA7-SICD+^#yMvo:JF1#2)<v]T,LNiUsr.&qp
U"bvg6+[0kit%ehUI;D:C;R3NK_PTIl<0cZc'2oZ[ukS-ke\yKVIp7_v4us,lLYC?
U"LWr*O,n?'3[?uiVq$Ze:M-t0>XxVfxM-Y0bRQ<*l:y&P\yejF%S.Nmv'Rkl<$dB
U"oxa=RqO]L/U22BEei#u\mRRchR=k(e.S'J1l5Gm34o(=UjLvT0#raVL8s<?X;ZY
U"D-6DfuDs,5_ZB1_*,'k)E9/o+t]e&8S+qA$C[\XUc-l.2I,W'e#=kc*%7f].XDi
U"RU[Cy)Y./KG0wN41oBh_k?B,hS+K.*0^2Ehb4RRLq$nG0Cv#FypP+kI5vA#xQbb
U"]EmD94$n55m?vXva&m>FI7.oJ>mJEtPCZ('st*MGGiOjWIE+6g5^Ww[;3Wo=3wz
U"Nw%bw>j_t<=R84^N*4hv*Re.oL\haNx^jT>M#ES%Y(22C#z.WCzU^JxsH<K>F7S
U"*B5:?s\2$0f;^VDYUh/qfgIP85co7sSvcoAt\9_,4n'FPi4)NZMnB,dL]c\2K0=
U"U]GKLWOH_pQIN9:P/L:7K)&+(s1LpN-&M&up%()9%%%%-%0Tx\Egr&Q7%p(%%&)
U"/%%%.%%%%rfzq%WSnrOlNe,&=H^1bSX(qmKW9[jdHN+pJtQjb3S+o&#5EF03JMz
U"(It3)m9odF-XT<QRo6/-((VwQdUp72HYojz3pGsNHNKe)ujfdG=+0eZfdZ[erP)
U"YlaY5](sm;?F*A%xUQ9ejC/6o1t/gTlU-Ym3,#VW\b6v-BGoX?LGIy03%.ROEs2
U"77YVK&KygOkd%cRI-*_gN7<[l,QXSObboI>Nxioq9t[+]f;f9kl1T=uqs,)2Qy4
U"MRW6[%[nFn&gpfFW.qt)-7so#m2DCmQMk9*ic-R&.qdyoU?ss6rVUe$qY)wGMV1
U"A+V6KMxx%3d9HCc*8H'#xDTTP;-5^&VbS3f\Pw\=&nC)j9ki?2vH'Kf\*OF?*A=
U"VZ+I5'>yi=7KqRN.raRaE,\i$)u_S(YQsP?sEb[XNv>NaB_XFeUz85tPW,mv<Ln
U"Ea$n&tiaS4###O27xrNH.f+bjrW\-qRDDlc;RMh;u4'VZO_Ypd'N^y*_oLxv:*S
U"X*<nZo2;>V.)K>GXS0HJX0%WU7v'U^]GYGDg\L=CvtREss=3HG302,/F\YEA=]W
U"Z_1%AhdoC6YsGn4oQWg3]'S5y_oNf?MRe]=mf:S5+2s^jbtI7Hdmc'+DJIsRmr;
U"Veo?e#a)>mdkYaaYX?C;+R9fG^cMBH.uJsp8c?+,s1h21nUWf_3FTVxfkIX+g9'
U"HS$DDE?-9U?KGq7_-7_mj'_+ws/xK-cb;?2>m:IV*6kG9?UXKVi6qk'DI_/T)Nq
U"<=f>4IG_[GppG9rE8ncOo)2l6r-89X#N0'i-217O9o&GntWj<Z,[$?3FnR(aMh(
U"+3sgtJG203h%Gk=Cd8VpDlx;DKO$SJAbR05%RmgL>I6C-h&YREtX_XkGfq/m1ke
U"DQd]%$Y>$H?&iS,clFI:q;.fhZ1A]L8$E;c<upiBNbeqJutNiR3UHc8+BpTDPj4
U"ind-wj6]_V<?4Mg1=mu26'ictK1,=k*<a\Y<R38LZ:*U6v/tluuvZNp6MNguu$w
U">B+(uTtejmuLhi:2IFcS80X=ylQ\264W'/XjU%k,#<?StPxmo,3w:CriTJ5P7d9
U"u,%up()%9%%%I-%*1J\EfL5<:1'7%%Q.%%%/%%%%ny%jrxY%SnrlWNeV]B[U1TN
U"h$GbsErXooldRS^nP3TN;[5>>%69zC#N^]A^NWQg0[bX9d*Nx3IDk,KP0[H&,T\
U"w%Y2n#Gn;txRhXqm>)R;Fb$wN;7wXdJV?E:WE1BiY2XU/m0G[p?mo&Ib]Rzr[P&
U"3=*?sS>e[;gTI/.w\uqSC_0U)3x,.Z\7UV\,q)NX)ex4Y7UL<I)B]Dzx/KCMdQS
U">d)Pci;&tGZZAldD6G-47wF(9Ur6PK%g*&M96t.v_;8&\]//QJ-n>m<Ik5k)#HX
U"asB*;k#tG%.J0djaVC83]Z5?esOi2sAKsk&UKI>&h[IPH[=g?yj2XVFS43^+).>
U"<.N60M1[O9ZE:gg&LtGPue511&Q??(\B5+oh'XI\YpO)QcZXSanl9IR^mW28hk&
U"+g0^2*V6'j=b;xF-V(m)oIX]Rq21JC<.Cu#CBvcas/E8P?+1mE(-*</d#Q_qdD^
U"ZPk3ns3OGO5*I+)KU(b6F<YD,5]d(]o=&BfQEHEfrSw?ikEXpa:WS)c*hR2:R.b
U"#x0A:P:]Yh\9W1c\p.RDe?utuaF,vAa5\6e_VR/*8%k,iPy6\6:YZdSViqoL'aA
U"3D>o_r+U?q=73q>oAJmDcqP#Hm>Yw>R9c)v<eJ6Frw#Y^QZ]e'g-Z9GIEMGGB6]
U"Q$^5.S(X$qHBaLo0L]GYn%J=mZJ*Zoe3*-OhZe&?0:4#f#0,p'?)K4c8C+_)?M4
U"[CQ$8++w2,WIuRMMe_Iv/&L_0]nj#-HLKGLu[MxMG0*y+YnbxY\-d_d/'w%up%(
U")9%%%%-%2&n[EDs&BS%K'%%&5.%%%/%%%%nyjr%xWSnRrlNe;*]TU71jx,)glM%
U"oXIP8*+aw7KTx^:--lx=[k-h3^lKOA[-SU7?rvue0n9CB0X#nDsU_lr]jEjL>_-
U"jL&Bo,k/G0X'rjh-=<9s8xM6Am)*D/w8\)=o,gwsA.G.*1A[h?4,Liyd\(X23Z>
U"7ZA18t][Q<IT2;/f]G',\0v9g4MM*M?:+[&M6)m.N8ma)OgaFIfX8WUWToP,]gJ
U"FIOR-XB?Md[)g8mW7p6pa5tBJEDQrnu05Ac*m)5(L]-Y^MgXPS:o-AmSr^(9_+E
U"<'sDrORj;.Pnc-IUZf+&w.]UBJ4)AUHLMD\7&$\t59&2#V&+iH3=50XX'+aofdB
U"2/vmR^8=*Mbk<^b?9d3Q+6egV+zYxC6B9(*+d;$[gi&wtVfG'UhG7l&iMc=jT/c
U"2Y9$Nh><HnZBj$[[pNcW>G>yV]Ug$m,Nk%'>lGm\Pb:=H#hV?E:W&=kOz8$ZI[9
U"ACvW[(Y'_sY39&fZYvWINt+)ij1O7,G.&E#njSPsf:g6Wac0eKB2-f[Z.K&)jU#
U"]i,dx)BjI0wY*69Pf#1x_)Eb,w_6.<=594LH4SW%T<VJ,,bF5h6ru$0hc8I1WiC
U"ANVc.dXDE<]Y3RfJ1X\ztS('tT&a*$Gf&ZX?$:+%MG#Omh85]*GI%n;<pfkM5/#
U"=cY3BKc)xht*299NS8'vo1oTGpQxE7?qWxZ9wH\<%up()%9%%%R-%Ny8[EKw0TM
U"+'%%%z.%%%/%%%%ny%jrxX%SnrlWNeVA#Gf-T?h&kr7_zu(QHx3J(=DA8q,bFN]
U"?on3(XK,?2i04otrn[t;K1H[Us.(\rlXOo^^nc=X^5%2]6X\PB>z^]KEnCx5G-i
U"AD+*R=:Q/.yjwwTK=iR\X0QMnvL]gQt)UEV$Ta<IO78:a+#pwB=ehq'TV8(2JtW
U"ar]U?dMP&Lor8(7g/B[5$4.Ys<<UEpANq.&N%(q1>E)*#gz^GXZFQs':#k/?V>C
U"DaJ<J99PMR&#(W9(O7a;es7(8U0(^5XORrS#mNg;p^PWI>XqVRWNe)T0LMhy\V2
U"1:/t>4EjEat=X[E;eJjdRZ<hu?C34s+(;m;&r&UkQFGa%qwTevAWiO9Zo%(s>6Z
U"osIi5\hmR=9ERw,Wc:zh(zs-;7apm/i)x*;&76j;Xh#L(9JGwl^&EVIn<B7r\.b
U"9=7<+Q[KK4$W0wAUDjqTw5xMD\qmoi#-uw3Z5HDup#'\h'j^V(\.x/vD.P.w.Kw
U"B[xHVuVTotFf#TOBebf-$93P/3XXgyLy$V]IJDFRES>auHw1',GZP<sg<(EYO:m
U"t68_i\$Z+d.h6-vdguy;]+*=BMqN8=<AyUsl[I.HK,=',QiTXtDM$m%ATh-YZhp
U"RE&pqF3JCPbmVZb&JJyf^&$ats)U>aFuDiZpl)wMcMf'bEd%_nT3Z4mX<#wUgkS
U"]0_g*.G$A:3fNc6p5:(iZvH2_d(aG9M^K2%HNVSlWGotkTu1it\JWvaUq;DFcmo
U"N4ccmyHvP<Sq*0uugJ0N.3q^[d%up()%9%%%I-%OO/\EDj,4)h'7%%f-%%%/%%%
U"%ny%jrxZ%SnrlWNdD]'TU1j9p&kLs[9#^udt8%>sfB]*bGW*E37\]sACpipos=C
U"p9o^[EpMXtF)TwaAsUgVdQO'<+;g6]EeM(d]L'KidgpNPc,+1+V8h3Aa%DO?pC(
U"ZtoI7^p)jZuQD:VGS+$_nJ);MG]i<C#o3+R/J2waM#B&5.bLL(?:2k4h)Nkq99S
U"VO0RbE&&GKE+_((#q2U:N%t=)OtnwYvI<6SHEm(qMSp$#Qjt5JA;Z#RbO4G]9)H
U"JXA?]GK8>xA+665GaN(-f0x%so<#/5T2^v7K>A+hT>z%<an*gZ(PSweUqomC(1)
U";9u-dRBx\3C)nXORV7:+z8FD7Zn[0C?l#A#.Tz=KsBgeu?8rFFfnR?,/1RK]>7(
U"2d$G(.iN&vOtdogkVPRPee)DI%-11R4I8o:;$w$#ni$2a%#?Pm#MhS8=C>;JLx;
U"*0*$>Y0pd7,b6dekECD:^46?HwsAOCMw?:u$M^:rMssC>?.H&ZZY'0RZFXOV5MA
U"q/?k8gGEI9Bf:xbZe(Nb()c26+ac\p96$0uh;RN<0wO8L:v:cSJ0J;'a:N^Vo*V
U"bSH^ktGH$9k_Mh:mJkH/4c*mUv.Q2e_B,U>>B%IxAElN:Tea)du:2c)w1ANnug;
U"a]bJ3N$80qZ*-PG-%c0?>soW-FN-JMx\NL%iBeqHzn(.ff7&0x3sN9q.A>3]&o^
U"TO2:Bie+o_f[Ue0[M:0OK[0cjibtnH$4DS'Tf?w^++8%u%p()/%%%%%#%yp\#EF
U"zL%V?%%%%?%%%%-%%%%kji%jSgfIye#1M0B82LTAD=LE543M4A82J>S10&B2/u%
U"p&'9%%9%%[%-%0&ZbF*m:14u%6%%S&Q%%1%%%%%%%%%&%%E%%%%%%%%%kji%jwn
U"h%tSgf%xup&%'9%9%%%%-O%fd^#E6U1(4Z1%+%\L%%%.%%%%%%%%%&%E%%%%K%7
U"%%y%nyqj.Sy'y%up&'%9%9%%%%-%2#N_E<ohwg&?(%%&V8%%%-%%%%%%%%%&%E%
U"7%%QC%%%kw%tlSn%rlup%&'9%%9%%%I-%#LJ\EXl)4K,'%%%B5%%%0%%%%%%%%%
U"&%%E%%%&=G%%%kjiq(j%VS%ifyu%p&'9%%9%%[%-%t)t[EtjMW_C#'%%q%4%%.%
U"%%%%%%%%&%%E%%(%mI%%%kwt%lWSn%rlup%&'9%%9%%%d-%I-K3E%,1$kZ(7%%<
U":%%%0%%%%%%%%%&%%E%%%&^L%%%kjiq(j%WS%ifyu%p&'9%%9%%#%-%4_^[ESBv
U"$N:#'%%I%0%%/%%%%%%%%%&%%E%%%%hP%%%nyj%rxVS%nrlu%p&'9%%9%%[%-%+
U"Dd[Ew]^Puk#&%%.%/%%1%%%%%%%%%&%%E%%+%OR%%%rfz(q&zw%kSnr%lup&%'9
U"%9%%%%-F%Tx\IEr&Q'7p(%(%)/%%%.%%%%%%%%%&%E[%%%k%T%%r%fzqW%Snrl%
U"up&'%9%9%%%%-%2*1\EhfL<:&1'%%'Q.%%%/%%%%%%%%%&%E%.%%3X%%%ny%jrx
U"Y%Snrl%up&'%9%9%%%%-%2&n[EDs&BS%K'%%&5.%%%/%%%%%%%%%&%E%7%%gZ%%
U"%ny%jrxW%Snrl%up&'%9%9%%%%-%3Ny[E9KwTM&+'%%%z.%%%/%%%%%%%%%&%E%
U"%%%a]%%%ny%jrxX%Snrl%up&'%9%9%%%%-%2OO\EeDj4)%h'%%'f-%%%/%%%%%%
U"%%%&%E%7%%9_%%%ny%jrxZ%Snrl%up&'%9%/%%%%%%.yp\E.FzLV%?%%%%?%%%%
U"-%%%%%%%%%&%E%%%%Pb%%%kj%ijSg%fyup%*+%%%%%3%%3%4(.%%:b%%%%%
END SUB
V2
CLOSE:IF S=255AND 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
