'===========================================================================
' Subject: Using Polar Calculations           Date: 06-16-02 (  :  )       
'  Author: Tom Nally                          Code: liberty                
'  Origin: steelweaver52@yahoo.com          Packet: LIBERTY.ABC
'===========================================================================
'>>> Page 1 of POLAR.ZIP begins here. TYPE:BINAA TLEN:19278
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"POLAR.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%R-%Jj\HQ#X4xnK%7%%?+%%%0%#%%h;M>B43IuS1<;?Bkb-??%+85e
U"%&c=ue%41=[1:7/j.FerHK%51(,Im&C%OtITgZ+q./5d;r*2^I+wDgQ,?2*P.bn
U"uQ.MOD9p4a%ND9)u4yb[W=yc%V:D=+)cV*T*M>0]q&gc3*Y2:#Ihbufq&;cBjMc
U"OnpC8[:(SK(LKoRI%%up(%)9%%%%-%P_nKQI8]Q13#C%%Y%u%%0%%%%u%tqfw%U
U"WSyIpsc)r$ETAhaM_sk<Dm2K-Q$WBEv74IJO*(]/MvE#%&7Pan:X\lR,JH?R,t%
U"MF.Cz#?EmW+9^$&e99y7r'y'wN3P5(B^d+/Phv*%qTX/a?.8ckZh-U8-ObKQELN
U"L<3,N%Vkc?1IhbljV8Vh4^RuRNMBYvAaHb80z<pGMznUR4NAL1/m5kw(+A,z$r^
U"d?xa1Pq=='_R-fO>gjlKtM?ks1^Ov&%jiP(6=TZ94TP$5)6,'FF=h-'NvNQLvRV
U"o4)06h8<UK-g.0U<%fm/fIjP>&.jyfJ2w+D,QHXcMpl^03>5D'&OTA?t;7iw2#g
U"a,40>MZ7CoHM-l-%mM7[rd3L)mF#G3Yi$ex.#YUGaLc/P4#uA;?vxrO=Nm=$Yr5
U"'lf)Sp=QTL_rbpH[b^1fqjnHxtKgwruu8<5lsuBi<pN$TuwwrHuxutH9xWI6sCg
U"7dk%LM3^yU4VAJ5*Y^yQu=]Fp=1G_aYH>[Kns4gHHLVVw9T_k?)YpVl0tnu[Q+U
U"_%(^#^18-7)]E4[[]-kdsEcNboLiH%*,P+dADC\*#E=HKVBw-ksZ_\hWSpkNEO+
U"a%NB6tGX<3EQfwrEQmUXx3/p)z:A>_+A]V,tY,4twib$uRe=?4Y7Vl0#CZ:]_L$
U"e4fRuE<,Hl:YNeS#UWlaU2?7Ju725mfnluHOpGS.4o.sd,_\N9K70YFg1r%#akg
U"gs$J+m#*>_Lk[Xaf;sb#.K,d#tBq-P.BaHZaGi'U>,bVf>;M05%/_V0L=8SQ[e=
U"\lAgzs?YJ#M23nfclcDsHZ'>;CJ&bO-$<=QM+jbl>(<<_a3qlW\b&%#Kc*[]1k:
U"G]c6hJbR]:%I+1qtl'vOUai&lc<2(+1KWYD=UtNeldEwmUDE#Q8Kl0B(XuO^<Ru
U"48;bp_THd'Vcvxmc;L*hZ(Uv6;p(QB5#8F;K.U'dXH,(d,co4d6&X8?J+8V6Gk?
U"0(0pDUWY_oR]wQ*jC?SO6Fhu7QYV(EHq7'$KN^1oaOZHZ]5Bf9jk9UN':8X/Qb7
U"&=LUZh0'>.S#'lpC5A1]icT8ONfRIr'p283:p_BQ[eU-)).;#'W;ra-BZc%]RIA
U"dRk0VMWo/248bSV&ebC&k0uJv*LOZ4R4%i*]XleZPNKaPu1:2#Q>^%^%m:q:/1K
U"%8cl#$r&jHX.dnr-ejMtNQfT$vV5iBD%l^6CIW<JUh,HFysRkkJ=ZPQ6Z^btPoM
U"go0,QIfTd$>8'4;,eiC?'(PiN'cGAJ1G?T9ea<_Zi]]76kt4VOMCh*vNLEdo;e<
U"2QD$qfg$k#O0l#m\o'OjQ)(U&Xb/JIiOiXSfadfc%QM[x[0]$>]caa?.DtYYWKU
U"d]:hRC'$+s-L9Vjf52$2NeibBBdjAAnkyQ5e=>DlcZ3zh)z'1M5wb0lRXi'8nY'
U"mp1oHmA)Xo#](3g]/aAT)14^e)ZN6EAQX:^?UINF.]o.sp-tA(N)OiiE>m4g]EO
U"\F;')^Jrr/<2_9su+&nofsnr,jO=E\4u,X6&'xZP9ve8V/L3'=Lpf+TFn;g/KsL
U":>YV<h?YAng=x.S4lv$-D(B<S1S?4]k5)'Oe7_,v,QF(R2H83/c(vt1Y=Wru'gR
U"7_Ds&n13GY0'/9r'rx;wxMDjN_AqDS2p9Ph^(+\uf$Rgv>ZXn]o0xH,cY%uO+^d
U"##?QS3>32ZYT)T_+=?G3-+>HIC6^n['DgmLgFh2d%SR\F)k)As4A[E34bZQ7&2)
U"3Lg3V'-13#p-_*=]EC.$DV&djp]r#TRKdfxl<fkIY]J?[A'8Ri9AGj?3NA?mnkZ
U"A*^dJeJq1#sGou;JhJARLx?G3/cBW0BG;^Dql%V'46SA;0[Cj%uLGW,)YG6*%r5
U"HA1G,)hwH]O(iX60gtsP^#e0L^5Mj'hr-3iA7Y'S-(yS'btSvUJuJbWZ[?QA0qc
U"1$VY%iV=?*ReR*Y7QQugB8(Hu/%w*Pyg7K##r$hqOr1r/(96X:f2G]q)]V(APU7
U"-A'eAL._>*i;>nin56Ki<:w0c<6.u%U5D^QIHT8ULH^p+DkpDF9^TnV3ndeYo<%
U"#<>HiK'[8icg+H0B;6NCL%S1vkcX<vk^Jr,',m#,#IJO11l#AeG]ogLZ-S22GzG
U"uS1P>U=*+<m&9%OUb/:3aA5qb0Da-HjZ_Kcwm>,MEDLX8a)/mpOpmxXcnSnJP-C
U"6-n]5OoatMlS6x6:TXPpym6%:jmZ[vec\aFGp%n8aUd3KMV-e:QUU;ZG.vPY.F/
U"\e68&xq\DQU6G')%7.Qx'G5g9<;>'VM9z:#wc57(fC>^*Q#Fm(I4&D%xx%0DRBa
U"k'hTpQp^9vM+u0$hWqbq)W'>N:(jDmRC]#_cP*-*I>FQphIckm-%Z27jb'Or#aZ
U"n]XZ87]I\7z\b;o(/ZXlh(jf]AGcV+ipRG',JbPgI=PEgkvk'B:e;-KH;rZKW2_
U"Bmk)p8EHgYq-w=(MFJ#jjA21Z$:nCOI9W_U1?rj6MYlJ7#6SzI*V?:3De/93Uy<
U"75WGY^iO_/(DpE3=2cA87:n5[2*^%TZdpo6[J$A4X4d3<ziDg=(cf]D]MgN++=:
U"hWzQ<p\DEvuz(QG/)ta#vk2mRV(/ezox6nzY3ap#aU:d&/#Rsi'T2-*6$QqRy[V
U"?ZM,$*]vL6QZ-tzQ.K<v8yO'qGQ,Nhs8^Zf:rr])U<\<x-R&g;#l_*jDtej<'%+
U"IOiUcdCE39MF^P9hNth42?EF<B,XjWF0ud^\f>92KN'd\92%S>lJT4x3zeEyL%J
U"AwxEOomg62^Zyb*\h%Pk9,wGSMM;E9.bT5N#NJ6XP67L657\QL=RZu;-8pTSi:4
U"P8#J)Ajw';4HS%\;%9k8=A=O(&?/VeBUZd:Fq3pv(SfFEg\>hE2R$+$]'<^sQp*
U"xeQrm5CM$V-mw?V?Q]:1T,TOL4Jjp#.8:Jvst4jmm)v5tTw5F2?8GS\i<Gh\J&A
U"r=/h[lms;dBm+cjaZV/0-soh<]pnVe>8jE[Y9v9-?8ON'>jV'wZdP%UB+m1bhqZ
U"BFFjj?ZN[QcXu<^N_?N:oz?Z_C*.A1:ho6V=V)&kET+'r%&H=AYj<koA_jVHiQ_
U"H#t*;cMF-lYtmr5/M%=swM4)^PRoGARG[)TUITCMCCXHV-s_h5aOqm/uQ9;-9QY
U"bBHYrut*E\q_[=Xle;X3tdTL>\kM67,3l;8k:S=,fgpuutZFF,4J,Qy%h[DlniU
U"]^3akJalqgf'=tG967u,*2?8#Taiq5;enXa0O1N%+Egij[w,ABpReMCq]b&HW_H
U"uc2^>)I(QU?\EmmG6$;'4QftQ_dkS*HeU7Z,\dIBkl'befU?Z^iAGfnsaDf2aj?
U"w,l1#IGKFUm*P4jgbBh)X^tJ<^^m$\0Cr[;%0O9<Ma1'y==+&V/1RZJi'udd.3A
U"p1'yKV4;qX1B&tj*os9_bu\-1er5*Kcoo:j4mpw\w)uD^w)ZOo/CE30KDS(\PPr
U"*7'(>u=?<9ef0]mm+?o%#;SZ,(Z4.[PtiN=8,X)lob;uWbIv7AB?DVBEAL/-+6M
U"%e7-9p]XO5v&&741f%,239#Rr\,-P=_B=oEhn7.U]/Hi+s:GqB#g5bwNa)%p9c1
U"5%5tE6B'h6[sc04i>jjD70-n9],Ddw>0Y'[VWN/RQm'P\6JPmMX9Hia0>7X'Hv8
U"ofAC3fASM5sIAeI=9Q=\#UQ=SMwD+I?9f>4Dv*<KKIQsD/wBj'Kl5tGAN4dIyDD
U"wo3M(arT)([9XeQ$?^gh)hT19_lmc0R63]:A-k)^pVdsi&6BI_N)gJBKC[mtdwl
U"L:79*cYv7o\:Gp7wG8calst3v[qeMdduROnN6NbX$WKD,J2EKIj>RU>fK'4hWl?
U"q]]/rT?7e+D^?(b$m&P*t6/0NDUh<TA_[-'PV4uEp*N(jZV].+;JBA[R.EY&*3B
U"c:[V0[?6RwR_?\\DU04cf_#G2UV-[DOa/;C(ZLc;3\%+\76Pr_>%cPG[r_A<Rap
U"6]bew:H\aQo#Z,md'Vh.F)7OcoRfl_-oBPGrvN#2_LRBRpzNW4a2$5hx:sRXa(&
U"sS8D(29I7VUZf>j<\,qnfT-TPufFiZf4bQLzXi$(<i##]-l4H:w\7u6VUslc*i1
U"NoQ0N&sRSxH:y\8ulVW5'$GAEj1gD6,IDJ5y1K.w;F/qMh2mEOco[r63iVE>a'n
U"_7ni8Op0PhlMtOdaH(8Ylb?)\[%x/xaKPNYJb^+v6(+A1y_uP*ca3_8OG?&jxL5
U"FMd3?HV<+*O)K;#^o4lU^n+_VZH2k7Wd^wmhI];UWPSKz-6&K>t.$6W+w(jz$a:
U"SYPZQ7PG?tCVj]OM.Bda0C,4-]JAanMkkngkhtkX;+QVaCre)\Ph)kG2/-qpC#=
U"v>cM85*h7]1N4<U/,iL(K[15X,/xmB;mW[']-H^T?m&3M50sv%Vw1HFZ;m\OV+X
U"hMM3-1<I0kz;rz0uE#:$G-Wf=Z7>L%)gh+\,pKRFGYQnGw>,aBX8:<W8prD:I3#
U",Ww[1338?e<#h,,6X3?d//5A)]yDiD97./T8rvt*Q).MJzp:6_;xnUgu2_iPDrU
U"ZIg%YNr$LTLa>74K6,z.ZZ0O,phrH(avQdU0UbU4jo*uKNp5r,lMgi&uGv4D4(,
U"5)rhi.4K?ZLNg;1b3XfsWhb:X<BtwM+Nl=4A&NRKF)o&>pQ2=ilOq(XUDaCCRNh
U"G&;P5YFFa&VOFcs)r;:mv;G8mYPfCNpItJu0m.KT5zEtPkK;::o,8)(-AF]+s(D
U"%fAmm#:LT<XiqVM(3-TKCs]qv\fh5QL*,b%BGE9WxgjL9d9dTMu69M1cgZs;8I?
U"/g)NUvUK*f&h&mxpqMV_zv91M/9nnn?k-&.2*q+R^xhP]ozpPOMqaXt&WeXnH'8
U"K.o&8;&:<.18K'E_$2M87U1HX#1t=U\.=k_%>kK1*v2\cp.JNUCxh%X^sP9SR:_
U"1:GF$(H&9C=TuB7;WVxxplXb.Rr>1fU#Fy>wGPyo^[2q0EmQ$V5x&HD1+7vVApQ
U")0A?-10rku1JXRX$C4tpDVug:?e4=*=AdQ39H,v]Mp_7nWwf%2PSx6ek4N1ujYZ
U"uEdE-xMg2.'JbVyk<0c[y(\>NJ;w9Ww[o'Sk\>NF0+<Wyo?<gg#po0UxBhwJn(C
U"<SH]j*F0a'+=#i?H0d[-\0K?DHsf/#>%[Np&Ol]Ura\_Plb'?g%9<(qF]6JJ()e
U"%K4-=--afl\-ACICvu,l5cXO308a9-Cop6C2'kKk?I+afPVIx.6Z=_Qu4>-4.z]
U"+OoOP>S7JBGiZ$Nd93*H6[\Zkr&:]4Dli_?J&MB&;fmmPC6ty>1XOKg6Y]5t6Xm
U"[v^vmB7x6_9CWhPA2^wsK=aMj,K?3jwqS&QXaSRD^Yc*syiT'9%]/Wnld2/qzz'
U"&JNKrQiXEDNW*\I#qd:4/H_SkKr/wY0M,*B;t2-31Z/r5:'dtDOWq<lHS5#$8iB
U"#<PTPBTggd&wYN0,.FJ;j)VG+TT.h+*N'ju:>t3^Z2Ps8:1/R##E%XgOR>rc.8+
U"_Ri9e/f+=#o]97_gClOJUyOWwEG]KMi(?I/,HeLwo;o9GLKKu.,Hu(VkM,ist>a
U"Cboo+'O$ZC?7befCg0BMS5,kfCR&bhFU%::L0DSelB^^Q8GPv4#Kl_PtXL0[5X[
U"Qkkv?CLvkT]]<Y#E;wvoTTk\ji8qPt>C(DWslMtfXKGvjo[wXii[M<)0U:jdQI)
U"0V.3L#-8:60ai;V84SdFw)fM,VWcfWJ#stvd3f3kaY#'XkqZRG>lZ+2/Vd9R=3/
U"DC4$#D>O%4tch,vJi\#vJ&&'LOL$%,8OnFL=nwDk*JrXmb#Wtrl>BSbhor.2T(m
U"Rv1b9:SaYFPlr$Sp.sa-Rt>0YT#m+F?Cr;L&H'NV-fLYwoMhkt'=,bI's./$q*v
U"X[#eQCR_lvf(n8YHHb#F$W$q]h3DHP#&BFi.VuLD2&4c**_4=?A^Y9.fbDAxjvq
U"un*%(j+N\j+/(N,yEF5Ci8CpJn;#v:C3KV/x0qaS4X20V.?WY=3paL1MRItV^;n
U"I_9Lu0bjcWv6'YscsUM:ioE[xqJ[3l,r7uq.;<z<R)*#2mlrs/pg9vM]*X37^(a
U"^nGKJ\hS$pgIo(Kb-8dq7hDFI*\h5SpgI0oKb-#8q7l9DIj\ShiigFIwKb&W8q7
U"Bx*KXuZOf4HV*+'TBV/JW<i^0]d)0QY=Jh;YGo<jqZI.LaIn1Ugqz.eMNlxmZE%
U"wNsRP3^3/<SDai8xxDQjr%8qIcgh,%#\$?EA#n8A4gi?j3P'og9IEJq-TMs%dj?
U"]mmB3ssl>&_%nnoMCtm(A.M5'=1+(9E,i#h%-mxlf>zE-7rvaAB&mlDSPP5/Ncx
U"Y7Pd7_8VblTjFUS2QL%k3doTbK)Y4D+pKfuV?^]nL$Ol/J68E+j1G'93G6QPh=,
U"]WD.V09%ie5>(g:HqRh8fH1T\Al?/'.a6SF/,0QP<j52p9E#S4CW:4Bl?US&G0&
U"8g24Cs3aNANfeHGr(NE<k0ddAff<5<W'VT5pm*vodRaKadM4>X?K>:tbMSxxq_^
U"T1XFLd.bM&$77;_VWXtbp^AHox*_=/DlVce*+N,6fHiCoBE^x;pDTfBlchel$T4
U"Pjc[39WAtVxMoH+G02eGpUx_W.hC<[(sacONV%.SHo$E5mK<2McvC=]$N4gJNxH
U"B_L#Z',CwJ\u8v^FutXxl6uX$)?.Sh\]8j[7uL]\d$goWv=(gv:lYCwKoG9Hom<
U"xf(uoP?[)YD/8,4_s<#zgq?(&Jv0j%UZ-BijwWUY&,M+GZZZ506%d01%vL5Pn)N
U"YS2HvqK#vs4OR_'HcFBa_/%k'r9yS#;x?.x?4qM&='VPd,H\PtCd&RkWJ'.9GX-
U"X#\hatHt%lHOl&5#WLq$#Lk6jIkusK$,gNn-6A-2dP0[,G*660j?S\I%HeKreG:
U")zOMKi:#^noaX;VKW]m&qSG<I^Bu)Z&I&I$6%uFQS(itOz,jIP#QriM4gbXP9N)
U"yp?5v]_'d-N2\9Ev].sf.rsMNck).e:(wJyxZ-H%9B.9$(L>M6q;i4)wTFO1-u6
U"JSj_31Nh7xuXYe9_SpMn,H2u=tssgxBxM<(asEf8z_XEUT$i)HKm,n,fdJq=_9(
U"o6\1HNi3qZlwv8wM6-vIZ:B&UszCm-P/DK[*c8Z?Dt+tz]Jaqo'-5LA23J)US3,
U"bmszDGkabfs6=eq=XT=B;vV\SH=Z8l:[rH=8tC6ct62_vpv&i9v[DZsps6e=-U5
U"2$p\>2X%(4\o35'*DHQ7yQHl(wU8TlY*WQ>,['6HTAFe0IM4#U^Rw#kh=zqUT2e
U"rBxO'-(J4P^q<r#Yo1C6xSRCvqXC<\IU5f\d%-HU_6dQ<[uW+lhtMY785to./,.
U"imqp=^Ql8d-Qd']_yaD*V+P_7Ks#%-b$S\cMD/h<z;HYW6Y-U5r]68m#C-m[O/_
U")cD:t-iE-=%B<UqU)Kh\dj=>R.hCHS<4_ZG,iD:oPIY>,0:SGAiBoPm#]Hu$3[[
U"*2HT#*mBf:-AXCjI6=tO:i]q*V]*<,rhhCUl\e198ng>nOcA-a,P>u6'Kdz7Fof
U"WeB05WhDCc&=rp/8=<<E=Fx&of8*3uj=upYbHa,B5ORA3<WsZ<e^mZ$6ND_Bak>
U"L6luy:b5JjlIalt*l]poWnGaQ*tbPBpc'9Hh<afC$<(WbciVU_LEK6nr_.5pxuT
U"R]$qFdudf[Tv,l^T:lu;1W+BpdxKL&+TDt.6Q>umUJ<9#thz9wYunIQ%]\FTiZD
U"',5&V'Nz:u*.bY-0:SuYj-.9#8RuDO.4gOWI3,p%ArQ-P%64,FKQX6RG_\9Q:uz
U".LidoT=ltg(d*<R5q*t^-gs*wb03dHEShpBa<<7g((YU%;Wtw2[PaZ#==>/&QE4
U".Pf#]TI+IMIv(xLsPei\ff6gGKgju(v&+V(QFMO:9Q>5En3Ef.'S+[ZNZ()tsgO
U"a#G7\Q'S%>&<a*FU_V:[<0](U>i/*E<Qv./AiC%BH[MdUS7H$K>Tno-vD'(jbWi
U"/_Z,)W_U3V&:u7f+;-PJBwM9ALW_LgTm6$hqOQ#0Tc\^EoiK0nEut*+^H#=8g*:
U"1*M&,YM/[-1mS6ULK-2D/IS1u47&vx6Hn_f7Ap_rQY;j=hplDY-v3k?%Zk=TrIU
U"a-[:0?xcfL]o[pQfJL_)#&e7:w:2cs\=F+s&%*Z;kNsN)mtQK^S;9-*J%j2uXgr
U"?,5#_be]uA084Va:[7Qm&>Oq/oWS)a\j'TbwX\cDzPAc\wtfwRfioFZ$AY]#?.0
U",%#cN,'ln/y&;Nhv%A%=>CMkvuC0C=[h#PlZ2bF/?B-l+w)#Ia-()wUVeYxSc*.
U"\,3#p9Lo;Oum'^yHPP[EaKN*:7G9S$WiE.*'p#G3tMh]1wVf8$XBGI<K*?M&zpq
U"\tXWo#$PvRlY=2g]Gv+/P8_=50C[j$)KJQhCDhpNB;)i;=6Klm$N6ZvpQao*U=X
U"thJ1U>%jMFLLDR3OjCC[oI=eq=Q(#)LC_;(M1Dns9w_[Qu97Q9Ch#y^r-m>jWQ%
U"tbWVc.o*moq]0Kc:n_iE6t,F,\^:c1ZIr44DOjM],tI\GB:LFp>J><h<1y-1T79
U"Q9J(Jm8%o:[2Bg%0:%h]A_(^n-ClVg*FQrg_GYCRIkHLm:Bh9p0/E%LK#Hn#oD:
U"Qs89b3:B$BZh[i/:1vM(>_:[6X*sedILY>sLba]M.)vpgJ<ZPmoIH9c\SUF4;K.
U"t+J)&lwa+f+F5$j-?4?NO-m%Yo#CCjlaGl8e^TR47p(Dka$11c205v+_3.R(70m
U"eC9w,>+JZZyEDpI6S;0M('Y0qrcU)SV.?5:X*3mT.N'Bz]bdrOKp5Ec871/M9h7
U":h&9kqNz^o$)ncNjBQIQ.uko&-R^Lqw&DGX.cNaqBQS$N2BQ%E,Gs?C=q^l#4dL
U"?._DBs?Id_&1-M>KkZJWZhMj<)p&AQ=EV*apGEGIPpgaW;G17uh7s)c_q9xE%#h
U">I5cOPzAJ0vA8L$,':jzi<9u+]sd#.SoJck4S_sC%11(q0]:ix+XI]<aN%gS/:2
U"2<Ok2.Gc7M85puy..GaVN%BWSR;g%?;D++2^inIpaQ[pELLjwDPLB6P+<(LG3b$
U"gsUF3LY(ngEjaU3CW?Z3\oXVQg1D7bq]RH6W/MSStFc<0K\J[s:ckdH?V]h3o&=
U"qY,0F_v1lG&vgg_tpF&iY9xHrBsi5A$qIz.c*ZZ*Wmm;%e(pFo[9>B881ijB3u&
U"/H]-5(RCZQ2a1FtQ5kXW9,<sGguiGb1d)#ai.m=1++C?d?9I5HqC9KhlghS%2K'
U"uRW=yL3CC2&,B9c?%p)xDE>[__(4W'09LY9gMf2AT$z2t$k?ElyItN%LVt]oJmd
U"%I-B+O/>b%R5lB(5csp)%hTvG-U#U.OSebf&Qllp2?;\A069>JVM1EnG)-]+HSR
U"e\%,U[-V^A1=+sxoAp_t:F6wq>e&gW:&=j;ZA09E.JT7V$O:20(*DL?J7'rCXUY
U"8DJO%B)ER61Hfw/[^w_)T<Dq9;+<UjO;xh_0^g/G$1*R#O0&Y,:tPiGxedqXz]e
U"_fv.]pkabEs#7_EfiWJ#Cay9+dJRzbs[sY,1%e)X_KW%S4fFsj3J+,6pOAHQT(h
U"93,dlZ/Y\9+E>\90GNn<UpS/vfG_(zJ>Y4$gyMA<Z3#*V9kGcO4>\EN/-F8PHL*
U"bfFqoA[Z+<9E2ww#(CoZ$Mn#DhRwl(2_dpCr48f]sCuY7]TrL9OguOS;MlmbAnT
U"/wC)Z-h_3/nVROc)R:pyN9>fM%9nEEG9,Q[pg.%4.a='6x,%up()%9%%%I-%G0J
U"IQPo&p>Z-7%%/5%&%0%#%%u;M>C1CJ=S1<k?fjD)Y3j52U:-ek+3E^a8q%g:*n;
U"$8[M[gK=6+WUEW18R5iUW2oWZfm6F6Y5DWxQNHhbbSDW'h)$#sz]#lYSLz$N5j[
U"jHSNgh6mZ6xqlH<xaLrsGcmuj]bLo$sx5MBG1IuvWbv'XD$q#D0Nt6\jGT1-Q0Q
U"2mT9fpU];,%uR-+P#g(w#;)HwRa0NQo9AA,%9)fDEZ(5[[La03)hNB9g5S60DUp
U"[gGSHFRZG2fNs1;,Ti=W(DVhlZ%.^Ejdt#<,T:iG/:QZR<1]m-\$DjS5S)6PT$=
U"yfcJ4p'mBq>=C[#<)(?:=3N;gb:TUb=Hg4Fri>39ZSF0c^ef+u]ZRjc_:wZKRS?
U"gQ^i;T)Z6433xmy513?]4X/e)ldcU\VMq<dYelmeU4at6zi.?KI=gQRt>G_EkSm
U":/D\H;4>b5/zfe%neU+at#Qqd6ll1TT6kMS6m+;c6D7Zmxl_DT0I[0ZI1v^OnAG
U"B,:smfv*eWRXUZ$b?N7moB</Fn[CfGX<TQjt3BF,Xd:KJ-?]ypa=Hg1e3\d;YvM
U"aV'R3Jp;=mv&,eWXKMv-QLSV>/d>gE_COaTv3]b_bD\=zb5bEm>'2g#2S?je3Jg
U"p=mv:3eWXLKV=z>e9/FN4.pfI,7EHa2/O80G[we8^c:Sup=B,ZX9KJ6?_obTqgw
U"VMeg3f24j37]D<Jv^ZCQ4.N&#CmQ;dpZ#B,.l:KJ?*_obiWJy*acfUXfJc6lasM
U"iVu+GvS-W4xc9cer,ZH]RT/Kbb2BTIC3%2ydjgeD&mnTE94Yd3,.#$sX5B*rjTM
U"m.\=Bf,)eW[X[,fG(S9Vi:i:$iabvlnVGTU,XB).s8969l.Qx9u^kVRdC?b(\d)
U"LHAM+0K1[/^/8(3Sxc-:bNh0wwNs7[sDWZhTh\/$ZkMwI.pabnON2u;^5HT(#WD
U"b6dPXJjeGNoCpBrIUl6kS$pKeAdJp4Hr6W6b^A+grYEi/BXw99qGjSl:_fNZ[]R
U"^2/lN([k^LAB2F?YpCy&km1rDvGa48F)sfp=#_BXyURAl9dnBaTFy$DL9Xfrs,m
U"vEN#s]Yv*i[3<K_U<4Z8ogzX$KD(8UsU/KN%5VNC&%n=K^rlg#%17h$b6pUzTQU
U"f_9mJ,h;AnlT<94N4X6mqa4]<K7Wx+qwdELW)[f]gsmLXLud974sZhIk\F$/sZX
U"6X],rIDLYwe,Rvn/Xn0><&nlat'npEHaLs9rB]HI$kk<FFhrj;TJ0D-^v?c.s<>
U"iD3KhZb6X]/zZqnC#.J$26KT..bR8HQ.EJ4=6ah2P*jdlv$#kTe#)uSPjX,X?C:
U"vETSv;t]-&rrg<H,T6rXY7h\e;MfZb6_.Rzq%&\9bLyjD]K-rAF%ULa(Y00Q_HG
U"\^Hfo:'^ie2<$GMI^7\RWlSFK2$-G9HwKcX16vr$#kejp)y2;uJQA0-fhHV<:1J
U"LN(R66b;N3sGPa+u'B[]0R</znBrp)1^7RWXlSOETpsH5^[kfr]aB;<6K2?nPKw
U"<<sXUSBZ,H:yW_ig0GBI+4t]-&fKgKmt%RyxrQvCvAo&o.-;$</$:_Ho>k'N+LC
U"baAzdCv*T-V&ap2]y8LK6[8d\ozRrWS57$Db6\/^zBrpUmA%ILi<<Fa\mQ21q.j
U"28zzn^DBj[nlfb0IuPLB,jt:y_kig$]k'nWSlSg=dlREobju>eFEny_y6u-HHmh
U"+>G:]Ho.Y'$,>9IHTsc)P.R/E2FDlZR[fGsm1MB6;a*96o.NoTH=ood+[]6R#'r
U"Fh#[3EHgCIc4;X+S0k/,Z<V#H([2WZ0;)Xb(i67#g.1AF'w5.sVmLM+9lyK^)d6
U"i#;DgCX&M$?QpimIEq0Pf%q0&JZ6Yd'd#6G^N]l*JZeU]Hoh0*4BrakNQM1lZ6$
U"]E>j8E)]ni?IeJ9G9JNnX'XFXTKhQi)jy'3?mN5gsmLIt%#[H].8^n0Q[;__*';
U"4=BtfDX;[b(]_u&okws:a)'Ex'0[a'QQOh^Zt6DQ7r(y\r&.CF7H9*z<5ipaQ(v
U"IKb9)dnI\EsJ/=O8G[/we^cT:Sp3i56hcG8jC,2_67Ls[/S6,SFpn^ar35E29>b
U"B:)h%dToIS3Qj*J;]m&]>FgVz:Bz8.X./^5tEW*^Nl*a,6Sot<Zg=,pS2Sj[VG,
U">=szTG,kaNr'AeQbk<RF9'$t:;TFC&g;_UF&p(:GkRNUR6%c,2,H$K-zT)V67;=
U"pW'pHaR1p&A_\C9Up.TP#YlGJ5]d/Oy$Z<oeu.Dij;5nNQJ?G]dyOHPS]?q;3m:
U"0lpYh<h7zc3b1NSFo,:m<DxVn$+\:OjS>0RRP6/bwJLi\MMstlxPEZm\82w]2c)
U"+JFOFZ(G(;mrqGY53eQujXTt;gR/\a62PMy)GU7UNk?n'gHa,SiQaO0Ho.mZqWU
U"pbd?,i4/<dthrmNGP;RiX<CRX59Zh+3N^,K*H-*P^aj.H6;,=K<H-:oHw<9*=kE
U"VOax.jH/)FJu[Ra#?Z]RD'2,z62WrlD(Q;,z5ckeJ%O[j;VkaF+6>9ZRUjKH-==
U"owD&LhU]?,61z3gmGE6I9dtKYp'i;^jG;mjvvAYTrxrJp[7O_h'b?<2wi<z=0HU
U"vWvA9_P#l:g2;j%7em*fEQ_Xa,4)Z(5&[La0PQjS6#fUCPA6f5CC7m*P40Z(501
U"5m*SP0Z(F51UH'oDup%()9%%%%-%3>lHQpN'kn&o%%%&q,%%%,%%%2?78Sh1<?^
END SUB
SUB V2
U"G$F2RIU1T.4t6#S(#C'+-YGKqKNnK/B)k5k7D$*4:boknt]Ellmho_^?l=G9KcB
U"9[ln9:PTPUXUSrsaFW9CqPcbi(LfZ,u<%4qls6x&IXNBN6pOipw9X*hlxf?:as<
U"T+B#:>f7v=wbUpIV^zl*d4v;RLjgtVgk]O4\rcfl]Eqo%29CzG<JoXHLGqA,V%c
U"U1BM/_-uY0u%p()9%%%%-O%<jH=Q&j1)pF%%+%?+%%%.%%I%t?4A=uS1h<?Bk=b
U"??%^+5e%=&=ueT%1=[d17/j7.erH&K51(%,m&(nzCL:kGM2nmBSn1/Q'fEa>cV>
U"C4/x^-#i(9tz#(q:%LN81yK/yEv/wN2/_tD]1->c;#8:OLsmI+1wgQ,2?*PpBv&
U"A)EiwdOdr0Mn_gO3c%&up(%)9%%#%-%H_jHQZ9X.b7#(%%Q&1%%.%%%%k2>A<VL
U"S1<?WfgF$#9V1TK..?uJY)WO%%]h7/Sg3_75=,bK.krn>6RgCWEq(9;E;bnP%88
U".ZodpnsdaYDuflrnrtTaL6ftTcjCj>0cu(4p0H#+9?>?MBURY6xC$)9J:xF-MWo
U"ug7averVWJqQj<3rPx9xa$WWZ/GSnAS#CgPu9x?V0.qe'AJG5S3r.lGv4U6Awc.
U"Td(Hh(uFYf36m+K_;FlHJAYyiWguaegM)X%UzLie9>=U(CqjNFd&bb-LO(M.,b:
U"zkdW<o=qTOb;#$9a&k*Q8fGX'QQ[CvN8*_^E-+d=XxK1iToKZu9CN)ufT<q0:;&
U"ns,rcO/RdV%D,Go51&=Pl#<g;n+jA%8k&3twG'+T4z-vq=Nf2&OEdYX'?OE.DMn
U"?XB%bP1n/jDeO3c?O23O;DMU-FkUu2_2^Ju.ChCB'XvSqY(.VE-5b4%?cD-qcKl
U"NKq&jw0[ar9;H#K4z::5C:,nDHuxkhY9]/(Ot;4Amkx<CBN?.)HQa1>+(7n(C.+
U"1L)4K-;Dd3HQ3b*doCyO%EMF4GzbkGKR)_D5J/ca+y&fuIgC%2s0&?&-^-(>2tg
U"$yCi=zp^#[-k?/'T.(E:88AT'W/2hja?O:e=rX8re.R+DM\Hi+.%CNR;dqa*TCC
U"+,ee+C:?\[JZOAq-<-/;w)p-%\=6de.K1Z2OJy$O3O3ua'AFT$X=t2'FDL$$DT2
U"3MO;F/s16:I/SK%0#C^sEne00&:*3lXb'a270W&-[BZ5)0dBDiDuKEaa*'Kb^0p
U"wOx/U+o((;<fD*>.YfpGdrZ#JtX0\WPA9KLsj?V7Q)]>n[CN^r?)LTNpx3Q)4Ep
U"^l3a%3bp9L_)P7I-5&ltDKQ.rIQ_O4[SPK=8FYc_3FIbxbuc;3V(ImDNaCtkF#4
U"f^GCnSo7;Y8luA<-J*IdKqAC(zoE&[qk#sxKk,#r/qfw\K#Ac.a:.g^FbNnIAhJ
U"?uFCt&cn]jWZog87v5l$c];>-WMBR5Y6x$/)9Jh'm#up%()9%%%%-%5;&IQsqq9
U"#&u/%%('&&%%0%%%Iux?;20B7Sh1<?f5khYQmn6>$0s%M;eK&n9X,i4.fn2+x*)
U"YMG)QWEGJQEQ/(0Q-GMQWQWeQoxdNxIvE</93K],WW[Ci5k&PFXBW3DA6shm[[E
U"uXmVDo+Dtqm,cr_ibLLmHrPlmqNLqrc0haxZlFLVYe(HntGlmWL,ne.%<r9jJ\8
U"hq,w*GxI9Z%3VYq?YRqvM'/$NY?%PWjv/2juM>9%A9Lj\dZYxlb3)elgv%4RWjC
U"v2ju:M9%qkuGv2&-Fq6Y'c'T[UZdv.tQ$T[br<kR^m1w(#&4xg^+,(LBvX'#v\S
U"[>xxcZS]Na^5f_-i\a_u0-9MkxLJ(Rz=CQ;9WJrsD#]xZiCO?fC9-V^W%xyr=Xx
U"xJz)\x0rLkG<rWV]Kns#.H1/q>jf'=hvljV^tB'=o.9HrSZrX(Q9cWw,cPSTVn>
U"36)hWV1$fas,XQ$D=pse,-r&BP5c$C8^qF*h%//R)6<zgPe\^cTr&ThMAhx*s8?
U"M8HmkWTG3[$-lCVv2_34lxt=WBD;&uJq$2ex#fc[hSmCL1bKr-usO[_C0YtAMRU
U"02cnAIZVTC)9[XINlnW)N,WU7x>M+9V9<y&N'*/G2cDI%ZV*+)%l7x\]c6xN33/
U"uoGy[b*sg8zRWj=QbC8qFAMk?g1?jXUZN/UcJZNfhfS.2cOb6ig,QKk^408<+lD
U"NR>Dc2T#K)$<nG=Lzg('<4Tq[x8dHN=9cj[C(qsf,hekuX1C$*f]Q>l/E2gSxS9
U"2a],nSJ^E^gR[x8lbNCPUui2Jn].W$Z)QO=pju-.$sAvWW_Da9_gW+JX4Sg,$P6
U"Oehdax6\UYTkkdhAK4&UeMuX&=CQX3#0+qvzTIdx7iZ#ecBh';:0RGxS)5L2wPO
U"Y8qcnJY+mNCjFg&>o=x;b-^=JJ'ZZ=+F'cYV>/EdPWt&NNfZY>=7/IUF:'f2PX7
U"5?F1l_W;gsZG-.6X#LW(ZnZ+F'pcV>/GEdCZE7+y+BlP<gb./zq>IrCiJuyuE[l
U"Hx[+jXBx550fJFR*^#-4StE/(SfWAqwb:_&0qv5((KQu?bE9k1AoRrTv_#;2*4:
U"thKOc9Dj>Zq^C4&d?=jWap6s4K+Ldwk+g\;Pgsb(<spkWC'ZFR,54tag>^<fD%3
U"o*AzT<D<Ywj?9Whr3'fnJoSi6C-8^Wnl2&(?>5P>_fH,VLmY[#/EdPWt&3NfZ_5
U"?MG*lnYiNNo1v*A4Od&.n;h7D=Vq\?f:Dy]+oQ#fQVuwoIxrI1s5/Vk3I;pf2#]
U"7$]13cD%3o*AzT<Dimw6hnp+oY8i:o76I*2qZv7,Yf2jgf.cJuq8Bu0GOxS)L*2
U"w#=-.hu(,JiXZCK9ghis,N^0L%lS6,V6^pALNrB^LRi]bW\EN2XxW3_r57TMh$o
U"0A9g1(C_qn/5Wt.t2c0vAdt(CQ3EEnZ.ZmkQ*.*$4N#-8_orkV1aboC[_,:<iM>
U"UM\t\H)d=W7/ft9V,CR>$8,:0Gx,]6KeUl\3H#KfbCI3OUx>.d.c4mLhU,TQssX
U"XQ$M4]B-LB]9ouWd7&B4cN9OPCMwj867MhR^>PoV1gsd,-rn,BS1Lm&(KL,%a:Z
U"HM84uv_*$NP>-N;X8RkVa)boCK4p_RYm8w6&=qFng]0SW6WhvuFO_P-)DPhfr*g
U"gnms4K4G2svlhPgst-]rn,SI1LmXGjH..t5YUWufw3Z-wL_NDT3+\*32KFjbM.p
U"6did#WXqEk[z=x8]IPdbpejZ=XX6_ZbBoYYicENVFmxwi^3&ul\#X.b:fHW$RJH
U"VddH,2c<$I^LCB7XkqGuPUQ]mi.:0k,?%PK,ZID\b_FCm<-+o5HaK$Eu?'$hVzo
U"qt'.$w3WnGMbTKuNr^$:w)t$B+x;0aqvq(3usW2nF?4(lG*L/p_<,-Z=0OhXa+r
U"o2h+p,<vT(OF(H*+GECG[VxncdSn9*P:s2dRcIXLWFOS(1qeeqO+_<l[.DYbPrm
U"o8i=z.9UMuMq&SMw=Ug]6Bd4Z)xt05zw,<Ik(o-D*;m4kt8Za,>kn>o8izf.e>G
U"ACAx/r+hOS4LW9-#xw'hkYcpwN3.DDVuM%&SMw=Ep'bn-S]cj%_\'aLOoaiUm9]
U"1r6qQwC%Ot$xIRU[xODbdnuM/ZBIoy.nM7z5;;Iw/8[JqFGG0PVJg+AdQSwCo>&
U")wRU_[xDcbd5/=hEATP8q_sathV'(iPJw/$\O#ZZGuZPNG*W\*c0'y=0m_qLHhi
U",QHHd.r_Cmr._DL._AqR,TrQl:t&'wFZGBMGGu9M[&xD1N2$xD0&K<6M0)tXN\7
U"xbI]NhR=6R85+Y<2L4g3Y\c(fKU$TN'<gNsMNhS6a8M$Q8F[oS.d,WeplC>6Zhn
U"A)gS^C)C?5EIe$,W_oQwpCsp+A&RU[txhnPrOj7VGc9zeo7/hZQ5x?8%avh4Y1G
U"^$8Os<1iSAvD[A9#N*<3nn?DT4^5um\_AD<qXd+WDD1qHrKqcxhofPzg+eJ5VL8
U"?kj]25]7m,g+\r8-y(R>F3EfB*vbcs\^31p=u7L,(JerV'nC?2e>pL9&B#qC5Fn
U"gH+pr-sy(F^2;\\Xp$1>DB;TSUhx>FOr.g+TrIV,7eHJ9v6'1E'nI5<HXTxdJ5&
U"xi>Z-^_0?4$G]T,H/E>.Y>j1UDH.$X9Mv[639KdFckfHM4W&/h2c[ijZ%xSi>-t
U"bMI+?)uB3XU$1n*UXVhY/i%u[Sd4E9]\oY&GA7n71]-dHZSFcK\bqF.S4G&u&B3
U"XdI'xtc(L3TC$&4QXHMD$kGPSr5utfSN6]g.XJR[&</hmz*.K65lE%EVZ3YHUXe
U"Dx)?9k26323yu2UY6xiX>-296FUIk$E/4&S5l%Ij(oXWq=u7'6PrW4duu/xq*(/
U"ffZ>P_)uBV\7I[#Il;eW&'FAa6PhKV2[,BIiSHH^K>Gg2B9Ay[LaxZ_8Tw%x)N&
U"=mxt9$'Cehgk78pF*SPBGc5Cse]17Lp_)0Wsu[M<?X4](dmD3.MDm$&>%BQEbzI
U"-5&;qJPb7<MG:ZlX%btaSx$NAr&.b(KmRhhc4p1wI9g1R3EG<dn'5bt_ax$N:eu
U"iq3h:(z;r>TS/]NKoK[tRiHAMh9c2OTp,&ji2AB(xYs[1C(;[:QCec0wB$SfqVh
U"xe:vpw6fWDah^k#Nj#+_4tC]DOo2fdCmugXyD.MH*,IuX1xNgdgyR'1aoAY.Tub
U"ZIMWDvgwM[d8+IpSfw*l*po;_Oecs2tcC98ZIqF'$PxTfQQTgtd40$vT(MDTqYX
U";$/#oD9h&q[Rtc^loV#Zx(t(4YqvqjcH.urbV$7GxL0+uhOjAuMil2N'IInhqf)
U"7W(B9Nne:0NcBI$pNY;.jUn(6]A9jZ%Gx9ZA%0xn*JZqv%9SWj:v2.UWn86+ANf
U"ou5w0+0=xhaj\uM/Pl;Mvm#Gx9TPzoni5s%$NJY?qc4TTL6hhqw*%Gx9ZM%3Yq*
U"?Yqv3M'$N&Y?PW.jv2jeuM9%BA9j\]NXxx%,up(%)9%%%%-%^)gNQYX^oTy%7%%
U"j%p%%0#%%%?M>;0A#UWS1;0Bfaq:BTAG$XztoxU_2Coqr#p.OM<GfFkqjM?&oi'
U"2:Pt#2o<I-AYWIe1RVk4_NeZx6gm^>/%[df^x4'DJoQU&RgmhmmMFaqHC6lq/n<
U"_Rr<e_*MY_R$>kgK604iF+JbJ60Cqb4VXZu'iiQ=+tQt#+6*4W;ZL*,'_TGs#'>
U"V6L]1F*nEPPedlCUT%&pwFo;l:8qWG[wkPD?ac<#'l^R.-o^=sPoFK18#334&a1
U".KsWr^#A_G(-50D,nrgUD4u_-%]+nh+U*Y'xHt8O>N0ML1qTK+qQ$C[iNG542u'
U"KVAhO^0l#M-6lTM3R4%pD(9s&4GR8.EO>#Kj6)\;b5/[zT7[NT)-<ZUm\^7;BPc
U"jW#\S>U2A3cq-FGsm3X8)hhp\C?Go]'X(/RZ*kQGl2vh>-+tB>xTV[,)Yc((ET.
U"qq2Ohfb[VS2Khg[o0+G&kPl9Y]5B]>X-ciJjCVZ\PZlMt6b29$4a1$VQ<Z\'sOR
U">r]Z&/6f91_it#iKfH8Q)dt^HNP=CuhJrt_?H5^VffoxJ5w(+Q*[/M9.xs;Qe5k
U"]u'%^jcC4d[pHlPBN-0'D><b#<99:r9jLx]G$Bn,.1J;(Riz[C6TFn(0#D0h$c'
U"&E:&76;]Uhz+:d<C+,uS9p.M15p)/picYc/x.3LV,0LNy4k[oiM1-)5X_GQfVQU
U"Y.;YhHZ8Pqin2)>=4nYw#ZsnVya>]dFFn=mf,>36[Jm[sbwtAKsTbqm%=P9Y-7g
U"JZhy4*W+wE*djwu3&0)2N.=84+P7BC6]3/v7M.(iL^VUUag>kvU/]w)6EmWyn1C
U"lFq9G2Rm-ClAX<=Aj7E7BtFv1*E_]9FWckq&U&:P1v*2[;?qeUow(byDcl6^.F-
U"DTEW>^,(Ni+6-xW5X^.2Snq#_vUtN7+ZC4.c4T6X-cS<GkJ$JN>=Gg7-(u>(:;O
U"h7>L8Oam).I#d.ClViXlz,_t4b-nv/C>zXX)<pzmChKiU2#*b<Z1Ed#&El#:s6;
U"sMLl8c^iFxrcd0d$8(=y78./akK=&b/=Dgii<mMoMc>^FGe4&Iz%DAR*ifZhRr7
U"C)1v<&N9]9M7kk^=9eHUbXj#*aqx1&B(ft]3(R38KkRpnq'ssXc2v/G/v/]GVN1
U"ptW)OdxP[K'UVU<&YAP4(4oedO9fx5vodW;K9l5j39CAFY/G2vp0$A;hij+\-07
U"](Ox#^,v4;T9o+0E*)SHv3%)NGW7L^mH?q(NIQrOPB*+)oU?.K13ol.tY\vC$i,
U"7JB6XghVw5dXQ](_o=mx<_.,Y?Fe\7_Rslcn9,l8%*KJ.]R]_]D^Dkx962c8>?h
U"TJ>+Evkg7VbfVDqBeiT[QYc-gT87$gP4>HGGZV0gCl^M]eT6pK=(W\+bUht;+x9
U"pAkhdqm%O6Il[u$*2O\C1b43]9DX=_5J;[^Dv)Cbfj8c<.V8L_,I;i$L<ODR/Lb
U"ThLAJ>])L,a*BDFNIbW$soMfqZB\EJgr:]/DE^1(5*8CJQ<;bK)Jf]qfIU+]^Mc
U">_(od-c9>eKm:h=)TA)C7eTQ[&yIg[^blRU?Ax31-]N*C0e)%:UMCU-0eHALKcL
U"q[0/b9dY<A]:*51hKfB?=9Gsp:C;Inu1WOj=fOVrX4E.U):4LF)B$o.#CD8]UD+
U"$[_9#wL2T8So/)YBh*Yp+]dkE22u)Du.eLCetx*Mzej<[^R/=UZp4l6:6qsXm<9
U"kNqDi'l#ekSjWqbX_eT/_bo]iFT%dO.)b(YCK=<\(d4f/aIi4Y]\D#X3>Hh]]&9
U"Sh_3egp?a/nH.uw^;1Nib3.wUt0*2Uy=Y7:;Z?^heK&ZM*oCm#E_5QirYA0%*l$
U"^?JW=LS0x*EBNNi7)>kJ-zfF?dF4\FdVgVp#g842c)OIL[%xH/-X$$J9FjS61$7
U"OqZ;6W)ese8'Ko(bi*S4xMuXUz,SQo)G\U44RG;F3XS3BoDvU1t8$)3^1qr)m4q
U"3UXjKT>$Q\-l^IV3tRP^,=X4qU=sQG4UBbISROhZ=-G6?V3M^j76Dhhzv$6iY%u
U"gc=jfjJA\=>u5($r'R33=gxU.:[l;<G>M*E_L\kM..[jFh:llWrUo0h()jh)m$b
U"(hu--7iK0A&rf49761j],0tRu3dq7))?E\Zeya^JMrGIK)Ud5#g=ZN\YBuwNEOo
U"$uCFE(UbCq+2f,/En*0dvhK&/i1H0bq/(-Y)#67Wco+Y^R^%V?(gG1ns%&f$fQ'
U"kl=1/,TkP=ZR^&f572c<D%hh*1JkXk1C4fQD5wgO[o15NFsv6lBUCwWOco55NBD
U"vtl<g-lbVVP.Vm*F<56]=+y[;,NJ<+:Km%Rtc+&dRHj1Z>wu^ky^^9<(SQ_%ZeS
U"\=cN/qn>\Y0W/qd+L-LrQD>xcKjGWG(OaCSHSm_he,KY:\KXP?3F(9'Jdm0$dnS
U"[R.nh>,rM)JoVO9mnjObs.IaaV(H+Sjq#M/TgMaU/AXb<<+tMAgQW$1H;_wgBc_
U"tDgDM9tMICHO,8T72KQ^x4#VYr.NFYHRXTjf$7:q+,N9Vo6-/,uL?=_CZ;E*nD2
U"1Bsi051[zPfqV7:UZUM9oj\-/_rlMVaRNrhxdYco&T0A<;X&OI-XwgKOK^[2H3F
U"'-82%0R2c1^R>d+/TVB.uN>agOu+_lLGK%+HU65s#-TggP(+P$uJ$85VR>28y4t
U"C+1oe=k-QP^[Z;?(A=JXfS3gNjaQoL5-kXXSQvZ-bddUAr&r>*QLPrp+r_[%3SJ
U"=(8orb[O%Sz=^(orem[%ST&='UhkL63#qy$vg&J[?s-s-IzjDjv5JTrkTqXwvgc
U"ch5k8-TpKNhE_FTxck-U,H(PQ5JgL1AwQi6V+ef&)$pR(-GY2^*S6U=hA<2a_u_
U"84w/RNa4vQ]VWpEpX3U=]jEjH5e7,qI3kg>818FB&e#)i^Lw>BSC>sVIiLRelp5
U"\jA/tofG]9XD]g'unum%km5;6hLTgaSwiB5NQ'2W&&+,$E16DpxN%V'WLx7fIlh
U"1i79/mE;[n].fI,Iii79\YO;[_;55BA+66iJig\T2GB25*B[66Vii[^/T]n#.iW
U">iMSuM8is?uOmf9%,c.Gd86K,mptgRphFZqwU)pK90%aikY/ps&9_wPy)9r>EPq
U"5lEI#5E.Qn4:L#5U>#x_aYrr:qx)apY,tA;z92I.-Cv3g%+,6'q5iUJhToj\M&x
U"/9^/?y%KZ=Jcd?D>YVTBVm0%PPl=#;/%<D?(ZrQ>7uY<d]K<(Oj4#[2cEXZ4\VP
U"Ke1-eif870;tw6DktC>Zsd:5O^b\peJ:)8ZWvto4eA2['O4WPupJt)1DWUi36Ph
U"j3#ut3b8CdofpP_<pFC_k9b9,frKMptoTC(D9phEO52Hn/(lwUNe2Mf1AzM+]mm
U"G+2ASr4WSxYe7DpiIdZ4%O?Jc*$=?*h/Qc.hAU^qZ9I(ghXhREaPB+KOQ(z8ZD2
U"wWdJCG5Pmia,Di8<btQX?pP:g4m\uR$t,8bZ7C%joPm1VNJBN.rTXOTsbgMQ:#a
U"fYS#UK^/St4O-?2e.6/c+jxRSUX<>K[7]vn\eH#DO<hs],]*4KgE_EwG^9KP=k2
U"EaA/_Voz$g)IfS\2I];EEB_+r*Mb]rkhMgk'CLh5/<?1z%s[&rOPu8fV.>3K=nr
U"R+yP6?,Z->3F=nrT?wgB[THF.YCo._RtZI<]_v]VqaRv0s(W:qkNfOV:LJY/T?\
U"3/*m=:4ueM2Yh9r13X3Kf&MUU9s]9PH9:4nm,WnxR:Mzeu,bQsr$.oOF(40G3JC
U";E3&<V>,t0U?/%VyISr?Z3C5?d4UbET8F&<'(%Lh'NSL$>2r'J(J+kl^eY3--8Q
U"H<SCvFEXIPtQ(oM,3F-mz%koouZVD,YOsbJ4s\%C+ZT;+*lD+*#u+T;+uT:+t:i
U"e6;Pe6)ef6_e6:;e63be6L*/k,yk3?BW?Qol>5g5Sk#ac4G1F1CsgWL>\xkIC%H
U"5&F$fYX0k8PP>.BG,kS)OP(E8q\Pr$-(bzUr&45W6rb=>H(pd,*?*N*PrRob9Mo
U"rQcGc8GY-R,mjOA?5M$x(yqelNo8T[w#t[^hw]Px,oXys_\logNuk^gNku-w*9q
U"wIjb?8aS8<J<1r/TjzMb;%9iD9:$:+$<gI0A-iT.Q2D.AqpZr*$J8cpxSp47hZ9
U"*5ubWoOPo&fll3]CcP5o]K#8,#0/DHOLduj,1DRCj3.OY30NG8WGtCdZTEQ;a.x
U"E/C\G-NTq1Z/jt(.Rn%ryqlt4Gm]2%ztQ$Ct/6g2iG+Q+Du+\jS3R(OwEWdQTzQ
U"^NaM3exIm>JVfx/JqYa-4XC=2YSovDBn2JqJU6L=h;BWFW.H%*B:zet73.1MmxR
U"UopdNq:>UOYX=CPUF[>tKxbz:,$Z;+6P5,vRpAtiBQovZ\-ov37]:6Z1hBr]Y&O
U"$IS9q:kD-pVqV'DQsEU)6GESBeG;QSt5^3+IP'CtK/E<rV#.]B4t4XKqGWUaS]b
U"/=OGth-.J&Ecj/]3$<L4F<mxZ?gPA*1Q?QG[(GOQU=9v+YFe*\(eYzBo]rEHq/g
U"TQQdfkM+]8G0Apb,n]RnGvOQ\wnTt]^8i_\<M9NtHO67#C=y[E4g=A6)\v]J.p+
U"9^Wi(*6f8QKYF'=&Ps;*tNF)eFCv(3]Yo%G27s>t=qS$2qrB+Z?7A4K1gugD8B9
U"YD>s:Rb0V#Qu.5on3*^(S^FAq%.Xv&1^lX1u=6Zx;6BYYgK5Qj2fRcB'_.%Iw*k
U"3GUfVX042K[UwRe>jHtRPqZbgf#K(=)&Tf2+Ao[,+:.z%*3X&5\pCJ%.+/giqWR
U"Y5Z8Om.u3%'B?.bY87pPU/[F:a-cOYqI1uC9(HGPX'ayBW)P_iQm7JIfIkB'bK%
U"8<_%w:Hu\Dt'D[%6bLoVxMmXS3^Tlb<[t7Px_uNQs4Y[LL$pFT)2D80J<*R85*T
U"by]maM)?]Zs#LQ%n=+$F7Es4xr+8<2jWJ=G[VDNUFeG0^K/11NPw(ew8jJ*%'d7
U"o8#y$>t:qaYS.Y?vj>jH2O+*)b<(a6v=?%:pT_[sNZiUV.%$Vmp?2&_gaM2G6Fe
U"zj2?VOq>eb+i(fKj)J+GP2aO\.LJ)IZhB\DYRW'fl,P%QJu^<1veALh3\15B3mg
U"^5_KgK1$x#Lq5O.p#T5?>_^/1:*8o=L-8P\o^Aj3Nq>fbQ7^<KN^J*$P+F5w/Cl
U"qTAFR5/Rs[CJ:Z_*eV_lk0YOOBea2Od4zPSIzP9'n)5SpS6yCuzI'm;$NU0C;/<
U"MeDLv?AD5/o+'.q3MH(.7>&xJTo)w>Ds4JNIf804)4rb<TAjcUU9mfPLf:5sJ^f
U"yE:6*^*'L]l^OxD2(W2&ZP[\V,pc^Lg3*[\z=^CO(li<;Pg,z_KERqHq3DC7='N
U">&_9/O#+-pS/*2#Bed^Gg\&pkc&8g7EL2(_^W^I\R5#mVr:s>kSaQ6tS(j_fZgH
U"wOZ8^Q(Y*-b4G*+g9iKXoWRPB0nA]u;$lPP?//&[fItWHfbWq0?Us?K^;K:gKbq
U"<Hb)m&HhOz3g=?39DL+=-?41K'HW.mc-*/Rw.9')DJ8%_Su]?BilgEKNu3dRi9k
U"a\2q:%voD%Kk7$1(Kv([E</b6aPwJ(AE1jQ/8_v2%7II&UJ]j]#Kkki0A=FnMYy
U"ggU[7fp75fEr^2;eL?]Y^pTMa5R8X,YaK7,H5FUJF$#$g\TUV&VGI_W1tOZtMAo
U">IOL'2]q18EpUe8Szx&C>1$eaEYZoF)XVOPQCUsqdo:B(?ZerKG=g[+pdjFnEHB
U"c=Y^C*V;+;k_/qyCWe%m**[cN367M6+.j_uiCixG49WAKf-7J_fT^*)i8QVq7c1
U"u#WrFt>>F%O/_kB:F75e[](Szp%H*=j_=8Ej51[(AvE[CJS++%]f%W\)gc:xaUT
U",)5*KNY2<%glH,rF6L\TXC*K%,.ljVrU2:K&lmDFDHt?<aAcpaV^=v%%I#8^Ak9
U"joUm'&c.NzZ2JxcRgi,_Sx2Ix%R1M=+\9Jj_YOkxCaeWY.0(9)1'0iD?kn+uJUD
U"wBNk/%\smj/qZ;i-d%^t<frI'gjAifUn0)W*a</Ix^XxPERzRK(n2711DHq)d/J
U"J.vq0hUN^r>%up&'%9%9%%%%-%3JjHQa#Xxn&K%%%'?+%%%0%%%%%%%%%%%E%*/
U"P%%#%%h;M>B43IuS1<&?up&%'9%9%%%%-I%PnK4QI]Q'13C%(%Yu%%%0%%%%%%%
U"%%&%EO%/Pt%%%%u%tqfw%UWSy%psup%&'9%%9%%%I-%G0JIQPo&p>Z-7%%/5%&%
U"0%%%%%%%%%%%RE%/P'UC%%Lu;>C21C=S21<?u%p&'9%%9%%[%-%>)lHQNY'kno#
U"%%%q%,%%,%%%%%%%%%%[%E%/&P_L%L%?78LS1<?%up&'%9%9%%%%-%3<jHQH&j1
U"p&F%%%'?+%%%.%%%%%%%%%%%E%</PxL#%%t?)4=uS21<?u%p&'9%%9%%#%-%H_j
U"HQZ9X.b7#(%%Q&1%%.%%%%%%%%%%[%E%/)PlM%I%k>AA<VS1)<?up%&'9%%9%%%
U"d-%;&\IQqq69#u/#%%'&%&%0%%%%%%%%%%%RE%/P'OP%%Iux?;20B7S21<?u%p&
U"'9%%9%%%%-%^)gNQYX^oTy%7%%j%p%%0%%%%%%%%%&[%E%/)Pt[%L%?>;)0AUWL
U"S10B%up*+%%%%%%-%-%'9&%%&Gn%%%%%
END SUB
V2
CLOSE:IF S=84AND B&=19278THEN?" :) 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\19278,219);:END SUB
'>>> Page 1 of POLAR.ZIP ends here. Last page. TCHK:84
