'===========================================================================
' Subject: SUPER STAR TREK                    Date: 05-15-76 (00:00)       
'  Author: Ron Williams                       Code: QB, QBasic, PDS        
'  Origin: comp.lang.basic.misc             Packet: GAMES.ABC
'===========================================================================
'SUPER STAR TREK by RON WILLIAMS  05/15/76
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1
SUB V1:OPEN "O",1,"STREK.ZIP",4^6:Z&=21839:?STRING$(50,177);
U"%up()%9%%%7-%4s.bDu<8X\Zy[%%5r%%%+%%%%xy%SgfxVkLTAud/+Y;Jyk40Qc
U":K2afs5OE:ZaE.uM$Da8vsRqw/d,Vv]z6lv.UBa0e_2abLsawD7:Lkr#:+YsKNH
U"3kQS2GMM;HvnwE8qDksL1,HQ3+.Nv[1EiNL14,fDJ#SINj-ELoN[8wX7[t^f'?U
U"+IVU1flpN-e2=q:#TjvNDVdnt.)NXACRgIo<kFRW.cI8pvnJ7xseZkW5BATh(SW
U"hPig,#74bpD#Tqm<aPh.1ZH[e-V5hc1.e%jA,&75F,I?Susp:GYcQ>]kTgQ?DdG
U"?x/IPtpF0v$0T/Ei$#$':i979d+ihHa\l>%2SSfjCi4j5uC[^(c8A%jNnY9<=2-
U"qFYmwHbDHtj$=42a\TVkm4lL0,8kyvVDjpWfq0R3uH3<D&?bWcu;*1.q\,Nvj*b
U"S]HhLSq;]Cz2eyll^)pVtJg.by+SEW$DP.$kLN335w)x&(W*T3P0wpu*hk<Z)S0
U"u0suEP==>wu5E[a\Y46CFnHx-FP9xaFUHc:qI-p$nilr8&jMtp4$gVzJKgtzy\w
U"ppIYygsLlW%iu96__hTb_qEE&oTpUJVB<fFdyJj4r?fh&174Up(-]l-NJN5.lI*
U"TV\Vs^FX-Ff2QydnHz0FG#.P^azL=qquL(oE^yTjkyf%^r$t=7\+$hVZ#7fV.z*
U"N21;mlpJH]cusXv7f9CzR9bz5>km3k.c#Ohx&OBDIDsS4u-r3CfwI+hc.?C3G2q
U"eg)55f#Kz8cr2XWhio16c^Dv<gAL4Wl<Azk=Nd#h:<-e>ocIzqnz5Ts4PgS%#a.
U"xuLOnnPBN.ykL7a:Ok(s)jnl$&8Qz1o6E0G:P<-x$DYqaWghbZ>T$wuOaR-m>l,
U"ai;R9Q>FaF01+0le3U/TVgW[+P=eaxuS[lYP.;^%-A3Q*kvx/:5K<+#6Ye+W9;3
U"9vA;,1VWq%N034//s=)FNN%C4G-9;zVe*Jc5n<E/\q'+R&^E+v(]T/>,7q7tT=5
U"vf+5*f#;#*cp%M>XGfYA.9h3e3fAbqa;tnP.a6DZIVaj*]/*vDLyI9)un5Lk<FJ
U"0%nmTafZRa5u=K%Hdj)-rdTngEyRAYdqlv:-OVZ:GRJs3-G\1,[:am6s5CzUXW&
U"w5iDD5XttoKrGj[bg4$NTU'a3;X;r0t'q.B&%iw?iG89:n$'LNkr:O^v:EcrAs+
U"QO[m'J^?LuE;Vn%IsPn.qFr(qigjf-'>%ZD<i<tPL3+72T2zj2)09#hLh<sN'c3
U"4a_?g4E^1RqY%US)zPQ0q$Z3cj,LlV(\w:xhfohVN0dopM<mw\1)iW'#\IX).jd
U"c<I6&[37=In4aV]$Y<vNYX'eASxq-h[+]IP0Z)cW9TF=TQ\4<Iq(0J[U)[Qvf)d
U"7o8l=l<0)W74_*#-TgG46;Z5\-iUTXW_s:3QhWIa')-97G%LuIzhh]oY#5I0iGU
U"<**QnpKUyf,$PEURau/;v:pJ&0lJ-RQkd[te7o]Rw:=vo']#x%D5JF6,d9m-U/U
U"soth(yo,Du6-][l1aSAl57;6a<9g]fBiSr[5M*C4m59gcto9%Gt._*npXi43dWt
U"IXMBs-#1TBYCA6S.(4mQ2+QWh$8VFp<)9d7Dm+,x,V_(;$$:-tMA+_0mMDh^mUy
U"i[31GbP3jUKf.?i+8'/p=*3USs;aGfv<>2A$X:9'SJ:8sNhhQC7*098^RXBhi;]
U"4JH;JaI2rL6^edU'o=\aQ:l:N<%r#OIZXV)aT-M)?[XEIYOHW1ktbF8Xy_v'#hg
U"GgnsH-k?-rQ\<(V-u&Q^>>5,rM<>Zb+riV3f7p(X;jGhV't<kdI-xd.O(WiU.)O
U"Bka8/Qbe&PHbKVia#sXLb\Tm5JR-+t)*Xnw1X6aNPasYLT<RMj=yuj(^Pka%pa&
U"SIAX[Yovvw4H44mD'R75b$izTI>suJOllG*oJ3c2LjwgyE#Zu:]fR,F)29jhUM#
U"4ZEjs4Fnfsn\4fN(UrV,_6c065;/a%JRH_*Jpp9mV3\%meu;G,#fNqgO']w8&*8
U"k59X++[UaCJEAXXF?wK(JeZDbU+$0KhzBS;J+xwhhyXuLoGob;I_W029Rei(7Mz
U"VqiF>h1nUAniY<.l1ANTOl*VWY^NjW1OIl%J<?luMGNdo#MwiyN#N0Mf3gwl.Id
U"DGoGPeu&nvw9/.;hF89rV(?C9XqD.?CaF\ALhUh'UW-m&vo-#*v^rZF*?JVWp.:
U"f((+FiYQ7$/0=A]^c3eA+<t5$]79EIIQm3*BsHSXjzAO_Z]]&yT'A',a(hCEc#q
U"7]pAT;FEhqop7i,[zO8T_PV4FiltsB6?BdPACY4:6dUnYI8^E-9BAbTFL*g2e3(
U"T8LF(l167$X<YW=)qCF&fMD+.G4h)RPRO%.'$Tu0CB]<jZ%r9CoV6%a.2c-L0a+
U"P:2tIuUU<BCKo*Ud[5b(]-8>NZO4ieeWXq$PE#(Ee,9>v:)1REACfR#X-;kj>Cy
U"LMM[gN'[/*SU/[UwUAbuu>?oZ>Aq7s)Le,hPd&C,%l'2yh8M8TL*[B^M^BFLED*
U"9=0a'CY;Ib>=WxN%[&3f1NfbVF(:/v%BmusKsbCucOk4j2C<yfN5gNo_TGN>fLD
U"qPcXE0K92av&rN/b91unqjl6UYP4)7:?dqjRr<o<j?c(EPU.SL-ehKsmc/y^i+<
U"kPiJU4yev:z'UTp$&BV1n-2hcWS5s&ie^4e:IM;1Gt0zL]9GrU-7Bi=dX2mKS/N
U"YO*A]:qp/]s79;Cg:sf&#Cr+5p[/i8ZPYv]fV-R^Fl*IGfYT^fyl:IOAQ#VHMkM
U"WFN=ufl?pkJ6?CcP)F3CGAe_1R2ja6RBJ4E2#EJ-XJTe&C0-H%;IOG:$,-(3.XM
U"%n(vgVnP36OvY<K?J9pjF'4wHBVh_8O-*dgrsZnFGnXjWR%?m.o(>-:k.7jPqGn
U";3De7AzMW=)Ylsl=4NlPFzV?;D_0v3f<F$?6AJjMq*2oGV,fFH3wCuNH)D>'=II
U"p+.8sL=:?f9V]U:*vq+hS2(C[r5nR=MtJB5qQo7k^35s\jSlw]DPfLFOcH^Nt]B
U"<p:,[M%Ed:j-tJ5w$17kE7(fCOiZq=wN%8D9-Tt?C=Y*ql<e.L]MgiN]3-pwECZ
U"C^qL0RGE8+0OZ*54vnVJcD'51>#IYGDoQ+3(Z0$-qD3'+^3TqU_[37\b<x#9l?3
U"#Ia<4M[3OW52(erKRB>Ghy=nw15VMv9;Jsn#-\wSCgL^y6PDYeo;,ET6FJAwd,k
U"L>/gH>Wl$1HOURw/C<<e4E5ju.U/FVn#7Tou.ha[48VpHMP[$$w3JkLPGprHX7V
U"S=#hCTje9$QFVHRi/auYd,jKg+8]bsahpfXr%>>bL.df]k#2wN'zY2926[(6-#V
U"hrRd5o[8\((>xb=cO,ZDw0CCI(ikm,o-g8/sX&IpOi3Vuw%\)3($*V6X<<#o/['
U"j7R0bKifoA$9'ai&ge;Z=q_X.?>j/sc69_FZ2f=345TZVk1C9fug,?gP1sB#X0d
U"C8B;Y%gjO(4]tXj8m7q'5tC6',8aiy7w?AY.?.%sbc4'O,FMn),P4)NGeemc)rx
U"y&Be':wLn&0=Zk3eUnN.ht%8%sskZb(uPapqV&eT<x)v9iSlW'HJK^2\Ws/UBw3
U"->jF3(iy^m?M-[jYfJ7T:KmSPek+Eu#+RXg)D:V2i]DzR&?8pLa.Ums;QD.Gz2>
U"FFr?&&Xf[(pdcdcn=r-Pf0-,cK:Q$M_h++d(<HO;vo?t&OuAgMQG24o4Tqw3\bp
U"]]+r7\=$0ZoUC]u]kU[d=HeMpx9yMWhD4],FAS:7cq).nG7y4AE9tEbWZ<A]9Ca
U"-R_uE=\3.+nQGCg)jSI_Cuf*%'S2'aTA29)$a/.h'97*GGhUiok=u=7#Mt?%#/q
U"n?'E9Va[6(ZQ\MgZea16rYe<9_gi1Oj<RKgFlMx]FX(N%5qBqIx9Ke7+Wbp=OVR
U"yiHu&&D7JP[h1Q:-3-439>-d&jduIEhV%3[TA'lW[F*/b/t,G=(IEG*;?cEHLoG
U"NR]gvF9<&K<%3,?t&?qc9\cL4#%)iT\gKp*S20s#1h''In&^\:j]qo+\U'XMKqP
U"OQ]#;mi6t($XM3#fe2E<gjBF[%G^L2Vez'*w[1ZggGK7YmlthhNprg<hNSruZF8
U"H=upn%uV_bsqOdn?Xv<O)95SmbpIV:+/qCU/lU/HHKd)_tcXv*5(m9v-&=Po?=%
U"\/\R)Z$AwdlZ2Uxobdj\w2&p-QPGwG3L5%/$#t9R'Z^uazE/b9P^$uPOYgN[3:_
U"_X77&)LiXjlAfUmHhqcp75'B90*Qlrspt/n/UlXCD1wO*&V8y<7]Q7?suuq&SkX
U"gWV0Y72,2D)P]r?K;TV=VfJu)Jc2S_7(B$SaTNHMr[(?K-uc>wS_D4XMm\]#E;j
U"r;\=0lnr?kFgrAhTp'LJ35ofn?\di.<JMIS,A5H%lq-h^;QKjRe6LcEO\F#E_Zm
U"e^t;I9BewX,^qcA<XR5z?hT,zLIhMMi-,,99R\3r^-*XvO?lNb%m>q\CNcJPoax
U"KEiMYD<NW9L8dd)'DdjS]r7>-nZ,0)a1T-Z2Pd?Qa:2;FUusM$?5*Z$VT*;4Cn^
U"P/zi%Uo\X.ZAG*Z-V)1Gz7%lC5_/SgG4=Zp'\i%a(cI[sBHX5.P6:SJktO/Av%f
U"-1&OjAj(=tG_>4lqmfBZn:alnakQ;;Wllw0H/dgzhZYnUhT:GUFI%gBTmThToFx
U"R14m,Ba=u2cJ8r^apvalT:A,:=LuqvqAF*3YApdX5j7dAuq2)-?VCol_x5J<mWX
U"1uV2?'.lz)B#\?Whi9wk63szi&zoE/arS$I_Woj>:uwqCLxrC0?w24qPW17CF1Q
U"tp88I)/fE;)I0Y'*N)GQ:)I2Iu=n\JC5DVa/pOfaUrPJJvo8g>(r,?1Hr)?PgJ/
U"\)G_06rdd<>Uhut'Xu*LE?:b'U&i-2<&?(bZY=h'iBgge&HUeFn&=rN+sar]?)%
U":2UW2'A:(tD-M0ye1<W6zc-=[YQ&b#V^m0,:WB=RhkEe[eDk'G(WMcKbCZD5qC*
U"6a3rd9P^0Vr'8/xMyclXN4j_SeC8q$#\&3FNF:clvu6Df:_cpZk.5ICT,JZek,7
U"J?DqPe,,I/+\9xPqo:jGOXjz#tBeU_0Iw0Tp7:^PE:G2K6Hdy5$U5Tk-'UGb$WX
U"PA8h,=0lm$PdCOK'k#1a]E*eP#.H1o-_Nh#/s<VYIt;G%7*D-r.-5r6,lm&>EZ:
U"T)DZMhqcjUXo^NI<z6)FgX\\3C(NTB4P?w^.I(P)E12l8-C'i#Cf:a%);^?p)/R
U"^EZA.;_9$l'CMAHgJ4mRaT%;sB\+F661vBT6FNEfIqLRNrAu5QsQkU9T=YQ$t?5
U"ml5NVFe'A[S:Z%8mNi9Qnu93bkoiWe2k31^<LaJ:SNE?qKx-8.+n9l\D0t*]$HZ
U"+1?KG]kYgUe3on\Ge:1HnwA*m'rB%v.4n]rXCk.H&GC#--x,+G.lbLs%#e5ROcF
U":kPa>q^-#0p$25*#([-j5BCBSGaY13&OId;j7,O=tt:^El9M2)89gdp9vM*V]*M
U"nudj-r56wVksH#,Hv*Q::3f#ZcA<\S[IIka4FGXinuXXB>LOb4r^[ONxG+(D=C7
U"sR%m0gBHv#VhOOaIgF[EPT%Z5VNs(_t7_0x0VJ)9h:HhlH/7&o7Yf2ocFGA_yPm
U"-^TFgfHI>Z_9$YV5Rf/qbOe2odbN#%9:dnEPpGN\XF+-aqfd75cMjU9,n-$[:Z^
U"F.'Rg[?)b]B9=1,;T3'5#+6s1CF0+e&bB3,facpt0rX;/Kp,.9c3&SqN3YiN8M4
U"\>J]Ob9e/N?Adf'S'F3Qz_2,ZKMnJIjS5RT^+0$;6^TSLOArMR)DiC,cY?j&qS7
U"-)gfc%8(Z3eI(GW'?CTbr4F-_icptYPOw7<G(fM)a/ym/OF%o&2[>WT1$\_<:I9
U"pWuFl9d$xBaOMsI;H38#jTAR,L&AdS-I6tJ;mbZA84jI#z*6j/bm^nE3iD?,WMO
U"ay#I,p^6(.Iv)_.k-S9Sql5O>ReUt1*B=B8r>#\5)A4*H=\]D6u*etFZc2:teYW
U"R2/j$G91prTK=bJOgh\8>N&p),l#uEPl/dkV$C%umz7hWp,KNKqE74,q8yc>N2(
U"LMoWe9va%$Ylp1t7O0j.zo/Fd7/%&ZQ=PlAuM02^=i4A&QU.mqr,NLFyy(anEV=
U"C$j_>)Rla&+L#'VE&<uXBC&Lr8>T'/w?+Xi$:^7DC$My82*5)pP98\dV0Ta)ne<
U"LBmZFx8?uXegI?eK;'a\.q?SIpfoi:\EEM?*YDD:Y_=lgpF9om_,Z<74[IcYo\Y
U"09l&n]Ed1=:n_*9R[rnBrlRkx^%QPY_bm3*kl+Gcv3d/2;q$P3Q*#h_C5C3kJW%
U"S3KgK%,,0xVOV[q,QLDU:cZ3b1SkOC2R/H'BULj5r<gmE4E*q9^?J'\ulllMIeB
U"RkSG'g?ha+LMOZ$iDI9^gprJV)6D$e\UspgT0jj'&_pR).Z-190k[,;c=N]cFFF
U"[6==$/G<cuI%URBdi,6JL1&,fXB?u*7ubA0<rEWW#/wW1Jhh;2vW5K9Pa#LTF**
U"l/2j7W_>]fY4jxbx0Ab/L;SRq.M4+$K2cG\Bs2q:.k^k)-R]SBRiYW&2%R]5uJ$
U"CZ1:SY2-q::)RjARE\=eL*-?:e3abq(9/nG/bO;W:HYCXLs5?Hbe^Eon&81aAsI
U"5gqTK]5hDr'II]ZI.#WEH*hDu3a\u$-9'Lf\?<T:2u:FGqeRq0Cp;^&dlDxJ-7=
U"O[Y?QFZNPK.i1W3+^5SZc#nCApm3AO/k.W9]gKLp(nWtBWWiw).:Be-uoe0U4^u
U"n6ei1;(fhh(;M<o3VT,_z3pW7Qz3:j(WM,r&wZN&z)etL0lG*'j1FW?UQg_2WLM
U"&G*Oo_Mf&-R,fvr5?.x;[50()yhxje'/sEi9P5_d5:UDc$Zu'$$[.uO&Mxv)I,E
U"nYmf)cl+'(CdoSR=XS4xnFvbQS.M_mfb28]d&2UnHNX/p_fbuU.LJ&5,u/1*[y6
U"bV3_7:1W>smo?)ojk;FHdz:]$D1Cw&WZa=*GoX_s]TW]x'b*En%k2z?K)BI+Piw
U"C+%1:UDa5?evuc>ZScY&\(M&E]MRh_,#%WW$><^JR1#b;m#-_4og=qu4=sIseFt
U"k:9F;]VtE3:T:YrG31g.X=Ae&%XW)VRAHPgGR#t5[Jg(%,OYA$)8L<BlLG5E4mW
U"*915>%,au2d<GGQ_4bW/W(a+W==+-:MeCMkRe/WNBD5;1Os^Le;m%<Dbi7+)m=N
U"O$hr4e[$[4hNNdE)Nwj5.CY*ao-L#3w8=N$S7n/_]oBG)<vTivfXVU3Srb<6RUk
U"6GI?NeMUGo\tLF:,WXj6Sq(^;W30l4rC<7S$XK>si[47=$=&dq&BR_QEP-R*]Bg
U"wFWQRqHeV\hT65A?Pr9_W.in)WX;7jNpH[(Dq36c,s%#%^D0Y?&BrX;Hp(LK+L+
U"8W$+4\AYQ;(6okq&/2C+UkH0FHu00%#>_zi:*AU3/ELMmp(jBGFx#NE+?r0[/+g
U"<Ew_sAOgn=t3$Ab&,[83_.=$$K*GDC;C&VyOnN[C5B4Wd2W*3r<kkD_?.ax.R\c
U"Qyah1jTA\if2\PCFl18v\l_m7\QPjE1%)d9e?vf0e4Bh-#$;7G)#ZGAl3.]Psq>
U"no-2>Fp7:=D3aIo>87Z1)4Fp)q\9o=lV$&YKQzRUeZZ,Lcu:eVJyfbQB;,j4/W7
U"Jx.IK&]Ek(KIsE]Ie=urLL?g:53kLvu1t+dS3t-2DGiUK5(dMevnbge8=ajl7X^
U"$(R3Nkk&G)<74'R'a>t<ey/U;L;o5<i*9:7c(.k=<lw/lB#L[N-dTYe-je2G(xQ
U"A9/*xz>zRAgXn)Gi6*))(D_4kJ]Z:zUp#u9'gf=85Ov?7;BHe>1B\I%7$c5'lch
U"XK7iL]c1IX;dM>K*AMi%6+skoDgUt*/LPiY9_Rk\0Tha-SnuP]ZLlZ;hak<MTqB
U"^4QS;ihG^a%YGxu&OsMbaF9fViJFCG4aJFu=7;^,,:FGLZLfEiA]ZUY^qK<)Ta<
U"(sb;uSAs/:O^gR*S0^sAUA^HVaJhW\w'Bqo-75bATiJ55r31Ps'F]lPM%\_sO='
U"'gk:Z+*;]1O3b/QBQ./_,/9o6SQTyOJlzs^Y7]gN47:R65ZXk%c8b-(3Cp2%lc?
U"c<Yr,J>o6Y>rk8,jF%_BXcw=GbI=l*h]T?6&NNG5EDPDWhCi'iOq8vUIARh)=F[
U"aV^?gdKFeub6>Q9Bsu$1uH04XIdd6mu+W(UO>5?v>+,q\m>9H(x3)^+1<jS;S01
U"MvHio:J%dR4598L45=xK)O1%2Ulq7oL#CKeRU'v1m3&O2hL4m#2wt($V6VEZLBz
U"V\l17+4CAS+FJHf4b2lK[YTRjE__#Hj*^Ah$VV+IKwpzwb3B+C,%O2oNn4\[t*)
U"&RPM021Qv7xJS+)'4Xy?.)coLw01VUfSr\*c7c*>MEt;<#-X7MzYCfnPnXsF<1<
U"KDcKe/P.6BR(2V+t]sMYPtUN1,pIY,bTSmgEn^x2YJ:b.(5N8n=\:_?4h]Z,-[7
U"$#+67Ua%/30l&O-VCut'+r'']rmW1.?av\hk*SrKpjI%'jT^PFqL5;4=(AR6d=i
U"GLdLT/WGk(Kx9(e:bOoCiO7TCtC]oOJnd#Br:OfIUVKU+LVY;IG=rbT&3M$ji18
U":Kl]YmNmSI]-a7nI3aHLM?ic'*_\z8#jL(&=Wmr%fu>7ppl:A+P2<O,5gn4-dP1
U"mv1c#8$Kr[tN09S#UlhEr9^&;1&Oz*r-s\TfpWRS1Ul+]S2EU:Xkw4U\dL186V+
U"IQd%]Z4u3J?[V9\9%)?^L;z;me3xQr%;0V3Q[,<;hf,2s=9P7E=A_TXI5kAK&:d
U"2a<P1iLJA,dFf^p=B/GTLWBlp:.G;*Aw[];:<L+2*0v>$>vtD?PJB\VH]\ouHFf
U"LKJm\o4N:VScmd'm%*;NCxZSS/2JC'.e,-PKISHutC%RE\kp$&a\5K\<FU;0\xi
U"gA^BY',R:jEIECB0/7MSK30MA<(Mf#Akd4'Tb)43mD1VLs?7dWuuC&L5s[/ZFK)
U"[7Rw&Zqj)Ah5IT$g$TA&HrCfq6+C-SCdSU:%kQ2]GxTrQ4#1#u^QB'bipAV;a?^
U"bsv^=d]Vq.?k-eV+-YDW35^:.a>rLTv9S5;E/3:wAHrosA8[I>jX)a>8%eHTcQ,
U"PCaJOzsKE3Ris>?3pEiRU?=4\i<DbPWiSPJf'RgtK_e\-:QJ0Qgo'iIKOGFM>0q
U"'njGl1Fce\BM>_'(<7$]7NY:WLo/?uus%N=,Z>17.\#o/?Ep<o>[LK[kta*i+$%
U"nc-1\(YmP.W[HJBQAjbAw.uJ^_Kc.$;eFwI%qAU)=u0RS>sdA02Y-.<JL/Fj[4N
U"-mEC.<J>$?*(lCkR\pspmY3(9G:)W-4arO=L'+Dlc>d2R'^ibP&XsAcc&k-8WZ#
U"SaD'Z'<>mPE&<B$:uR\::1KMRF/=0?MPQ9X9Z1o8<Dwxq^jXa8,[fx)Npf+dCtp
U"cQck>ce]6aPMYbm(MedtG-GifruAGBcg]1f[x)HOX#+)oeRoHK?8Sc8(nhq[j84
U"[[E\'V_eZtns+<QY\f1.sB(Q0cFT:[>YY5BB4?Kb1K;_^reBa4/4Af3Em4\9[6b
U"Y4:w+'(?0e_.7gu4O3(T8;Nl-XL)&lPuB+.#nm/.>IE3]REZ^7fYm:HCQ-)oQe]
U"6un0fJY\Y>7Z/i4ASzFrbG&cQZ?-)'Fu[Sc'&Ml3ZTvI0KGf8]f?qFEOn9LTPe7
U"VA;8h(LaL,Z[BVj6Tb\[_G&n:;6]i1_2RMIUYgm+J:TJ[1$wk7.$BS9Ao5Ks/A<
U"ivPqjZAtuDDf,<;8_/WCjQ3cS+d*o2MC'*%zbO95Ub=Kf'8lB^FWlI+atkF*eEA
U"S;#c&Z_LO(Tx6a(t\?rkolJ8oa(&[4#h8jDa.^S#E-5jH4MlP'?^8i]2F:Ga'MU
U"TB9ML;N_#\t1#?zvV0el[L;.,:Ak]Luq&/JJQCaNV5%4-e>fCk4:8pc+1;/VvpG
U":RcwUk>[A<VnwZ2]TtW3MB,U7-&xYm3z,(X?QZe/_n[=,/1#33C34x0vQi;(2Yb
U"Kl:lk%'UfjaaH81Pn]?j=_WMH=?xt8'-4P4ze,xrS,\Wp3h8lk1.oF]J/^a>qm?
U"BkJA#R7qFvg*Ra#i8a=MefHPGQg>3&pu80t<CEp7q(9sBDKGsmmA<[BNb0:/JB5
U"SCS4LLzfL.9XE<.<nDGZ7yAH,YB5Je*n0bKLFQ&FfZ\FJj89&la+G$LsJ)>gHdo
U"oJ&-Js0[%F-PBV_,AQGN-+ik=wopZT-Vr&rM'_3/P$AKM$Am-Ta&%#0\L%D^MJ%
U"e>pBZgC.&7rqOddROv8]?,d#VUdZMDWv(Z8?bR*ewG(#<h/DN]eF\&GR$t(I[J&
U"[Vh.\b?3l3U;T)L$gR]p.TkzZ%9ee[EhBn14u<heVZ&A4jZc>])eD)NRJ,o4XPB
U"=a%X*^X3[2mi&D]jC^u4'e(cnYs/jAfzvcC5>3dWD=[er?-u8\i615lcwaS.e;?
U"Zt5(]gr(;aKo,X/eI#dB4-l]lIOy]5RTsR$#p(]Yp8Vu6Zf?Bn-Cq8&IFAtYthm
U"^(dg_l<;$#6yT#<M0Ev2pB=9SX\emE2pr%2:-%$hb6<,KoCJ]183#5ejJ%g_Ue'
U"S/]]IZ+/4nt#;gMTuWB9W203]ru3B<M)Yacf2QkhjHFTtp;Zo8jF,)D^Ag_\G-U
U"n=7WWN^isa0EV<(Jl(#bq=w_ezI/N<iJevsM\-P=;Jy^XKR,V3f<c'/r0xTF:-T
U"s#Kit97]<apowBO<O#0gT?:Pj__$Ha_Gt+<6u[o)]>wnta.htoQqHAKb%VBo.vm
U"qUEUP:Wo]RQWFEiaCNj_n=[t5O&/VhttGN)Nj^Gj_0v0v[q.7v<YsmGT'Dd7YyX
U"G7K8_A'XsWU/f+S<LD2+8oa=lzI_\U>%6bfS3sB9>n4,V-N::\hm.IJ,tFV&4<O
U".AdRmJ.#3f+xl=\3c8T4$a(cD<[%g7ff\wiH;y4V_ZAu4oRKWl$9,1N]$Cb];yd
U"Q0gL8.J:Qc-\=0qnbR_uL6UBihdr$v^hE9y<rGOW(h^&q0&IdOD:T-K8Zh8ID4r
U"frY%<jT]g>ZcWMCGV=0ZDXb7\A>9Gn5%r]ZKp>u8JTs$X18[JN-s6OHFtCYoVVv
U"&4d-KkSmvniVl(R/sKabXXc4jG#Q^_nCCgw6i)mmm=#:xdX/%P<JPi8u3EL%/7t
U"JwL\++_$&^X%S;q,cF8H8Nh<*f:QJl6ZjO9,E(>EgT6\Fi7^N#)t8q?\U%Od3h%
U"gwG'$M7GTLJNR[>dY(Hu+P#Al-N9TP'Tv\3\#Y[ko+0,Qno=+_G2OSpE9]f<vD8
U"TfD'PIg*o1dZxdO>&<G'FnYYi+Uv=xmg#Lc[Jk<twJUNB#JhR-yApaxPGseV9LP
U"9\]qn*JQ71wOxWd3$z\uyz=hY./t_I[.Ks.YdI8uTAUDy=1v<TA+KW%7lC(JZ+x
U".pF^20BFcp-Y/&SPz4M#O.B'B^&fQErBAZ&#%n'w=5d=&UFo5+_:[j2God$q+F=
U"nERcx+6IY5JbJafRj:J&(<.-[X[HO5'BFnV#>Q-h4FF8v>[_1kzDar6GW&wk26b
U"3ZwlgQ+cf:/G^>XiT0>PZHC4]afgQn*1Xu(xeRn\mv)tt^b.?X%VHccR]R>^<$Z
U"IXY7tc4ya[K%Vbk3cd]XV\YAKrI+sn94o54%,kQsV;^j]US_/VW7JKAE9?V\#(a
U"_;QTnN4*nCxgn=L%6NC%?T&Nxv';aU=Qk>G=,p-m_z?]HAq6(VI)r]UJLOuXp+h
U"'D?'J]%t3NNO^V+RrwlOFix/p[(Z)AUe?Bp:'BH,_j,%WAvNAf6tS<A*m^+6PQL
U"70/%43zULKkk)j4]oeGSL%c=]5(1[J.]GICKbmz6KU,SE5Mdbzqf&*7yUcF<I;>
U"T\,e>K.*bNYBv%+=UHhG%t<9Mk6^+*F;g,PgV[qbKi2&K+0+<.oPredK)Kb+NWh
U"t#T3,#AJ]yJXhP6Tm52UL#qTtW+El94V>&1YR>ggQ5s?;Xn_htSaH2->5'UL3hM
U"MP+Z=B9]0^t>MHJNy1o7.'Z?+fYz..TGm)>&CE9<b=PGP7'C:-jBFL5IxCdaI3N
U"O<#EQF*gWn]N>Gnp4e9I*\7[ha2_YL==&1.KmYW=lOs,Gd>>AK+BAk/OC/E#s*M
U"$q(dkQy(i+Eva]ruiH=ZuJ7OwUp_o,fXDXW\8FTeT//Ob>H\SrUIA.$k$<34uvS
U"Y'WjTOm&]X/pX+25A5k[8,-1%P^4-d\?9ms<OAmY?LZAe%4A0JI:dnOrgQX$t'y
U";htB.:#_+l.MX6pvcVtW6A$,D\Pk<5[Megsr]:h-%>QxniS4H#Y1k-qK05Iq8FK
U"kw7iJ^79by=e:u#;vORh2vv1e*[VbI.f0GagJ>^AJyT(u*qVS7XGOC,>**rodU&
U"2OPmuBafM))qZX_UPbaGNoQh4di,M=V+7JG,OFhe*$>b.uxhN[o57AIPX5cb97u
U"bt9XnPB:#koj^kKr,oI4+Fb+o0APQb4k7fuE]H<X6b8C.wGn1cJA2Ki>)h1BMYr
U"EJR0pIuj9h&6KKa44_':Ix6:i[<GLW(^5Rim5_;2;Ln&#&)a':EsG)Tt5$BB=iD
U"-m(H##nKH]/oDdIkV?Dd#2Dn*-ihdg)L&TnT\SFQI_4C(j3V(iG7%I$'V8IV&oF
U"GPDmR.;t*/VL)L&6TcGTSGq7Wsg0%JV-L#$[#^&OV&k5[8WuX.BaZ_gn+F]8,6T
END SUB
SUB V2
U"MkbrdTt$*&<k..d*<_75?]6KIPP*jE8Vk%g?SQ\*<NR)/(u^3[:LV=1=4AHl:-c
U"s(rky9-s4lduM%K1g,G5:\iua;>Xp_xAm.[3<B%Aa=bkrZl.SA)oFrR^6QPCf[n
U"Y:.l7.\;GsW&SEUE'+PZr:o>R-%M')O*W[mR(+jtNCjO]qNLP.kr%l%(o>9n=Ca
U"fOPIc>MgnA4O??p8>n?'n5QC5u2?];k[UjHY1P*oS%rB^SDOe,2'Fcl:j4?gVYs
U"LhgU_YgrDnaTs#\Ge9h#WG+:3g:]>pkq&n0Hva\wRVbr?oI2ab#0YF53,IB(mT3
U"uX8r9Y.rA^aaXEiB+YbbeXwOJ+Y(*oDj4FK-d83(hq.8SCKK[7Pfk<_uTxwa/$J
U"/V>lFL8i&O8b3w8+/j6FmC_5uEO4kf9oXM44$*et^=V7YiH,ITh<X(7ahs/k7;c
U"g7'4FOTor)Vx0Pcq-lgO27?u(FO2l;jSFU+nRP*GZ?*H^llC]a6)]-OLDkw:M0n
U"-cfOZ)XaW+=j^[YY-V3+SS7&544?VXil\S[]%dmiUpfF4;-Ro:'oH\#1HI1:L>f
U"NV9T?Yj)IdmZ=2Y2#-#^s*'NFia#l4nF<LG<Z7O.ccA5mTSs\Z(i-em7Ok19DiT
U"<\.u=2PnQD>/NPW4MmQ==Q+e*;X,Y#]^=$8+ug*r1/w.Kr%G;l5nV+8r)m*^j^)
U"jpKSBJ?QUPIK7g+w^A()WrONAgeBnLpY0.ro3%E=nY&xlObIq2S3i&>Fnq'Ax=$
U"d?_OAs*&Y^%;v?[=;[&mo\bTK5OtpVUzx<N%Ij%aJWeVAE:Hy(=9?BEbeLX'T[V
U"p*f*=YmN]6MCMMMc1]fL4UFBGY^V#oT_/EW$d<nG]DG2AlmIl%8Y,CGuaf<pl<7
U":tCVbifV&9TQ?N^,fz8B^Ibg3=z4SjMCuP1P+OX2$r]hNRn#u<UUge%xlH;_VG5
U"Y)Xw4mPk\Zc[2+m$tE=)XNIp'R)HCKn?y?[4T4-<*1wWsH^,:NQRU9ZkjxQcjJl
U"*r'LD+8>BV8McCDZ[*uwa+q\]0)QZwqloa=oqagR<U5*3R1VMIi#\NhIVNT&,HW
U"tj'3l*^i'D453]DZ]TWIIo_m+qLqoEEOX*LQGyR2\\\>8kwKJceqG25s=S^I8nC
U"qV3nQp]uX%5=.7'k=5KfFR^D=_a9,xwpD5M4ZiJH1P7)]^cux5VljxR7l$x/WPm
U"kN39v+u5d7%7?%8']u($XTZ,UbaNf/3v7lnWwQfEJ:1=#fTX.:n$8,^RVx,YhQ-
U"9QhEt9+Lv$&'%0wi8neqcGB]t&dMK&U*aka]AVVBC.nYx+$ZYKlt:8b2MqP#D[,
U"?Zlj%:_1Vv_K>1B2Mno3BvtFZRa,gwzEST2390i?gGjGS4Ff1';DGZ>&c5gw>n'
U"9[Gj1?t\4d7^zeIrgq'oPUw9=1nZtg-=+Wi<:JJIiJGnP]]OlPs*5apct/Z+)[P
U"M'QnSMHc9bKaPWuS4&2ZEO6,A5#;h&KMH*]%^?i^3<#(9\g0G09'065V>-u1zaK
U"l'7'VmEPFpXaod\+IlJOYUsg#qJ1EH=L:m0jIQfve\+(0DEbRvL7Z0D;dh:b3MH
U"_/)=.+\eZ+4^1*C^Jm&IE=5S=<5c>7:wg%%XQOuPHICOh=k=$^*[_5P6vpWh]FD
U"-f9oy67*$x^X%Kn-e'b3([:y)M<1Ti9IRW/U?$ewexjXNicHcYDU$<M5-iw6y\X
U"%2FiFmZRZS%h7K+rse_P4El2J6\vQ*x/oxS9VvVUc3oR5oxRc\3&WGkD7D1PgG[
U"e&=rp<?R%D\[0>zZR6t.=UJI_d&'O^;X.O6\W<U>N'#8eA[j[1<1fhBUqO;DU3i
U"VF*$gu\YEWlcgd1-ac2?em81>:jvh?Mg%_yG,T=4vi%BxI-lkeF7r8HyJuL4-<b
U"DY-aY(8X_#=.8nt+[x=hQjPyXS$HPmOU\x$MdLNm]6LQs2$^Qxur?],j;,&:?Uv
U"YCe]hOd?IHX*?^S?AKO=f+/\VVyiiIVCtljZ\h[048'HTa,AEQl^\?t9&/GU.fB
U"S70Y(hRDxudVh=UQ8ftDP*vg)g8^SmPqE-+AP;K)5q1tKm1Xh\7jfQ55EtVLh\x
U"x*/k+2+f#yIJFC8bBIe>VW:+AXpVh9PYh//-<7Dt2S40%z%Cty]M5)rHTjx&#/X
U"?vOgG3p/1xT^6W_*\X3?K9a-#w'+?*Hk3*[RXCha[IetuuQ0drfTK2yI^Bo4xT-
U"gztkQR2=e%<ODtf2?9uf8OMM.M?Vh[B]I(dJC.jOU5cPx=uK(M3AH?L<HFYrjZ_
U";3NsbSTXiHN^_UdNwVUW=;CrW,EIT^r+qf3ZB9viku-)l0E-0T/sgg%(\?MeqXs
U"lMJX9V1/xag0i[Dn-M)1oy/qTq))&_)#M-'GMiNa;,fn8m;m9gRA5OVR.%xbG9_
U"gZpPYFWP6s2*C7Jx)zsl-<M+[;rFve8Yn+xPfQd=W/k\BsL8ap&[';_Z;)q:c+y
U"SDgs;Yu-^Vu5pgh94+>K+0w:PLfJjZY>&>K3,wC7ew6_wA,%J:HkEtKx=BEY+[k
U"ohGk=2B-Z7KdkB-ta++hQc>^j1g)WEVx[,[%JnepoWsUGV&#LsuRi$b6-BS5$UT
U"mhPm)KMb>,YFs3xM_D5AhKB>w^,t5wSsJIN$1.Qz9_bqHtwhK*>7OfrfvCFkipb
U"JmjxIHo7=?Z-nNe8b>n]M0BrNSbvN5840b0,:eho2\6:bPoBt6IkOnYM:Nj3Kc%
U"5<#%nsR^fSxDcQU+=L,RI9u4R6hk<N#G]?;0[jDH]'MzzbfJrVk+>5NUCV*D[4Y
U";:qC/($9-4gFp]#6b7>]kTgmrz8n?KSP.kcv.x^ARxL)Wu,W>GMOOCD0.;Vw_AI
U"PNS)n-P*GV=PANfb/MfLF8AaOE(1li6rt,a>hx8(u)PtE#$5N]LO2fEu$s3*KWh
U"(O#;kq(W$4Rin/H&K7Q2aMG8*^5.9ov^^jP)kFX?9GA./G*;W:wfQ:Faou.Q*T/
U"kZ32<B7I/cQU>)7zX9oJ0E-qo>S\Ahi+>fW,q]o1)tll)S8'So<V&A=\$Va#pn8
U"1*6Wx0IcHolN0[K9OXiONX*f-8lj5q^Wk5suH/[ZE<>go0\A7N%e2J5fPXEI1:u
U"Da^<8]:Z5Q?^fP,GY&06W\tE(4Hci7V9h)oa^S8/kH3Rq+-QNaQ8fKQ4N\/t)0X
U"6469s-fo?tGA4r%FB]xQ]RC7+Fc5iZOFZ(LHNg>6j:jK.0)5*;ZqDd>Pfhz,u7(
U",^I$_[3:/>t>4#G6h0,#V+.>&5mEu)%v,Toc+#Uu:<9Lj5TpL91I%;]FE[H#^_8
U"-Iqn2iWFd%r)'8ppLXsTrGg4'LBkXEiGr>=>RaGh6V_f_z.2\aI,UMQPlp3c#nC
U"ll169c;<nYxCaEZr?o#Y+/=DRxYFP<p']mu/s&VW^eAXd2Fjf$g+nHH\FHbH2Kn
U"1sF3llaIOJ'cg827vx?iVS%/=b[j%a>[sIF0n$3^%-qH-X2jXTgM_YD561(M^r$
U"f0&F,86vaVK32[SnWU20g+6sOBBe(S?OY]Pn:U_8RiOt__VSoR)mV+7C9cRR52O
U"Z+.79hR5Z\;_>EjIqd8d0Xl:RuR)^;lX2gm=1f5F3eT^1bnEXX:[Nbnx/\+QI)D
U"4oeq(:^t7jjpF7>E8<KLq(SsK$V(v.H+CmY\?_O>HdB5%YV[01T1>-r)mkpkXhu
U"w'^kFtaRMxQh;oZ?#$A?JO]YRFR9Ylr(%LTW).>)(H^o-v)x/O?%pj8x7Ram#]6
U"W*\$>P,6EJG,rBh)DpQf^LIqn9mmdg*wUP\cl>+yhYwb$5$'_w+$t*QCBNEdx4v
U"7fClV9Yan>PbhxNq^0=vQ)fGe4tg<$lsu4%SzgJ34mUw88:%2>DTfFuOb9/]eSE
U"sR;0vx,'?4qiDYM__f,0LJ(U#K#cWV+#o&.CSXt-c3gA^Kl_0=;_f?UY-&Q5fiA
U"Et9%J?Dr'a'sBuEv$b4i:agu;$KOB_xT84Xgo;JJ_+-5lZ6dv<IEq(jJAt:cPjw
U"$JoLlS_(2c8tXh)>^.]Nw8>smyOIJOq.kD2:Z)_]p'_q*=V)xus(f[4aW>N<.:\
U"OY)riOg'ngJ9kA5<'t+'mViG+e'Yt&d9.tpbnu[,N13o_YjE5kZrF>t<;FYZrV7
U"u/$,;]w?(S3c#:(6^u*#k^A\&-PGt4YL?hk*,y?8csu\h\$tyR[0g9o>9R-S>L;
U"\0mIwBZg>b(p=WSii]*(>]XxB42:.]wAqk_8$[z2c-LdOhy+V(2l);$PK\7coQ[
U"950_ZuXBZoD2\LFD[gPny<b>D-w%\S/Oiq4;_\0-L3=,FDeF'M\$HRk^;q;8+]p
U"bs,jAlDUfyu[C^B<;ZSWlcI=4q'lQkHRUkjrEl$/sW#-#/(OAfcZ$.F[pS-klg*
U"UjPY=7X.i4KNlZ[\*(gv1BT02hO/mUP';\sWJtiiqrj^.(5x.[&'B:9QFxqSQ7i
U"/TxmR#=A'INI&&2/78\n(7W<rh?/D>giKghg%;yqIXVvSQ+?zOaH'-h8nd1GU8[
U"C4PTb,O'Y73V_Q+8YVAsaTJgI%A8hlF8Vzjv#Xu-v;PoasR2,1#fp#p>B5#TXL)
U"gwe6:L/hKclkLI_7.Km%w,x7l0Ud._xO%o;OzU/H.mJ-=zuuS^oysh\lT*?_+16
U"B2DZaXDlpyeaPH_bA%&A2<=rvZ=c3;A'3j.cCa_,z1N7JhZAhF5ZaRW&9p'rT(T
U"uTrUtTKPiK-Xu]&Gvv#&DC2kPC11*guvF[Yc7HP<%VV<8N,u15r^T)dfY0i+x+C
U"Gqfvh]l%8A5G=DQ4M#^b9vFoVbQI/QT#UB2,2AT%oFb89qGM?3+X1U8:lWZ$+Ss
U"zn'GN\tb2Sa2LK19.rxL-H1mZea.OdT?,$i$d[027.Ypm'U9%&k[cw\m>9'tv*f
U"KNW5O^Ot'$94*]>dk1i&FN'kLw]-WhlVW54oi4mHKl6Q80h0w4BN#-#]eN*C=gJ
U"dS8A<_LC1-DV_/89f'Jek=tPu:cTvr,Ig_aVoK-w'fA5$?1g01(ou*28f[R)AP<
U"O.G7j[lj?$+*U_*Vyqg-$(\HqHD166*xKa$YEii=Lc5J+XZ^:sWhgS=UkrWT)#k
U"]Iz.))Yf;3mAKf3(b&bA2fM-C[j^9)$_rOFcn5PZa'k<UDMK)'[nsho(\9k$]an
U"k%b^oSa['=R\Msn-o>SIal9_W\q(W-P>rJy_A0\*z6-w_<Rs_o1Qd)M0m1=o^Ml
U"ehefiJf&bcBaoP^N=UM.Gt,=ds3vVU'cAN]>UR#Un'GG#%pTR=B]dd9Z75Dk7q(
U"0QnSjo_WUW3O8L,41gVdKSSr\R:5dqA*\REuos;Rq1EGA&UdnJaXO=O09d;:1Ql
U"4(GNI\pDFead<eG518ERvt<VR=%R<5aG*:bB?+3F_nEC-Lk*f3kq(]oM?Rf5:ZU
U"<4K$86F%av#m8;:b9k+n8>6XlrJpT#\gUkhEOmt=]fHkd]'(y,RW1864pH:)mFx
U"hM?uMOLoOaUwqN8P3uT/'%ix>/8SR?%R1K<kJtX3QbJ-0_<mJzeQV]3##aDY%$W
U"rnY707>ahpn=4):xo+IHGiOAg]f^1,0apoM6Dd%5b(<oHvt*^U'J+'n.9r=(;-i
U"1g>wov\cVYKFimXRD;%Sh20u8Ah7Zl+HQl.1*JvZLqppZMTZE<2OX\8OkzfrKY>
U"]5n4tWI6XjwlwOt#e#Z;MUdNjQ0t'.e<j)^B$gWw1VW_dI/oU)H8B*vi/L>J+C$
U"0XVA\fms^J2h5W9=KR2WfBG4_sGaYu)Ge>>OIucb<^-2:mV[=?0sam*S0g-+1o=
U"P3#[*KW$LnmpFratK?,]<F1ZU#=.Blf')%3i[1eCg]$l^-lqX2diMu[rY5%DYG0
U"cwE4be:Z,enDHv?1o[.>y5\KJpLgros,JXu\O.h<9UE=;tj\oNS,k\*=Rmg=a[=
U"^&c7Y:Lyg=+P/WjL.qpQ4Q#d83Tncq(N[oCMY>wj*^]F=rSC;/*s3pJT0i$fi81
U"p^920V.ZQoBYYNl.WR6WT*B=3OTJ-i=g*Z\:szJR[XlXWjYD2X>^8Fo=hw:hK,c
U",H=J>RO7b0XCs;T22%l>XPN2^j-(Z[M:d$1#q[ZJ1SLz;;k;SS'[>da:1p\C[CM
U"-x_G9\n'^8\QNtxExL4/YK-e-\HA#do?Wp(T^?a*,DVlVor_B7dc=8l$t%oasDr
U"Q^GS;MS=a2Rlvk'CtQoXEwbp5^P<sGrgMul3\Zd;][>ymx3=#LIFDm1pYp*$_6P
U"Ec';N*aaAjQW='$MYj#<1,a^I:#XYQm&d\/RRuT?i7nRO10oS5Vn?dLO=L8#X$u
U"lt?''v81(pRk>^mG:vjZu&l5.>NLoublXtFppb784KQs.YJ8V&zFvsMq.Sqnm8l
U"u,aDcEtMxN0sGsHJlx?Ko:xN&Wa[R5Kp1Cv'ZM(4(#E#pQ=f7Wt3OG2>,YO1ht*
U"(rZ8JgokzPn7^&r8mFqq(j'XQ#hitw%G3k8;DSfInI)Xe37Ip>a9CADkIi_9*0T
U"#tM7Ws]<J6&=fOn4*J&QoT<RuA+_nu.RN4&mImC*Qo992+.kSVQEk+%_2n=NB=&
U"4RIm:\AD6q#4*)XJ9Gy5JGgoO-Sbrep^^u3sJa4T3_JKMm*=XOwb/)N[:e/j:Zp
U"nw-t&hFo*[d$ELQ2W1B-GPc]LTvc-<rUjpYzF+FGehYl:gI'Vjm$yocsNo?QMVL
U"K_[^r%:[c96a2H1MRoacOvZkGF,ARA+Z2Z5P,Gta,.7k2tVe9_Upx>vb_q:U9'i
U"t70v.d)?9/O>o#fjnFP\>'aXO;/9]gW<FYrWp^hoQMhi2b?1m11Vdna-xmO%+nH
U"l(gPLWDzL,*lH[ZY%BeZw;W)90,&rk39*4A=>e#Su;5Xr=tU#QJ]GdtAYMf/U)W
U"rpgQRZEJFYs$el0()d)?>Z]H3EM*mT88*d$Y.^_$.E+81/tZdtc%8s(%1dxS.L7
U"9ljUowKtXm#;C/tQ>2ohGi/3]#Tm0=2\&K9%?:\_X#b$IlxgCW#dx\212>%BbHb
U"#kld%X>1G2f6HKJJJ.QF1giT+s)7M#&J,orfoDC3AUH&p5QW=^+.dAy\5#zJ/cv
U"rw8T?.nT7j#9qHZ&h$7,\4Py6':iL<F$+j*#sD7YctdY4'jF\)v5$GcF/[w*1.#
U"nz[Er[B,SiNKsj':P#?JMxRw/o9/vn=l84+#$9ga^VlNkJV%HAWjK9Z433;:\GG
U"(St0T>'G^_#V.vT^PA1)f#>4/_0,B4>E)e6g<1#)A]++/r4:_Ee%70vNoegoU$l
U"-r)s0QhB>S4Vwcb*2j45e0BMGWRbq'Y.6rNsUjNWV1dqx+u%mDZ4NDx<,dcY(j/
U"Hg(&.3g8^l$ny0x]6^u:U&_0>bNSg(>/\_%9vF+J]#M4WXh6dZ;J0)NO0]JP<&0
U"t9V<ifEV_Vmp%]Na,UB/]lid.&wi^MFcg]bB,(H;H-^BNuIsJ&8H<N:I0>*[\Ef
U"NbnRZhuVO=]J=NJ6h-l3N%6iAPb5t3Us26i75,xH]94anw7:k4^*QJ(R0>$>#*W
U"<OVSLe(e.p>$lz)CI/JQtB/NDrJU9g8Zg58i3rr*c^$)E40eVIn1=q2p$Pf)u:Q
U"iidgi\8)*aaqq\hY0i1W#CKP-r2Cdsvm#cIomkKA_22,.EW'F-,]I=nV+,E=(4D
U"5Y)-/h<]xMgbV\-KOk)>aLp$2_>4\1=7p09M_2d/PD(xH#CkjjO4U?x]vw<'LIT
U"DQRr('3d$s=*J+gcOXmNINuTvl&Xxkp80k$^JSl'([1VmSU&0bwt<s6MgBbCU71
U"/&$^pM\HKb+DWtJH??*:1;<8,\)>k&ETEG(op?wsNJ%HpE6'6=[<o7_v:y;Ukr1
U";ej9^L:=OSfk==nU91SLT[eLWMQf#LCC6'\h.$=>REF32sto;M6Pilz+<=#OI=)
U"NX-_K$jp\MF&oghRJ\HB>NYpW(tO1n_b9c;?47*Y=3B.-cT4nwdil;Q0#ZKrPi$
U"t'dgeu((qiKu]sd;>88.&y/A;%W;X6&z*Xu[l5T070g%pM<7Mi<JipO<bOCR#Rq
U"Zq46<9pR/mWG&P5bsXP[GL6-(GIV,7$^tZs&3TaP;(_,O>ape=[BZcg%bK$QI49
U"Rq(d#>TC(/i2Vz>U#rtiDC:,0rt.EaPv$acTKkw8R4Q:iZ7Z_Jy?as>cJ_22=h$
U"W<Gt.LIk#&\>Q*i.5Lq'Q*U.kJY(ajSY?EBpdgX0[F+SOD4(F^E-K)[W#-'yh+S
U"/DRr&KPYN#sB^rbLxmRs,_Pa3]Qm2CB/IiRf;p$EcW,#^73\a,6f%?e<<(rrMfT
U"<$9Py-oE+^2]2(DfHAERXXk7>7ieGzEn)D73*NY33T9&D7$Y'_R;I[BLeg\&.65
U"WU0bbyh=L#Z1>]Aapc4%nkqw]#C^g[zE]?,k&Wd96DiTRwRE6&us4%hVEIw$J]e
U"Rb;=%_MWL1T)lCl3w.]W>QtWiT[^0HIId,V,>AtVjYF;*_ye5cnQJG:<6XkM?fs
U"UOLUf42.z<Bc&Sx<iWL/,j=R>Vh]zqCjZ#uSjkNE4=d7o*p:M4\)<b8GM5i4#G?
U"_%DMDv[4o9RS8sC/n*s3c>rgP\/Nkp*;.F4fC_Hi5*Ki&7CAorj(-K#H;($Z$sO
U".&,muUjw9S5FLl32sMp3W/Av<qFv6JmWwq*mkUDZT]h<Ik'6VYG^1Hp1D7;ZYvW
U"0JCTj5AD)%qs)C<LNi2T$5E5aA*.Fn]zL\j^^YNQg&3G5OH42s3hUvp*?Q*5YX9
U"w1D==-kQSW2Np81(tk=bY,ajCs0f.-iDaiFUcDtH:PBk$hSrJug16)Gn$9kL6FK
U"=3[8GGL7mlu\wcwq%FCKC)zgG78nOJ>G=i[DOm&CbZD[]5$1k\mNvzQ.6vfT8GU
U"(qPe(oZ9g^H3jnHH[lVh3YB\QY7-eA+iRg0*'qB?kFseSDY-u%IZ0kBpAGmT0tk
U"5>x]ZjN2A9.2siFsLU)g0$)jwCq'?b4?RGC,Sezh*8Aa7bbcw,d21n-ho0FN48Y
U"n^R9FFd(cV_;[><&k[Z/Q.Ou;-]+5^Y42K3D6_5+%$Ct;p1jFA77FEdAf1h0JD/
U"z2l%dVQSr<FKGZ\ltiLR5rNCjUN4AgOj=r<R6?7NxK[mupJ+W?gHUE_X2d];c.\
U"i(Z4UnjY/:TsIO59UhPSvbTsOQ((kDK0G<_:u2l9I&.9=wDT7qRr1w-A]JvjgWV
U"o&BI^fPbb2rhMJ.UXnU.W%v)J\s,7f*hNfnn7W>nI2.:;H:^bs3K2YhEhC5gC\o
U"ZZlL)?PBu;_k.C])&W/$&$b]#dcKlkl5DDG\ky]-Yc.&in]R?gnO%XU7.xFLNU,
U"x?SpS9VUJ)W*ggA6_b2sg&rOaW3?5ZY&'cTb-nxY<>0N7m_)9?c+#qIB^G.Sxu3
U"8O%t#:-lF+_MR,1Cvt)1CN7#q4)kE.+]]6mi>o'JX%'K=1/9<eF4IJZghs+3VU0
U"+5Eo]vG;7UqsD\gqTwNR<#:EC'uj%mv+6MqK0r4<k$8SKm/a<\wjKrfYE<ATZtX
U"cw3*UFA56VLZx$bV>?3J.QLL'V:I1k5/=RT^;rtsn9/G+k]OY.lv2B0W<2:#Uei
U"YtPM.^\/3fJfqfBZZBW\XW<W,hytPqFY4zBA7mgD%hnGlqWv+G&N=0%QB>a<rg*
U";TUnQGv=2cf,KrsETUlf>LDXJ5i*QX&4*2:)Q3Ft)))w?C(B1_vRZHohD9T[d_D
U"Ix-::x[.u=FSIl0HP&l'5*HiEW^HtDMXjy:\45t%)Ldv>Lo&=RCEo0,*h#x#]t-
U"a:T&N.g#x9vXslT6'ge>[7WoRVVhAV0u9?[Ni=D(u3?6R-cFw7#[HMA5DS\v^1q
U"];MCnr&28/0V-oTG.B'?JA'ju/xT<H>J,XD[Hj?Cv><*'/;'.xi:p_N<nhW>xxq
U"sPX\2myE.8.fr:4kd%d,+>Ql=sdXU[5rD=zD_%T(Ws21?%LcR_$3uYKe]xvZ&X#
U"uu&*c%T/wRzg.ow.Q;tEC.P7dlOsC^2qTo=x*+^x5P48dApb'[lI1pU6kSb+\9e
U"1ScB&_x#BWEN4bl]4?+cp'ic+JANy[:'b6/;j02bba#W.0GRx]qN(-WxAhk^hez
U"gL-g]cU?k=RoQBbA_\N0F'7zIfW,N2jBY,;t0OD#i5ExCSlwvXksm8vI&'fa&X_
U"xLa<vYD.RJfYJ<\s\osr7:-Uf+5qc9HF%>c:BsrG/^Hd;:p;2<qHclBK.rm.u2>
U"EB89(ZS8-Mj+l:meBJfelT\5D'H7.uctH-HteW_JL4:rgq*KP6PFvD:r_u5VLH?
U"[M$)Z+0Wok0DQ9fQY&c7co;IduvXv+se-J5=Lk=H#K7qWpI'lFnKII>b3LgaHa\
U";mGc9nrGIW2_]m.IDa9-*nz+#nFIT.LNUIG4ERh$Y=SLf:CF5+au-ILJ9JIGh=o
U"/A.]#lPk:b).]#%,MJAYDZ#d*o.ps7n\ckKCAqaOqCWilZLMX>_/M=[L.wyruB'
U"QDKg%OhZ7L2rtm*/\=o2BR\438PSPImI0jEB_?#v))Q5P2vpE:f^.s;1)++'aWE
U"8hj2JCpgQ0<+s=J5\raU5('?HLj%/vCa]7Oq1(Q*l;Xq#0u?=U8,M^)7*e&#I-2
U"eLrH0=Te:Gq<T70LVtoOpJfI,;9^oxI/C2xP'sPA5e#3]4V%-lHR,c,.F?)8P\F
U"hg7I[YB^7;/t?g/8Hk\3*cQzZGGd/6=W[NlT3zTQp3r_WZvgE2j[Ikg.r$K?v1G
U"agt_ww'$bBZ3_0Dp5%kXmKa6Lp3H+e%jbT0#2;c+2X-44[Y+s#7^N0x$-Vv)]+0
U"8bBQgj,Y/..zVL+8;rS#gh3-k#\zGlGiN\a2CwP,Xqj0x>DhQc#P^.nLT',d/rk
U"<BdPPG8&^xrvg3Tg;I-9DM':y,n#97X,[^rO&gi^aZ.Y]1J6fTWC].n=K7[fJY7
U"0'993Z[.HobsMid2*H6Py&tiDAd_]df*oc,<)7*+q.Il7&52b%CIljNISW0Lo:(
U"MJ#]nHa.0c#=_u9)wu+pih0.3ldK9,t22,_.r5)lD&2j^X'TYCU8%.CEhSz3N5k
U"P+ZR_CH]eR6a+1+Q+gman_SV-W'xK&<;Q;x$brX>x7K,:[H$X*fJ0SA7<xs-7k6
U"xj[TU[kJ8#LkJeda5+TXUhJ)bLt,8zI>)t$3Y>H[IJO/m>GdC=O='Eg43EC>*?J
U"9;W,QQh%jVYX.VN^3Yj?[+ng?_hsud*^QN;]Q:5>V1a;wC_b:akeB[f9di,=6Im
U">WrT7MiZDUW#oLLRhEqGE4b=j\v0a3kaQ'1FOT/=3Dk+FtuVDnotaEx($W71^L-
U"TL.=0F,_X3UxB,3A01d-RVU=X,BV<u6Sh322J1Jsn-S0.Rf<Eqq0n6;9^%fkG&.
U"prfT8:OY71BdVOewrQ%4gVx=rx7zT\SQ*,Ba9cZOI-i%U-nR<>'E0EN3(2(CM+I
U"NEbGZsd[0pb%JoCQ+Ne&kvs)p_p12V:jiqJ$<5dfEd-9(^P-+Z0ki.'=/sbFXQS
U"U,QG8_.15#-'+SaWoUD+OA3MG?IbRqK)d;b^^2N5KMqq3Vt*YKY#s8;&HELkr/,
U";0b+I$Z/b$S#eRe#E0I4sdE/g?.8rQs7T&1fm.XCK,VY2.#nemq9(1'7dLu7zw4
U"J.s,FfHI1*Th1[pVWL_<mZ:mcKo?TLSV9&8>LP$m:QjW)_BJdppk&h>J,sC]&#?
U"T12TGkdd]Tx#c5Cp&[EdK[k8F)ZA48q4iEoK\Td^6NEk752B1j)1cpgl\>t+i4'
U"45vIVf<&EEV]NnSLs.WwogW>d#s(M<M[\o)]u%g$;;>DCFEg1gFVg-91kVA^N=-
U"LA]M_]/)X[(A7%^sPHP2%\tGVM&GmVDB.cgutstpFdUYFj8V[6EIEWx-mEoo,;g
U"HXp'G>ta*ord6U/IgAjBh#X.1]KsNr+97Jrrw<Y11&(Vm6v.G%l-XOZXL%&7VK?
U"6v:/K-<D;dg8Hvgt_cdj-gX[8mMg.N1vQ*G82\YotpAVRLzUllV\zKBW#$[/pyr
U"y&HuhSZch_jjq^:;4[\3kV#;uk+A5IC,WIFK;y''^''XnLqh38N:'(Q'0K0.JlT
U"7GR?nOq4:n'3O$Rw^koBFmN7\rw4lQ$2o&0h2oknwRK/vxtTDMz.ZqK'(mFDMPl
U"Vyf=sCMeK3*B+A8Kx;$-DeZO'>12a;p>BB?t+_8N:-BP8h.RmY3K6r+KZkg;2$;
U"yj=;*$d7Cmrd$Zntko8ww=DeNUaqM-wJmu'cN(T*VrN;)A0SNd$KOO$CY/6]h)J
U"rEnidrwr191[r.hf;aDG>Fn8XcRPE+OElXbCIG:(9ltqQJiRl,1h?Lk'OM:tM-'
U":'qYCnjXX98P,s;y?m8n^MuZG'c(eDM1Pjw<F%Bge:K3r7RQowtniqA;(Z7584[
U"AWnU_5k*>:4JP-*g,\dj4i\t6k>1OZ+'X2&Ga46o0_yN&LZt04is$EBVDiVxV2J
U"q7:.Y;+cg5YYow$8'Y.UTBnWvPdd^MCH/;2CRkvP5v$y^9k8^Zl>t[hWtBm)TfS
U"Wf,b/?^swl/pKo,<vD)Vc;1y3yV%%;ZkifO8tme/1g7)]BJ-pEzm.Zz-8GBaqQ:
U"$etNDB>4bI]92RXkr:W#vF#b+DrH(ebnTCSG-P7:]YL=H02q+jmmrFDn-UA5([H
U"R215LiV84LGXI6#^DK1D2aiDc6[PfU_=dS#EFill]ckI[6-)4X(e&D2\B6Cjb_i
U"\b_JYef$Sd^LHSNxa%1*q^b<&igmW#KVKYZObLB-se_t)1UjBo8F(9Q>'8_oT&9
END SUB
SUB V3
U"awuof&N)\KRFb5&3-wrKCpsqhcXa3-Z:Ol$UAs**t,/FsA(96(S;RUh[\oh.pjJ
U"GSFS2KR4:L3o]P?j$[?_9kPLm-1tk#l7ANyBrhvy\GcFj$7KYq*WI=O%+oG3:G#
U"DVy6o4&fd3sv9B6kMHU?q\o]5zZ>WC=2quoffL^VKWY,joWjtiLeK]QYsHSEKkA
U"7_X\1S09S0],)AEm3Cf(Np\qax0w\qT_kkoZ30v:#S%zRM.uuEJpj05Le6uT$\L
U"u2m4GfP9QHUMx53q'xrtlRN:*.X(pN^TUfOK^27[8wk8b=8rpIw)Ul<V8n7BC,-
U"/SUh[ls9&8-&Xs)(d+B3QfwrHE&]Z?gCn)*KEAxO+R[3qT_FE=U3D4yAFl:DU5$
U"O_r53TsB.T0\,7=0iD$mwHT2eEd)KuAguJn^bo'r1C,&MZnU?^ZF0jWI8Y.F,js
U"R=LTJAMoRGSxa/a1i:Lp'L_9?&7?jojuIXi\cU$7rq^+sSn]>)vVEg9WaUdSvXj
U"oj]G-V68](g_k3^Q_;l1kFa4Q41sGb^U&zS(UT9'Mm*DA?1=O:*jk1gDJ$Q[[tD
U"pAWsc9=3((8>PX)9=22>Ls3BtT>13xLsqOp)*Ag/P/xHBJ(K\6bPf-qxgAs)QZ<
U"';'/OP/H\dtmCdJ6N(W,%sy=&B]ap;7c-<P6ja,D[[4YW^:7SHC$\vWs09O6HxU
U"jBJ8bfE;iZ*%V9>pC_3t_TqtNBV2-3R6qZV2p9A'05t-vc+Ji:tU2n-VPrNG2Ko
U"$tm=j0GKwI0L1sK5WXl4z*g='/vGOY2t*wf7QH24T#mE*Pfkb9$)O(Dm*o^XIqr
U"+qNM(R<R82JN=DikQ>kYw1*mqp]6cm9s&[*=*w#_k5ndeVoTN(IW^naBP^MQ'q3
U"r\(Jp7ty>]5<FZ0Q%Do2K.gOO=u)Y%4n-7CKo=t'+j)4H+k*\:M%$/mSUTJ'BBT
U"LqCxrMvy=j^_I$NQn'Ud_YOdsUoBe)T>=8yU9x+^ezy&C.a'CGO#1cnZOV<vIM/
U"=>me;1l5%a_B&TA)NBvSG&[KJ=I4JO_lpr.9sdQL[SU5v$9rT;dv1(6&)T:v5U-
U"&R9km4e8%C.X.p:2oJ7]Lcg3V,,.DbFe04V;]9dE$OnX1$7\;M%AGHm#ivYhZ*+
U"tf[y'HKArOU3[x4\a;$?:hVq=d)yb8i:u1^rpX[<Umj:6cZo43lifn5$Vy\c^NN
U"FAL]YKwWuXW8rA?_GEea=W(dXZ(.cTp>-NatJup3rH;XV#_q_U0fXasNvI$wgw2
U"A2An7p^DM)*MqHTuvOA]X+PF4YI4,gm1pLxF+4Q52/U+Us>k#IB3?G:=nV,aM+:
U"[od$%;:>Nde%B)Q]vKUDd3(<YclT6w]?.M\W>gg0urtd+[mpnMBB5n+xPTZwjWt
U"B_d&NVG#w#B7iQnl6mJ3Fo0+4lsTU-D=MBOSHQ-0*zO5eGeDYV'L%+;Uf17&Z==
U"J,AQv'AK3eDBI.sO'GM)p3\7#^P[YC;:8^YV+eN%x4:S3yJ_;+1(tzHdLrqXBa#
U"s<Q0#99;_D6VQEAm><[;M?'3ww&I;^*?vP&8l93STQj;'[jypnE_Rq;EW0qj5pE
U".]OLg[d^[dMIF;m#?3^lr*zW4P?P'<3TvhRQ<Ee0^+n_s3U='\/4eu4)DO4mp6D
U"#s\Oc7qYp<cedy_\v\E1BmTvMq5S.H\+(oYEQ<k'0X/Ymmn?AjeuhD,.2'n1V?1
U";ilpK(g:vCp^^U9o2gB78O#02jcE$i,4.ZUJ+w_*GnHGDj]J+m-dw)-vEDpApKc
U"&WU9.y=47V7Uswu<iY=bu4<feqi'j.7lM424Ld+7eTnF5W#+Jq3=IZSNkgipS>w
U"YB'PvYnPdg+n;s&uV?8'=[RQF&ja<'Np)8enBqR/^X8mhD0Yiw<Au'w>oV\7pJa
U"pwx=F=a7/5j;Cz?eDk*8aEa-n2%mQWVki\4\%0EaV\&:GSmY<_NDCaipq[[(]/6
U";*OjHOm1<TLzf=_og&'BtBRdp?]WC%>8CbXX,sT=QNu4n8xlnhNv%dup&%'9%9%
U"%%%-+%4sbCDu<X+\Zy%7%5r%%%+%%%%%%%%%&%E%%%%%%%%%x%ySgf%xup*%+%%
U"%%%&%&%%Y%%%%*z%%%%%
END SUB
V2
V3
CLOSE:IF S=240AND 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
'>>> Page 1 of ST.ZIP ends here. Last page. TCHK:240
