'===========================================================================
' Subject: RPN Calculator                     Date: 06-16-02 (  :  )       
'  Author: David Drake                        Code: liberty                
'  Origin: ddrake@foundrysearch.com         Packet: LIBERTY.ABC
'===========================================================================
'>>> Page 1 of RPNCALC.ZIP begins here. TYPE:BINAA TLEN:19436
'-------------------------------------------------------------
'                  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,"RPNCALC.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%%-%b,IyQ+N(&\x?R%%6K%%%0%%%%ht(s%jw%ySifayVaBY=]?a8F(
U"w,f;<zJXtREdc]N4vf__OZ9d%e74JNw;o2;pd4dp#WkeU'%[wzn&OC5U,9E1_7.
U">>JKZn(w#FX%CVZrg$nBw^Q5ulv/s<rvwp*8KC[g(c5drv16uX'>tMuLXr;a1Xq
U"wA=ta=NhV0&g;#eTl#nM,mbwTfd\Pw&sC/4FVI(f&,Oc0zl%E6vDqi8/N0+>n[D
U",g^otz7mtjF)Qe%\Nuk-V<7hLgQu;aPwvjR_NgE$FDMrB)'$=0c1blj4-eY?ER1
U"r6JmFtNTfHuvrm1j^v+G\&T;/VNYcMalnTtuRLYJ$r<XXtX)gvuoJ(_ZS;%.HE8
U"1j6%iZTo&\lZXDN<u_.%\D_p.&RF=ug0,D0=5Z$R+w<G&,ld4=%4JMX;zR#MFpN
U"qPoBqg;D^3>KVM*6'3BPe<J%t=h7&/U'C;pI.ZRq_<.7W(e<5Q/XKJk&qvfFUtf
U"O]0&coREWrr?3Rg\nN2XOqj.v+j\NNft&7H(rAQlF>;8a\3NA]wNjADHgd;UNg1
U"gM6Z2TKr(G<#ZR^</x;c3\I(%#c.H9nCPZf8E6UzqCN^;Snu_=4w6*(w8$+sOfP
U"MqeGv/)y5d>so&L1fHfo072v&ZH7\,Kx2MV,()hu[1K+Ce0JF<*<5%(-O(C;*<V
U"0%6-hvOgtLku/xtbdNn#AGbLLd()F^'9<Q=,+a<YIqk^Xzt3>MM,CTwnG5Dq'HX
U"N7&Ugto_)s5-Lb?Coul'e\Q;iZ6(VjaH6vYV+1HsE;q;Zon88c%DoaqY>rRkNDO
U"AgWH8p*1-;*oMI$wnQFwShrqJ\7OVsjpJ)^Nhtz9+r'(rWZ(P4*nAC2kZ5W(?j<
U"Wt;2SG2%-&mR%ltF164'?mOFbm0.c3+uVOQ_NYd/'[r6o*iTenf,=VfNum0N7bV
U"MSeKyQ+X=VZfb;Krj4QeT+7cqeb:W^+=\41(m^rdP.>6DZ<3jYEcvdM*(7^L7Ee
U")AQ/UM^.,Rko5JKuTfP]G3/w7CZ$M=^C<TM8OQ*p3Z7a943ukQ(gcuhU<L-C+):
U"XL*AJ;T%1hNwKf\F$Q(s-2#nl<o#a]h/3EhONWXT>6A5m$a(84'&.Smh97TNE6&
U"C6u+mT5UFV<kP0^1rAF(h:\*CVXyTnqCLkK/ZtNV5c1t_EIDCFoPtOzV6l:*dcf
U"g2Zr:x7gn(iUh#+gz,uVm4C?uvH4oxdWqrsyXF3PzMv/Ta7.rv:6QXr<wF*6.%r
U"gTJq_[azqH,vrGMbThxuOYTVW3v</,POfnwH68d/G9_\,]S91_9A5Bq'?4)*>:j
U"V%PZr9WT>)Gj]5t>,6QXzo5m9zeM;y.(RIXnRq:zngl5#1aODoRNtQ:3v4[mjx;
U"4Y?v_i2*u-mlPtQTc5'^bGM$dv>ek]%-HODHjLTd7jH8[Ak4=NjMF'?tpHdORtN
U"N[BU[Aao<hHkQ^ZdN#4(o<r.pIP+Xo[a1w[^5&M>XDZE+/scT%r7u8D^3u#q9'o
U"APP#QQEv?/cp$p]=uir__f'lXfF<]t'uji6<Xp-a;?V*Q4jck)ot>ek\:*0A\;V
U",^Taz(3pKge1iT.?-v77H^a$&fOPWUr0ngsS>-RmWs,Ff+jE<EFFVooBvSKQE0&
U"h%]<XG2=?7gEQ&)M+/%\Tpfu&PTlq4.FhUznNpr'9*C_vj-&.Jp's,<\sbB8fg$
U"Em$Y4aUu<Yz<ex3Qk2%Lq6l&t-&7>pU_Pik)YK.V2s=^6(?*8<h&$#O>xPoWx-m
U"zqv.0NkntM.KTTLj$nK$9t283dLfP+(kI06[0KD*r4^_Z&_3v5A5ec3>>2EtP2:
U"#up,9R5>R92dItlW*h6ss)[?B>.dZpvVu[lk4#Gi(&<8ossErMqi5p4/LX<FJix
U"8];Ab1_zA[k/q:6rQRFW)m(FK97=i?oY=Ll[%<(PPFbvWp=z^Ib>:W:hZnNSTG[
U"t6XqArMA:y6P,$'&Qoo4jpr2.:haH_B0'9GhzRA>u/g=8vhn..bbZ0(_hArD+I6
U"8cKV05n<Vi_S&;<Gxi2bihwT$&&hg>MhsTYM>H:.ax]L\**9V?gVIDB/oU9UhvO
U"C-ilwJ&\Wz2K#$>.=0?qGM'C3cAxU4G%.93np]e;[4rx40/)=cEev].n7]Ai%O7
U"gfN6(k05WuDqQDk.cRC4Br\74B''R1t#NS(W'M41vUtXmPpd>x)wak;_:iq<MMT
U"$m(hw]*haRtz[.Q/YxP:KWTozQ2R4+p)bn#dGLdl1;KG45fSoj:_w$SP3XyG[N[
U"1>8y;Dq9D/'n5?tGBAuo\FVzC>zFo0x'Q/;=&YcpkT]U%z4onO4vk-Fe^ib;D8g
U"8rbJCO+DS78wXt83B)jP,/GQ2J9Kp(H%'wiJVvt$<O3Nse#Y3>R6'o&vaHiH5th
U".Rpy>6I=zHt'h9']0^=pmOM3v&0Zzv*gwLC92%\>3jyZk/Ji]]zU3]Gy0kmt_'1
U"y:LZ]c:KH%vG]=,f+n?koqqjp_:FQD9G8+L15V73nI/RXvikN(E#V%k#;\E+?&y
U"iXEJwVQ2-s3nMB-BBQG$E0o#D>(mDE:'(*5XYGm%tgM\TVv3%zACN>gYVT>To+9
U"?.49+c/=Q<^o*Bhng961Xw=u#TLb3)ae/V[KXNnGja0VlfPXT_pC9DW4/)-\3gR
U"PcEz6k<nO54szQg2.dpLMzv4lCe&\hRjyE*u6a8/W=wl^'lNFLu[,1i-+4X4b]y
U"9Is_ud6a:F2mJIIkKY(XzSij*qAkoyIQ2)TA']L+%CZWr6h_Av(''gWAW2f'B%J
U"=Np89/be&$(Nh\WEcrV/XG-&oy<5'wwP/p_,cTP]nFpR^'kT'wCtD=YCo58P-CK
U"11)aTJCw\^D0xWhVNzkr.:f6PCz#PCN-q[bQ+n3FTuXTcL3p-+KB6)adSsB=6Rl
U">LYu$8]Yq[kHMb-LrSXXNB/1$BIg^^abfo]>=:S5s/3f_I;?B,cEARzB38gsEj]
U"#j\vt.dr_n=4Rn%46?x6A2x2$POpTJSS)WaLB0rB=/T8bQK'9-W]S>hG3Nx^XJf
U"7gA,ADH_DSi&TWsu?VI*C%SE$VT(w_nm*0q0gL#'_TC$sere]VG\eqduL3d0HJI
U"NFM[KaR=$Ye[w>SPnu*q*4l=b&%=pd;&g*BTOOFxwyi>ST_Cb%3z))\0k6VT%^V
U"-G2xDAE\--Cfn8M(,,Bek0C]m=hvID9bp_6ktxN'9pcbqgItktm7Cq-F^ZasG-]
U"P+ia>?pk:U\$20RC+a+4(P77T$9dpK]^,/YE'5G7i,aX?$iftT/16ifE[TWjeY0
U"ug]UkV0TW\nY-$6QqwEAvQiSHj#A2#$B($&8He;_heB'&Nj<OJ5bgTQ,s0ZewuZ
U"8%\%zO)bAqz1I/yKfHQ9n-*j0p6?9q?;jViz]#F],m-,(,Q,t3(#k<3yDCE<K_l
U"Xk,tMLh+7-0)1LFC=q[S[:r*niXrN\cDXV6$1#ujA+M%cVyb=]']*tK[>LV:(PD
U"RzeKOfLY[cH'I*t9>_)onvrG\DP9>8;_$kECcsdvM$6b]KtHhWM6&hubK4WJ%9d
U",>;:wE]Amo\kBM\,)q:sCGjo4+'S:^CRUa6:-Rj_wwW-d&b<)c6log1JmT+):HY
U"PvDU_([R,,gm>l3X4c8H=Tttn;B.uFx'3<oM9e-mQBXP\;t($C,,ZtMe]xdjq8l
U"h%.t2yf+eHQ=w>H);?+e8$'8y^$fZ.FVd,AWWam_^/xRLS$g,y^U*YJGZeB8MP'
U"[r$R(ZKe(xMxF]6jO.pym#Q3_g-M[,m\%tbK=8j>-)L/.2qd[HYRHZJh:*rdGOi
U"i+cvu,.ZADl_U-iVH626hJnvQh-ABXLmb.ykw(XMBumN3XBwcn7*)'o>y8xZbMt
U"dN=buRL>vw723hb.]gs/UT]N^frE_B3qu8;i1gNFUVZ]wrHc,w\S0?N].N4.S90
U"jP1Qs2TUx.A^wIIb,vED4'rqC?akgNcZhrb_;t_UbFMBCdLG##)H*6IZI=An'qV
U"].ey6N8>8q-Jd/aU<7g('%t&,*hmp&T+Qao6b?rct<?WBxWC#3wt.j\-rie*mu:
U"ftcrY1u.^'L5F%Kk$X<fmc<tS9p#QLht-]As#+r<X[)aF_WK-J>hnTdhPbE4mq(
U"k3=\]<5/LsueW^4r,['c&#2an'$p3__]uk+exLCwE7se#kO-lCLG]2gZ]s#\<3i
U"I826)h'r1/QMIb$H[%jcrcCHP0Na+$0rh3P$jpxSU\dq1jbVX?GF=m7Yr>[<LN8
U"&T>'frctMi#CUp#yad]5V,I]uPGUBJ3Zu<+4xn-cIQ4v7gIIAl5nH8=M\YW\&Uo
U"uo#z>8rLF->HqYc_S0qKaN_HaKB=p^DGr>/.R0yRn9TMHDkYhE[$erX,cj#%Nu=
U"^rLp=dlf0K&HmQ%J$)]w<7l;R_0VQX86c,oCNW+yrlf=zwrj6/aR0uCYkVtaijg
U")LiRP47wzgVyR<TA+Y4a^u&46%3,PT;ukKPK5E'K\oX6W8lJV,hbmcoXv$L);6S
U"JYEd3<WDA4b8WsfRlJRWKTeoSLjrwAus8?sXa>IEsgZtIqP-x-qVlY^Pi%MKb>4
U"-89a4/Qr&T\t$]Pg($SqV3t^[/E<pPxBBZDX>dl>N]bFb*jNWuDHcrut]a5,36l
U"=M[^/8c%kroqESAZ95l#2-6G?[:R>[SEYP#bta*lN0*RgK[kux2j'];pKOta=i-
U"cNgo,OgEh&rjgHNaSGC*k?>1>]Q>:4Wrl'GTDsp;>W]_B+aw;x#\oj34vO/2iZ&
U"DE6HG2AgWlaVI*MIP+H)1soA>(ba/]D6*S'TL^4VLqH/deal#+&aDFskis$vhi;
U"BSeGthgoL[l-B_C>UcJ2I>53\zg8/yj*EU9L2a*JRMq]kI?08HHn:c=kt5>6K_$
U"EFRraJtpTD0E_f$s1Oh9Q2PxU<+bUJK6jtdIsm]mnn,[$(JAHekj>ZWK]qeV=Oj
U"4swKQNR2]tWW[I.J8[KmUuE>8%?Bm4Ob.jw/KbIES:zyLzTw?xb$ZNvP8ndOBfP
U"AQZ)n>JqM<inNFWS'g4O.>To&x7Wni_7M<CEIlj$c(d#kp=,G(XnZrGK7&.BtFP
U")x\D.#E;57j.K7\Lp\>xMLvnN:wla95EL)(_9)hN/W+P;+?P;+u'&h\+,lMNL=z
U":,O<OQZFwiuDNT0N73fS<-=LprHcYMY&Hi,Mzm=dVZ1O9:)LGW>3KVeF;&o_jT)
U"srcrEex_K[fHMJg^Kr-MtQ;OFWK4T_,swIE'dR=8YW?tVps&TgFI)^F0S/GcqxA
U"MA7ong[v$d*_:$k;f3eBTawB-RB3;EaEX8FXD+u*;iKG)0:-F++hYWu/<b4&z+p
U"&_Bp;+#G7sMBXI(lC)Iu#(FV[r%81td>+.$MCptt'&>b79k:0?hFR;$A?];oco:
U"$NW;J_al[16%GD*kQ.EmcWYE5d,O1&X#S8#L,mk)4[9Q/coAdu6xO2js0mQ/peG
U"9<Ih?+K*dv'GLHHrC\X?i9c;G.[#G;W8XbIx3CWPt6Doh;%#xd4CH+o-h%eE9DN
U"[=p4c9AT=[_S[.;dO*7>yoh22ckp7A=)bc8c_e1N*2ZC'ipvUJIEa95h^Ch?x:C
U"rJ*(qyX:iKEAqZv=grrW2gnD/NON:j0Mkeo.IqP)cd7LC#,Z,2WCI00qLEsXC2w
U"\%MBUs+Dl\#1*EK[qj=n8/'7KesFl.cu,1Cok6IO5$w.e97a\A-(u/kHh*dEUQ;
U"cp9qKIn09yK&#PgPRM9p),RW4_*teFf-ChOs>Wik;vewDW\]VRL/ty>T^A,z)9i
U"[xKVYi=/sF,H=:Gg_G7(?p&\k?[V\svBqYTQ2QA^l71#1,JC_jm+;j)Sq;+h^G;
U"Jagk:6E9+1oV\wO[)13^w8e(,U^5T)o+H'5uvK01I_w/%?w*o*a]o6%*R?d&XY*
U"WTMsC+npMJ-*M_p75SODf[0?B)(3Yl/,<ASntIT^/aOkv$1QAT(bBI^Lh0V%.%R
U"m9-Ua7KoD*9OU=LYdq4E(;f4#sFU8cy%1P9N0R'/zifZcEFqoa=&*;h4si^;$R*
U"Cgkxqqq3-uJY_;6F$+[QP)4%mA9B+r25wCe1;G6y\Z[k4oHDBsS8*+6ajFOJ68,
U"PBo-W=-SoI.7>gnKeNr1_U-3e.eDt?<l21h>?cRIcqTJu7:'R*gp/mAT(da;VwO
U"oL)0(I8L2D1qYB4[51R&R_g0d)mpc&i\lPc9):S&'ktN^w$s<P]-q%EiC'D%]Vw
U"%CIuK(S9_Tu5vk,fd3_0:dEnrQqv_+N>3aRq'Rk?B,;/0Q&u':2NCh;ogH\Rt&3
U")[E$g#k0[?ySTh,8$8+_Jo7S5Sb7:R3Yx/<zr$)EIY]RO24VFrVjqcM?N']9Siw
U"Hnap3.%HX&P;dZP5u%z1gM.%FnMb&ERAAm44_czjlV/t<a8U#=J)'jS_TFgP>T(
U"ZD.2rp2rrp:xhdozYhT8?^n\Ha]F40,l3\fqId=fgPcqgE$U?j)d*h)i.dI/FW,
U"oBV;?iJSY%BwCB(T:uX?4ollB-sC,+AB>N[$yj&7.%)LGyJ2<C6\ok$YqmRKGO\
U"kajE44XQL;oZ2N/r,F?]YRRo)F<R9ulGiCkPSc;ea6+Yzk[3v2w,2po#R9)Bl:n
U"AuT<QT?H;Z/LV+w.WI19DrRmpHH$evg<'*QVFsSyjPD0=)/27_yNENf3,9^8d]J
U"%k\fHjNVajA[kS'S(zPHCTstr%Yk-/pZ3POlGR;FT9q-F%2S0I(&KT7UJE5s)nz
U"5O3[Ec,E#QlaRf;WPfP9uk&2_et.P&Cu%R+;/7ZYi]dY*=B9><#x4RFxiU<6$=9
U";I>.]gO_'Slh4bdn;?,[)>WCkP0RJ^ic[MC#y0t0/KB%&]&(1d0>rJ&w5IIL6AS
U"I[<v&M1z*rt8Xv]lVq/fv1I>\M*hcY^Kw9:wmk%&%n0fdQHH.?W4Kv;r6cE\x=P
U">EpH(&H^+;U(i5qJ\E*D6uvm0B2XCh7\:Da)JkjH5)Tl./]6Sw.7?o.Eh&*Z40p
U"b[OeEdux'QAq^fi5rt)P_ZqHv('$PeTbMVPsG*)J#DJWS/#yaNoY5O_&=3^fAeB
U"e79T-O'8y27YM:MAt%j5=>B\4GjI(v&Qi58Pg0-:<l3E>SnBEDqnXD<Y]$):f+k
U"s3;uVS2U1#Qnz=8Jr53--fi-0lu0=)]O]aD\j*=a3k3cFmg1YoJ5L)7BF(+\2DU
U"n'+hDU6E>$JDiZ5,,A<AJJ$?o;8MIxM')_00H(OBe8s_n;Oo'=kG_KK=2p./='#
U"AhvDPbYx#zRomY];^_=Ri0;T&(Rb12uOU]hgO:91K/*1K#cT>o_YE8z94uE8#DR
U"nu2tJP_>[]Gc0ScI)Rb5PcO7tP,[$+bnOF7CoY4E,sLrs:Q=AA0Jim&\e-?J/ik
U"8WJP)9T%s6^j[E[N.X[7+le3&AKE*,HAFmC;o4ceg<Y02&??&Dr&OoZh<+Y*_M2
U"1\hM_WE2QonaAd&_.akV,WD)p3ovm;[qcem]2e8g+zsJ9Bg8DCZ1B\XcE>C-#jJ
U"N7<rW<qd/F&\0D5IV26GQrwTF%O$RT;ed,RwI)i)^1t6$2EukKIOJ;)Z'r&F#kq
U"(D&Uu];+Ud5L_7\n'bbH-R8$HiO[+A&u:RjdW)WE=:'2oU:R)X?CsHYMEr_y:$C
U"Ov9c\<ow25Ix\3^8*uQ+%hzw\Jaz.],whobfL=cV6;QQwSA;fpNsKZM:Us5UCMc
U"k_3?\KrTJ9Y/tWt.=aMQw)V:(2o.->zF'sHO#=(oX\tpa:852?Q)n804';doQo+
U"nDnEmm\-eJ)GF)9M2ST7i>ReG:8IVB-+h/2_Z)j>lI9FC^CI$)._1I_yt(4\q?[
U"R(wE=:_T-NIU)AQA-rQz_0-qe]WXocF/sZGy^*#LbR_yJh&i6+zOvLau3OaSRM<
U"6kUrA\Q0Q94]AfUQR:<Tp5/OKLi)-\?f]:%m4Z5sK;h>9CI['2+Ww_l#FjVZm,<
U"TI4a7%Nm,:qv2O=19g>-dw2uB)7YLBZdrquj8O_HVZ]7<aElXjUgrG^7^r]t#>s
U"&QLO:;+1ZP'.+?gD_\vGJ1&+B:&IMGGod5-eQ[Y1L%9QaPVPZLAmU.g.Z0%/upp
U".am')XIY.bZ.NsNOqDk:aqFm&8w18Ln*9Ya0JF:9f0W.AW7,bQYsM3ON#Km^DzF
U"_BZQe1:56%MNUeUk;0gPYRgkXu>5MRrT)[_aE22RCBdIH]15W%()V/P88LOCV$L
U"aX8MR+G?i8kxR_1KI7T.9tDIFK_pYLPi]slSSagc9)4k]R];.dvc$/VU((6_1,B
U"AzclaSo.8e#iBkU=jYLHGVB0R)pdiX8ru>mjqHB37evYe&ds_L#A_d'%\?1*6GQ
U"x;Q22z$'vv4x^PxjTUg3Q99:6(DT?uo'hbcsL+4X'.\3I$&EOpCx-Brv2g,l<Ad
U"Y7d-Op+2C765;%F+Nc[)iq.1'rRj7,Qkw_^OQ;f&xK:w=LP2slUOewF*+yb'8R3
U"I[74^+RHKgtbXt0*%5mS^o4RB.6c3uhp0%,v$bsER%&9&p&_?>4.H_cQIhgQ)uT
U"*utR\'.X:jDJ[r)f7ETE&?U(;0f(;odrd%up()%9%%%%-%%CmyQ1T'8<Q7R%%Q/
U"%%%1%%%%wu(s.hf&MVSq7gffaovxT1u/8hEow432/l0cIB](MC6/6b+*34onMUs
U"tL#$RH;YTqN$^w(K]-wntl9+RBnLAf*),g0q0W/]GvIcQlBqs\lws>c[I&ZhQ=Z
U"xv0\\z^_;L\P^]F]woyn7Q=mZrGG;L[z^'CqLc^s-_W1lg*X%XSx6Y&RuEk\$=8
U"MNfkE*6nL&BXY^ei0\.a)i4gVa(tXqgk\K4mGUiM_7mHenT?6k'fE*X_MW\;m/k
U"qgE^Z^v:2('vi$e77'0YMW5(kk%z,QsQ1/qVqq&/&aG%TEy)Gr9hm-&dQ522CTH
U"n(c:k%6xD.gC+2C#KicG&79x4Rmint)+#=V=Y?9$MuPW_A/Qi1/[*i*/0Md'(bT
U"ia&;BEdC=\-f;awCm$Ev)aZwwT.sF<7*NB:<a$H7(n2uSqv%57J#.yp7_K/0w/g
U"-B]$?Jh8FHr\,b4)q3xtA'/0OI&r/:gw;xUzt%7BEgD#ja,Xs)'/hJEJo$5\Pl9
U"*7Gw,q/Bal73Et3Md1G#>/=vW**ZiU(]&O.b333'f(H7h_8\*;63s65\,cu%=/r
U"<w.6%Sua2T,tUCNo0T/nUoIhpma'jGu3*V19,z4OWa9]lzM2X:aCcYxp='G-AGa
U"5bU$?bI9+cbVQHAUL$#RPxc(/CH<jwDm)P]JW4_S^Ci*M86X<_]PSoULyI+<2=<
U"&u-&o7zK/r0:1prvwZxwT.m66jmRB3aTOGx(&rQw:H^PARr[tI5v-rwI6=ekn.&
U"oOg1Jo7o.gZ\Z9(<2Nq6d)0<o8F:nt'AkVr6suv8CoqN1>X^T%'O[\2^Q7?u[2;
U"(Y(-/EFw:X[.t3UKY,,r7/kj<ep6En8K=8$r#n)8TaL9Ux:)lc8R.AGv)sYOl*]
U"i87gzy7()YE#zTmqw>*g8ieYP_K']7;mNP;/ywB.TD)OnNz'I-kbiKsj%x=1?:m
U"4m[N&spnk25YWnOU?JHyVwL1Qj)Mfq-h]DeQp?g-^8Gpj^#:-UjkX1EeXTXU)M8
U"&2d[J+F&gD,?Dc__+%LpmJ)$__Ygs8QV*U,L.C#\IM&>Y''-X[EZ:fz63dX/O,?
U"uf)Ca)M=jT)-X2Iv:5quA:h+0AW1F(&Pf%-rTFUH=MW,1FP8=glbO?=E#osTFFL
U"f$)F%,^R(mfWOZ(a:;<4RAy%Nl_RDwV./[&y]_S::4cR<x*%(ENKm(&r]9Yq,;,
U"SFNDw#sL+,xAxnnr%?.NKaroo:q3Q_S'P*%5OK#ZF87dO=#T[em(XA$.YafVc:A
U"h?o?g/WGXU%cdLCR3h4TJYN,P:QN1Bo_:o77kxe6i4$YBUm'^hjvahNFcHI;S&c
U"-f]ZBm5L(RF_cYf\O%FofO8V+jUZN12eSt,f7aU4F:ja>M/5e(V&66\E'sEJB%W
U"W9&d_0&7R7ZWe?tB.S&I'a(-KRXGJ5e2Y6opJ[7sfU0FCz[NQ^.PckEJ/4p0A[(
U"V7*d1.fMl5#A_]w4Q/:Y8dYJILAo\RR%B9>?E7\RRHP+2%PWQeWV<RQEL1%WhM[
U">:GrT2tR>)GbY>-,_,t:oO?COsE([y?+4q0[NWRRWkcd*952'3J_9&(kPK=e7>]
U"O)R^x+EUuv-(/*:5h_-g3#-0BpxN^s*C(v7%?$ezko=_uWxd%6aOxWd+S.Yo\-d
U"(aFAt&u^7sEBlT$4MhII\&:-E;>8ml)vOB+xmI+%wZ&Jy;SOJjUSUxTX4#y5OcL
U"i2(g07P$_&&Q;NOi6K-jYHQcAIH)jWCPRqkivtWj;bdpdJBx&L6Wt$/vaoGDbBI
U"t:fbaW9;ywG.a=p+P9g%e'N:At$nMj(B/;PhVt;^Q/SCj5uQ;14NXYro)=+us#.
U"2#0d6qr-ZGq>G+kvrj5KD%cYe+/*&)xD[&]wlM2BFY8UtSf%M,%?:bI+aRGNZUS
U"[wzI>gcpPaH+BiL6b:F%Hf?./uV)9Psm<ZdusBJBuYF>R=658e7r(aCen2^H/VL
U"L*n7>9YWvzg8&6UmUooxA4YI$a7QQdlq+)Km\&r%$_LcD0V^N;uh2k-Cc.2w%rm
U"(]dnNH^.n8Ki/12$gVi37--1sSt6wftc1UW&l56)3BK'$t%v^RtGmuWbcJ:fqU]
U":L_pKx,qDdTRsTXkJk2Ul?,g*N:DnImk/c$-87^bS(L'5rHvq;7>R)#DpTV6wQ4
U"W/g46%Or2sSRp84wa.%7Y:eK=a9\pxkDgu>^t:ujJjduGtLZ8^R/qoIMI3q9OI(
U"8VhPA/r5.l%TS,<uvD,WQ4WV2V7$]Db?kdo):v$a-rI>C=T0\Eq<q7SYq15y5fI
U"><^q90W8'G)z,w]Y%,=-U$/2CJgO2$O]J':H&bRYd?d3MMf'K%6RWaXnAn:C$_q
U"#5Z_gQ=-</x93mP=>bsmtIThXi%3e_ymmtL'TS=e5e,3SdhJQ.#96SRu(A[]mAO
U"aS75#x9&1b8U#kFJ59Dm<3<75uUO,.hmlu8+_y2uxCBXGK.r_ZBN<h[e3nZcbqc
U"7/bi]7i8/swx#2pc1D8:nf,*(%mpmN9KFcT&,(d1#\C9n$.Mmmap8LwzaICrRw9
U"5L90q=E)I4CCPwk\e#pS1<Q7a92Gu6Ead]2rCD==9fb[w%hkn71V$Qu4K?^g'VM
U"M\PRAI^S0/j'#yoB(0hVwHY?2O$0nCR_Sh<2cCwR>m(G?[dlq.TkM)f*(-9e%60
U"aNj6G]S4.X\:_F?JeLHtgt'CZn<E,Bv-yiEiAD4-^>l8-^Kl\l)iGqpxJB.7F)m
U".p:KwiXZ;XptaM[:CPcinpo8Nj)LgVC7k<-wjH-&H/A>QpFYj85J-vdeeoy%r1?
U"v[r7dhv>%3)?8+s%q6JAh7a88&Y91^Zr(6W>gugYGBk&I-NgJ-=G.IFcyrK^neY
U">Ae)v0[6VI:Cc1dM$);i7QEFQ(=p-=HaE3/T)&[sra&QtI/Y1)OxNWntaLaC<&a
U"Y\Uq$fLWFT_fe&oRgiDp8mnD^M=<Ff<r_+K^U5S6&MP/#pf)%$Us^kki\R)s;WJ
U"o23*gWo7&1*j:R4]qES\Yqm7oU;R)VBBfB_%7l5NG_Gl(J#.x>E^XzJiQ)b'sM=
U"R%13Pp#)kln9i6\8nSzpO,]tVn%hh9tDW^[/1e<3b5nd70rm,VpJl=[=IjL/2cD
U"Y%I7+?E'<Z\nS%TJ1zoM5MNQM4u0E*-1'A3>$(c;G'\dqmf*]F-=T,Q]>\JZ=v0
U"/x*zTl_NOjHn,WGlK4X(bvdzLq[dZkq\Z=+R/hO$&N\8_+t/;e4Vraia4K_+ma7
U"uB&u'K-a6j=nOd%ugR.%ad4iL:KF=sPm3s'_YIaIzK0/Z&'bROhu&dEb]^66q9H
U"=4yL8t$%5,\R0y[2k.mM^s.iD01N+j^_kj8NyI+<c13F/_%8wRVM2el+W_=,tk4
U"hc;OUBO_t;5%RxT:=Us?BZ4',JsNT(-_N##Q<,PT#1tx86SYjE#eWgEfr/W/>Ks
U"CHK,*7dopK]s8AupoX+fv9q452lW./v'Au'/:p,DD9IFnxW\9Vkh,FUxJl&'rc\
U"o?$37\h$\ej?tk^d?#JJ55&(g<2t+T;7kG&D4iVbM7d)8MT\w;ph=gP7#Rm9IZ#
U".)Nfnwc]Twn')jt;k<LW=cqz#TnZdCGx-8rX#$;d^F)yR.[t#Zc=oqz,5njYUW_
U"*mYUQSVJGOn<8yVEil,dt/yrr];AG'NJ(7IoWnD[kt0wOh;(yMklTkiK[SSJv&i
U"dYsx5qImaRs#Amp9'1NbNFWt/8*.>Pk>OWTIbh$%k'^E<n8tZ^w/QwK4/Ek_q'J
U"z4;[B:MCnA:l-$Cu*bre]pY0S\vDiesf>o<%BC0DIESrHJR(N%w=t07]yyrgaE[
U"mkYC]Q,ultikFeCEX(OH?:xGw/HE(OZ_<j,FvSmLVn/gM$9Myp)r%sd6vRJYuGL
U"5,3#(C%'[6H6(AZA,TbA)'Q6p%>qZa/NcdC>e1'I>RsDc+h)z(&z'+S6u>nUw#/
U"xddW$TGzlD^frDT[v6o:d-/71d:EC1S]s/V9l8GICwb)M?Oov2Y2IEps$'/c0/A
U"p82Emv#wfK9Ir#Bjmh:G^+&PmRI1K#W6&VNO5K/>WgE*g6AlhNY2-[r?t90%vc6
U"ds)f*3FoT-'k</*G(]VezHMlwjJED46AZ8E+g7p0<ampGz:eUx\DW>v6LbuS^gS
END SUB
SUB V2
U"mH]U2_9Jv1/d*)P*vip$t$*KLtE62TfU$;f?hfgY[4?jWnoJ_.0TNB?F*m&G.j_
U"Z;-?UPYBkBbD[Tv87q/xT'be?wI^%gr[(moPGExX>$'>ZbFRY0vItFpQZZ5nPEP
U"ZN,rtHIQ*f3lhJZ6;V6qFbtnjFSkCP>or+stjQV#lHu*(B4UXtNc'0san)P3k[o
U"dbNagK]L(=3eZ2Q2E0urMcmYrQZveZj_>PDTY^w8]kD4F:Vh50B^.WJKfN6k;9Z
U"3]CNd?Vs]9,UUC<*)Bh>,rUgRMPl#O<\)s/+;10CDe4W[N#gf3xRvB;UpEVC.._
U"Is\XQY:3+0Hk+[9e]q*X]#d^hW(gDv04jhzf?&2XgB8=x3C0$.bl>[:[9dNOVk1
U"Niatjzssjs+R]Uv\iR1>;m]#K1]NHVjz4_R7;Ag8=7,S\uid4IU589%?i=PqIg6
U"V2:P=o$4et1g?+UsGTii(Yb&I?4rOmlgNtt1Zuc6BB+8\P[uo3+AM%:\4?CK6qv
U"JOpw_[<=b%soNfA;Z;DPC<'3Gzp=y>MSLnSk(O*LnJ:y&-+^X8ppA,$BY)/bdX<
U"9ahQdQa9[xW($)zh=rsf\26,I&Q-e_b=<]^?J^.]uAA*UfA,,4^]ySAAWfgAV4^
U"QIpJw%T=aj/(wu)Avsq:_%)G:Tk(f\nQ)&e.g5ZR3]Bz3%=zveT6UoP6*g2PM(j
U"P>?KNUf]VM=A;e4LPd.y^wY=V+:doenVrt9KVT+r3v?]Q4Ts^oCCu*(]Q]8T^ol
U"DCphe2&(WZ>YBfW[w7/tI>KhsuR(IPihPB)pZ/46A#7R$tlDC*7x]\EhzNiM4jq
U"tW]7VfXA&+A$-dAfNtar,e%3Dnp2WKjNv/LnHUw6l-;2YlYtA?&eQLZ.=go.DBS
U"L#YtH\7S8ov32BMBc9[>)tpmJt6%+as[E&_lbjKr:r-2d#AB[i71*Fql>+ik(+K
U"(aek0pD8p?3.s:kFKHT,LC36.WknGCMd<g=*<*wF3V0*V>vune-9lRF?LA3kF[F
U"yQ<t>RY_0X(sT?^9b)TjJ>7mU%N3h820t<mGN7;I0>jic9Sj+aqGJbf'a#GqvvD
U"N1J>peIFCEm\$3mJRH$Z1M.[A57$]B?17y1Qg%3H;R0oB?b;6'RFpi0[IYh*Z5x
U"R4)Nlk/FSEo?[YcJ-6ky)#Cf:D=NM/\B_t[jQf&<ZFJuymF3#fsF'By,ti-2[G5
U"[RzjHNZaVl[IkQ>A6_l-wd+m>?Dx,?Am7_4cyJ.YI'cf<,+Q.<M*1s=8WZCx)DZ
U"pn'=%a0L1%Y#n2x6dYUi&Ybsc7*]-SdkSqmbeEz8%r+Ni1%C1%?coGcPwWlG+1L
U"]&iUazGEsjM#%V0JQ6cnVLl6,P[>olBuBh12JYLYjdD_xb1BnuRqeY//(%J*blp
U"kz&7/?zEb]8U\p2Sxh1DmkSUCOyQNl$O92Lo&C>KqSw'/st$E#i>jtjyn/oO>)g
U"JLj[-b.PC2cdlRdEWS7^\?.q6k4#akiUQS'89>'E.u6uk=Nj(K'P?Ho<>Jfiarh
U"j*jW/%iwc&^vtr(HU'u^jm8c_*xB7^Z:j3e=,x,NxL;#HtBs$J&j;>4hxFYk2f:
U"K(i]k;IW](hNZ0,WNygK$(yjRmWppZ<GA>KP')p.B3VtT>**Cn5lix0>)TPSA9a
U"teY6Oj%[='G_C9LJBL::p[1t?w4-+Z6Qi:AZ_*UOo<DH?THIQ5S_^G0T^.A,*.6
U">gsl.sYDHFF%ULPLbPE&T$^g9_3=Y88M4+A_uDw'uDup%()9%%%%-%'lByQkG/E
U"J%RC%%(x)%%%1%%%#wus..hfMV%SypsNfK6Bp#&/Y442.N,vjm;(&CeGK:qY/8O
U"=:q.7^F\I_E6XQ+=pwdmv(ohG-HeW$H^lWVyvBDJ=,oB4.'cfcz#0_9,;RtL<2p
U";SJgnEF3I%p5AXxSOQA8ABEP1Fo>K&Q&tSa*A?;7s2Cfq\.uq+MNTFZ$uNUE,X3
U"\Ntwd<xEVU\me4jS;&TGxsG%rgM#bDj%pLT[RKQgQALHQAqI=<l^OxA9v<J0%yU
U"QY;?L5$%<&_0+6]CEL+[^QM?RmVSX^MjBFK)aTfOx$H/kmFqGJBGQsZ^:iZ')vM
U"w4Q*dy[rM;o(xT=eN.q7xTEzLDf*y+i2d9#i.5[4+>-M''>A9,j)*1)T;p<F3b?
U"f_1bZ>O9B._vyiW_)RQt>I<dJPchOZ+Qcp&c-&6Zv'v%IxQY0Qo<V>&%+Vge\aP
U"C+3.v]/[*Ypmc%Nf>KF(Uuz'c=j'2y(Sv6nm5M;,l2K1*1u2pPAUM0tY*r)AVC>
U"('4$3ffPSV]q[>V/mMRvogUpt0(%Sx3H(P8vm%pGP2h,;)A0HKA:EaqQEC28?_D
U"Ewa?UEjNu%a3F#])7(/dFP4L4kT0Y8<hZy$&)R]WvK7%PX;KZg3\')M#n:Y7g?1
U"sG9lAGGm+v_C+V8BAfk;jS]ptdA9b3L,<a07AbQ(C,qFELse*TiM)GptTk(g0G:
U"8?y3NP3sm,oW(F0Ub#nTPlplDk-KDOx8T,aNoJGnT9zB^-%7Grg'?Js:>T#e9/t
U"f1i]FZ%$Lhd-5[IPB_M%j1M9piKW?-Y64j;P)ZtL%-v)mpstCPehK_q/ON6PntI
U"+Ra-6Eg&Zj5i,ZC<'Je&;BST1,b?EiBalIK90\901:m'E#k.u$kQUz=e=7]C-Wq
U"<$ZCg1RvJ134o#53Fxvq?^HZ^sawH#/.7vLLHw-F/#68RFyA?Hi%34%MA1=]WfM
U";E.'cjg)#Bc#6_m2)S77jlKn)&,'i.2/P&PL:Nh>[1iq/WmLzL>E+NJ[P;-USC(
U"ew^d?US;oT'R9:9pjiL$9>YO+W)d_6I=QVvf.t2r)]8,i.Y-0'+h'8HyRgU4PM8
U"[,?Hh4u#_%YV;d_ZA'L/$759R3-T8\J/f9s6m^z1[;kLijXLwPap>r'N)b>Oe1F
U"l-LgJ)%SNqd-oZmu**K9C;O?&rb[mFLO0dAw-+2)0).lz\S+].sjld2O&#)oy:g
U"gR<^Vzd^9Z^7I7/teUAS7tAv/A,W';#dR(kI=qP(sJg&/:>ofVR>/y9Tq'A$GP-
U"WmtGIkBk9u7a)is6=&o2al#9H,9J?&Abouy_YRg/:UIF;59TyQO-irOcBiOFP/l
U"I;_,%EmJ00yyYU#j^AUJP%G+JYLM494UZci*rx>09=GJ^%HDJyHw0p]-S+K9j_X
U"U3:/GA/2M(buW7l<w%lvHZa&_nGpEvfQ_I97Frv3?:O.:Un(-re\Wj'VBF>):^n
U"7D_VRo<%*k1GgKg36me%1E+37g[>Sk:q13]a(m?;+^2Qg7C,3L:35C<<IE?sabR
U"(7<B#N2Gl*SZ0:G_4f7<QV^&s-U(02$cR0bw=o[#r5JS1ixc&DgGyi[R9p4+V71
U"QOJYLFrP6XRhjj.l6ge/SBVk63<:O1]f#pd8dE#XIdf[fGEPfW()ezEask[O2(Q
U"_:C6poEBPBdVBZ:V6d:R3:re+-(i1S'/&ZuSR(Gr$<%>FuwzP3:WQ]Gm:h+i\A5
U"182dmo?IIhEigQAFv8D(Z&kGElew\FofjXkOF+/c)t?QBZG_YG\1i9[TeL=97+8
U"k['CW1?OyPjlVn&ObPp+$7[6I=p*^OWP;xCb%?Xc0v^ab<24mnJu&H-:)&P(2ME
U"9t*,'*qUS(GzrJuKk;kQGKPN+&X<e\;so^P9t+yKEG[2B?L9Y.vFmi8%q5jK7wc
U"ai&4U$K+zs_lb'2:u0*$Tk$BS$,3\JT7#+nqTb\/^UUEi..Q-a.hQQXQaQ5bvrl
U".xjr$vxUu8xdhl8u^0u#8wmrDnxwlXt\sf,DjtKxPj5roNs^WXnoTf0dNsZv$0N
U"-wPDDui<xuuvL8xrn6sXH8v&qmj%del+r3>(#o+f'w6=%WqY/Qg&1t&1EF?t9<.
U"/_(n_4?$1>&Z?=P3z[cj[I8'[4he%='#]TePS&/Q&y:FOQ)(UY%745)8';7YF5.
U"')\%%.L-=[le#9%Im=t<;GIfcQsG)(FQ2Fa]E)%+l92pC%K'C7>.)N9QX7;mMP/
U"DKY>WU%TEe&UKq^XZ..FtrN8mnJCUn[EUg;Q?baPe6#(vff05](m6unGB;7oShr
U"H-s'DRY1b9R']Bq&eo'b^D/)B;cO%mx.Sg>]Mt,&]+8'fKg3c-+_4k[7\kiR1+C
U"rT1Zuu0A4+J];e&R\\IcLDLvE4F]c$*;71eG=%%?3]a*G/)0-9<SKlptFIuKECU
U"DLO#BAT_gg(:g2LVI^U9#Dh?-0[/<Y]GWX2IZ.x#zMkO)KBV^Vi7mj8l78dNmzb
U"_BmZo%%1I9?bAPh]]r%Pq#fB3NK%%jC)OQRa7R;PzS_.EV79iD+oIU\U;+&<i3a
U"A/RsKQ*-tfxRQQG^iW('8<,O)GBQmU04[8$-;Z#]fbSD/&43.D[;aW:vZk9gofR
U"ZUoC/Tq8+R<y3fJY)o<hQU>SdB&y=A^F+YZ4*=MC\Fu%+Sqz0n8<y>&fBh=S-4\
U"u00+)T$0ep(DAncuh9_Dq-zA92s*y>/B0ml<Yn#*=d?i4op-%e%i$0,:$-x&93N
U"?^JXs#tf55>9/$'B%+^Z[jIS4MC72(:l6JV/El)4R%FJ1)VWQ%,((N^'v(RVws;
U"7)YNM-y3HBrR.>9:RqVbPxr:b^*>q#V_&Oi?[Oi.A14#,MDe]/XNZabMfejA+)X
U"=U)BMwE.g_n3>o]wJrWs]M$DwCT/&GC6RPS65/*[f+:DkmG*^[[b$jS4AiY'xd-
U"'U+#P-Wg8)PPFQFa'forx?r;\k50rq4U?50';E$j[6CB-6/&_8/MiKD-4xfKUaQ
U":)5?-YuBAj)P.kU1&u;IB%61o&8%xRK/?t+o2JhB+^e['WTRW<iU:q,O._WXct+
U":&riME=tJN9OeorFRSpn/^)id,/B%,K'oFoM=#d8Ib2?&B=WG-GSt2G95&$VH1q
U"b3PD^W1,^f%6Y_F/b>7L+4a8o'w7#$Pj=UI7aitafgY+9K1IITXJ7SKRNn.\v1s
U"J40TK.=XK=hdXUb)GfcWk=(\/%pytwYPO$g1-J=jXpabQ,?k75KX&4D?eTkdZ\G
U"8HFT9q;^%$Rx_19v[abk;(?'jH5BM\j3Mj?HmOiFm=HPmmChe=7>5OND[=0sqV7
U"4HVe\#.YLBJ+\Nx9AXn3M[x=J^UXW#0AeKKPp:OKO_G[]5ET^nGs#Vwk#VM?F2=
U"ATL(xn<Va1U=YhIFm7U7LaTVI,bPGss=NssXg-_rKVb<_o5(Q(6B/[%=Ya6M1#p
U"ImRUi6kAn+2d%RHD&KAJiFh3&B)(>'J&>VqaBS9J[.b;WCFqwP=owX;kubKoRA<
U"Lr#CL#cE]YFO\Buusdmc<ew$u36f;;jJ7<Y*$(T1p&Woo8gAb3[&tQCBL1^Pc,2
U"\+k^qgI,P)Bd40f_sl%+\?nJ9+2aRuC%d;q[FoZ2BPD6)]F8/L:/HR8?-$XV]p<
U"9eP_EB/'RMdU.>Bdt_RIX=$;lt9%%V3R]lFo0,&Ei&=rhBrMHOQZrf*/:w$6kT;
U".]2fh;J/)PKPO/X=X(7=_9N^=tL:rOOEre:;5*(4kO4Ot)M#e=-1XXkS(G7O?c5
U"lFtEXKNgb3X/&SgwD3Oq&f8oXlLj;(cl%D88KEkC0;=k=G>&Nbt,V7F9EK3EPU0
U"vH,Y(PGR._FJFBLRSr:QzVY#%C\R64>#E0dqdgWE<hERo:oF'xJCY%7Q3R?U8er
U"\Ern+wS#8RMvE#pIN5+X:7CT5>FS.^KIh<[=%S-X6V:NESBh,o=.U101^noiw_/
U"Me5=qD>(-dVq*+4f'E%A]>J$&J/62(>Hx12>U1SsmA<F,bES+vE?Pv7.,<0=-FG
U"QThJffJ6pjGV8Z>_8tg[%A*lqUPX/>5g5drgt)qhry(;h)goY/(&KF1Iv<5z,#T
U"7NiBu9T)4Z]?B8uXSmC)iF.$:jO1zM=,,nDg+=.b,>h:gpS7luSS[YuqMMScV40
U"1:6V'UrR#lMfmgvRIJxG<M<D?KM02K:LzP;bLnY*LMFf%uk65jCtAYk]%0zS&Ls
U"slE.3^VBG=$U)rnrFFL214DQFhl*ZUNWvhfEup[[[<P15iiisp7&&H^&R3e<ZGR
U"WM'\jIoU>zRw;^Z7rg7hCyS\GSEtc-:IN2&nUT#0BTu_\j/25,iQ;qFuXxro5&i
U"3\X/87LZnTTbt^85rK#DtN0^[oR_RA4JuHxq^ObgNC<xMlvufaZDmgXpiS0a/P=
U"$x\\tH'grtn8vPiH>Dl,1Ji_2$Xv7thx7?X43$Wu76oDgdNJnZDd0funxjDejl^
U"SU2'9ae+Id#O1:CvK^D=S+[0v],gBiWm>YncE^R<7.6rY49G/#tq]m7G(cL^.12
U"^-d^^aIA<'o#tJnaSUunNfnrf\FNY<8'#KrXnNkKUIqXwpwq*v[3[gux+%sIDaV
U"Dz&TmJmbMTY%Jjr6KLnt*9LjT2-llgZ<tEZMVv>D#2tcmovrXHcbXcb;mNKbbNM
U"(ILdB6>ZXbW.kk8LpquKkb0Va=a,Np+9gSXARpQb[[_(:I5qmy=%7wsElDAoQKM
U"Fe=EkIN5Ig?=yL2in4g^.xX#rhn.GZHE(2gjRePZ]pn\qx8X]0s_7F#7GH;a_:i
U"R3:Gm.%4/GT2T?CH:3/f_?)lJ3pqlK+6+R71]h&Go/<m83-9%j/B[\BG8.r?(#q
U"QW_k0<$(15)klGjwe/[P5eG3\VtD^fUAjlK61)lmi0'Fwk$ohpIA(AgmENmAZhX
U"&zehGU6km>n<J;ZPO'D)Ep[t(<f-rcD=YL19Br%R8MQ.l=E0d/(]dIF.D72v.>T
U"6D05[>08(N9l];=PX*n/Zi&+&PkN20;L]inXXa<w/16qg+8FSm:??B?\W#WydpF
U"p,g3>O\R=ODA/s-_'.Nf$:_[#xWs]7c]r(\8NW9.k,e7U=r>:<;7a/L=XkK_U;5
U"T<f\LoI%gzh7&kC).Ha/Z.XbBbD7$)D=*5-]$0[#R.t+(KX<Z>P[M4=+Cq3e1j7
U"[OA#3)=%V[zaIf(0,#4:Id9B\9LS)JrOI+y^VX36?,-?2(=dmnfAN(,p5P8w-Fq
U"&.8gIJH*SACFTh_Pkc\_+=I]Y1XJ,-t,>%YYh5=u?15;LS*d\17ZDY+h=(=DMW,
U"b8gfa&+mRGr)V1(Q;\Lr0%%Jej1[e[T;C4_WENP31_KMz;[IwS*eS#Hshm>KU/g
U"U=F'uB]9N4av#0aP+mm',^K';pc9*#g6>tA:W]?H.I:[AFvfx>nB*7m.*KbX&ia
U"'f7]_<g+W[U+ZRCI8D:\HaG\ko[XbKL&$%d5S0i7W;#i6SW<R7aBZ6w_ic:BARm
U"&H3tc'D1Po(1+')V;PSJ*(M4+?G]P[nU(p56(BuS);B(vZ;i7c1:jkZFPO=lh%%
U"0ku.WLdZs3(O]VKq$NgGC7o-T&nga6c>Qers%'lL.,4ZG&n0/vS+OjD<jOu?/^U
U"U<(XA=Wl<C,-Ap0wlQI.kc64eUSgvX-;XT2L0WaS;3oU.8]1svp8rcc^1e6uhbC
U"W=\kL08jt<]M0^A/Oi2%gyqe)vTAiVbBDb%e)M*$NW%J4c;=i.vtSZSMz;O'fky
U":#Oi4YDAn6&\T18rnGiY]8=H/O(NQOR0ekCzA))z1WQ\qyf=-yMo)#)N(v2/C)c
U"LhYfmwQYg7tx>%nY$2<=P+ypj?eY=Ps_v.c/veRMegPLk*ZB:uv;hk8RUKd?iBD
U"DjBob:\hGL,bI)U&7:+Sb7[(Zdi%1oDYk^[;*41mPC6c\]CjjJK15\1SCRmom+%
U"oVg&OH].Y/yCE99Ua>SI21E9u'ooU3-Y#ju_l9AP^$ol5,W<$T19rGvr%;.cku\
U"Hhg9f451k#V]Gj5b7jM2iaGKFyw3z[(7gVq)vkt[5%f,04X;9u&tP7r4xoD2bU_
U"9[(,R3JH>++6_>A6#cEK'T_#%%1eV'FSib\*Nnp<$[2B/Z,X<yu#qB/#OK,Zv/w
U"7ZTDFTGsYjg*DqWl:b,&slEPI&mM2WaT8('f39N^DvHkm^>AkzLUNFL\ajm_Q9C
U"g;_K^WM_gpWoQdz2:IkF6wLRGLh3.Y*1WS9C&kTvj-'xLDSf?EWo3o;j>,IA3NR
U"-hNgEv>rR:Qv7u4UMXMdhRs#'H7DOj2y9iS#2eNi/[I[*t2PfgmQn:ed5l,61Qt
U"n,$gk,vFhQe/J6>^VLu4-RZ#%xjc>S]nupLw>w<hKAIvjK'S<$tQGu3DF\d=32)
U"J&+7Ni#gQ8e9<xIOt.GQ#R[o/XNK?.iOMfC[hoY+KI$.DS0<9wW^PQGGaU'p,?Y
U"Fn7U-QaA6/jFOfV\6d[J+9Nj^Z:Q//vW(ZX*m)tng/7uv+nf$6W(;,2%iI,#BF&
U"(w2OjgI/vAR2<#foOG3Z2?MHVVq6=R=[Oo4F;0h7Ou&UF6^>)bFx3,2*E.m^:Sc
U"E$E]aqOqQNY#D0w:SZuK)pfAV,AiPhANpvx[M'iSHVQbc.do?/M,Ut9>]>21E6+
U"'vYs%>g*jXLJ(%%f2z/VA<Wu1wDwYrg=/,6dLAvD[+So#yEq/[U8<9A?]R'hcZ2
U"]RLb1t;1tJN9_=b+Pa/:x6UF;_Qxn[+2HjR8/yt-#VZA**Vv-<9>Xh^.);+Lqaw
U"'S\eDn;&mu=8Z&3[*Ju/35-+SIn$ZA728>VDwJ1^6+X8LVbqSOCdatD?>Nt,KGq
U":-CD$o\4L3LJm#L;EfEXZw;g1ucRgmVK(gHd9o=wqjbH*Y3mx6YnX\ia)tJbo$z
U"xSrxTr$aRIAx.TIoN>V\lXrIc<retN7eM\-mReuAL[iryU+n5XknjppZa,:R=Fh
U"a]SimJ2pl5lr:/9gxGc$:L24gmWZ=#=>hJT85x3\O.jK:W)P9-[0fy]<5;*eQO&
U"uIgP7>7Ze[U2.4eqCwcg+(v]yiXXJ)cW]'rBbv*#k(TKd^rVfTZ3G0wUS+e%gOq
U"N?HT6(V(>jd5_6J/>Ckc+JMVX9kfY%Lc>j'fJP9Yxgi_yaTve/j/^/3?/^o<L4q
U"=w)K;KN,r+=Yodwe+Y%KUjDUri<<WQAW>,Wb%.*%F50'S(yP]b5m/T$kYt0%<k=
U"<*,/kLn2i:Tblr/j^?g^_v6g7=CuZe[_$RoWD6uZ\2cgsCGLUc6h;6'f?_.8e0>
U"vtZt>6*d&'WQuw%1jxFUsQV9jc+BMrWuGg_ldfqlY&g\22D?s&OsSu1-]pv9$U%
U"gaH#-UEu%lj#$hb+VAjW0FBc];HdlpIRO3nC<QUs$5;'=3kj,f<dkgIUo])JiPD
U"Rtg'1eKeBE:G0:N.Xy8.KYyAxgsQa4TZMge'[5EfS?;hRiSK4i#&44fo&l['?7%
U"t,r_+>^oY#f_9<YUCG*)pa_O2Dp,a/GqF\ile^JJ_OKDgD_/O-bCHE(6&&Od577
U"kxkEqo/qv;Hi92h>(BhsH_PRHa<-u#(y.?v]CmY'h4drHy<Z4b^DLbLw-ePXicR
U"#]<nNoF#=8J*GmTkgY[2uJkwm<)ps0D[Hnd=2JX>fA/rU0rJCCL[;Q%g%b.2cgL
U"<]7fYlEl3#WeqS6h76];DY\/r5ihtH)6(Q^$Ry<FRddn<D^[K;Tsh/Z\rMm+6O6
U"?IjkEIfI=-iwaoRKTc-?JHY8WB.[\\ABWTrLnIqjEo3g#86XT46$:dSw^gR:'>N
U"ci9QTKGCvchEEQV:FwQU5;ID.(zVlcOxkO+.Oz,b9g5unhAjy',-Zc?lu%M-DBC
U"0I$RJ*w_+/(.Cvhi**Tj\,*:\HT(E8vWm]b]O$V*LHR9GjD>m#R+6SVRGW-j3_M
U"<o#Bst[1tX8#R\g]uG84n)k<qqq-4,VVpP$/c^TNYhCrIkO&6'JB),8Vgl0;JSS
U"gDQBjO?^b;vUj;-$H6)Aq$s1.;AE6p6&>Xw$Zx'J]=f%u3XhaPP7j#lD;*c6[ZP
U"pWq<%,gRuKKlW<+CG,S4Z\%UE?&OYlaDK'4SX5(tXwsL>H7gL,rIx;MJxQ+&NRp
U"=eoE7Oq;V4Pjd76e<43&iIyf28VIwUODdu\c.6sT1'[(4,$3vh^<52<N:B1j]L=
U"shk+8cF_/\Or*t>9P-.t14VKw7Aj<^h?_,?(Jd1iip_eL#34+qq/)4cdrJ##->/
U"0w$+^n8dWskX1]$N[9Jf&+Uv-$(k>1yRMZU\-FECN=h.VQjJI-L([IE(E>=oqTU
U"a'&J52/iWK)ktx5B>U,O[#R>r$7kT[P(J69riiQw^aW%o;WAgY_s#4QS%9-786B
U"Hs(gV<c,mR3S_k[29l'_-Rnufj18MO[ERC0pLr^Bb6)N4S8mfJT(Ft_%K(Q_9zh
U"RQWV9LH.QjT\wUkik9fZOkJ5%O:)MBt+:_e&DZx5e\XQ.t/)G7g^*k$T3A%6GCa
U"07:(FcJB-FV<-aDa,14sqceNZf:=AN(k?ZNekNuCz\eL.='gp#r^9NS<23#I\1*
U"3T>)Lc'.:?2PVgn,M)9tT2owm&OKJ7PDd>aDw'SK12FzAm[)uP\<gP*N#'ct,xu
U"NM[EcMdZP-FGHR*8kVIdGjeaE#-<#SB*FXxz.3Rw_IacQs)[cTZ_NO%]HGg[SOU
U"^OuNs6tMkOZsK8q2,Nj5aEJS$#Z9Q52ZnPs[74+fQ9i;W9;aj^DQxf?8KJCno]]
U"-m<A/Z#n:]qCQse8fImTc(otHPk/]npI?k]-NDlt_.kfDoRxbb4XUqZ:QN:p7$d
U"L+ut[:DV&^H?uLrL\RHE,TsU?'B[fgJKcwOcG4'k8+$F6tH6WErZXqZ>4Q-6Z%i
U"Y4M.ZserJOTuNK]gR<lQW^FvnnsX6Fdn;.enbNxrEJwsl<jV$l(H&54L#6L4DH]
U"dr5M0Jm*1x=?tpPDN6^.npTLi7UaNvbop>ut?iSt6,/6cd>,p7^d$bU$=tHXdlx
U"YLolZ<jI-__tdQv-pRutsVLiFF>GL\mLGPDO4\ZmRlbYfHHnJIP(m3&IncWxCs-
U"t-nqjQ\$Gb<#6WLaDHtiQ\t=jm9txg;LMgb*oM_c*tG/M=do7d[b$brHY>^Hl5T
U"bP<$Ow,-hXsdNuCII9g2g)T5DH0o<o#tTDED*fl;YqH(Mz3K9nx$S;z5T650)M,
U"1ITtXtXaWd-iPOL\,OH7T[*Ulw\j#]#DsX8.sAL0(dmdtMppp>v#hshm<k58M*)
U"fa;-Mp1/3Fx<b;mUnWkpdOLHnHTQqCBV'JMGrwwoeH]BMiCjV6ESK?reRe\EqrJ
U"Mvn_&mef3>RuLriso)tD*xa?R,###00T.W7k8Flku>FjL(m/&9t?lil\b\:Sz.C
U"E.9t*RrtfxsLv1nd\4Fk0unr0fQuzwr]HfB=PHVjjTu*5p$YJ-Dz7sG25_N:Z.x
U"aVX2FBNo(F)7K+((a=k.Aa7-V>;a4fg'*W7OTXsMYpd3Gz5cVJk[3RVP(KIFUx.
U"50i=X>61]c4h_giH.6[B[_lLiP#Kg#_3w]Va6rgj=Ct+aA7173*Lr_]_3woNP\f
U"pZ_.LS3J+noo]7ZA+e)]u>YieegiZD[i8^z1fHC?xC2Ne?7?VRw<2q5]du^bCu$
U"KCTai$sI8=/<yk+c5d#)JNL)/hU#j0Q'#<'zW#su0'53CXS02]PlW=9>c1YKnb*
U"=AD0>\>$4U+uDcyH_+q4CS$7/otS-4--a\Ym^&:4F#4#_6.AvXF$1Lq;G1cbIl>
U"ZP94Rf>X?vkdcSG.o63MJInL=HYC+*$:#;9wG=Q=o<no3ax%%up&%'?%9%%%%-%
U"%b,y1Q+N&&\x?%4%6K%%%0%%%%%%%%%&%E%%%%%%%%%h.ts%j%wySi%fyup%&'?
U"%%9%%%%-%%CmyQ1T'8<Q7R%%Q/%%%1%%%%%%%%%&%%E%%%&K?%%#wus..hfMV%S
U"qgf%up&'%?%9%%%%-%'lByQkG/EJ%RC%%(x)%%%1%%%%%%%%%%%E%7%%KQ%%%wu
U"(s.hf&MVSy%psup%*+%%%%%(%7(%&%%%%Np%%%%%
END SUB
V2
CLOSE:IF S=72AND B&=19436THEN?" :) 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\19436,219);:END SUB
'>>> Page 1 of RPNCALC.ZIP ends here. Last page. TCHK:72
