'===========================================================================
' Subject: SCREEN 13 TOOLBOX                  Date: 10-28-95 (00:00)       
'  Author: Robert Seidel                      Code: PB                     
'  Origin: seidel@ifk.uni-jena.de           Packet: PB.ABC
'===========================================================================
'>>> Page 1 of XGRAFPB.ZIP begins here. TYPE:BINAA TLEN:22740
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1
SUB V1:OPEN "O",1,"XGRAFPB.ZIP",4^6:Z&=22740:?STRING$(50,177);
U"%up()%9%'%.-%9be+Dx_6bO6&%%%w(%%%+%.%%'l%SgfxDd_f>AQe5TThIuV;x8
U".rW-PKbR<(e9Im9WO]>[C%mjF*'V$<MN<Xl'-#FJr>i,>5$-Fp-BC_=-5Bhzz=)
U"<^u-fa-)jla)+<pqNMm2eywo.LtG37p-eNht=>;%c7z.IG01xH96Zn;h2q9b\:(
U"qJ$ZE;0u-?(C8>+5U1,Rd:?i/xb,<>cR754sTHV\zgYV;#HR>2CUhIBv8=Y&<Nt
U"[N;Q$BXN&-fg?SV8]>Y+w#=>f7mFE\lAEKeMqITH]%f#^t34DKJKkmfA:7s]%/R
U";Mnf[SfEvOJUj[vs$aCcPK&%;3Tk;$%ZZrP[j?-J_[:x?#xV7pslR.),J7-KpF/
U"Fdcx#g9^8yCvd\P-YcY1C?L+HHi0Y<E%9/SYzS4=2E<aG'EKoieR[/W9EsJ$hpd
U"$-?'[%)s^8-)q62yWsV.Kw^.0:'6vZRg\<f79KH-8Ox?O3Z(q:<+Xu%p()9%%'%
U"-I%P\3jC(=h-DA%%%%e&%%%,%%%%fii%SgfxCz^f:B<E=UrhQxZRb9/PSVAC=%$
U"Qn0\TukOG[]Y[;McIidpZ_u6tRs*^Lw4s6q6nTBG3)x].8UOJ2K^=H1oY_Ejs*)
U"gwAC-t+COR>Mmv1LhYkb$0hXGE7z9(^vA+e.4jP)q1hhTdI.J;6RggHn't2w7O4
U"#xS%\(8Qll(/F/koBAo8rMF(*C3$/NuWI^T\q=?[pC::\xg3lKjonD^XeG7m#6n
U"(zOq-9-u8sM-wa^(Mr5)VTZ/_Y:k^8q4v&%up()%9%'%7-%qbe+DE7;\mt*.%%G
U"6%%%-%%%%ij%rtSgIfxt'8Jx[m45xnO]7hhb%.mU8L-WDFAJ=GjA*1yQZ0jcyN'
U"q[iDd&J0XJXwuG6k'0$N*NAsqHm(bnLbjXm0%$=*6Z5qs1ZA=U.Zr;.V+XQiVVA
U"5mKjsk#'\QH=O,;9DHTgd?W0]N7M4gF8anNm<0>;$ASTs;<TAzU=[ejapI<L6*8
U"KQm;7kAi=L]&k(3=;ITtsH1ocB];H'sUq^/_'6;^y39:755V-ewBd%T-q4)lttP
U"0.KpbM*%48NL?(+=)3Mp-+K%f<84ecdR9gZVRvI3_UCDaHvsv=Mm_9Xg?)Ab6YR
U";7JasY:/mUNp2oKU.)Xc0Jtwx)pQ[PZM'Bk*q_pG8W^p4gI[=\H]<U2f,BHO;T-
U"#DPWXOAKAG#4lQ*>kt^&c&1GnZTCUHoj2qc#R,.22i2b(7T#Zi$j&jk8,*)WH1q
U"(w0Wg%7eQnb$Z95;gOk9#ZF-xsugLra7gG);eFM4W:uWcWGoN7d[Idv2_=&jcFc
U"q;De'xF.Ka7A)V(3rmyq^?.#LB;jQX^1a6aiZo0_U&.h;cL'p$rq3b3g>e%,&S=
U"AdT_j-:TD?,(Ku0dpLT>'FU--v7,FW/*FHu1F?/Fc*+f=EPrLg6SEbe5DM6=Gkh
U"u&Q)tnje2FVLHU1^2JiMyaF+Q0_y?7%iUJiSPE$TB5F>lVKILQl&?1cgQNeX4Nd
U"RYJdy:bjc=;n*HiNUT'H_gW3$7u-;HviBnl;s==>(<X\6eh1)OAGQBl'tWd7x*?
U"/S]6'BnVYWa-t2,N4\H0DcoK'hh(v/;0%5w9.kMD_xjiV=Ccs]<.G8&I,faKV<A
U"ngD?pE$7x*6]ZXW(VX[-i0unEwaQSq*VVX#&*-rLfu;'&A=(?u3;C0L2i1a+1QH
U"-xV,avNbBnnCt4]nHaq\cW>WtQ[:c/JYscJ+R6^?M8Yn^k-BZb^S6t#oXQ<$qeJ
U"]-9q2psAFlh/69AOtF\hx:w(ZOh.]k0*MaV^)F&^JqvH/q[H#uSYJnX%C;L(/9L
U"5dk;a]fKUm1k^_aX:%hj2-G\HoP;\%Il#T5Ajg5x+7[?GQOLoAu#^[_y[.S\9Nq
U"[OS0M0<KXwAEKUM6?/6[$pgb5FQ=*ann^<%9-#C^_k#dPlY2YBCj'-is/MxVV8g
U"1l:M\ol$/n\Mc6TX402lb'sk3VeHMC1s+Cx[n.<Dj=I#lvoh3J#6,]eVlpa$Q75
U"ChE9GF+Z=RLGL]R,Y5ER\s'lS=RU5/<zRWHPYQ\g;veLi%\(-Z^e.Z-ox.c>;Xf
U"91JmL).E8k\NvR6p-VU_1H(<K9McquvD/V+/A+fJQ4CL8xp:#w%tjBB9DRP6yh0
U"[qP\vGzpHvk)A+7;]*>a9*N<CB?H'5:y[)D#94e?jH(XC_S;_>JhOr/P((=VVUj
U"H*E*k^.W]>%SiFm.S'lh_d/hI-T>g9#d\/JB_1I;7Nl3:;s&VlHWB-h,&A?M&G,
U"uVgVa1Hd)WfZ'H+<HjJ't#k&6p&o\S<M&'9n_t[q)(#HznV>$kCb;hF+PpBeu&;
U"J+tLQcv=EO#<0)GWTR(7;g/_8OMnoE$22ogG1(R.ApsC^B&tLC^jnsJ)b2m1bTY
U"]H<&OBE)A]<,cEVoUc<',rx=?hXId9*#agc\tEhL44.-4$_-RXT/BwbE5[VhY&p
U"f=\bweg5ltCA9lrk%<%r1qyKrerejd?jj&<lCdojpd>AJ8m\s#+0T9FZ$[32E2h
U"bNXpX3gd#,goXpW0lGvAMSaW+DV%14K\JE/-n'?8&6'qRLV0I0f'-weUj48)8l=
U"D%cpI0ZbYstgLO/zB.OF5P]xWhoV/m#u^Sv6UT401NeA<^u^zL3g\1/T7.<wgx9
U"qys)agH;BM2a+-gt'7'(lLBnYn[xBK]h#(H_mRva/K<sFevEs]WG-v1+_eEopJ2
U"L;8xiL5,1QWYowU,Ci17?SSd5Vl$?IZsnXQ'i?cex%(up(%)9%'[%-%>%mtDabm
U"nNv#*%%G%6%%-%%%%i%jrtS#gfpt_'Jx[Rm5xn+O7hh'b.mUI8-WD)FJ=G)j*1y
U"tQ0jcPy'q[2id&Jn0JXw;u6k'50N*NoAqHm<(nLbojm0%n$*6Zg5s1ZoAU.Zgr.
U"V+XXiVVVAmKjUs#'\?Q=O,b;DHT#g?W0Q]7M48g8an\N<0>6;ASTis<TAdz=[e8
U"jpI<ZL*8K[Q;7kQA=L]W&(3=B;TtsJHocBg]H'sgU^/_Z';^ya3:75g5-ewAB%T
U"-Tq)ltUt0.K;pM*%$4NL?7(=)3dM-+KH%<84?edR9ugVRvPI_UC7DHvsovMm_m9
U"g?);A6YR];JasdY/mUdN2oKBU)XcC0twxe)Q[PNZ'Bkh*_pGl8^p4Ag[=\,H<U2
U"<fBHOa;-#DkPXOA)KG#4Yl*>k/t&c&<1nZTeCHojh2c#RB,22i:2(7Tu#i$jS&k
U"8,3*WH1.qw0W%g7eQ:n$Z9i5gOk%9ZF-nxugL9r7gGi)eFMj4:uWkcGoNA7[IdN
U"v_=&=jFcq3;e'xAFKa71AV(3[ryq^B?#LBR;QX^916aicZ0_UB&h;c+Lp$rOqb3
U"gC>%,&oSAdTR_-:TuD,(KFudpLpT'FU=-v7,jF/*FtH1F?9/c*+nfEPrIL6SEEb
U"5DMo6Gkh(uQ)tRne2FKVHU1M^JiM7yF+Q30y?7Q%UJiWSE$TVBF>lFVILQ)l?1c
U"XgNeXP4dRYAJy:b?j=;n?*iNU,TH_gOW$7ug-Hvi^Bl;so=>(<(X6eh31OAG+Ql
U"'tAW7x*E?S]6+'nVY8W-t2Q,4\H20coKM'h(vi/0%5aw.kM1DxjioVCcsj].G8#
U"&,fahK<An2g?pE\$x*6s]XW(nV[-it0nEwZaSq*hVX#&>*rLfgu'&A.=?u3.;0L
U"2Jia+1=Q-xV8,vNb$BnCt-4nHa*qcW>rWQ[:EcJYsCc+R6t^M8Y.nk-B<Z^S6't
U"oXQ5<qeJ?]9q2mpAFlEh69ApOF\hfxw(ZLO.]k60MaV1^F&^gJvH/'qH#urSJnX
U"/%;L(b/L5dgka]fdKm1k2^aX:N%j2-*GHoP*;%Ilc#5AjVgx+7s[GQOaLAu#'^_
U"y[$.\9N&qOS0HM<KX(wEKUYM?/64[pgb95Q=*_an^<c%-#C1^k#dZPY2Y0Bj'-n
U"i/MxiV8g1elM\o4l/n\?M6TXH42lbm'k3V?eMC18sCx[#n<Dj#=#lvMo3J#<6]e
U"Vdla$QW7ChE:9F+Z\=LGL\],Y5\E\s'_l=RUD5<zR=WPYQJ\;veQL%\(u-^e.>Z
U"ox.pc;XfI9JmL#)E8kO\vR6>pVU_=1(<KM9cqu2v/V+)/+fJSQCL8dx:#wr%jBB
U"39RP6My0[q*PvGz?pvk)8A7;]p*a9*jNCB?+H5:y1[D#9C4?jHo(C_S2;>JhlO/
U"P(o(VVU=j*E*/k.W]'>SiF#mS'l1hd/h?IT>g%9d\/,J_1I\;Nl3g:s&V=lWB-;
U"h&A?(MG,uIVVa1BH)Wf-ZH+<RHJ'tW#&6pc&\S<*M'9np_[q)'(HznqV$kCgbhF
U"+dPBeui&J+tXLcv=SE#<0;)WTR\(;g/^_OMn4o$22JoG1(BRAps.CB&t0L^jnDs
U")b2JmbTY=]<&O5B)A];<cEVdoc<'k,x=?ohId9&*agcq\EhLT4.-41$-RXETBwb
U"UE[Vh(Ypf=:\wegZ5tCAZ9rk%'<r1qFyrerSed?j*j<lCadjpd*>J8mn\#+0cTF
U"Z$O[2E2:hNXpQXgd#I,oXpHWlGvLASaW2+V%1G4\JE>/n'?(86'qIRV0IG0'-wf
U"ej48_)l=D=%pI0<ZYstKgO/zABOF5+PxWhio/m#/uSv6cU401DNA<^0uzL3*g1/
U"TB7<wgaxqys7)gH;NB2a+J-t'70'lLBpnn[xbBiuAIG9f4OsXAy1ELp4]M4gcUR
U"QI>C%8.AD.a$lee/NK&TPM(?cHVj%IK&lQq<JGG=%<mWm\f9:q8rd%up()%9%'%
U"#-%1UJ3C6K+cQD+.%%K3%%%,%%%%uh&'SgfLxd&*>B[A3hMvYx>oE_'+$9gW32l
U"BW^x/?;/S%TnO[,D-11=o\VEjc=s'ETu>PvFPl.FlEcO3/#J=nns:t9.xG4.kz=
U",^uDubM*LK'W?(mBc5Med\S$gwp'u/_stx*6>B+Gb:alL'gG)9HG^hoR*0Pt<-c
U"i^PcmkE?d;$DSL.fGRA<A9-Tb0;rP'bBBa9AFN:=(MlD8H2#GHCkIlRSU,f$YTd
U"hSV/fL-%eJVM3#F6??Hn?4_#V.a8HJox-YgQFmj<,ge%R4j5P?.RBPXG(z#/y<y
U"KH>Cktfu,YmXy>+0V9p#cn2WY>AZl%kYPT[>4Zo8Q]Zq'CMe/tuTTDQ/a.XkXcw
U"m/CQH57*<43gVpoH.RbNjDF8wM#n&P46s#%%JE?bcG#x2ApB;J1)L^HgqKASbd$
U"_2:Xh_k$o7gg'IT9*Kw%/Iyh[ljH^JTFGy<HTZ+uw]_4.&B\a=*UEai6ArA9G0-
U"rc:R'l1[_S[+U[HSPNmbCYnM+0oXG2E,We9*DLH81$R&s[*-hksJSA2x%UK4*fI
U"x1i;yBY0#3c_C0kPf-sd\K$hUb<;eS=#qm0<JBqWGo6-^ch9PUA3sRfmD#_SXyC
U"P=<P[>^5o^#z+Om(;Rf9.si_I'k$4qL;UK[Sk<[qC7^[4K[CmbCaVdc5\LXK5Z5
U":a^hZcP[[ZJ.QBXJKQiCRK\L6om#X2Zc+oi-J'Ahh3dH:qJCP$%^:*Gu6Tlto.D
U"<Pg0>/wTG]x5jCF<KXkJWpvyS\lc3EWn3Vm=VnkYL2Dy.npvxlBdF]Tt0]_:&nH
U"tii01a0'lCLSO8d\SUk1OOMi<62y79U]HAY9C00;xD&iZgej,aHriP$I87KE=4:
U":[^)7ruJ%dvvd^e9,W^yBDsF0ayO<3(AfLUtXT2E0s]OkugGbUB96PJ]g+h/c3)
U"F]B6b#kj0<.bu;Y#]u=jor6PkEEoTS.8hziI>&n28pY]d4H&%_Jk+?CM3HBn4OI
U"h??mnkR/2.(Qhh_-AY^,IH&yY#3ib)IYg39,?D9\K*]kc>EZ#Ul2-Sf5tVvoV0]
U"&Z1MiS,7-[_tbKBrJk)2,6U_THeMVR?*eJa-YYT%Spy4]\z?&>ApT?uIs&,P-ki
U"R_1=H/j(P(9aZ0*7'0_V%%\BT]u85;$SspgoA7jS2X4DYBRu_8XovB(P=SG(TJZ
U".N#CP)h90($9jGfNX:\(;jMqN%MbbD0jbI9Jxq.>N/9K6[3%ob9e:;bVF*=F,i6
U"1Z8y4;qOE;WotC9ZoQ6rpe7ZpeJQ.%Hl82W6qY'g?-qU]82tJXgereePlH?IKh9
U"pFt^nQ^O8OTK5\;X7tpYC=s%j:wL*RW#HC&Oke]T9T:%.D^8g.wK>G9Z4.S+2SH
U"ZD70R$I3]?Y*v1T^<DLV#\m.qG704fNkzUP2&KThDhBX_Iqf)t0rM-6mgqzL#WU
U"_;j7.meTaOxn'T8;qQ'S-gP&z*JlJD<7l8*bgA9=oT5uEvW\A*'V+84Kg9A8I.2
U"R^F0lQKCrbX^:-/D;)eB6qs-+#k8hf2aPcjLf0,zau-J#z%Y>4rV#U,EeFYukN;
U"1>D(,rU-T&.Q<b[$,Nc?4u*WZP,o-d]wj2WGtqL;3w:e[:J*RZe)sF<(#L5Zq9E
U"xY:H<I;bJbJZnvxj9\)rGK_EnODmFPrUU1aO\):B,B'?CWY#%cKb=K4W-*t.M#B
U"XHn7EBG_KYlR,aP+Q^f6^D#acr\B6qi>jUnqb6EWvn$)-%0^Gqb<wg:iZ^dp>Uo
U"S_j%P[SFMVk*M/4GrtEYisLQfZ<V;PWntQ]ZHsc[ee>L+;mD2,\068YaHQVI&>R
U"*e_g>zk>8ot#jB$Lq->.VQr30[J$N\Sd'>kV\](FDlq<#S)JnoX[sTc7n'R,SOL
U"f&seV/eeLi8RQuD4c&DkVVCi%uSJd8VrF7r3$cjrt?2bO%P>^2(NFj\<ttNdfR=
U"5//fn4ZH_Rp>GFD&Le3CrdcFxBbqR9tx>_TD48zcr#%up()%9%'%R-%vTA3C?l8
U",Bg%7%%*&%%%,%%%%wl%gSgf^x4uD,9<U595#u4:hwS=<K_KpbJaF+4:JZB_;tI
U"60ByHedCj%82n9t[FVBfZMFE56iOTg6nf/L#oHY2D/zgo6g7Rt-MI\^v*j3WmAb
U"YvzB2eRHAi%Zu+2qo.q938Z/fkc*Rmi[VHG1SyAj*l2GkxCe2e0SuI[y)eNJ]9p
U"k?8LG8.a]NbLaZi<($F2uK+ah9FSo?iXI^.mbBY/p+lLO^BN3&3*?v%5h\&)TGV
U"$IgdsfJn,c,X^BC9P',rqa;z9e=QWw6yeYhiZEh)G[5_tN84;g'[6',:i'WEa=h
U"c1xG+<v'u%p()9%%'%-I%jG3=Cbb,'8A&%+%m&%%%0%%(%'hn%whqj%Sgfx)T$f
U"tARe5TThIuVtf?=O1'ey,IrY80&xI2yo9+6&MOeScq3*\gE8Fl_R=T6;ZWGt59o
U"2qQ(-r10-tNYqQ\EZL;Uc&UiC&Q8b2d_,rRW%lBU08>WF_->\d]G&Qc+9?$f+^0
U"%\deN-qP&AIjRYujg4V-s97c\43#,*u:Dsl%%NQJ-9pJ:;D&J[*&OcrLHL-qVN4
U"5KTRSO_K)_pMAT9h8Ou3H1%?e5L8_2g.WC1E__5;(T[J4u]SstB'f4<SQ:):NqW
U"mx=t[9b]P;o930uxYnw?'LrK;4hGYAtkp6GiKuza0x<)7t&<)ltMSxYOH53[-<+
U"]mce2AUC(MTNff?8/X^,Ghe6u:7GDs(<Lns+%up()%9%'%R-%tEe3Cn>2]#^&.%
U"%i(%%%+%.%%'l%SgfpDd$t>\je5>KhmKVC<zrk^[XEm']CGU9d-B+B]*i*lnYa>
U"4ER(0a8>c_Mj6&:?wA+8nDtDET5\tMr13[rs6eTX63o4A01)caD1_c%JZAXHA6=
U"(,6L.zRPz0'Ok]$Sqo0Xw=;C\?3mwz:I<rdQxo%j\Z:?0eq-6*9'(<g*.Be9\yh
U"z9AbD40?AGUqSSYfSl)<O(*jrr+l<g[geS\tcrdtk6i,Zw<65<4IV+\Xm?Ft3w,
U"_)nHPg7#SEF6oif?WRyU;ZC$^P[zmnMk_SL>t\3fTk*?&$rZ(p?&p7pr$PDbJm:
U"HVrnX.(O2;T$yoZ#oq_]lwQ$'z9[^&LjwS%FABq$q$%PQTU03-BcR'PqIA(fe01
U"kbkXjNfUd(<:yds^qw5488T>yp93=w7$<Nd/uk79au$=c7wg&0:KD5'oH#;3U[X
U"v#o]*79g?WNk6I\Y+8;,lY4ohgJ%zQ$y^yp_BW]r%A>YIJDucvf2PVk<p^OSfQH
U"W$IiiYVYW*]I,u%p()9%%'%-O%^P3dCAuY&Pr'%(%?*%%%,%%(%'lW%SgfxJdx,
U"^BKe9L+LZdAj\'QTuV-NqPoR;OFsVKdC7)5LOPDC8V3*K]=Nq_d-pGqN8,<Pmpg
U"I$W>BHv]dX3B6q#S:^r0=$^(M?=gKo.6Z'tGsUc0'qlZ%TbEk-(Y1IO62l=<bHa
U"F8j+jFY\Wab&R^'7NwZFuGoQ_&8KombN08GtU1n6aVd28BG,cEf$UoF?vJMAkVL
U",762b2WX#sWwTT&U//YyeU[6*Zo(7e1&8ZnAG.rpS<(77M+7>C,juMf)*a(chFM
U"$sj\)k2#<^'H'*9_Mh/TGXm+QHpxUtpwhXqhu/(jVkvZt7SPLsmM,<OQpQf.\\N
U"B'$*c,)B[;)_wplhpeIXS55fhnr[2MjdMo_\ohHU5GGY#KM_(GROb&/vIX+]rUX
U"wFE4kkze&_IJ<gR5(pENIE6FcYgM-x9Xf?MK6kV>m'GM-=HIc0_jx,gEgo8E;&N
U"Nu)REqn#*].?W48&Sv53dDpB1P1DK6#ErEtmo*&xUaiGgCwYgwEA\J&Y07Ki:1R
U">f[70k&pm2fel?P'M4BnwpZ->j+_Gp$i1hEwDuV+*7P9cMwg/Y+kb-cH*UbTQva
U"FcZ-,'o7g]O*s:Ne60[-s%0,XxKw)gGqO9ES*\s2Zl=l.d6qGmJap-XGXL;%JDp
U"jHX5W_o^gD:gp0/rah9h?WrY(_=/&A<Y>uxYS'RT=8zgscWWJ6-hXr^nL4[CgUR
U"[W0T,q.d<<]&d(w)0yKqLyy3[\wZjgn/Rp2qRc&>up(%)9%'#%-%o#ntD:W*$XL
U"#'%%.%*%%.#%%%'%lwfk%SgfxB.yv>BSU5M+l[dADWXG$X9S+y/bK\+Mb5rOs'&
U"K6_T?&0UF5/rrKN8,5p-$O/<4*Cu[4h74$XLsfU-UI2x%y:p%Wu)pdSt'-TbgO7
U"Iq>X?CdwQuiYUf\C7->1'tU>KkJ5Sk,1&6Ch=N3J$Dgqdy?H'N-CpJk0JPLu255
U"aW:FE2+0qM\P#w1<t4,8jHmBRA]ga7#_,q2RWP[*Lkbg/[$:?7;0fI35t[B5fWH
U"RBGO+.)\H1NoRn\,:IkCPCw3f29[n'=KocvJ-A2>Gb&PrgKw#lP>vjk:I.UW/</
U"paV7lELu)2_>Cl5$s=*_S#<*yQLSsdgLoTALyhE%GqZs2?7=^,lEfy=TU;sCDTi
U"kNQ#BG]9h]OrSZaJ+*]%Kw43_:y#-w9i];/Iw+O1Ih](6[*,-<[s>mS9x\G6*^m
U"QjWMe_HD>YDTK'Q=Yh6#>QMt4mOo[h#epUSnq2<rBBv't<d7nQm?cz:jH9]=$kC
U"o(I+K>gCXJp3<iN;^I\:F0-M7e5pf;+gft0c+jGfI(]HQ-2pR5cC0pu'k::fkko
U"T3puSvxspEjp*:yETtXccTGO<J].ZZu%B#iCQA*OHhae$>spMh_HGo#qUbSaXe^
U"D5[AJmXY:4R0Hka.gos8TS/>\#mEwzPY?lELMwSS.87/.JZ<WugF8A3Y.5OpZE<
U"XdXVeZ3^anVxZM%LH:mX?X3OPNB(q5sOkwK#L//AG\Hv)*ul9u0CsEm(Zji/&fI
U"j0-(qSh2gIv[w9Obk4k+C'b81R,ADn.nI6u3cfH'k+JgdG[wE.TF0PT>o?jcFw#
U"q%2up(%)9%'#%-%&#mtD$79:>b[&%%7%(%%.#%%%'%qnsj%SgfxT&u:9];e56s0
U"w<DLF7YPTcV-Q+#P[5&%Vn#5p#G5*S)o4uR8hE0%Ku/*63S$utoF7$p59o=z<:-
U"tm$:aM&c81aYM3DOi$IZKN_LqhRmXN2r1%MfK_KgUV%4fgjYIcLt+6jE'mZ'ZL>
U"#F4d9uuS87p:O.BY,NYPD$gd:R3U_KtG]=9_FDCB2vM]<T<WH;T40TpEzbB4uRA
U"gJged-5p+,6Q/qSN*g>C>g0PddL_CWJ61bXS;jR6hUVWL5lCSOvt=7Z.W[ZWJJ]
U":jF50_>m1Crl/x$nlD_4:BfP^0A$^4BZ?==*<#BjG[QZF=5h-YWe7?g&BCzi3MX
U"]6Cnhx#TX_^4C6X_zJSnIg;EY5cJnlt$VGKqL.Qd,j^+BUqMY5x%u+#JQn89]YX
U"jPM?i%0up(%)9%'%%-%,DF3C>R,v+$%'%%h%,%%,#%%%'%ulSg7fx6y3T=jep5L
U"0]JN]Xy2-c<1i1ei5D0o[d;2*:nD?zyqNj1r1B)%\;$7rDUS,U%>txkIoZ:OEhi
U",B(_i%8L+nV8ah]8Y#(h[$8:E*I]DqJX$\J%b&ciL5rRJGX-6o&CFY]#.A\6S+U
U"uTTApb;GXBG_-INg)M4tYCi*^&'HT_ag](GJJ^9(+7V;jHd;Y+J(>e9L=j_N_Xp
U"ZZJ8_R6:B[-^07Asba]F75='7T1T,pA;9pA>&1jDtT4R/C+Dagr&ZKrfa5-Ii=L
U"],9fmj5'6^0*A-Y%(h?a9JpG+Aoezc6s8\3'-s,DJ#vUPq>HjH?q(esZmdUCZZk
U"TGrTlWcL(mfoi-'<N3&f=^K9$[>T3(T77[qt/nH-V:q/3iq?VaSQ1vEO'jLukLk
U"VbcGlNaeT1aF(ihQ],X8d)4SC6HUmG+lxfS.Bt-O+l_CfVd#HB-R[bG;VYHF^kf
U"+4lVbr5-pDj.vI3^Q=-tz<4s&ziZjA9Jq=b(%^LTb?Papi:wL0h[;[#LWIZ_f77
U"[qFj34J)mcEVbB=_cJjB*G=6-hXcpMRoIseN.))l\b=,\?MoNA=HJ0ni1R'1T?6
U"E'8>w?'D1?bZO\='Hh0xqh6EL2Y>:21r$ru3=k5wU5T9A\dUzaaMP-L\Yzs6AnY
U"j_^FW[4rIy7w=p.\JPX#)kg5W=w_^O/r*m7RD;d;Mx:>K;27w>^Y0]DXn$%kK8;
U"p?NB2\;>E5^+,W^xFI+glM5ZiNl\(rjyi*fV\,khI#w()<Uh3oX)+xjGa=6Yr;V
U"NIB3uL2mJun*/K630.or^pbyO669/-\eyaqPc3H<c7z9r$hYdho+Yt#u%p()9%%
U"'%-I%%N3aC'V,,(A(%(%z2%%%/%%(%'uw%nsyS[gfxfM&<By8%5wAG6u4z82#bJ
U"XNc683s15%D^$9TR&q*.I_i^$%.<WeX7vQN6WVR)k;6l2XXrMUdqWJo=^t74Q?L
U"DaeQB3DLEQn/I?c?g'w>ja&<[/MPHZxui3U])>bUjY1,fVPLCPA#Z'mHN'u)WM4
U"DHd&bYFk,LV122i_PIotJ,JJB&6(fn,hT8^sRZUHoG:tiV;K,*[n8=JQ'v6>&9K
U"Y^n4-PuYXL&^UR]BOF;;%WI9.SD*2/25:_$XKN*Fq^_;)8k(Gw;G;H^Y<bB#,&K
U"O1XY3PEHJT<.O*>T8t9NqOz?9,Y,DxEr*>G%R=J*3Sq4;;j21%VxHCM[gx$RgVX
U"Ihlyv4g(NN-<>l>C+L>I7<WY6LtCo/Mv0]tolJH+FEVfm99x?F<X?I10Db*Ln#S
U"S-1pm/8paB1U_-Yf>S7lC4a5hr)_VF$AhGmVjtLR2h3p,9[6U2Uz%?_;'*o+X2k
U"l[n-=se2$hp57/R]s&*s56j^n>\6WRe^I9(8HE9gY#Iik]kF4o6LT+WZW\Lsk+c
U"x^h\.DrEt5Qe;)g*57J2?aw.&]DKjh_YZbC1>UV$E6F)EyI+NV;2RN&7ASV)7Sg
U"bk47=i)qXGS/fFUXex0DCRJeV$m8J?CZUFTJ=\$3rUDVRGBL2_pc<F7uq2rIQ^<
U"_Lia>LP)(T$eSVS9VzIpR=ja)Q%mY6qHieq/Yop>lq/R63dI'pL,3<#2zioL3J-
U"y*$xR;d0n^S<Mt4d_^yjOf]1vS1hvIU7EX+'=]7)-c7C(uhMZQ5QrpQb<2AEsIk
U"=qwc%6\q[.P/d-Aq>$gJ&jkL8TGi55;?MZ93J&dK9JKVsvngMU=DCM.&rtL[n-#
U"Knz(ZqV5'j$/m821NVqu(anG#-lu^Y[stQ%WP.XEh,&5[ch/VYf';==rl0E5\>s
U"1?q>fNFUCi<J]j^w&PVd<VSGEX=&ki<Bj)=pxJ7>XVN[GyPdL0/+w_V&Ua$PbP-
U"eo9vKJMv.HtQCI^=Pf8ncEL;i;6mgE^/23B]sZOUBla8v\gO9bGm>tnEhG/,,^2
U"C=DmCm;WvlR>lHeRH9S\_[=nhuc3C>.5W5o$2MaTHgl=n,pO<V1&K0yz_/EMLR4
U"&7a'?tK/gV)o-JUx)5Nu'vXp)mM_=LfK4pTTBm2uG*Zf1RL*>o-nb4Z3<Q[Bw&C
U"W,c[u<mDy>Mi;A&s5n=<fC=7tgV8)mmRZlI9EDGrU?Dv(wX:X:C5[j.u%p()/%%
U"%%%#%:c+CD9+U(l9%%(%9%%%%0%%%%knq(j.ni#Sin)&'lwf.kE%V%SUVE%xhwj
U"%jsEV%XEyt%tqgtJ'E5>AAEu>2F4Ag%fxnh#EXSGAG2/0M;<>B&CEkw.jj&f#wj
U"E1AHEw>M14ACIEx48234;EMB483D4;e8D5:SDD=8R924=0S)34up%()9%%'%-%.
U"^c+Da'mDp'F*%%&m1%%%.%%%&'lwf%kSitLhd%<,B[[5$wMXpdD[hG5cE/7ZA^g
U"iC4l??qW*W?2USK9J'[=SW]$]RZU0wV6wY9J=fAVJJ<XR#Z=g,^<o(&;.%;RIW5
U"P4E$dq22A_U:*4O40?upY+.BTfGeCy9m8&hv+DV)f&.E'o.&<tfozMzL0-lX8Rx
END SUB
SUB V2
U"utPr5>F.GT4GRdde7stKc-]oDa;-dQiNM?j6bLVPNqlA1#<+y=p-N+hWCIx%W_^
U"&ikf:n?)udvD7F%.F&[fFn0.S&u,$NHN\78o7h1D%k('cKa[HW$Qf]Z.b:w?^6d
U"[g8\+M.'GLN;4x+Z^+&-[jUCIlfg]]5N<))14zFb=iP]+ibKQ&:2p/jP\kPiE*m
U"g/YxbpHlN^Tn)vq,m[v[j[Q?iB'W<1X38P76#N(j&o==tE=t4):$u62%<]^AlB(
U"Nir0rUkjl$L3K>ZslIg/U#Pa_Ql%nN[TYUegV%.SNTos/,pFl_S(U69<33-vaS?
U"Lsu/?%+n]?_t?DH2=0E#E:<Yk?;]?<gw2a9.Yq5NsS>,,/ujh3/rU\E5\?L=7j5
U";rR7jIj.qDk>2kkke#]qL_ssEh6=Ic#+jG6lEhVLZIA\q_;05bT;8Gz\AAmi2:3
U"kTQ6VngE;4p.u/>S=VQs>VQpW6dnq2.[9#AavtK1H[i:O;8$t%.:Xe(s-/#/Y)L
U"]MsYxl0o;P99.S2.Vz]M\80p1+IRAKxEf>y),>MU[<r%;6LKJUU$,-$Y;=o-Q/H
U"6;-.L*dShV-<MJHr[9^K%&DaLl4H(=e=HW+oY+TN6Zh?:mNA^Ay>EIkN79_W4E1
U"tP4uuF6s07qNSgrf6&z-Vw)HttaG4blrFKUPj>b#F/'_Q5>wKiK,hvU(b%Kei2x
U"SM\g:p]Ahk8FTes'BB:)M1s7Gj:oCl3HEB$45:>&lw=Ofa&>rS]=edE?3F]6+gb
U"uJ1HKG'.k1v2SOJ6ybaRFRg0I=z6ert1IctUb.X9#GfJ#vY+-M>-<1.&My:Mwds
U"'duGB^T^aTft>n89D*PV:D+ESEnl0l2WsG_3nZ;,JSsD6\0)IzlRQZUVjl4CUlf
U"oFISSLl(F.o/F:/VmYKeR?\DtDM)iY1J_R&LjG,^qkW[1E?shCE]l_HZ2kB9N8*
U"9wb.%KOge.O*PS0pPBb5VXV<RN\);*ZQi8##3umu_KB;2JzJzZ/:Fb*QeSWP_^,
U",XI_Cr8/L6rGXJ#W=L<7E-,Bp'pc*,UpHjqZg?/tc=/gqaRDq;p=-ob3\M)kF+)
U"1uT0e<_NOXo]2HLO)KjrTy/=MyAt:gnpP2Koe-q7&ow(/=l_&a9m=?KJf0-^5Ao
U"6Ga&bp'vK4WmZ]V;%<OzNO]ouMOn*U=d)PwmgL;i=l\R#%SGAp=9<)WS>CDSO:o
U"ZlouD692?YS$5SPfLlQwbo9k%[T7qqgT\^Aq:/H6Wa(XYjr?sa8e6#u2a/\T9ZH
U"m3dt=-hp&LA6l)IS>Wq^j)wT:0p);Y^F8+'fdLRgV#YL725%;DD:QYng'#NQBA-
U"ySI>UF>8Vhu<mq1\X'It:b9<gKiG9lr$Paj*Z3&Bc]1hW\(q#Ap[Js\K(;*=bu9
U"h$bnmBB_$NS)dA3>+dsMJZ2kNbK5%%;4,EK5WMI-^I=psqp'r>SW,Z$Z^/-c1W#
U"_pg-tTLw;WQZt8n&VYC;Cj9Q]K=UjG,6JEXbi;j8mC<2y)DNvkO*lVHlG9/DiWV
U"C_5HP\(PhfI,1,xDC]FtF34S[ZV\YgPUX'S]CQgC#C1GZKU?K\0-X6=VY#$*pA#
U"[5$i3sN\v43</J\p-#sE/)5BuH?O]?$6%]0A/4Qw2RxSwQ^+3t%[NXV5#o?FW&J
U"L^+WOlw.\SHo8)-/9F$)LMjq0%*cMeWe<p<:[He1NA^A]Q9ka[[9.MWv>UU1+C'
U"o4up%()9%%'%-%3BK3C>i17)&SM%%'%]%%%-%%%%qfsi#Suh'3VJ<u2*&iKd-A2
U"9l/i&j:4H30ED4I0Liz?MCiof$&_6*m#mIEsHQTx;cNg[V\]8L*3D[,],Of]z^N
U"R%HXIv(zPa'E6r3z33RPXFJscg6s++u&I<bKpIlfm;hZmE=Eb^<c$Q[15EM:zEz
U"-_P?.c'=b$YHGlMtkp5;WN*CzZCiH*W'd.fldcA\Qx^.(MHJH(<R/Y,6HuTRtEQ
U"RUt;dugkNvmf=T7p(Y*hpmHxg4K:B$'df0BJ:ZOx62uXv:,l/AFxrlNsg,N*Bc,
U"A]$[unhWn\\\\8<+>wlP,XNCblr44QwLr:o\dese.D,dox<PSYjP8Hljnj?PrdN
U"HtBbJnXd52Euv:<dstXuqQJnJ>uwgJniCjN5<7#vD$F&\Nom4(nR\\'6Ti/8LTl
U"C'>Xd57RldH?6k#vbdW8NLKlhJfqZxcs.ZXs_)u4wO?K<<n-ox5PxG37O-rXGd&
U"u8xB?t*pWsmbSxr3&\n52-<MVc5s<ldz&&cNdbnKhXzNs6B?rTZjh(NWEM5HbLh
U"Lsn^\inrB^8=Q4x3-h>MXxclntRXtPjL<\vStU\Mup>H.rJkMsN7o_dVqtjF(8i
U"RGJ\?fN0Rlc#l0g\._rNcFG5ZW_x9>44RSQdfnZGnjdL91vGRlx1$rYbo,^>M7j
U"[5Jt^dcHuqwjnX/48HBTzY6V6bY(rg*5.XGe)J'B2'*ByS[Q#4+s4]P-rtGbd<e
U"n+dutk$0p\Mx.VG/NEZ*3VD23t,$KQs=t4_/6\Jz8J79hSEkZ4p)vVF?nI6Pim_
U"o*08#&3:#47/47t>Jrj9rNLrYkr(&8Hwh4mPaOl1L<JUmEgf$F[VP#_2DK&dH,g
U")ZNVGD3OLn*8T$CnQtEZrXWM+%Q=BW1Tuh,\m>L7p]GtoArW3$3\j,?Rt:4Ap^Y
U"7B3,?HM*FQOHEO7E=*_1aVG<uTGEp'r3cmp$UA3tZh'\hgc&I;09rD<pehDoXpX
U"Xutv6q2#kEDOpj$6qw=PhlhXI);#.U<*.%Z*B=z8)-dQs-[Ygt,1-zJ/18F<L*9
U"*:)I2C0L-v-h3-Jif&p-(:DZd77V&8:'BXtj\/Sm_o[TQ2VFlxlL\r:RtkKW5Sw
U"P2<;Sjb<m_C$PiJ7&VuYgjmu3bvRxsg60dviexMQ*9K3xSk3kVm-;cxW<,\m.'^
U"maEwL3LKoC6_)?g%Xag4la#>=nsooSWtl$tzpu81PH5n;)9oYU#-D;G\tP7]h0\
U"I_'V&GdB>S3lu;[,#7v2MI9mooDZjLSE_h\W;+ASAQpxjdWd#6p_^L<b8ak:H'N
U"VNSBkt>7h*$<p[t#op;hjIsMBS[2Wqj\c?hchu$6Q%%bbqE91l/RHdiwqnD:Y%l
U"_iL/Zxf]%-Uvf7eH92H,A5Dsxa,(0ap#\m^gB\LYaR>:Bv]UNOF;3:<e,,9d]Gl
U"uQ*KVt^hvguW&4%sXA3afA5P9uLYJ>tIbQi'*6o1BL%YOs*4MTEYP$Ukog?xRe0
U"d/Jl96,ikoq9j%(7m%6Mi+Mw^]_B334Xf(U1n\zIJQ(mQkEl=j$\IH1%OR+H<c5
U"oM#?^C1H-'#y]F_]tc1r4ChdT4R5\F*Zg_#)')x,F]=#IC&xp)0t0quKDcs/(\M
U"bQ=s'_[4u0h,oG]\anj/'pqO$:Cu.9)&]iM_1iL#?:?WI5,T4Mm,<>$.%?=>m[I
U"xn)+(B9p)Y$)tAXi/p\co1:-k4eZQ:Zd.WUdpYkF4GXWtF^fWS&%tg2BC,[-b*L
U",/FhE7aq#5$5YJWKhDo0ZO$$,rV_.H44fQ64[9)ibVeOHVOr)gF9bEPKM%RCgh#
U"?fcnLvRpjlXG0W>Wh/r6?)%hCtJ%w.cg]j6&ZF9#6th/ASf%?w0a'?wHp5.6N\e
U"B\gho[l=Vfpfat0RuWBQbh2$/ruA]FgHiU#rXjI7fUCGlKH]+Z)a=J.'?E'N3+)
U"cRjPiRGR\fY6Y7P-]<]?ab4w/Jdjlx^bwuG_DpPMZK#Es[CL1NQ]$Bt?;bSIn%u
U"1?g0QyahKROI;2G7SGo<18vWYz;,0rz&S'1xdwa'2Hr:$MOr,Mc(+.0jw#ls*ri
U"3/0YaGr9,O.c%v#L]qFFRWdd3A$B7mUml5Z2)w+xJcPA/AKUqL>0qG5-A;POMwt
U"aDcr8hXb=jxa7jm_^R6r)PsiE<[^CYL\\/Bt)%]D>%AL=3]AoJ.K,81*PRCs+$V
U"s#$bl(=&RQ'f)fszh#EkH>in8Z$ETjH+jtN,$-_G[kFYCh\cMp)pVV_xDHtr/CY
U"3,Z.U-Op^eY$5TD-0mvgG6q_6F29xwI<>b/yiKF7xQ08TFh)-sqH0s7m7&+?9-n
U"=8nJ3Zb8%R7%m%vI6LXxk]%5=Kt;^eFFIMbXjFq=K>s[2P)Gch[66P^pFR[f5SJ
U"P<CJcu3<MV-Hv6wSIx]7MsfqL(9TH1T>86)a)R4:;qDDBHTZC,$5TP#i10p<_0A
U"P_(91R::y(Jgb/GO8c,8'=kx[*X_u>v;Tl?enBiit_(LU1%FzY<#nyr?>%mI&\T
U"_HB<S*jN2#1OL9/'<e&ofd6<Q8K]'2\M2mMSVALi+nFt_xt8:?O;Ua6=s[UDNXj
U"(V.csq2L$P)3l6JNN;V3Fl&e_TGR[#mEe?,A8Rd*n)ahADn2:X;;raw_*ZH;1+,
U";9b#&TkoE>2nt#T=O=A#UAO?ZB]mo<ze*+?O7wrg$t[B6$kl+z(8h46v7dlhK]a
U"LhMWJ5gfvd;20o7X0j7r6i$fMgATht<QX7Sub$6eOUhd*:515;C^C$z1f9:6c^d
U"KNT<cW&.sl'lN>uk^':LO^4a\V82Y8cg4V=z,Iiz3P/3R^,q'.UEV>+JsHZ#eb2
U"9/S5mA\J09ojZ3<Xd,S\9$$qCsH)>^34HV&Z\;nudN34k7xn*>%W#gaqkcr(7:b
U"VW%DN7DVx\dM_*3v2&E9ZaWa5^G:)_Dci<;.en[b(SRO0?kb[.Z]r_zw>?[CI\7
U"jhqN_XaV:J'%[\-#t;J&(L#.;JbJ_<4zulX,s7<XM:A,,RHpIBlDzhwr=bQXR.V
U"tS>4oEx(m:_4LU4qSy<?)0%H3hR+tQg7$lE-D:4?3OaRu5q&(3f,r]E-KE_3Ai1
U"Dr$81EqLhiGe;1ma>kY?'M]lQFw(N%pZ(Cw=6eo,Ee6X+RONY%GFNnZ;fD4tHNW
U"-jn4?%vAw:QCM4[$0N*XhA1#t'MIZb-%iJp7lV;+pYjfY-D:zSEzJq0<AJIB,yG
U"lUCwU.^n^NniwyQ66w<XnnI;Eamqq>rL>IeHS1v>;($Z,-9Uk=\HEaV-K<g#WQT
U"pjFK.T3&N:1C3h]E34Y&c]O)U3Ne:lz:2)dK0wgNA_mc/As80%:]BpyJT;.$3Zr
U"aKAgMHEohp]CrCTYnVgX??G5+F(+XYI*j::N/J7JCaO2l^lzIe'0j6F)S<rZ/zw
U"#hVLp>Dcjr,hE'*_A4R2]St#=aLe_+$*\$feAf4rz;pK)B/(EK_^?mjl;<OX6.h
U"sm/.T0Q%AqZ5gQed)%%_HN*mBrF/jTPn*I([EKqB(jtbV1D?3VTk1,#j;[E8y7Y
U"z-n85(ITIwt>DflAbgj3&OJXpFM8L,h#H7:*Z?D/XDySewfjmva_5-IkX;(e?8Y
U";o)]N;RTo>\-9=(5=fc78'%kg^D>)XmbfcZPsI9bX(FIMfY92g6Jrb'Nc+hY<R:
U"$9Wb?JyCzpe<y,>'[F+ksD(L4S:;&RE03$9OWfq^A]/mUt)UDtIPX-7M+d_Wc'A
U";R:r-'7\Z(CN<:lA:(tO<[E^Nh[b(Yvt7viedN9M7Hnlr=Y:rC[Z(4l]Xjn(HqF
U">17H-/\#[2k%(j$T-yUU-9*yd?+9)9[[=Glusbn.Z]cHqFgPAYEW#^_9,3<apvN
U"qkbe7KMzE9d/?PYG%$y[n,V_R<mr3JWk_,_[JtWf=#N,d5>#kvU84H6c-:'qEUP
U"k1O,lp'rN7EPn2p)%8e/Z0W:OyuqEjpRu-n/OcE;3hppCr-7WWCTqAFe,VqE'(Z
U"EfL7AMpWA?EIqiTB%iK<8azSsa6&u%/'8FmsT=Z1hoE9YSuJ0j0nE+u$tUCTb.:
U"4k0?(AGbE[Z32?1aSU5MKh#PK$tR<(6fI9dy13x]n-#bnb:1J2lZQV)oo'lo,dt
U"k&bPD]qO='JBaf::)^8N+X&XSlyFr)3A8rF)WqTV.b_o7+#GkuTZjTIz6^OBNRA
U"]1koUHfVf9%h/\;[)Y1ZfVbG7Ep&)OkR?/MSO(%dy_-3Tr9bj/:9m94P;o&6BAH
U"Q9/+t+CvaoVSjYDW-1Sp3V:4]uh_Gr8x>/$3uw7)MK8i5$i)35lq?2j9T%oDcR]
U"(e9j?htu[<$/2#TaF/HhnRE,qir(]ElZU^,H#:kyf)Me)Bh:[#(&^P)97K<U%*-
U"1t<IZQ+lvX?%/qP*zCYgI#*#bbW<'t[\Op+x7PxAIppoZgH4ZZ_('0l7rV?g1R[
U"dF?f&IZjv$RRFnA8r[8g7S\6i;$3T>E)$mK*9*o:E'K9ShaNPj1#s?5Y8uPnh.I
U"UO9iQq0pWJmM^>4*u'*#'e0>*0Lz2m<(F_4a[nnCPXxQ<%sokIOU'5KdDx*YNOI
U"TsF'/=EM(O_i_L)S3ES(B>Pe70Cf+x/K#73m^rC1AoVN&x)$\k:$rI0LTn_l4x$
U"62Dqz)oA*f<a7JK+SI:&^VHrY^zbF6RqLQZi]n/P-qrl1#v_MQI7jOeB[n6.R'b
U"Si-#bxE#wi0YfsmuBca]R+(KPhUJQiJqFv,xDCyQDqMs^iS>RR1j_ejcbLmarPY
U";iN(i_olm7'$B$/iDaI*lsnKIt-80O8uQkEY&-00kO,-Q-7uGT;6HjFab?YEJ:E
U")=2hW[4f&#&AuWJb(W-'xf/Z6J+PAp3'6*ge^or8.&Krgh_dUqv9=F6Vf&z_B$L
U"q^1M\P5tqOWM9n;YG90j^#7]4O=K%9$tSV0pFbMwqW>bNFKQ[*VFZ>i(+0H&m?J
U"hh-k9Sl8mWXFTsYLGG01.%)4o=tcjF/2rOFWXi*3aO5+G[tAgse\sr>bpQFO5na
U"shA)HpZ=/LGFA5630%HU9OdJWt[nPYF;uuYQ:Lf#Yn2FhVN)%=+1n(;,3K?LS1k
U"VY5Ifh?JAh]lfPaK]PT-0Zq=7Lx1]Sw2lpof']=sF2N)R=U-;(FkbiGba5M0WN)
U"57X3Q.DX)aPP<o_72c8yU*<Tgm/P38XCny1xG'+(cX;H*b[r'9rr=Q/Bh?kx)De
U"H3Q+1jgOewf?[m?rilbY^Zo$3g5(u5':t5g+<oaIrUSs_T^gK1]s>ZNYNUMfPnW
U"A3$1NkVJX9]'%Xw^)gC[V\)Sxazk5G1h/DzK*WB2ARrA/1sI]sL7qUiF6?8;gfw
U";'&gRU)On>1mP8_B,NLghHRuJ):(Eufc_I,s)&&9ZCE#HC%OBJF8kJqpEk%NlBt
U"J.wo#198-hP2hZ_?8Be4.JxB59]8cCHlGs'/-^h\&j^(E%$rW,0e=,iGAjS.v33
U";jyw%v.*?v*#WxEwCuMv2Wdj-gR+G(>>U;=:rw_Md#8MZ2^_72a\/Jk17nP4:kh
U"/qYrfavME'F]_7($5>Vn?*]LL3vM6AqU8_)_XepO9TCni%=+IZM-C.%&oG1g4j(
U"]R*W2kd,#/(%50:dwW\$-rsK^9;te,aO:qi2:u=)(wIQ\'9wkwaDJ8u(u=P;U-l
U"I2Zc$f)DV^^_Wm?IUS1c<tQ:,GbIVHk6;HW90;[5qz>5k[r+-H+x#A0d:k2\S&0
U"]e=f6YnQ=\f0:^hs#xq,3O<Jpxq:J=;P,5:1v)-f>wI%#U5XoL4Z8X[I$yQYYIG
U"J9J+d<AohcS2jfr22uJj1tV_+bq/R[AAsHR*VO4kpLosH3#^57y.^%VdXP?Z.R0
U"L.T3,+D]s;Q1/4e^ZKOJK[DDacL\peXOnJXL.^GpNWQ[2EX9R8G?#EaeVmfYKzS
U"05<dm38;VDKrYsGlc9#Bmpc.0gpffR(IWVLMA7W<eP4>J-C>zO0(i46B)m#J8w8
U"E,P--O?h+obsC'lj^#eQ5w(zo:HIF4mcR<o'DHL8I3DbP=^*+S%bCIXsY5U.S67
U"X7?CIg)5:O2)rMN6lRl3Z?1T,Or]7^9FV(B)N8a;bjU5,*Y[Hi'e&Of)%a6;\jU
U"QiUEe<>ba9'd(VE/KUw'wb/^>2_w:wj#5K<$f$VeI7kIk%6dMEjVYXUmH&N\:;T
U"&d'+*OFF45o8LKsE-+Vz,TT,.S-QGk[QTBqh7uNbo^V1&+gQ'=1dPs;=BnGT8R6
U"?P)w7Pf%sR)RX2C1ao)2\#()-tsa]4&3ip9$p?UI+hGq$s1\<3Z63L:*qC:NXSb
U"N<K?q)i?I9SGG$p5-TC[]Pf*CPH$;:;Qj9:8a2;M0/5Au<^mRSB>X7iPT[9&+m:
U"?YdH%'fI_OHVh,r4fpA3cd)RJs^HJYVg<uQeNki,ftWr9q&d$KZ#8M:[sc:'**f
U"YUS5'y+2N(LK/nozMGnT*^TWN^O:2TxnA*')Px=J9;4O#7XM][A;Sv+%OkL:6u0
U"Q.+M*z-yhdpkLttt)#jgpkPAe^EkX]]QSmXX<LKe#/sDZ#^RV1+:%KA+4EXJr%X
U"hJ%RNU^eHc+)^el3IeeI<h0.)\GvxFQJH0xK5WKSuh52TSwSMYjuW81:W-gi?US
U"m(5iLp(q%uHC:RE2*K+'bJOy1%'#i(wWSg6,K.fslR+Qa%_L4805Xx[.VmdpN%N
U"#r/08;z;&=>&ey46G>iO-Ah9Ol/e23R(f8/V;6&d[;9N2\irap0CFF$f;p2PSK8
U"T$'9+]/x+dYU:P,;eb&n[-Pk%[+n%Ro%]j4_+?.&.*U9>l'dRzoHgBkA&JXUXN0
U"BV-#pKUBic-J:\jh.98k79yP=E78KbCfE;LkHuViHEO=h*;Cj'L(MCX6.A#PHpO
U"/6J*h[OO67oPypY_K(#iU-BJ)SKI.k23J[mM5>=^P0#(r9Oi_eqE#4Z+RSQknre
U"fB-C.>buFVE=hUFjQD?E8*7:pkFp[o,I0vA.YR<2>TmwDb)6$XqXhoVeIfE8J->
U"W/0-Wq[<d5D_+'jcF+K+S5J#3G()Hb&.J_lPL7S,hqXGY\6?SCl/bS$$6\JKrg=
U"92inrjs+2NSFv$MK*9BtR5J1Eb.sFg$,ph66N7FH^&=\A)UlB_,rKXm_+We,oa[
U".&C1kUyv)eB5Es\5F'_\:K7LO4T4=X3K'Ww\k##FXJuJ8v_8_=\(x='AmyqZ>)N
U"*C2Q)dTt3oto&+pT?CF]6;Mh&N+C8WjQFTkrSXFG4KIMi:2T;kQ<OwvcVkF71l;
U"hj2T=hzm$YE*u9Hc).\R7x5;saEn#s8E1T+0b=ZU<(p/f<T/1Gcn0kiEt7W<B2L
U"e2VUOZX?I;Df)0Jvao2&pM4?(BirT4,Wk+%a^c*i0JmF;iAH/01da,BO0QT+^Fq
U"eH\k*E7+^=xTFqh51%sg1bt+l,1VsBB/_30L2VPtS?\Bee1dOoSm\Q3sRcP_c2R
U"0n%2oGM/T$,^..KG.eNg+U.p:p&EM.m36lIO1NC9WoB8DMJ%,UH.WRlXcJL7VPP
U"6VU$XEJK>&*?h^USbNH)_cg2?'%[\T3f;ktN:juO1K6$ee5JkDN=)i10$-/q85T
U"LIjN-&I'X-uyTM/Yp'D4XwU1XswFC\m*nXQY+2O*AWbnkHfR%7;[:vm<[OMChX=
U"N_Bs<\?LY>j[H8+u#JeDHIkk/d0TNZwG[i4E25%QmE8%ulCbcniM6-K2kTX(sHq
U"pBblJ_GBBgQM0TUz?]]77#w+doa\9vCk#7Sp#/8wjddNv)mfq*$Gh;hI*;-Iq1e
U"29?H2[B5Y1CD;fk1l'DHTs&E,fq,#*__I^Qj79Sb5.cRExJQOxq%++X2+c)rd<z
U"'ZvS#3m(Ls<GvrnL[dU.Ia4864vR1,Fe/w%>S%Cd?rM-I8S,jpl[k.klBLC^V4E
U"3i(9s%I7Q>>XGn[lHmq:1DPX%b+PULdF,97J<lkJ[JkoFWkMa4%>iI5vmm^cHKf
U"Sn<c;HpUkkt#(=&TWLe-rM^^P\akUa^P=:n.T,8D3fDqlK<d?EJsiz^V%qZN\qg
U"PXX_FSB_iO?.cL0rIB'r?bnJ#mU>%7SamI?]oeAi_h7-s,8'Z96FJQ85G6=H7j_
U"#vHa.%=Bb_a78QExF7&CH5PTDNY5S?/8l'YsI&ULNG?G4ZoiC2bZ3&5mnb*G6vu
U"HE+^L4/TP]4^&e2PHN%363K5Kj_#ubtkq^[7GL^vXMu)55Mr4cVxKq#/tYptVRs
U")a^o5vq'&Ly+O7H4+8UT$WG;s1>-AGMt7?<,mEkWs<+OF5DKeIje=L$jokit_+H
U")kMB_Bn7$=ysvJ_.sr*gJh1,Jf>_rEQ>D6M7YXwO;8$Y<$ah&/e$t.Dj#Z5M<hh
U"U]u1cP4?P5#D7%g/gA_$[0aIn;1L8-sD,SX>n=g))c+-iWp<f=24p[lj17ZZwGk
U"t+cRK(5%Cc-Hr(kK*liEFbrGSZgyp,o_Du3U%JZ)&H3.Q'GLKn^UCGO6QLRwq<^
U"'$6A<S$DMe/R:i0n,e=9>#H*pBeBQ>C6nLkj(K.KB^nw?qv(f/0#j^l:iBjg=o=
U"8mDE7S6^+G'3)a*[ocTtXK,QM_$RJs;J\uutE-E:ht_YHibLjhmdbOLu?=E2wBb
U"j3IH9jpm3$U66t4N)_A>o$b8g)w%;l7Cr>/G[t&1qC_Xd0U]>>#0WM8;DEU\Z3#
U"K2cMAsu#cm2$-klG#xP(a^w$;Y#v0-_i8*sUgJXCGN8PhsmrA;w<BrD]s2djX+J
U"JnjRz'x3T96g;FHRciCnrShN^O0B$AqXRI^RL-UO:FY$mkyDMh,_'%6vC=*ek>0
U"tbu^LMCqE*q:^i)-aF]tn4U8c>1Zi%,_$XSUe7g+o\,CUM8Pm\DgaL8b)GNXuDG
U"J->eOGh9'YFNrJu-b988_W<a+_W'4mK%i.9ma,vj$n/cq\>kjwKGGt<=i*f,M24
U":?6ZDgRr:>BbUAJcm2)[q/T<YsQiuK]$ZZkq-'Ekb1SVV],5[GXR.F,O0WteCZm
U"Eq0Au>#%Kl5Xd2eijRQ=Fi]5\-sc>Z5,?^Y7]NYwxB-]t8J<[\_\izZDI$U;X/Y
U"*dD]G.jrUWNrSJj'):S;:6VY;uDsdiN1Qj=_D+<Rkf+PkMgD*Gq;v,qYyFPvrk$
U"*_?IM:c\w/$KP+Ri$_ZX.fycimVl2DTe'8ABj)0WS%;I1]i#3[A.KZZP]b$+DlK
U"[2P*:]sEFa#VcZ-uc1q0I[nftdL28+k,^GabECVV9R\u*7Eeq+,+>jL\='NOU$*
U"K8Y#,fBqaPu>Nj4i,xvc0^z5?Hc/Ju.&H;LlPwvQ$.8iUPs.8h+k&86I$//owp;
U"eCA0+N?:eu'94GUV[rB=[%7^ihVv\#ANj^a73,0A((*scP,<>>(UjIGxLNngn:P
U"Pn92M98[h:wXbAf'8z;;pJJ93q$Y^UvP&'UrbG)UrP-ZdACI^wZ0E<x#kui?aR0
U",w&EX<D<2>8_[Uj86(%Ml$HZ2/+?tDReu>s(&QA^.\RZ/RiOj0M(TP-W4*m7$*O
U"6HCi2>C5+.'K3w8aD]KR*EP^-njCJj[2u9n+g&a8r5my2e5j3\y6Lxj.ighAQP#
U"0qs'L&]?fSgOq)a(3G(R1#Pq<%V#Ia?G]C*#>I8#pn.WOG+^CN_66YW,Hxa7xYI
U"A$+k^rZ-=UA,=WuCd)d4>jr^Hb_aYHJ9C(%,%j;QP0[Gy;W:bj;4q?>J8&7?FA8
U"NZy*L7&$D>E[_cjluBnxZI5tUbnm<-Ub^KIuG8lL9'=-uQ:6sx2D+%z+ak8zC9,
U"mmv6$4[%J0<T>g5B0QZq*#Onv+dEweWs\IaiL7_$42ExrQdloygIn&Z+NbBr\x2
U"tE5+7wK9^C&Zs8Am%f?=55&lMCGSgvp5#A-3;FBqmhNrBp4k6/PHJ6yIkUc&=k?
U"A=hU*.Kq-eTvyaPfbqUc.dCWJi47gS$U\94G2SNpj2J4T[%rOf()MW1'e<e:xG=
U"^M<M)j$xd[(SQ5_I.lLDe31s0cNO9U09Gh&pC5FREOP2eol]CpT$WQH'1[9C>:g
U"ULuqLD4JXU(H4Jc8kR[hqpEotP.W6[[qsDHdX)+zY*oem#Pp>1DYK)aTh+#c.N/
U"'6&6RrrkDqR53.MSReJqou.tQ*5gkzI_RNt]=8j;P32Zf_(z;10bNoHo:'h#*kg
U"qpL[7Ve<6H-&T1(:f(l6v]Wl]5&008[%X4KG0hNm5lmmd8[_g\<R8qf?js3D/W*
U"k3''GptC))Az.H]rc9LMrU(ig#]qPtpTR5Mm-i%Fxuo/#]P/_J$<TAG[OZkY3YD
U"/B<Vcjsi\>*7)_RM'p:zj:/13p]<>(fY&1QK;8)#IMZ'$Z=HErj-;XJaM>/yD#t
U"t[ef>qPNdichj\eUy<+i7#]mPQ2kC35<9:6g^Glo^HfnleOv?$&u^[9z<Rspq5]
U"_HXtFgY^JBN<J['+Ki&;J%qcaPHh<V16aM.RoPGa,:>Vh^o+ZT+jA2\on))h--_
U"gcora#W[Fb&_3GJ[CAXNcXK^'I1(^('JX>CsBCu6*[Lo]zA%+SYR7S?iqI40?F,
U"uN-.RDcHKOCvb%fZf?1&DtCvRT'8\.R*=K)>/vQQ-e.QJt9h4^L,j(p3+kiH?>G
U"uKj9*HsM\\W#N]G-U#=g(0gf.I<iH%9r1l5^t,nXkEV?;+ZE*e3b&,X>5H3W;F+
U"3pT9Oe:Lo6xMcg6P[TGD,L?^L%-%U&FN.Qm6^B7.Q]9_&BXQ8dSKPa<M]_JX<qP
U"/1=-)f;9e'Fr5T1ur94BXJh3.NlLUb&?;hZuY^_im&b[q$jGSCg't?:uhG3k$AB
U"Gi9p5w\fB'UuVRb2Yg=o.FfE=BUd85m#1Nm\/X%^v7OAqCf2]StfR>bi0jWd,oV
U"6KxO\?M^,fIij4M?iHO';UQ8td9BqYTTi#>f+(6'qYK(nnIjBkvxuh,^G'3jfUd
U"4;Yb9Af8evNXmM.#LHy0suZ#G\hB60D_^2ai2(aJ$XdiVR5bd_I74pC0?e-=-/]
U"Y<)Ye;KnG#<-=IB?KsB-t?l,:72LMIL7Xs9([)hEPn_sCj1Sun+9Yiwk*pEb=&=
END SUB
SUB V3
U"<8\vSthd5b_*#oXEhk]u:Q,^X?qAcYA;IDfHAN^/>_8Y;Q7%jPcK$Vn.lZnLCpl
U"j.iJhPWj?C>Vi.KdF(5_a=Dx0I^B_(JFl1]57SQ$sHmqldsl0BdG8[T\Q$rM((O
U"Mr=-/l&cL8/a'F\F#-joFFZ^FM5^p]>crWogi8QkHDFDkHDdpZjIFzKkY;yXd'#
U"rUaO\ItoY_Z1Gk0^3sj'VM$XLkk+dC'3t%l\/,>n;*3DzF1u^U6'&*QET$;ZQMj
U"T&q5:*diF[ovAB.x_>\i(uO22O))3d$^#HjOA;VfDD?#3tZ/INvWLY_5Nh9<?M%
U"K_PU=;.tL)CX1)IOh&(GXo?&VCX=RK+H33sttQtB:#lQLjU]UDf0A)6/y+WCqPD
U"lOF1UoFk6;UT7U,]8OP*FpEM<Ac<PkDSC+FXO/QV)4T#5JyKUoB6K<_m9.mS#H$
U"/>R2lMrmL34U7:rw4XqWfzErBpU1_T&_U,l3l0brG0943*;1Ni?a;Xrf3*lj\a)
U"VtQ(awea4\qS#o(+[JI:;Fm&zR1PAFF-EVjMTice'^i8Eo9Vq_VjW\,;8$c\l:U
U"V]]Rp<(5mVs?n/%.NInFNEih+P8-Ri3B*lT0aEhEMO'sMG\'K5dZdF>\W<t+Fn9
U"7fX&aS%11fQ<gt?8/NsFacrU)SP=teJa>[)'o?]y>fu3TO<Cpd]>Vo?H,&]Gp,q
U"DZ]IWcg%Tk6]%.>PJ6,tY]:d0QOY)9])Bj0=z4]'vFKC0ws6[2%wu+=MIntU<IX
U"tJC]]&I0toknZv?Ar'\,KLtU0Q/e+ct7EU1am>jusAYH'0UIy(1ZecWs(eEH+-T
U"j6uEH#b<g#Z_*p#\T?03j-Z_7cjE:,_&l^%uNuEAHqn$u=?2[F]>&;0h;T#FJt.
U"A3*5I]k=>E#)14:;)E#0&I=-8*tp8M1B/rGti4t_2Y[sT]VCI2'tgj;FTn15mP1
U"#y[yt'+tIdjghH>8(18<lkX?J.0jF6RX#J;fQ-4<DhOCLpTe>Ek:t'kp(vi's_l
U"Zpmh\vDat36.9*qM-J6hh?CSoj&n2jU1$7^7h1$$fXW1>F.VIa2B]1V#NQ<r_PU
U"#4m%\;>\'6g\XGj?giho/x#6-hr0tN[[VJABvR+=-bZ'hyXdQO2UJ:hneGPGjlF
U"(c\G4u]2LZ0&)wFO6<>_;dS+Gm;5;>yT9m%HM&K(v$9aco_6nYU+_gQjGH19a0Z
U"Jc$$02pjuN]K7q+1N4$cbs;Vknr\IL6VPbtQ7w^)AJ=Z<D1BUZ%;l;TL>iORw>e
U"rN9&(Z(#xju+TfFQFF<<t<fffr:/)0N0F??CUdo\M]]]\D\l_DM9KKKqAAkND&.
U"rvrL>5ji?^MmtrdP(cx[<8Zqn(NQ&dIxLy),,?vi<4sdxul=duZ4uO++sK+W*(Y
U"(,N9i,)jdldT;/kEu6'/yWJ:TWQ,*hzQ<F^[DvOV+.O=RP0S#OvN5z590*,lT%x
U"okIuI%lPW5(;>>/2-/Tt2=[p/\R4+TQrfG(%WF%O5UT:0&L*jzIkjDQFcOW[d5/
U"4DYJ'D;z<h<(DK=HWP9/yI[$S:0/oRw6ojyImc&<Cz4ltQ/TWQ/l'_y<UQ5kc<#
U"^B;D>:$xox_G[+#9j=dB#p*t\3o]^2)]\3sV]^6$,m-(<D?<zRZ6/M/$lxvii*^
U"1A;'?ky,?uyOQvcx/,>lE;8/T,ZYfRTyYiT&<Z:s/o'&BY+-f6N-V<z+eh(<4/u
U"W+s/pO*4N<O;.,NdjJ<q<RoogyBd6r%y&E*S]lztL)COb:.4OW0te<YRFfRb<:y
U"t3Y'>><wrVHtpfI3r%y7Ce9O-(=9(0*Y<noIq*jFWV=>g<qUcF:q5jVOZUOUUX*
U"QcR>r8gBrtDcMgTQrsHYQTIClNbIlcsxjLD\\.LDnK2bKkl_Ze_M4\<zzf244G)
U"qzyi)Rzz.(Q&f%:rI9f.&),rHX,ddJt</:s0sfjRP4,\=kiV5d?.Tj=_;=sR3fG
U"[[a\\VOiOEy&Y<56LNU=V:X1/.tcSTlToSkTT?#STtL*RvIkJ#R:ZBWW&R,,Lx'
U"M#[#maYQOX[QWm#/+lRu:*WWc*:fUJEOdi.AAkACBLZd2ID;Qmb_s?6QQ^sGlsj
U"*M*???(Qd_ZL_I9;m13u?9q]WD1dD97-gud&%up&'%9%9%%'%-%/9b+Dtx_bO&6
U"&%%%w(%%%+%%%%%%%%%&%E%%%%%%.%%'l%Sgfx%up&'%9%9%%'%-%1P\3Cr(=hD
U"'A%%%%e&%%%,%%%%%%%%%&%E%.%%Z&%%%fi%iSgf%xup&%'9%9%%'%-F%qb+UDE
U"7\,mt*%(%G6%%%-%%%%%%%%%&%E#%%%G%'%%i%jrtS%gfxu%p&'9%%9%'[%-%>%
U"mtDabmnNv#*%%G%6%%-%%%%%%%%%&%%E%%(%h-%%%ijr%tSgf%pup&%'9%9%%'%
U"-I%1U31C6Kc'QD+%(%K3%%%,%%%%%%%%%&%E[%%%5%3%%u(h'Sg%fxup%&'9%%9
U"%'%R-%vTA3C?l8,Bg%7%%*&%%%,%%%%%%%%%&%%E%%%%%:%%%wlgS%gfxu%p&'9
U"%%9%'%%-%j_G3Cb9b,8A[&%%m%&%%0%%%%%%%%%&%%E%%%%8;%(%'hn%whqj%Sg
U"fx%up&'%9%9%%'%-%3tE3CPn>]#&^&%%&i(%%%+%%%%%%%%%&%E%.%%'<.%%'l%
U"Sgfp%up&'%9%9%%'%-%3^P3CUAuYP%r'%%&?*%%%,%%%%%%%%%&%E%%%%0>.%%'
U"l%WSgf%xup&%'9%9%%'%-(%ontUD:*$*XL'%(%.*%%%.%%%%%%%%%&%E#%%%L##
U"%%'%lwfk%Sgfx%up&'%9%9%%'%-%&&mtD\$9:>%b&%%'7(%%%.%%%%%%%%%&%E%
U"%%%FC.%%'q%nsjS%gfxu%p&'9%%9%'%%-%,DF3C>R,v+$%'%%h%,%%,%%%%%%%%
U"%&%%E%%(%TD%(%'ul%Sgfx%up&'%9%9%%'%-%1%N3CT'V,('A(%%&z2%%%/%%%%
U"%%%%%&%E%%%%$G.%%'u%wnsy%Sgfx%up&'%9%/%%%%%%.:c+D/9+Ul&9%%%&9%%
U"%%0%%%%%%%%%&%E%%%%PK%%%kn.qj.n%iSin&)up&%'9%9%%'%-#%^c+7D'mD-p
U"F*%(%m1%%%.%%%%%%%%%&%E[%%%7#K%%'%lwfk%Sith%up&'%9%9%%'%-%3BK3C
U">i17)&SM%%'%]%%%-%%%%%%%%%%%E%7%%+Q%%%qf%siSu(h'up%*+%%%%%5%.5%
U"1(.%%+z%%%%%
END SUB
V2
V3
CLOSE:IF S=28AND 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 XGRAFPB.ZIP ends here. Last page. TCHK:28
