'===========================================================================
' Subject: SPARKS SPACE ADVENTURE             Date: 01-08-98 (14:41)       
'  Author: David W. Hayward                   Code: QB, QBasic, PDS        
'  Origin: dhaywa01@mail.orion.org          Packet: GAMES.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"SPARK010.ZIP",4^6:Z&=17105:?STRING$(50,177);
U"%up()%9%%%R-%<'/9H=x;u\T%%%%I3%%%0%%%%lj%sjwf%qSun4hfcf%3'F1#jd
U"Lgr=dPJSG&VGCRFAzJJt2VB;1q,BqVs+Biq/KKrY37u($Df\C4]Y&WLC?J\]RdD
U"'?g$\1r6=LU8,6'F9eQ[9*F9%gw5JmM;_.Ewx0wMqjCmp3woE?#b(_c#Ow^B+Ft
U"AjqP'UjGruh/d1vYH\4b?T;GZF\;d[b<eB4,iM44F]gvwONcR#5-xI^T)uxO.<;
U"z>X?.>l^H'E-z[PmOf_uC.(91G$7G>T&f$3<8thHJ*=Q0WDoZ6FQfm<avP*Vt64
U"U+R:/9id5%%up()%9%%%I-%ebB^E$7,U+s(.%%E6%%%-%%%%iw(f&SuRfq>g>,'
U"U_:1RX0/C4,gBuHL(6xCY#+/Z<$%XMu9opjAJ.][4vMcAM<W8MwOU></fr4[t*u
U"?mTrqnXsUjLuJ8MMy4AEIec*URfN(<dBJ3s0ghh]'Pd=h[/m_)Giw;$4SxolRO<
U"*YL*#;V*,egT&S]0>2/*RtEEoTl.a>)1g]%KOlX.hZngI17]?K(+?w0UqNFoxAX
U"jdAIn$6^DEsL1ro?0NL8wIHAWWVkJ-NzTbV&A)i[?V6Q54<nfdI+tW+/6?e>MXd
U"/\3_+,rv#Y5yW];[Szf3SQPF]AEPejWOy]6KZq9C]D/H20W#MvXuot[J96?/$^K
U"$,9HAM[JCmu117D/P>V<VQ$ixCPAB9De<8mGiFEp_.C_r=dEd+D%H,]/=\+Yp+4
U"1hoxqcSUldUlAHWVpm]*-Ut62aQ5ILIv^<ZT=+]:#$[XQ;mCrRTMJ]/sPlBUyeg
U":ExQ;dS$Y#bn$Y#LKQozP9D(?<BPK7+u6p_3L(*lb?dhVMK9Nd_*3NjL3ho/&.r
U"scsF\%%)[s*,S^M*ISh=Ie0-kVtCrIRC4f4D=IgI.R9Zmsj-%IcBL,5*1x7_u0:
U"Q=bg3GaK,=<)($7AUeh7Q-70-6Ks[BEdT)\jg.T-/&0w;8RRe=XO.modX1#\$ih
U"(6FJ.2t%JS21(NYWE71O&eGXdg#PL9vDB+(qdP'bs]r6Qp5_J2bd/%i]+H=C]:j
U"RdpWDTw(piAP=shQ8VqQ+Vl-,nf8gDk,9q9B[3sQWS<NgH#]DKIS,\.aLqkp3oI
U"Frq:v,G$)QbjmkP,:.mBb;0HUNJ'YOu<l,E2d(xOk0EnVm0+9oAqyb\Da]QNH2;
U"0gIj';n5,Y2:37[$k*E4$fxe>p:G._)v+M*KPvlG0esPUqfSc?%8q+_uU3[hu,C
U"chTmv(M=e0_Q,+e&kK]QcP2:)9Un5/>pDr55v,)Cqnj(=IubT*Lm5J'%X[HbY$^
U"Z9'b=YCe9d+^qnY'UlVppLK,qF7;AB&Tfa4.m[.j30&l9WqFdrvA<7RF1nm+iA<
U"k)eQV<Knu7,8pemHJ.r_(b.\]#fj\Kf=*?,I:UWiuN_X%up()%9%%%I-%2A\.HX
U"Z2r1v%%%%I3%%%-%%%%xm%nuSuRnhfc0:2RU71jf^byWHMdH0O3:eJbq*VcV-[Y
U"2R&]8r5[/ODQ(%td3]uB&6WSj,Lh=sm]SIc:gp1)iDPh9Zd-]B/_ik[B[]$pDIT
U"^5yp5sKr3XD9?DA(m][y<BLDYlix3'0sxB[pHH/q+$jD'lCYwEJ$%AG'VGep19c
U"]>$KAhN=Ug0;+,DfbCDeK[:#DTM0f6tWn%iD0GP\]]K\]Vq%,up(%)9%%%%-%BA
U"sLIP1RN06#J%%R'+%%.%%%%x%ufwp%SgfxWfLxAoT]/_?x'kPM;lGaW/kA-fw;d
U"blB6Y&QQSE;N0sCFZsG&*T-)T+LpsUs;1:ccuMgu0c,t%4Fz4t?2.5H%%5)muW+
U"lgCgt&zVg6XBiHZY(?e?-aIOSY6K78i0N*5Z8](K(;k'P,,,C%rj_u]BrPeSe>s
U"8XiRWXFb,6-HY8=C,u&f%I0EHt8/6>/_+?<CT6xgbT0)++=KQm1WWf>/3\0/WLG
U"+k]$Uf+GQDzm8B[D0SRz5S$4j]P[F*uw2(_GV%H5I^fKr_:(ag7+8BBE.\sVp?f
U"E8)a;v_Uf/gbJKhPcnO^W,+,]R/KrN83YTE:0guq0eg:tno/0+UP]t/KDS6S+Ij
U"D=7E$IYP4^.=F7;WDacAw;nrYxL]Tb/&D<Ix>76hdkJ/&YIAT&YfZ)A='>r]n(6
U"ARs>-6Y_C\24--PZ;IK2Gb[S&&2'NEQdQD(Ph='BQJ9.0X,Un9>$jHksKRT^g9t
U"#5sn_&*n7w'<7q99/boXX3$ldFyN:+FKjx_W7Q<GW3QJA%[0d*:6T3o%g7r:TG)
U"t0Vc5BAMaT#s28P9bUhg_v=&E[1,*xSse=F]C3w&<?N]Aa_2o7fY;ZbNQJ[mtws
U"on(;;WECY)mbA$g')=-bj:ri_XO*L7=pbj:xG#yJnbr40KVOh&^Ijp:Z&_3Tt2O
U"6JX:W=9lwQ]Pl?_2E+Mjz+=]*j;Hd(nee<m>qwPN28)k)-PaenM\Y[4D&A.P[:d
U"'*?O<BHPOte0dGM:+ElrbtEA4)6s5S9O$_^4o)H.<Qja61F,1*S&yIVm3v_cN'1
U"G]\NsKjWi-0G';&;'cgg(++K1=/rVrRz=%37A6116(*[ENHg50P-t8[$FN#>/FU
U".s8=E1irxh?2#fOg=5,;;.CW53<acN(L'k<X7hsd9mcpX,ZX1IN3-ikJq5>)H1W
U"ln$HKkfkSV#cxJq\qUu?awRX'SAz_s,42B'PV)\:I/^T0[YRU\RIi8&Ah7'3xDX
U"nI6q9%oI_U>*JcI]48E&U5X$ZJ/A?u55O\JU?60obF4_\NXzlWT0R2'k;-Td9$#
U"77E$TH;LEFZ_O<JF#bGg#vgN>Xi>nSy6^1RFg<p<3:^&[U/L9Qh*?4^IP0Z#Z.i
U"9r)^l20IJuEZ1q:kY,d[b7;mqQN['$T#0uU1]aZfK&^XeY?2E/F%PpaT_m52-Z%
U".\0jB3&+uHt0T/3YSXy3c#aqK(9k]5S4CEY'g3#ngX:q>;*HsujQNIgan$Uaz>C
U"55o_LIH#Z///R/TMY7ZII1IiAryl<^Ax]2^vRPO$o8]26>?2L92z.6&n<9k87C/
U"/RRF#aIpr8OAA>yi;h]Na40#T$1A+8;pTGH55r5T>kSbP?<FSUKWW7l?^_l6-^Y
U"O>rCi51*qb$3*:QUd]>27lW3A=a]SmD9(q[P>^G[E#Qm9m<r51/aO,&-oJ[]wc2
U"*?4AIfL([]l+Vc4e[U:mGm5t0ng<X9/,555XY4SH[=RXkrehMuY:uk.heWexmjP
U"A;VHrNK45XSXLgh-rbVVAVMRot(E0ns_^U;ASarON(OM0FweUKv0Gx/fZTgumKc
U"%Y&9$p3[LJ:XF^\g3ijHV:MU]\=Skso%^[Kv/]RL^HUni3rTlqWU8JXZl28N)a,
U";Yg+QSTHirHr-z/xgIm2eUruiXpIH.JP\I(T-nlnAS,RL+,)E\Q:Ex1d/W83FB<
U"3sv(MCigSfs_xsW.5Ot&rxul8nnxtxHopWvft\[XzSto4cTxoWuSx;y$vEjHn%w
U"%Bsg=6eGP*/0&g30%m_eUaj;<_mqZk'h%>.UKc>jh?maR1:A+YjLaBv]Xr;wg4L
U"(E-tkE&f4rkI0j?6\(I8MP30_,B$I7VUKvi';<F*4^^<^Vad1UlKCFKn5]jB;3#
U"K<B#iMh1(IGxCQ0l:jn2jBLjSJHfeiZK$=Pnk[0X+(p/EIkP]\5PAx0^:4oSqNS
U"\7k\]7Einmao[A'OH*Jg%_FCuP^FAmiE30oli>iI^&nNs$Kj'JWm-N1;)i+%IZ3
U"?d_NOgT#bJ)SP^xJ9pKL=6yN\NbT1rrHr7S?qvAfjb)soBuDDasQsuK_S]#'yD?
U",Mk1'01GFUS^8gEBL(UZMZQz_a+TP1;+-L=G>7OU;9ti_[J64Zrig3SA,Wd/SZU
U"p4:y/:Q;]>ZOCs/;/5oCJ>)\Cl<-6Z\H9u_ehuha4wuRq<)[dgg);Fs*Au>^OVN
U"VSbj?k+$Kb],(5;mk;:;ZQJMG)LjKglaz^D[Uq8T4i2qmx2o4[Dn7<iTGd/J8[[
U"rM8kYfV\'R[odCH[0BRqpfJ:-2NG8$BjQvaUMS;qUL*-7*IUJ8e'=PEfbaVA-fC
U"^^&mxm.;DDdz].%&^F\ev;+k:#WUD61yqtBD&4(Ib%TKB+Ob&ri4R^aXLabe[P/
U"D1T*-aJjAKIn73GL2e*hb_4IEbYJlklK]?4t?M>+(y=D2(]B(n)_UIf_>m9P:m[
U"o(X=>eAc(=Fpm0WBk7oj]s*MPzR+maZCn%#VnXGBLEc4w&da_QzOJS<C]/.)(m&
U"q.fLLE,*r1jEjvPR&g_AC6l8AW<j&);5M?4FAcU.heov]1y5lb#BTZ#WC6+ep(1
U"w8*-D==w6A(tMN<'GRb)O/zMH&:;,ie4y]sQRl%*?CKft2MQz\H%kCV:.z#ezE<
U"Dq7aVvU&bSlY?,hL]cUp%qDO:Wr5UVCh'h[Ff=7^a_2mVM\34I=Hy]L?Yp+wFAL
U"g*E=Dd%lw_dW#'5-BA4xfW*vQ52NdzeIZh?ZKA&Lt]HZ[c-p6W;NS\CgS(qPuBx
U"onMnZ0NpYQJBHYV=-]:$<?]$U?ptU\v.^DUNxcb-+h;/KK#u<JYa_;F1XSn48Pc
U"jiHuJf4r#b-OhJq8)he:-A54i2DRL%x]_lr=>GGi8VbueN0]te2=k^?^nH=gcz(
U"hbcOPxBx,2GN./UYO9oAS>bw)4+DGs6Z$\rVjFmAIll\0hZvtw?cxbDSEu0Yh:R
U"v]^feq-xtHs$8/++8]+N83Si<l+dfiKW'SH9pn2O.AsE<Sq?g*a.^,M41L*0>VH
U"JEC+O;/ZYG6?CPIOBqFciYGpPUuCr5^o5I\<^3]ccTW_cpDmok$s^c5GTpI)=C?
U",]Unp.vkYWT,2(=3'N&c+2UDLJU-qcOJGGiNgRRnwLc2Cms2qab_fB]kOLV#Eis
U"K:V\+V<MpB[?CXGuaKyBBQUz^<nQL/4gCMVC89;2c'\7o4v[MmI=r>&nm'RV+29
U"TDqIRtdJKev6VY;1c6vD0-0?DT$s?6Egme$jn9f/0_U3/6a6]?vQ\w?J'd]FImw
U"wWG\eina&nB&'kx^AMSR6Boa:J3j/q2ZfJC:2=kxIY:sj?\#V5+i[k&:cY:a.^o
U")eV68s4W<a(I&]g9U/5GA-A*(oIWI\>('T+18^;:I'<'no0qXAnb4HX'8ddPaIb
U"Y(0;Qmu_nkDoNk2bNt*uT_TX3xEur0#8s$uT$cXV'#fA4YjS0o#e_C;p#;]Ceoi
U"#mCUh$]LbK1PfTg*Z=P\U:nltNZX/90KDI%FvkHZA$T*eZ][k=QHZt3)bgUmZft
U"he[C7xb,s$Tt*<WRuJrt:)^L=4rW2#T'W?B3ctvXaE/p25Zw06DsV=G6AB?,C(=
U"^;neg6+VES0rTQg;;haS/v3>W,UK+h>VM?G4lFXq[RAaC^?-]*RPH#6snhnZDJ(
U"A&jK+fPQAQ.o3#mqDVvWs6UKW_l*bc)^pzMT-N]-q*WHsCd[6gmDV4/E0?;:H^_
U"?JTtRD=T$;_Hn7*00%3tlmIuv4zu*CxY4z.9zr.Nd&k:PyeluOze\WO4ttrjr)k
U".-L:POt:4PONmzAL+(=u&J6XVId6)8r<J32u,T.e0:gIH)0a6lPfBkkVucHm9l$
U"i*Z;a]t4$i_[tuO68Q(pZMkmn.V;>2_+SAI1\5T=MsQ9xijI(:-Mk.aSs.Q*>Ls
U"uC5uTRW;1>_6Qu_suMCWs)Z2Qpdx4a+B.(kEa#/%Ui;XL>M)$C5I3<G=1.f]cbl
U"&eF%RIfo04/)wYr[xAN>JpNmcH[K9.Foji<'CU&xM33nuQAA,i.GHj+.rg7;O-^
U"6ml:Hw*2=VnvLh,VnIvH,bAnv(l^'T?$61u[?W_'u[g?4Frm>ZAo5YKxV</\oVL
U"G(^Jd4T.7E=*VG-lnGFJZE0&EMO'uK>,k8M>>d&IbMwSPqT*GkZmHD6U<]W&qtg
U"BTLZTl^g3vJhO-a)S^5R+=y?jgo]uJ0qGj&ET>kiLgVMlfu&Ll<6W1nLT6'L9Q$
U"x2KDIiPp(\/68u<4X\GRlC0<g(8Tj+/6-6:pA1pD-;v8-#2_X?o7VqlXb9]vsSr
U"9'\5=U4n0YAWtQ.;[Y.Y]5Ij'./0;xDgv)?H1?VXcR+plEL6$+_.3##D_a>,1[Z
U"Y#-cukOo6pFhjBhc^Z)tACpBhXtI;\f>0BOT]MadzF-:bx3]mc+W%tpefB_0bD\
U"bU=>I[/T^Z>WH'^CmB:Fp)2r=2eIXG[6[gfgkTgm+2SQA::[dY0r5J,SNsC3KV:
U"qp(]G0T0'mVkR,>sLDn>>s2WJ'?a+>;NWtGq%vK_Y,$_aa.>c>>GJi/E1SEg+*h
U"5kh(TJrF57pM2Z#$\B^of+hi]#GtiFGu63#ow=.B2jf-/0q<,y\j>dPrTC]\e1D
U"YlF<o[A(a8LR^rVd4-mTk8\s=JBd3;3iK=#h+$>lsEZ251[-P9-2mHj)E%*j4[l
U"1a,2bvp,3LvyMw6ds/=jy]9PgBx>cIFwSBCWt4d##/=,Z*zd,pGfu)-IC-lWXPR
U"DBogOltu.RicS(dETWnAMcP=_>(+iVY)-qhix=qfZ1EaZSS:4qO;obk1%/Ak=CG
U"Q#$bzeMz9(l<.(r7M,hzkW?dbVTWR^B'1w>[PeVYt[Gzx'6+IPxljKP=bud>3;N
U"6me3t>m6\&$A/fMf>2cFAzobQnHDGTB2hWUYia)LTa%m2ro63]$qcme9#uSO+ie
U"g,4/r-YYzi'5w)Y/G,q)0GL<;K*9yy'Q?:p(z#YOMdQ+\MYryGJy/L]#jQiNGDK
U"X?Me2N.tl5dBHZfd5OMfEd4uS&g*b]7o_JAMf*3AMRMQ=9gk:Dp-k:Bp-4-AhV<
U"'0AxDh&.W]=ua>=+SrHe>M$>5a,c468*hhgasT0^t&$n%=IM_H_J^K\NW]fr\cv
U"n.#V6pF?NMT^.%$>/oT=SDsuI]*d1p7;VD*RVX>c1=NgRn$d1NerQhM>?WsUBOn
U"5wZ\LnANE>,nk_77VOp<=C5D8WV4$[WkGeg8&V6'%$*9BZB/tO(X9\]'5>-mJx[
U"Z.N5Ec2mNt[.x+IJHQzuOuj&Eprp[&_kig>J&NDs;xCWNG(:$,Kc:yG^(/7\Ak$
U"pZAx2H#/4/_s5-jWj2$JUFtV-%d]jJ2,R[fCz.8:xY9+?g$<hu:LkaKjX8Cq,lU
U"7?)r&6-w-esVx2:C/l4U+qMzQeGR*o;C_8V]02's#t,5-D>sZXD;bAiKr]4pL6#
U"22HvaDWLilFYcum#'FO%r0%E'jdc_NjW4\)*(ayN]Edv8Ejh/K/N2WDs&0+/,O$
U"N%p$pO<DKmkLg\)aK7$Dp#V]C'D%PpKa4COehYEkGD>)[XSf'if-vXyCh+)V#I&
U"0+K.(]roeg$[4l3^E3O^k6fu]*03%02\9h1n5tCAg#;<Gb&9X+dfR;sg?2W3$Jg
U"Mn,-jQc8<aoUL/bS(a*i2Q&e+58eB]M\8nq(.eJMSY0<pSip/Y>e6KMW$8ENfr'
U"b#9r337v_(L%Ha1O:sQMwpwWu=D4s3E8X5eUD/xLU.;>IB3UV2vL7:o0rDqg1fY
U"<]87q=,zOCkC2IZ*;YXq&E;*:G3ruxzN92qzu9PMqCi,+]'$hnf4c,dXIl^Bd[X
U"t^dUM67A9OzGUI3PLU(E(/(Br&7/e&-_h+9T*&,gQv-MwxDs*1aDEK5xPf&>c$*
U"daK1(Pbi:I*CyTd99'UoF&kB<'0M%8#rlNo2uVA6-vk(Q*9z9ETXKpY%'U6(LCx
U"Oi+CCjeTF4)O^st%r3WJvM[%8r.>ZPmqq*YJrR&;Y&g/_>aBtj&g&wWyxMBsond
U"DEK0%'TdH9IRYVr*z9P?M3kzCi#i,8Ovn&BCH4Ufi'gehx=o'iB15gt07'q;>R(
U"Uec?>M32PH#5HGr<W_u+%?:vD+A?p0=?N:&?c166UWOQTDb?4+ge;)F-]YsBU;x
U"P4#$:,R1J*,F:HYWk?mt0gNH:6?G/6HGlO0WxRqF9Yw1k?.0ugP:v1?GFH_G&0W
U"N&RF:'Y]m\&\Ghd8[1F]+WC'sL,6L7&hk#a95\e>WeW'=[pWxATEb3A+SBQF*,'
U"-E$B;F,Mh>b3D]_^;h=f3'Y_2Ej[mWtA%a[JoN+]_DqAh(ASKFlhLHc3,XFdk80
U")9E)dVBRH(UauU0Lf5qMTi]oVu2jx#h7/=._[n>CJpEv-\i#xnau)L,#dgfjt#z
U"<C/M_lK3fQoV].(Yq/wL&G$Y0UDKrknmT=kF=Oh7ElA0yfK^0MKu4SG7Po#Fycv
U"<<eWq=..$rQAXGzol.P?\FycvQ<MrqM.x$tQ>8cD#28=n>O\2->>fKwlr;h+L/#
U"B[G%7hGgnq?eQZt[Q%24jUw6#pY1c+S2?UC?Q*H;FgRn&QCEuG&;MMK3MqC[I(;
U"i;$CqpYFuEVTC^;w_NkHY57l^l:-E'yh$gWMG9)dwURa8u'$(NZ]5c?)o&lJ0/J
U"Eq&p>vEbN%^$osh.0Z&:X&qf_oQE/o1JL\?DmQ7Fb5G[RDt[v4PjR(\)5y)9D=c
U"o(1H/h6G(hFEG$HBdyu0BCr>pD/0IDJ/a/1a)(zHp*Q,'xh1xz)cMrZ+X)9r#L:
U"M;hpD._#GbqN7)C4sa,(&Hp7=f/imu&9fEby1xqMw%/E&m_9$V+Z(nvODvW3/B&
U")(APQ3JT.;I8v]c.*E#Buk.5]geRxDp]m\f+eor<JIPh.VPT0\4^;j,mH9bCR_]
U"2.6E[cS]KvJ^*GtFRmh9Hg[NTOI[QrPBGG,S:IQAfwH6fRu%i>Oy,GxOlOG4W9P
U"1Ja('-I3QWGP.XIjp5#d8g$wUj(-ig/f(-1)Z%HDZE8Z6/EqR2#/B3]erQS1WZj
U"5bYmTCbqVy1EEqR'<-Z#.%PA_r#A_WVk]=O<C>?[#HaAA=RgMKN.S3D9d_r4D.9
U"_Qg_vPg0JXg&uEId-?7^&gKg/,h;[r-jsO<fU=FxZWVZ'YI<lYI:[$Ib^m[I+aG
U"5O0Xh4t_?8:g$wj4^mi/8f^m)DV-(V&lK3$CWVBXJP36oW,X<]HEZKSOGvZAEQ8
U"O+-_)H]feY?ap\#aD+As7(pc69XE=pTB01.pm$xqAs:rTDAEsQhn+tEZ7B4rIE8
U"4747(*,sfJF8X,,h=r-+js<Jc*Ty1Lq1&_WQ<aWGuJ=7I#os<<AP+vsiC??G/Tu
U"q-fFMgEk4H=5r*GJT_[Co*TwXOr%K&7AfiDM:jUC\5:q1VD,X?l\N]$[rHk\v<j
U"&Y^e<]ojtzk=5D:;w66HCiG<dcY3AHa$t8gc\o_bxc8f:y(CYeWTto(te.Qj*'m
U"U^K+,QwH=eKKTsb_L)o*<A--=DLA(*[ya]#4DY04TDf*?>'a,lf-URuq[%*i(44
U"7RWeCM&.72\*<e03O_q(l-LCT7&C6l_qBtMiv;Y7P6\llF3Iziz]\7d/J%x5Rrf
U".R<63&Do]AfP.M3&c9,H)-b/8<NV?27d.p4pi)uc_&9Mt9H+-),:bOp3Ok:Qe[w
U"G63'cM:3kghE,ygxXbXKC7'pT0fO#woAMpa1>w_pCk[Cm4SKR6l*Ip#F>gK4.kD
U"(5YSBg+*FPXZ$uWq;Hc#l4iDE?1VOLv+0<A-jOqKiUfZRu:]=0\axtn5;c6L5T+
U"oMC]&ap;kB^rrI&^o3xDpn$.5<K6a061mdx#[wo5NCvo$_ca5bkP6lCVZwel+wb
U"kkTjyO:mQBCp8RAel1AlE9i1v>/4y[X\?+TAjo>$/%]+<D?NIA+r^2ev5btugN[
U"Y#ZjAx?M.EMw<;S>OQA)z?r*UPigu,Q&r*m#4'*Mqxz#uRkN#Gnb8COqUw*:i;2
U"glvN>1m]a8q;'kI</xfHx/)_0FOLn'aFgbNy2>':On+-rt\AX7Y%sg?3)Z;7>Ly
U"h^*g2\4][H*b^\--2Ff-Sf<22'8c+P#/LZsn(dazlv-nit\NSK7(%SdtcF;]I\C
U"qOGB_*bN*y2v\NdOFM6pNNom]CK#Jr#b*ut<6Qo](e,0c46&pXma*&2b.NP41&+
U"PWc&cDHk7\nb][DCd.VpwWu4#xi&\y.o<u#9/D5Vh8h#ioCRdBMrl%S':DD+bm?
U"oHd4pdB8s:nItt.Z+n3Zk,rzZH>rxnL$thrpH$pGH$D6iWxJM,vF$W;]?kt;gF-
U"]1tmFC,=N(Ptw$cpYH$pHK$<lF9azI(i'ImUeirlo9P.n^PRa6T<S[o0Cf<eJsI
U"M\V]YtWtpUkH2ZcJ[K?_el5/zC-f12&n^Ztu%l80BGTa).&$VfOS[6l>pCkSL5d
U"YVqrLc_r:pu(XaE9lx2eEgmd>r_$Vu-$Ea4&iSCarl;-cRv:%AHnRX^Ju*NybM.
U"3$rph$ZX]8[hDV<s[NHidfscx&vj4nv0osdM8,uU4v)Jig*i2yr*Si.x%ZuvpUH
U"88ni-eY._M)xkzZkP9D=xrndYpr05SrO^&_C3)&HNngD\%\&PsVwOIeKr%P=P0?
U"qjRqR&e-hq/a*Py'I3M:=feFj1/M-X4+V)Nv^$+c(_V72(5c)uX3MH+xTwh%Mf)
U"4$bew$_nD]tS,ihTiMQc'2bj4R';XTtp*N/I\&YzqUVsmPmOdZ_^-bIF)*9JZOr
U"c'tXfp]wt5jrw)/f3WwPs=w9mPVqb\Q2O),DV.X^Y7L.i<d*xF4_F%d$U_lJW35
U"?*Srx:($DDb#Pi?Lo0k8ImsB2:cLZb3,T$vCj&6anlYZ5by4eGpqCoj1.kr5H?>
U":A'nksP/vVFr,2uafx1W6THcFo4%yWtLD6W>RdyFk*nsW+(%x<gq?z;c\,,k6\%
U"Df/2K\<=ohZcf:psmw179P1ex*\tz5%7lFQ?+)tv-S]+:H19Qzfe?DTY8855l(F
U"CY-\llFq7?)xv(-,2g]pv-ePD49f.WCVF1fW<jNbMti%sL[+8d:]cRJ[Gc+:]SH
U"6/7c:]]CF/$'c:].+<*tKC/AJGY&H4s*22=WO^+QfU?1l(k(fFQ4UN$kyYb=er4
U">JbnIBSJYD'_tEvX-/bcB:H>TGmcHW,*,tPjuUJ/'v'UZc5RTduV'm'-x4[]._f
U"*o?#Ffis&B;;=NScfqjMPCVdkAPHbgrcLrL(H4^O+\$ic38H^?o]U<1nKl)'l^n
U"3gOnrYIx]Tb)/D<I7x^8TB$dsQ'>r]ng49n?Huq_om)5EB81;%C%'ugMg1k_RO'
U"7Q#31wivnTuoorPL?Z5K7IqkU<G35QJA[#0d*$dwpT_9pf-1/5,it[Xr/HArQs%
U"',UGZVOyB4.TvGCC8Cri,EsJnT+qnlJy6N<)3K8iT0Nw[*I8=L%w6dSC8?%Fs3x
U"ofp6=Y5>/v0y+>9WJ$L+.0_;ude%'jDzWQD].j%3o8'U5iPWqU%E'md<Z=_fpTX
U"Ytl>BiNzocwRvF[z:dm]JEP/Np>_'8\74vK[Mar0w$sf2S.qoi&c+HUnc67LhKD
U"d77aq9$EeIx37+4Ir>f-030QCS2MvQBTKT7hu5hg:u3Hg>bVJ.566I5[Wf]Qd?W
U"+3ZtsVp$lX^HTVrue,Y$6\Z^h>tGbMqhtk.W-5jW5NVkWZJ^hpQ#==VuF=MlAnL
U"6LSbU8IA\u)^0#4QZj7s=\9*o[CrtHl\JwVit0rvq,v-Xk_fNDHfhZ#gua6RHn3
U"u[qNHt<68/^sEZ:[>H6KGH&l2q1KG3B:kc-NPLG(e3Vb:O8o:\B:%UrPdNR.6bP
U",H+8JlAwp,#3?[)9H#+qW4%HT5$e^-Xjf3Prw#m?v4WU^d7FCCCL5Rt=9I4=q\R
U"W=H&0D68dlgs^kR2s=xe-Ti'e[ErQ[[&Ill1AFt9W;4&5uG#x2c0FCY]TFg.ZiW
U"8NEMqze2HY?)JM4qTXn%JJ?givaa2/q&nnCVJ(LIIHqJ*RwRPXNQKaq%;M6>=9f
U"s=b-UJqIK$4;Xpp9[$wSdR$n=0,]Hve;oPjZZ6QnW:bW,55:7RhfA)7uE&aQXB^
U"#+^Ixs4c\q2S<k^3NDd$swj.<Mh5wq(9sjJfku0la=d#aN&2YZF,TbT8XG.o0mW
U"x$x1FA7F-5S?Q=3sZBK>[?v0'Q\DeNIbMKo'xuqNU>T-8vs(HoJp8hPt+g8_%hp
U"u)c2h%3AqyC2Zy/AE<0A4,0-I$j7XK\43srm=*<.=2zGJ=/NXuApmc,Pp?.Z2u'
U"fbu#jzEK[kzEu#kzEK[lzEu#lzEK[mzEu#mzEK[nzus\bgw509OFGIBHez'^hr;
U"V;wBQ.0Z(U&pK0CWM3:Q&iQ]uAb*(9MA(NepS<Y<Ksk-D,40EyU>\HVSLV^785H
U"nlCAt<xBDhhItv3g-cZ/]*W=:O1?)9rj43)BhM5ZRjNR1V=\rX]<30bJH'q(GOX
U"SX:\<Cgu4&5#UD$t\p3&(sz#_N58C7z&dZXDrn;rCzYq2:*?P*xsAMjd$)&53VT
U"gQV((U>0A46p-%1448$C,dQB^>AEhqb^KWq0YAZ9L\6g;aaC=p]Oo*u*=NP[/93
U"D5OANE<#s<Pq,n+rC7\(vc;Yn[K7DZ.%2bYLK.R8j&pNalPqrN7[GB0:b\YD>hC
U"Q^bT:1rffWb$E6$a;\#r&Z5$A9wPSCjtWO>(N5$mVhGnJt/7_sMCb/tqlYj3h+w
U"wtsWcP>5:x)uf,.bOr,5%j18'ZqQPedO)n7UbALR27KMDnBQD^P\=*ksaDGWPt=
U"=CO6Q%*.:4aZJ7dR4#-qsaH>KX(=hYCGbCG<R#JO]6')a.GU/&%gL>9&)$>S&P:
U"xH?Lo?6/b7JX]Zq)F.G^,0&)vB6LIX_&c)R0pB3:M-KIf?%qR4B?]:M7'JfGq#R
U"8B3c;MwJ%fOqRm<B];<MaJf%WqR#pB3<K-+ZH#Dee2n'o.R#Oc+086Ri$2OpDU^
END SUB
SUB V2
U"2;')[qK3<K-+ZH#)ee2DZR)-;QqAUt,4<l[A;R#,t3<O+BJj[;.R#,_Oi-;Ce$2
U"*Dmk<R)N.;C$:2*Dks<R).2;C$2,*Dk<ZR).;PC44w$&YQm\MRl#MU4g4^A-:JS
U"_y#UA4mfI%zihxdB#eZ/e6Kz)S;]_.[Qrx,Upz6u+ZaQ3)[=>*t&iQY1N+05i^T
U"fgzS;1\)[q4N59wYnw(N+&PT69&f9z6X2Q.;VglkAJrOqP*4e28ZRi-;KYBXe_v
U"4(h+)-aRm#;+Z<B;MKc'cGtHJYb3B\;2$UVR+UT[^T*HXp+2?qc=c?c.j?Oie>H
U"-Go4_O,DD8&k.<ANsg3?HW?xek]iJ22Em?UIIx$7::X#.^F$m/tZ]0,LJ0xRSFA
U"]:A'A*(ZICZZHA+e6oXjID*,'o;kzE1jCQ%RZr&3*DRQ[H1Lp(Gd>Y[DiM)tqW.
U"W>zyMows\X9KaYQ;2K>\BrXKQdwuEDcjm=eouc>'c?wkAdk7Q&Ih.v5t*90Xs8C
U"-<mu1Rl'olv5)X$:&tCxvB-zjxkneNb8MwbJUWf&W$?zTSB)=i&CV-wB<jG.E8H
U"N$DA70BIrm]U4:WpL+MmFJZ-_^z>;k,-ucWVPK>ZSMJT5g+oZ:OJ6cRcp/1;8,3
U"-<3rRPdpj)a_d]co6d^J2z3hSC8Q0C<T*k*qTKlWd5pM6YS9#G(.rJd0qcWWY+c
U"tEp>5x-QoW?:3nnrb*52MTshMo;n+63j,sB<S+rwQ-LxYEsKF*xWP,/ii0#fY20
U"lCItPB\EIs#gt;$>wd?U%)WGRsh<=A=fo>>%,&RU047>isJGrWk4'e^+nmCih8f
U"D(z?:LGO./rM:P$:3$H7BKi9hi^QbI(9kG7H6Bly&c6R1[OPEmq[t^?o37Vlnj,
U"gFYa:WP3d=4n0UMa)NnF7H$#fYr0=mp/:=ZEDwhEIeD5$eKE=b4-_LnGLbsbM)4
U"(#a5-u,V-Jr%LN%kC2'=-qAe;$9DQC92qeBh#A0/tp,<PglGvs'xup(%)9%%%%-
U"%4(j_H#';[hY%&%%4%'%%/%%%%w%jfir#jSy'1y,$V,>;U9_SFIwr<D%Mo3wN.%
U"(:9=\oEW-<\Z\5F<#s;nvMx7$HPw:njArgZl4DGGS%w'5$/g_?RNCkkYS(a1%<R
U"Sg9+XA/i_8?Qhom9%mWk:R-2rRBANUV:L%B:liVTAD=%*T$WDCO:jSGP#APRza0
U"_>7l,[3?0+q)A'Bki,c\U&=_kgiQ97vI7WG2T8nH=7G7kC+*2+r;wrd:G)1q2wl
U"Te#>:Zv4w5;W$Wo^^vD4N#\FD=8>.WS*qOnPG:Ke>4DnA8zTELYzRV4i?r3QqWl
U"1FSa'i5^J2vpTANCyrMUdIc*3.='&ljjPyvk(V%3px+_>*W[KuDIc_<B<KTaD,6
U"pBKF.d1du=vYB19#9F]tHs2EV=BJi)+/fds/h5XldvGm%0up(%)9%%%%-%b)EQH
U"RoA<(E#0%%c%L%%.%%%%n%sywt%SgfxWV)bB]Sm;xms:x<4X*29+0(3s5&?*A'+
U"r*([(]8HNMM_pg2yO=7oG/xll#>88=BVmL1jhl%TpAuu8\Ph<aMVR2x6D,$fX*L
U"8V3U]NdDF4]tu3AnAhUimq*hrd^EGj<F-h-3vLI01n?u9p0q_QG-(bJ1&4IfjvA
U"x9E8H=E>6vJ5Uk*[]5l2M'_4c>SI#n](^U/MAjC*]X>zI,hSJeU4$1q2M%dPPyu
U"fu-pp];Xp?4>;8WfL\L:H6i8Karr'g-l\\+S*zQLI[1p($g;0uLg=+hUoj>Q;U*
U"JE7]qrA%T;;.SZJAt*aIe/<pY*EipbTiw?5VS)8S+lCF]M*-UbebDcyxgCuFMT&
U"Cmk4rYKLqao9Wsw\D-AN**aM=4PA5rWsS0\df?R>,++p/%G/8ses^*(+90'v#eV
U"g25FM?LE$AbM$B%+BHdP4loXM^MBv:(4SP$>S20EiYbNh4A[b*eSCGM^)?[o)a+
U";01a:Ir:rKv%8U?:P'5d12Z.dIV$RlK#P_kc[QDpF<arLyYYNhh=P7,'Wg,.8Z0
U"TTt)k$J7iRm=KOU+pfV>&>;Pb54o.TWUTwsC5cm2auua/p[M%HLI9s+?2yXVf)F
U"tiOAxnD+9HflSEt/VAx3eLlMbl,:O=v]oRGC]'jiR*,WM$d;6488iZ1%b,$QRC^
U"XJJ4M*3\jJOm((G>S$EUoAroC=+LI'hE+>/AG0%1^%'dh3Q9&_hEU']%-1iRLP*
U"W$K;0Q\1q:cmCm'ZEqC4Ne&wOi:)UI21RsvAv<+j7:_6gFjVYZ>ThAPp;-Q=.N;
U"=k18?_,',6=RJ\x?I[*V:4F()thqhn%#Lx;]voO1C:bz''FMnqQ-F<B+a8\1RiE
U"+hF&V$+F_S:m'4$ADIPFX]+a.#>A8cBF12PT]%U<%:ED^R0%i;QQX:\+t]B&/Ih
U"IMh[3Y&sOHzIjw\$e9GxGgmD$M2/sUm&9WwxFI.=xUJaQ/&1d.6_Aa:EH,EI4?:
U"UAUGb=*BaX<qK4<Ez>V5a=/G-DUbRy+lI)UhIY\g\WEsI&:5_h0KBX2_&;a5K9\
U"r]2uw72pilPwaKd'^n\2ff/GF:rZ\:fe<th&?&To(/3meIk/33bO]G/(43oeJ5/
U"35kO]q0I4ydO&yNuZ[(I<B2Loi)IypP9R>E2w9g(NJ)oI/yL<PqD=%Z]wT54P_B
U"Y?N+K\%k+Z9pZiC7+XTJ:CObHDwc+LpQ:tG?&(?<k1*4;v:kmNNSpyRBeU*D41m
U"YWpyL:'EPSN(1aTRXm7MiIzS33PSQY2)?pK<%WXg].Q>h/mv,Kgu',Vj2YdEKJY
U"ilt(G5kI3cYX1]&TX7)WtL+NwJP;#/5x:ZJ/sE#Y#V\pu1dSF6w6LW\W7$MvN3R
U"Mkw.R$J;.c*=,]yGLuURCWbuphX4]f9UFWm+46<:c/45;::P&XC4FcP487t3ret
U"f1&&v%BcU<XIPze(4pn+[TWda+FIe^EMGWH3WGGeIO,]aK*]K2bo=hQ+Yh?F1[(
U"n?YeD)CQ?F[]B4uHspeJ;[QVcZ%dY><1w.#wFAeK;lNFU*RJ7&+Q1k?VoE'),TO
U"Zb2KDG8oYV_cHHUp%[)A<R;C5Hs$SU7lvlSw#PJou./kq9$'k%a0XR^;G''\.t,
U";fSft?S=DVdBcp70#v85TA'PM.f-2GAA'(BeJ$ma49nGG;w8#mdTm:DSYbYR<M1
U"R>vm]:u_2tNe_E/l<?m(pAf9UHWSt:,Q3NWF8<8F-)Tw#5RVb</I#63Lt:j(8\L
U"megY4<tmp'=nGED:m%L<I-PLh\(Uq7-&?M%MOq#GZu$UTPU2+eK(\m;+%\\7pTU
U"TFvPC:<^$),1Hrs_^l:^T_YfkYHTIV-NVft^$[W\\'960sX2l_^V0X,)azhX*V=
U"L=lM<FhRJbomTYEQAMRvsZHfBG[[^RlduMVe5]N7$2.\*HcHLMLhN1m+rb6Y-(q
U"zm_;JbQij.sGF1WC3oXlO)KE?evZ_FjL[tr(55htFO'^f>iWSvg5Q=0fAFanlHa
U"BFmXvdxA1*RLw51cR8wOfk(fn=Q'vm>3?ZjdNP&H/bXA)L#HQ5b8Hj?9vPwjdCK
U",DqMY0h-Kd/;XjBWnl9Q.4)[G-lND]#D/Ce4<>R8)+\s0e+\qij6IN;DGEmEc;/
U"kE?ag<zJaB:wQISE-bI9Iw:9LP#+I)<FfzAm.:])fRynuPp-a<$#mUF&ud71t6?
U"\U?*5yf?OU1e).z<Wf7MR9:hp8L/vd&Z7HoFaQh,Ouh8(Y[#dujP\xva&.QqC\U
U"u//u/xnk,XfNMlB3VLcb%b<bjcbda+#j4rk:*iB\4,Ym*$Q=^^XSRfH*ChSw^Fi
U"GK8^B:dGuU<6RG])&(\#1oK<=o&1KrcvaXNgzvVMM*XIr;h+O:=v6tjcv&X7?Ic
U"x_YYJ%v&f7kT$;7C#V77Bt&=M'ks$;a_V2gSN=8#WYNXOy$o?v($-#*\ziT.]Si
U"XyuoV:qvlZAwop:=s:X-E%T1Z\0Gf;Nx6&2K3^I'inf34w6#IO7v0fS)HJM'HjW
U"1N:uim%20sFWICVob\CDRh35dp0+hP31Ivd8V\[gPL.17N$%Kc*t5%YoK%#g)T0
U"yvB\JgTC5W;>A5CTR&E-n'>]60n2?lq2bqOC_lSEWxHaX''53>:P/rLE(#2#dsh
U"oe#DwEmp8h7VBW/Z._Q2]9C.;Z/hT>e4jG'%;bG$)vN6)mr4u5kB_.PM>O:&%%[
U"axRyaSG/=mL.*9#h4/QRh$KH3(//bQX44[;.kq7dCQ-of2.&XDyOI1dMQa.19%C
U"-R*fgw?#$74hj-Z_1iB%,<qk4HwX7/:lmjKcacG0%/2U.Y0f7MuXvzT+pAQ.Q=Q
U"5n]-:W&G$\yB*l;IXQH)oG1*ffIqtW+qsV&=V7J65%;Uj1<F4-6Jdr]%g#hw,1j
U"S;_'Qb7)gHZTGlgrhqax$$TEChkrk-#pA2;G1aD/j(9BBSEfO%v6EM1-1'&EQYf
U"-aL]I^\7XH:ZR&bdLeKXWlxt:3hT1_^FTOt=IQ&hE1qri<tO*9,5L9h&[;2_hrV
U"0(&k)-DJ+3w+.5'(8=ApJ.7'RZ+0$spYT;.3q(iMk8dMsBY?J%?ul\INHsv?,Bm
U"&9_^cQ<Vc)2oWE6>;Oa\Vn'KP3U^IUE5Y+d=X7GhiyPpX2Hcw*967ucH%ti:s&>
U"q8B3WyIP0lL#q$xq8\DD/?g0R90=.H;#dGOZ-\0'N8]'x5ffqBFVX'bu<\EP_%R
U"0wogOE:Fkg69%^E];-9^Z*Ff0#M$>NmB'$EV/fk80KXZh>Vl&y9e*n,63]dOaJe
U"K$gGaRgd1R4;SxHK1\Yxc[-n(%P^kK>?j7^hjZ:IJsA31+L=$7%^=\^h5xqYfJ4
U"Ud1ewSUe4hcq5YF363:%FUhi)Jd4n_d83r\bm/4Y]O==(\<au3ApT4J_#/vd;tL
U"C#<H,v#6Cq[=C3dGA;KR9X='jYsKc[4+^i/qm1C(cr:><OfwQ)H#ko=[70VA?aD
U"bGO_r6>bwi;ac)]+3,<aP$oOQF5:%Tyq6P:>fh0$G<HIum8Qq5jElB,^U9t=4TJ
U"zJMfo-?H5=J7Q+R[PUqx0X),?JCv9[_2\bB1LlImt.ksEl+F]\CRfeloZFFl2>l
U"h'ZTA:%M#.nJpt_VJe5&>o[:.;;w>1Rc9SRcxfmD;o6?8\jAwVs59w9c;w5Hi^X
U"PK.0%\_VNgC4pU5q3Pa<uJbK$eel?V<q.k&;\W3OWWFf)<pq;&2m#N(vw#QT#+X
U".8\AG$ASNOe/B+\e>j8nq[Ta-lLboS,lg]qwzhh*E=h*0fO8Z%zA?Q(aEW,?jqw
U"&BEP[U+H:;45aFeR7;Itq:O.x&%up()%9%%%R-%hqS7HwQ.2%^%7%%]'%%%0%%%
U"%rf%hmns%jSunsh6JF+2;U11*/F,BPd<EF&*%+<QPb>a&#K>.vq]a.Nzqthy-kT
U"*^Iddd[]P9qBJRpV^0_dMX40y))H\t>TsF7pzaQ+M2xQ%Q<45dFhjHX#0rQL^Qp
U"Wu/*34i$TA#[&[em)J3>_IibL>0\P?b2,<<vF.kJ=8ggc==UYr8/15(^Gf]y*M$
U"x<xW%up()%9%%%.-%1r89HgS6+I*%7%%]'%%%.%%%%gf%qqXS[unhVHI*2O%U1i
U"vM6XZ89Q*='cI)(LRX'*p*)cXZK[<8mtca+G9D[fj[kv^CZRGx&Z&UMrJ7U'[OD
U"+-$t?=wc5W69ec+CDo:j;kbHOw(a'vy*Mr/OU7'L*up%()9%%%%-%2sy7HXIBtx
U"&D%%%']'%%%-%%%%gfqq%Sunh?6JF2B<E1O[vX)Q373fiV,o6C/Vsn6['3zvVRK
U"eFcYk)+lilG53oFP2m-c^e]$Dh=3Ewf=XX(u:TK/r&DY;DFP7Nrl%1B?2q&hM0+
U"iM/Nm_BQm'INOJ1fzBU#70]Gjw0O+N:j)TIzr7<hri'a%'up(%)9%%#%-%aD38H
U"HWJ2k4[%%%]%'%%.%%%%g%fqqW%Sunh?NJ*2&OU1jgf6XYFYe'1U&7QP]b>&T#/
U"'c]IP?-$$_sM*N$#)U%Zvtqt*S^u:llO[*/+yMbi<L2\KX2.#)/-FmHkCu]uZGE
U"XI=d(W%gBlGUR#\/z^'\OI_qctBT7f%%up(%)9%%[%-%4(w9H9BVu*m#%%%]%(%
U"%1%%%%r%fhmn%sjWS[unh>]JV3;[U1*IWX\V\*fw8lC&#&'d]S&</#eDjt+?w*o
U"hp*Vutno1daLk*KYZlu%*liilw))o62Oiyc7en5c'R=lY^PqY__\So#JPM$N;v^
U"TNI7T]ApVSShUUZn_Q=CJ8'5kN3TdV3gK1*NVe\G:ApuN7AvnAgE$G(DTX9swTs
U"v\$>r(JytGaw4*4Af78ErR\lS$2k%+up(%)9%%[%-%jE-]H=,TNri%&%%u%)%%.
U"%%%%x%ufwp%SgfyDTcdA],U5>qJ51<VBh;./iy=X=NL^'UW-w[+&jFVYX'>D)Ch
U"%wZ=C+bk<]LKHtfG'[xvpAZ+E,qUzH/tUnKMq-x;0O?K3bPVW-ci%kyH.J\oCS]
U",^V0,D:5FOt]?KlpfsRESH.5$SSZnTDS<:PB]Z'ddlkHV0+;'WZ6-Dtn?Sibvq7
U"]5S_LN1ScZsQX/C6s,8[esC56]Ypx;(?WU<S:x4nJ=]dW:r4qaoQQT\#JzTQ<4V
U"X+uk3[nCE'JD2u2YH3;F5v7qLDOdNGFNOg'$6%IuMk6_Rg9r5(uN;8yNia7sbME
U"??d8j0i:9^15[ku/Z0SDOiVCSJp:5luJG1:\;oqq/cxJfrT+Bt*.SGg.LlQQ)p:
U"w)D<UR*DL9&$t'=0\N47)C\C]astJ9dJg-kmk=QH7&%up()%9%%%7-%bin_HwF;
U"EJN'7%%B4%%%-%%%%mj%quSmRquf%':s#Va56Hj14BrAGWSCJIOw8jd(wtiU(be
U"3WP,(6t:Hg+U7NCP;.x##*S_KFC/p9xe]iQ,qMMlWYZ#0Fm,A0#Xl0)5_k<D)q8
U";94Fv9n\]715XS5)$(%ps?tjfZ=o6:tQ:c:Q*j'Fq1$T1iPo9V,hu$ni^m0UeVs
U"#e=O=^.i?Q4h?l('\e/8eoE*<NU'Ic-XpK-0Mvt5A&KQC0R%%wLDO,ih^n:EUk^
U"kJQkQYvLg,A:b+'i0uBoPq,\P#7RqzTM+F%?Y-A1,dEmm$'aTw0M3tkGp$ou%gb
U"1ipqGjAb?s]F%nuq88DfgsSdP)v\iJI-THrm&uUQu'q2DXV.OH/<cwQ#bS#b%&z
U"p(hs2kZWIn[S3$Wk1bGb<%'MN3OxC\B46iC)L8MGOuXh6.P-Z0N2,%/ps_jt9:3
U"xRrEJ>]1YEI(sYMCaFa0YPF;nue#.[f\zhd5\pm9RA.l>h#Xs]ir[>p/QPX^f7Z
U"JO]SkdFLP9d:npF:BPifp'&jQ9#j;h]mu/Hk+VRs*ZMeu8hQ,)%a,)psRRfnRc]
U"cC8L2LktSVKfJ/xQ-_#-S'Y\utH[>MR>FKnNY]x#nLU^><j6[%Sje-OAFI-Kz=2
U".Sh_i5*NtLBTzQP+]?1(R/M8r4dTdY^?A9n33'X0LFe>)xoPzlI.$Nk*pn[UBcJ
U"Ik=H_/2]qJ+*k5M,T^i43hi1Ppa5)D:D&<on%#,Ds4\Zll*R9p=Ea-b:%o?ypcr
U"6]4Ci2fb^Q_:QtFqoVT#OG\fQ#EjY>7C>E;X7[D0USlJb:Z8#vMp&(Z[$y0e.wJ
U"%,x7F_nE0D-ug3_h]^UPL.+8<.B+wb0$CzOr+ioi1.*bj3B1Pc?L$?5GDjSM)*?
U"<JA,ac7d8<'_=WvI*a_oJE(b&UF(QCV_Jegz1&]ZxQllP=w-qaLu%p()9%%%%-O
U"%drLmHGR'%*X%%%%_%%%%.%%#%if%%niSg%fyprlGA&Amtp\^[OqwI]Hvm//YnX
U"N[qoQG(qUwKAuVExGqKaTW[Q=q/;boM%T<T<%%up&%'9%9%%%%-O%<'9CH=xu,\
U"T%%%%I3%%%0%%%%%%%%%%%E%%%%%%%%%l%jsjw%fqSu%nhup%&'9%%9%%%I-%eb
U"B^E$7,U+s(.%%E6%%%-%%%%%%%%%&%%E%%%%)&%%#iwf&%Sufq%up&'%9%9%%%%
U"-%22A.HOXZr1&v%%%%I3%%%-%%%%%%%%%%%E%.%%G)%%%xm%nuSu%nhup%&'9%%
U"9%%%#-%Bs.LIPR)N06Jd%%R+%%%.%%%%%%%%%&%%E%%%%j*%%%xufw%pSgf%xup
U"&%'9%9%%%%-#%4j_7H#;[%hY&%%%4'%%%/%%%%%%%%%&%E#%%%L%O%%w%jfir#j
U"Sy'%yup&%'9%9%%%%-I%bEQ7HRA<-(E0%(%cL%%%.%%%%%%%%%&%E[%%%R%P%%n
U"%sywt%Sgfx%up&'%9%9%%%%-%3hq7H*wQ2%&^%%%']'%%%0%%%%%%%%%%%E%7%%
U"E\%%%rf%hmns%jSun%hup&%'9%9%%%%-C%1r9aHgS+*I*%%+%]'%%%.%%%%%%%%
U"%%%E#%%%S%]%%g%fqqX%Sunh%up&'%9%9%%%%-%2sy7HXIBtx&D%%%']'%%%-%%
U"%%%%%%%%%E%%%%+^%%%gf%qqSu%nhup%&'9%%9%%%I-%a3e8HHJ52k4%7%%]'%%
U"%.%%%%%%%%%%%%E%%%&p^%%%gfqq%WSun%hup&%'9%9%%%%-F%4w97H9Vu(*m%%
U"(%](%%%1%%%%%%%%%%%E%%%%R%_%%r%fhmn%sjWS%unhu%p&'9%%9%%[%-%jE-]
U"H=,TNri%&%%u%)%%.%%%%%%%%%&%%E%%+%n_%%%xuf%wpSg%fyup%&'9%%9%%%7
U"-%bin_HwF;EJN'7%%B4%%%-%%%%%%%%%&%%E%%%&/a%%%mjqu%Smqu%up&'%9%9
U"%%%%-%3drLH=GR'*%X%%%%_%%%%.%%%%%%%%%&%E%.%%*d%%%if&%niS%gfyu%p
U"*+%%%%%3%%3%+[(%%.%d%%%%%
END SUB
V2
CLOSE:IF S=153AND 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
