'=========================================================================== ' 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$i,>5$-Fp-BC_=-5Bhzz=) U"<^u-fa-)jla)+;%c7z.IG01xH96Zn;h2q9b\:( U"qJ$ZE;0u-?(C8>+5U1,Rd:?i/xb,<>cR754sTHV\zgYV;#HR>2CUhIBv8=Y&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+HHi0YMmv1LhYkb$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;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==>(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;Xf U"91JmL).E8k\NvR6p-VU_1H(a9*NJhOr/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+$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&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.%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;ASTisk/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*rLfgu'&A.=?u3.;0L U"2Jia+1=Q-xV8,vNb$BnCt-4nHa*qcW>rWQ[:EcJYsCc+R6t^M8Y.nk-BZ U"ox.pc;XfI9JmL#)E8kO\vR6>pVU_=1(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+J8mn\#+0cTF U"Z$O[2E2:hNXpQXgd#I,oXpHWlGvLASaW2+V%1G4\JE>/n'?(86'qIRV0IG0'-wf U"ej48_)l=D=%pI0C%8.AD.a$lee/NK&TPM(?cHVj%IK&lQqB[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.fGRACktfu,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^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"/wTG]x5jCF&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^4rV#U,EeFYukN; U"1>D(,rU-T&.QjUnqb6EWvn$)-%0^GqbUo U"S_j%P[SFMVk*M/4GrtEYisLQfZL+;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\GFD&Le3CrdcFxBbqR9tx>_TD48zcr#%up()%9%'%R-%vTA3C?l8 U",Bg%7%%*&%%%,%%%%wl%gSgf^x4uD,9WF_->\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'f42]#^&.% U"%i(%%%+%.%%'l%SgfpDd$t>\je5>KhmKVC U"4ER(0a8>c_Mj6&:?wA+8nDtDET5\tMr13[rs6eTX63o4A01)caD1_c%JZAXHA6= U"(,6L.zRPz0'Ok]$Sqo0Xw=;C\?3mwz:It\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$YIJDucvf2PVkBHv]dX3B6q#S:^r0=$^(M?=gKo.6Z'tGsUc0'qlZ%TbEk-(Y1IO62l=C,juMf)*a(chFM U"$sj\)k2#<^'H'*9_Mh/TGXm+QHpxUtpwhXqhu/(jVkvZt7SPLsmM,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(_=/&AuxYS'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#w1Gb&PrgKw#lP>vjk:I.UW/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#epUSnq2gCXJp3spMh_HGo#qUbSaXe^ U"D5[AJmXY:4R0Hka.gos8TS/>\#mEwzPY?lELMwSS.87/.JZo?jcFw# U"q%2up(%)9%'#%-%&#mtD$79:>b[&%%7%(%%.#%%%'%qnsj%SgfxT&u:9];e56s0 U"w U"#F4d9uuS87p:O.BY,NYPD$gd:R3U_KtG]=9_FDCB2vM]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-'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()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^YT8t9NqOz?9,Y,DxEr*>G%R=J*3Sq4;;j21%VxHCM[gx$RgVX U"Ihlyv4g(NN-<>l>C+L>I7S7lC4a5hr)_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_pcLP)(T$eSVS9VzIpR=ja)Q%mY6qHieq/Yop>lq/R63dI'pL,3<#2zioL3J- U"y*$xR;d0n^S$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>fNFUCiXVN[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,pOo-nb4Z3Mi;A&s5n=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=fAVJJF.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:,,/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[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*PS0pPBb5VXVCDSO: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+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\v43UU1+C' U"o4up%()9%%'%-%3BK3C>i17)&SM%%'%]%%%-%%%%qfsi#Suh'3VJwlP,XNCblr44QwLr:o\dese.D,doxuwgJniCjN5<7#vD$F&\Nom4(nR\\'6Ti/8LTl U"C'>Xd57RldH?6k#vbdW8NLKlhJfqZxcs.ZXs_)u4wO?K<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-rtGbdJrj9rNLrYkr(&8Hwh4mPaOl1LL7p]GtoArW3$3\j,?Rt:4Ap^Y U"7B3,?HM*FQOHEO7E=*_1aVG=nsooSWtl$tzpu81PH5n;)9oYU#-D;G\tP7]h0\ U"I_'V&GdB>S3lu;[,#7v2MI9mooDZjLSE_h\W;+ASAQpxjdWd#6p_^L7h*$:Bv]UNOF;3:tIbQi'*6o1BL%YOs*4MTEYP$Ukog?xRe0 U"d/Jl96,ikoq9j%(7m%6Mi+Mw^]_B334Xf(U1n\zIJQ(mQkEl=j$\IH1%OR+H$.%?=>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"P86)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"_HB2nt#T=O=A#UAO?ZB]mouk^':LO^4a\V82Y8cg4V=z,Iiz3P/3R^,q'.UEV>+JsHZ#eb2 U"9/S5mA\J09ojZ3^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,s74oEx(m:_4LU4qSykY?'M]lQFw(N%pZ(Cw=6eo,Ee6X+RONY%GFNnZ;fD4tHNW U"-jn4?%vAw:QCM4[$0N*XhA1#t'MIZb-%iJp7lV;+pYjfY-D:zSEzJq0rL>IeHS1v>;($Z,-9Uk=\HEaV-KDcjr,hE'*_A4R2]St#=aLe_+$*\$feAf4rz;pK)B/(EK_^?mjl;DflAbgj3&OJXpFM8L,h#H7:*Z?D/XDySewfjmva_5-IkX;(e?8Y U";o)]N;RTo>\-9=(5=fc78'%kg^D>)XmbfcZPsI9bX(FIMfY92g6Jrb'Nc+hY'[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#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)97KE)$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*fRR1j_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)aPPZNYNUMfPnW 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?IUS1c5k[r+-H+x#A0d:k2\S&0 U"]e=f6YnQ=\f0:^hs#xq,3OwI%#U5XoL4Z8X[I$yQYYIG U"J9J+dJ-C>zO0(i46B)m#J8w8 U"E,P--O?h+obsC'lj^#eQ5w(zo:HIF4mcRba9'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"NX7iPT[9&+m: U"?YdH%'fI_OHVh,r4fpA3cd)RJs^HJYVg&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[)N U"*C2Q)dTt3oto&+pT?CF]6;Mh&N+C8WjQFTkrSXFG4KIMi:2T;kQ&*?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)rdS%Cd?rM-I8S,jpl[k.klBLC^V4E U"3i(9s%I7Q>>XGn[lHmq:1DPX%b+PULdF,97JiI5vmm^cHKf U"Sn%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#Z5Mn=g))c+-iWp#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;w0 U"tbu^LMCqE*q:^i)-aF]tn4U8c>1Zi%,_$XSUe7g+o\,CUM8Pm\DgaL8b)GNXuDG U"J->eOGh9'YFNrJu-b988_WkjwKGGt<=i*f,M24 U":?6ZDgRr:>BbUAJcm2)[q/T#%Kl5Xd2eijRQ=Fi]5\-sc>Z5,?^Y7]NYwxB-]t8J<[\_\izZDI$U;X/Y U"*dD]G.jrUWNrSJj'):S;:6VY;uDsdiN1Qj=_D+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^wZ0E8_[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[%J0g5B0QZq*#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: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\*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^[9zVh^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.I5H3W;F+ U"3pT9Oe:Lo6xMcg6P[TGD,L?^L%-%U&FN.Qm6^B7.Q]9_&BXQ8dSKPabi0jWd,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_5Nh9R2lMrmL34U7: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[)'o?]y>fu3TOVo?H,&]Gp,q U"DZ]IWcg%Tk6]%.>PJ6,tY]:d0QOY)9])Bj0=z4]'vFKC0ws6[2%wu+=MIntUjusAYH'0UIy(1ZecWs(eEH+-T U"j6uEH#b&;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(18Ek:t'kp(vi's_l U"Zpmh\vDat36.9*qM-J6hh?CSoj&n2jU1$7^7h1$$fXW1>F.VIa2B]1V#NQ\'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=ZiORw>e U"rN9&(Z(#xju+TfFQFF<5ji?^MmtrdP(cx[<8Zqn(NQ&dIxLy),,?vi<4sdxul=duZ4uO++sK+W*(Y U"(,N9i,)jdldT;/kEu6'/yWJ:TWQ,*hzQ>/2-/Tt2=[p/\R4+TQrfG(%WF%O5UT:0&L*jzIkjDQFcOW[d5/ U"4DYJ'D;z:$xox_G[+#9j=dB#p*t\3o]^2)]\3sV]^6$,m-(lE;8/T,ZYfRTyYiT&>gr8gBrtDcMgTQrsHYQTIClNbIlcsxjLD\\.LDnK2bKkl_Ze_M4\% 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