'=========================================================================== ' Subject: IPX ROUTINES FOR PB 3.X Date: 02-06-98 (01:07) ' Author: Marc van den Dikkenberg Code: PB ' Origin: excel@xs4all.nl Packet: NETWORK.ABC '=========================================================================== 'Load/Run under PowerBASIC to extract PBIPX.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PBIPX.ZIP",4^6:Z&=14201:?STRING$(50,177); U"%up()%9%%%m-%o1#jIh36Z*h*7%%$;%%%/%%%%nu&'nsh%SnshWF'FA][k57u4C U"hIeE>*MIO='EH,d/#C)WeYT>i;S;z_Sk)4(wkj7Qf5J&[HOJsOHvNE[M_MSSNY% U"rW,)KVbnIQ38h8useH80pWM$7a]t1kbG&<0BA-c\5maLN*p(z$<6/nrPM5s)dJJ U">5idr&I\3PXo,kKJdaxV0*.VBC3.o^0:77]6#?DdMNY-LUfGHKK\W3PFd+(th42I%t U"A(wQ;^&8D#CACwTPBa)M]Vyr*Xp4g-q%y4C47]VGLa1v5Q4'R+BHS8y6Ak[VAtZtCi.=FJkmdh2dQ0KI U"9p$HwV5p>mwV7IFi[TD,8Y1P_+q+stK9\pC,YZ:&JKUr)7m(u#VbiA91(K\g_BL U")u(^&)0u6xM*'Ga.iJ$eL#]^0p__#jBdWxh)E::7U:^]#L/eUq4,F't*jhnHL(* U"Yk:(64C?hV%&+BvPJsk6C8V,lCb-Fd\E4lMMKq\S\LT:V5Pst-'PSfXt/:*=jGc_.Z1xZqVfkM[8DEWVAmO'0&kefep-bXDj(M)Hxl6\y&LJe_ot*cIdR5I([Q U"g3ESBv?/<6ICWyq/$Ib>CIR8Ap/M$O'Haq*9rQZI/1-B5HKK3>>P2zZFq:hSePZ/O0HnfYCKr7[neN35uvhRMn(#O U"8%M]^W\k=wZE'=dTF]1.7EvI4\Wrhuo5XiBJ)R&h36u%P'FuQZ U"5x-fmi<4d^&]>9Qc0FvC*AnN*).,?K67f/e2XJC+<,9f]jAdDi^',lHT4.%kc'X U",##j#YZ_o5a_3.Ack*i(2+\u,9;'S_v:?-Iw^jU64PW*L['jTTT2-5l(P5dYl,m U"uc_uLea-#Pk)Dw&7#8RKU1h:M.SpLrf0XK2=.''o%Y[J0u9c%Xq^sses'Gto;(t U"r?$nTTMBTvw>f4CJH.DF94qG3vO)\WuXr1)iDtpqW.hev8N6ZqJr8-$$O2SM$Q/ U"X4nhj1o9bq#ch=Zd?FNp7OzCJJ[>aN,tTX&DmK3-$O5fQ+)_%/.?^*0b2k'#wH+ U"Wh&U7\u:5US5CX5mH3thNuR7Li2Yon,4w&aTBU^8/UNT1PZY'.0gNi6iM$u4Sgm U"HsA)mU?/%m=QD6,sjuai^N1Q:i9D2AwUoMVfT][?N2.z+5*bSb7R-paMp3b7o7# U"Jm9VR:>nIj:Gpr6gvE*E*\dA-Cjls1FMD,]gYEooM>Y<_E*IPDE/2ViGr^>LbVg U"*aXF/iaM[h7Q:9uZP_3?H$$Ttqm+?hkiv$KhuZ1G3d;(HGseR%cI82bG51Zc2_l+r+UhW.CA3hh?)8O2.Du:LCUS[UuCrMq7l)EGpES>&i0VCKob'S U"0VWdcNn;f0nlW6%((Wo?KF,iRxz0RDH]:Hh>U,-&>OFA?F-<./EDCI]=(qcLgPBApv*5HXhrGI[Iz%^/< U"zdG]U^=-3=xCGeMom^[f1OF%;AqZ93h)VpeN8p^V$Yw/*'bML'69P),rhEGV4Z< U"2Rn-W_*6AU.h7t)AAW=mY1?vj6($Wivn7xQ;n&K*rdjg,NVWk]wV\tKU_mw6?-I=lLA=Uj.w;M;C,-FH U"iugW6'E3p/wr*uGe^O6ta8?6_xa-,:C3.aJae;:^n?#%qM.9_wWdRcgXRu*\T0* U"/*kb_+cvTnB0'$4v\)koL3G$__UaXmB$0i+R5pvCHS6p.?ZA$uBcRpXMeeZXSmK U"*L,hrEGjQN1GXF6A=-RFAn&PFo5cHV97B.+=K?.&v#\?mJTWdCB7uzs+HkaT'4s U":EQ[Ug>:=?^H8)doD:\0_,liJ?_,K&bAd.l.23ty5ubYTsNs2Na.TOhl)&D6n4c U"j8-*]WtK0u)EVIiA$.>0N)ch%c^Wg7#u6yxBqavzc^H7pU#m4atcdxX='wTo2_BNbyO^FS;j0E_ U"rzx^RqkHVt.7:Js03IL59&yRXbvLne-X&xboLR6A&zkn7zn2SubUUXNdAyz'r\m U"rU;i'DH6Izp-CU*wPNA^_O?Py-04\CvG86vd_e6lj6$xaNh:,d3,M\d[8zTxtkN U"BCZP[&U.'U0z9u<+q\?2;+8_#nyRW;KO]F?';Dr6Il#,YXtIOa2f9-yG8WIH8&V*idiNm6,<$dTN$o]dRQ*cmObJ&z-7N$w-7K+P, U"Hh)MOT3sffh)i'w>JuM[*\Go0\I+=)8DQ1VF0sp,NBC;?k_haNf5,WMWn4[mx$f U"HOwsZHa3iA8ytjb4yFQKuuB,)So4>73'nfNy7HdVz57Vwx-j_c.UdSwUpi.qr=& U"[whmcX1%b)ZLQ'zU1aCY>D'l&JxWv)I$ACe-OfNbRDc\^en4.oYJ$?4ATWp,B6F U"QZM%dl&n9nwP?Tn-UU>lTtHkd^qQ.L/?cd$E4dNb^gSM=/x?X\Nv>=,nwnfZW#' U"rObtY^Oy+\hSQw&lixty/o%Y-,P+iQ<6%k5Oo\ar6iEe U"tGdU/)7R<=959P[,*\i0f9dddHVfg+RdGu U"-r%lLFLSy-rR,GnB-*c?p)*y'S?T:JEc6Z(x*Cwoc?SvAUA3/+ju64nOq%CS(*G U"=QWlu1Y02NqX1l.y1y(:r'2S1slwpSDz[4jpmj'cu8,#hVRVuGkIAajZIs;Q1Sb($S+4b#w[quV0a'%n*t* U"-'^vhlsm<4Js1;n8VOSLh]>?4)=#2Gqf'4rB56>V7Ett[CSCzR94e5I651,p=67 U"innIJE*Dw#$HWr_q?^u9/Ustz%S$Akj2YmRbHg U"-X?H#+cZiDkso)+LKt0PoL9Z5=NB1[/9jY0PV%Vs'XX#P=6aHV+HCh8\TZG$eT+ U"wFa>V/HY;Zh&>xjB)T7SVGLC2,5ZLAJ2B?N:uOliI50+pjAm&^q;U:)Ou_xe?8; U"cRi/&kud?II4g2]j%.+k1KHuKwJg0A:c0K>tD)%DmG=2S9f,OCcjgQzwz>%a)#32I#^iiNrA,N8g*jm,4#$;>r)zJKmgu5N:b2;=v<3Iq.[k U"ZL8'D)h#-Gu/Q;bQ[r_2 U"\wb.cVE5Cgz]ftDSl7$t*H$SHB/j\X5rH/U6uT):\]]abIq(OJXoz/mB;/AMl;- U"_0ccV(MV_s9aId.dRGDKW/TyjJ_]9HL$'TCmnJOHbXN*0d7M9Bt*i*#:;+_A4H4 U"J59I4&B6h9w#8'0Y3>+h\'[p]x%eo),bsro,Dk86z%ZtnUKO+KLsQ1c>mNo,o\I U"mgp0me[3;>OfGpN*]9t<_aJOwAN;Q6IS&iq\#lO+g?6M\Umb&#gH=-IuUK%+1pq U"fTk-nJ+XT.nNCbbr9_q[k*Fh)Xz3M+gq2LM_2.tJ%87#;o8b0*Nt?6;GrGUIV*6 U"%DJ\874po;65/jQ)YCG-C$_=>WJRNQ23)6$nitH^TMbv=C('UXpLq>4UviQ\n9TShI[ESZ[COjn+4MU$Y:=D=5X,N:mM%Jdvmku$W&,m* U"Yk]f4&lsZxG7bpUdG8O#oJmr#_c])I5oRlG.0[#2t(R&Q*cdmc'P:%7/>c(U0%q U"P^xzh/Kmv?JvI\9SOMuAp$Q)?:v%bhixB4Cot8*6j\,hxEY3qf>4&$-ssb:HriN U"vZMT.unWa5_m;U('Lkr0r4i#V\nVkV2>d1#jXlmhp^qvKotGuuDV50C>3usXA\l U"^h2g\NA+_K7c7CYLGC_kM/nwV#MrmR:*hFp:5xjI0YQtlr.P+o2dKNiaIFE?hXRBrw U"-/uhlNb8JfRN.7#MtPQujgMlh+sY6vDkA/6ZWar?1dH*.zrNsm;.]&aA&$RntQM U"4EuCh_S$_=LkhSa#EX)TM:]RF]f_,+>cKZ]VBSK'lb^^\Fdht^b]u$u=Yo3xNLsB0DKClbxF U"fg,,]bN[ACDjcuYI1,.$_^fG9eJ:OJ6K75,+W10=Wqq7n'OipudLzHu+c6#0[#q U"aIzGkHn9g1fdq'%Y2zi:hi%nHXqRE.znOjGWYqYCX>?-5XX1X6U.id%.[C&TgAp U"f0Fj4OMeuD%an??4h'561..$I&,Id(#/.noE.Fw=\pP-$R^=x8N(D?8H7P.B[Dq U",hC>GNF$kpm%Ab;289h<6??I^ww7Was-F.R>h*s#3so3Ae]&+V4)FDhtM1C\P=, U"+Xqk#i\<$6Q^3qdv*V)9b-?IZV,^O0Zr-'T\dFu(Wu#\a1#S>19+aL8n9/i9jF, U"p^)h.h/C;BqYuH2.aH:[N8t(TI5dbmBTK]]_-XSQ_6.n1,=XZQMePnQkVE4PkkD U"O>SO6u(YF)i9X3sPMg;Mxg618b:CJn)N(E5HGkOZ/?Tmeo U"$woz/p5Z^oN\:R_^1c&g5:/qFO+Da=a%T&>4+6-IkV50cJK5E,%f,+B\cFS&$V# U"t78JI:tGfrya)362VAPR\^_gaf=99_HDI-[TLE=C\bWgF]IF.51(IZ'#b-::%CE U"PIjD5t+J5a(HmfGUm,o&LMnGpAG U"GAdmFLm6;&X_:.tXK01gP(gft%#dpz=m8&,,j0q28Q#R)K(=kVW,%H_Ltk$Jf-; U"b%TmmX;vYYZmx\ct/^'Qr;O=D-n*cGHIx-E2?6AYP:jj1],[P(i0JUC#Gdn:Z#J U"af#S)\-7H_-jIl0HLh*zK[>%MIkV^uEWP]u[_i0>\%g+TJoCuMpg?>5s:vW?8%^ U"P?O%xY_H*+&bIujSPIG3[y,O,*p);Ob5$Y1%*Q;E?XtrWQ98)mG'KAZWNC-%]sh U"FER-/?EMyVCID=UL?0yue-ID1LC5p26A,J,8ST.Q3U'Gs?l5m(yeG8/t4m2:^GR U"DJvluhr_sUg^Anl:Ke[=2]1NJ^]Mw8^_9XEGjduBY4&\abnb:,*>1\FZD$DrA)y U"Sye%y&0k+d5p*RLZ7^3Ph/iV1:TS'Q8d#;nJYXK5BDTlKXI^e8FUk2S6:SV%KOd U"e:p-:Kx02W4Y>MEuk+%lrH0cq#F+\[u0=0^,Xe)?/[TgnDNby.d>rY^<1'_13)N U"nsbzJz;4\ULeDD3&tEw[>R^[1,V5K1,7x*+/+JoiWw:/=s>Ep(%Q+%G.4N+8*pD U"$-:iaG[7V$2a*qM.Z7O(Z]U,y)asiNlI)-t> U"IKo9]Q U".IlOfFF:p[]fh6(#Xj8R]/.e9-Tsb]+p;+AaZ:GJ7&lYyE'fx,[Bk(?3BW1tPlQ U"=/*nwP+X(R6]etAN5;kk6Hj?Xk U"v1ai[,t;_s6qbZBaG]3h\VB:Fhl?^vT^X3o>hgLDU2?*h^/iV7af3cf]g$?Fo*g U"3Wa.b>F)L/zT47K%-OV:%;.$OP^_Mu'rN-BdX U"xTaM#/AD?1[ZV->b:-j*x*+QNVH)qp&n^hfR$(?\>q)f'>(\+mi1H//i$Ck_Ma9 U"D\mNugi-d'_g#.3(D4o<8H(;A=6qr4c1,(Ls37c_7.i;1Z0J58^%s[c9r$hxX[6 U"LT<(irvimYBaW[oJ7n^aTAaA/D,*9H^*F.O%/vgU=vvW(%0*5XIQ,Kolj$PZ.C+ U"xp#H*0)F/,[EXAejJ_w8CRSDbUZf6A$8G+P_zM*GeBYgY.B7+8%ItD,IGo*Y^3u U"OJRZ;'p#M2\PQVmlq5eZpwc(B_K+Xnc'o0RlpfkGidl\pb'q/Ap44M)nxl%Y+?Q U"Y'&4$\'/8f1C5;,u5\1G9=y)XrNfb:UI.YZI&0Q=w0U6E.V:PS'XOE_#IADU.%o U"[%gGugaZ/L2P>jtGtQd]X[cY3)NkAQ\^dh1c-CqP$f/;18[_,jL_P?e?HEEj%,? U"nJ-#g8/b[e%]2ngFSo7w8\pLIUtXI)[I[)J,oH=t:5QVJQVcK U"Lc%=g8?90%e%e>&)kGZf%XqMtIs0K/O;e*xO)A?2_;Ukc^_?'E6k$B/5;T)lJ*m U"lr,WX\B:wbVgzItRuc3Zjbl2R^ U"D;)nf#xODz2_WXhS;FS)7XL?Se;Fd#08WpN8[XnIla0x8rTR'2zWNDWUM3Tc*6BV2EybTk U"jX10InC.X#6xh1kKtxl6gL&lWH4&r.TP,>AkZzCakuxupB%XSUo U"wn]xrA0j(=bh5;bS/X_q46E.B'tT>K?$2-5D?k#RZT&zCre[C(VAEH%+7eV\9Pp U"$.6f:)o=f79s^Hph&-DDD,r,u(5Zn>SD2q,R;2)=Z8MmUCt6dISs=&^l8[cn?b3Ya'MO6c U"e=G,2h_igPQ>-HfW3#1$FQMIO^D)rKzrgr,xCXYSUq$[P1#ninhT5-Wm%:iaj-W U"eX\8-TISN#\AaoO)>J[A)cBKlxgtx(^;0ns-krV_M^LtlwVZ\h2]=8,Npt-:0t[ U";I7U8T[*cLw9-+obOCvAiDC2ah/V0iV\pb0S98<%jx,USKBBNV-8]*g5D%Z,Umt%QeWVN=+JHPhBwVd6 U"sZ8(O90IitNGWsi#xuQuDD->ah5iHDp/-<_3&&2E*;^,=&T$&PFsW.>C%*,b=7p U"2c3]UK.kBa/g8(7_jjRdaxihqF'bw\fgw9]RVx=fNzX$P7rfJ;B0\VH3KP,&j?] U"e+qB^vQRRc[8$y?uVO/MW5c.+FH[dXY>q1l&aPGeK*obOTA*n%]SbEI;JB U"NQX,A[5AjXR[L&guM*j(tDD:,9a,tEsRQT.P/Vba<*0lD>LQ>)g2-Np;3QZSStn U"]a1kV5Nq-zfp%1;1ZqGrmi&*gBp7Fx2OG&r_\S,30n9'qMl/adhEwU#.i_1R]ZO U"9dS9QthswMAGk))xF;;.6Ar5Kw+T40*RqjlKT?J]vTE*6O+#JqV%)G$u;h^tJ2X U"M:l&4?0(_W>B%n[07rLtO$iMecOcdcWbTJd9nM=H.M;pG]ZbsM\*KAgvZ$kR[Z> U"-%G;/\pi?('mNw>_P>iV+&RRItG2#BVKT- U"dlDqcG(CVc:GFT;]'m:[dfm(SO)]uGemR%SZtVd,BH^FZTgkSMhblwW*Xgl4Ru6q U"CW)p;%o]+fTv^eKK5Ou]11*JSC6F2U+,D(V$.r2x];Pl$;wnVN21sEa)I[63LdV U"ykQwpUboODVSOgAsNi&UnbxR^$#A&jY?mqR7n1F.DABMpumX&aIl-7T5 U"q6+<6.%p^y?1%qeh??JJZ;fzKC';uhJ/XWWp,f0LQU-$FO=GAPGG$-Lw'rC/V_W U"ENC3j=CZZ3wdVuDj4,tjdBVoFz)5WwpVS[=RR'W*e(&nAxse/H98s^8b=:Z+K[O8 U"'T>me*w#c3psOK0UH]e9o0d?QRaCh&i3vfN?S<=*Xb0de4)=#l1O'_eVr^mH,0LK[lxn9NXY6SN&YaQ/,A0Nr*ZC&9Yo U"/pH^Ti#YI#MU^5W>[:.tf2ItJ5fJCuEkt&qAR6,k0a^zPidVn;SXAoJW2->-*7g U"u,'dZp[(n9&uCLUg$#K$d2t8cQY_P8+viW50]oW&,?KQXycXxUsbRii;sf]c;\k U"ALjTNV:;zjg*t.O6^q#zppy?4u.w;S3tG\<:j)_r40qm]6OVAVON=Wyo&ll U"nRa^n+e'5L[bW]fFF$W6:j&SgQbT7&biS99SGjo;>RwO]\Y5#RprL<3V0^$K$DT U"+zSg\('=1\GC9K#[Z=98^YfI#wI&CZ+&3gquHpFe'$/L&V+n4M[txD-bydaC)#G U"Iyx_nho6'm1+T#sG6ZpQ*Jar:C<\-Jj:[uG;Ohb&3960HvoU1nDLwNxj8DY,)PM,IV]6sIPDul6Jfa-7$)1FM U"'$>xqeV/WbAJhHpetAVd\j<(.JZD\pZ*X15n4p'Zq*4Q44erXiBUz4LX39iM*A= U"zupD(0eBLz:%HM*TuT2u#gV,GwG>2-J0\PP^/R)ajht(g)E:+G?0*YR-Ff5nYU[ U"c\$29AGNL7W3k+at$GcN[\F)2u:1)VH6m/h)sQ%PqA%8n_+>'%;h,gh_C2j0uDY+qV%O_D U"*Zmw=y^/NU>o.Swg2TM>tO_(A2?dm4E0+o#Ir>JFXmoIV/FtogN U"6$+l&,JWQvoJlosbwC)u6T+cu.rv*WN(u%p()9%%%%-=%$1jXI4^+,^X2%+%mX% END SUB SUB V2 U"%%.%%%%ugn(u'Sg7fxf?q,BT?lj2iJ5NQ$:qZiI)/s]#QBPsNYH+QucaoKDBBT6 U"]aR\)hg]h%%5D,D)AYH28g[QO&4JJ?t64a6qpNDl]l^Vh U"lR.Zc_enpo_(UxWl]CW[.3LW46uynlv$01Zs4ZyL:_tqI&qSSj#*qkS[iEVQ(5^ U"*(]I+0Uz5.Z;2S&is?#p])cf<^jH%NDx^0Vg9YPrIv9Ck4mG.5 U"JsC*]2n2I:v#Cd/.1h^V4 U"0H:-$jLgem56eek)_#Zxq9Hsmrb9.S?)jmj64HB\U]t'1Dk$^TUI7;a#=m669Y?qWxU6fs.9D]3FE%/i$pw-CsY,3g)FFsAl4H U"coxf>VoTXcHP\T[t(EPtGL:pVt)s]b=$F')s/NZrS1/xP1\$^PI(x/823'#ew.q U"J(E3sg9>T1-Ag3\XS0X1,YZ0>W%yC[PN'T*UMgE?9vSGQ4M3>eMM1P7&CV#>:pp U"cPNGeK\N^]&,)-4FQx-#W[hi&o]K^=hT<,1I[/TT/+8f:EnLmQn&b^X+Vw U"j?v?,K=a7Uuj-aS=\p'sN4oAHC#r)YVTp2[,J+IWhb\;jgYbK=I=DY'G%soZj^Nl6TJm4qElJoT_H=?I9p/^LY=S*t=D]krnI U"/7yP+m'JEB.CARdUHaqYdortLIc#Il*Zo:)nakJnY3[+fo7;s&-O'KF)>htfS9B U"ajP&iVCTs>qGur7*M(qGj/NTT77\C<0F+h&7Z14c73I:;%%9t+fgha8*=jANFe2 U"Ab:ssX\GZ?a,'Ls=fX..+\rf9Jj-9rJx==ec.UP2#whRN[*(8Qp;),U=2>I<* U"s[D3u'NKwqt7OKPZ1XN.Ixo=%'Q)Q9%L+4/8e_RTSO9]8[xA78>7loHxjLJ*oH) U"g9r.YRS-Pr-P8/*>1>wFjTGosrl+D9XkmgrlE14,bMK#j,,YJU\[I=qc6D#0drT U"Y8oF^d0>QiJ9[Y(/bCZ:-kUfUngpKW.s>CfvY40Pxi9qOVeTgF+j6)d_F/n]$;1 U"0)q#y80ye5Z8W'_xZH[a6dw=rFfmmwN6=_I0q?lZS8L=UL;[gbaPoYaK2GMV10e U"QAMGd7f_>_Zd+l0]8v;88U[^N7kD%mstKsDGW3BYeW;yJZ?iI1HR[O&Dwtz)fn/ U"L*Ig03+#0PNwIdj[hMGRp9r+ U"(o9=+N\J+V]P&-s_f,:A>qnH-uHnn)R9o_gNtsdD'u:-%S42c^Hp1c47CoK\pIo U"UD3Sf,Ro>Mt\c?7>SsWQe(yY936KQ2iY0t)i83(h.:x(eq*;\7eFI?V2MdQrDQI U"Ah4[O6&fS?O+oKIf1^1T^]aULE$e0CZw:neh7YsfM-rLV>lUQl=ZJMxHJ?GxrKK U"p2B3?LXMYh^.^HojmD;Mc6c1+:m8*A1&#_*=iTRzC&(/?D/N;>3Sig;[gp#6BH-aN0d:T>r2t/<2y1vr8ct1t7hHmi<^g_vI1k;8+ U"C(7ugXq/:/uXTvCGZB%(tutpg(Zf4PR7y$4I5M*U2cefh?A'aSH4+.KkBtbRpxi U"%Ni[pEJ>c'k.fHnE;bE7'OZ%PACWR&&Ip\)$&47#Gd4kar/Bkje[=du9rMFI^%n U"&xJ0*G:2SxJ=#Bog9]1_\pP:Wv9*DSQtbZE_;Nk5gNu?mqTy'ZKzOpGdO5')Zyi U"Fb17$SA6AnRAf\f.wbpq9jQE])S92U.hN]Q;Fk'7LPzyotcCK1Yk,i1697b],[9Dqp=US U"hUEY3=J,DNg18&p>ZNhK&JTEnfiXLYfo;])6Toh_b.U\.MuPW)p9K^b#)5RN$nE U"XGWdP1Si,R,]2Qr+sFMvI0g/EI8$\1I?Q%;HURI+aTME0,:<2aSAw,#p-#>NVSN U"XI7txnMF$>C-*xI,j5?g#ES/X1w's6;Ky^5_g-uKeXUdi[)r U"8t%(x>$)Vd/;V#3KoLnMSvcBTpU4oi?24)f'C7]#S^J,l)]SB/7Wf<%e*uKIoAa U"ILw;5:#tm1=%SPfde'23]B4M?=KQ5lvAac0#vi];jk0mHRO-i3/tf1o-D3*_x85 U".$mvgR_Y1geF)P/R']BOx;mZE#G9^6X2'9D5KT^/xMjnY+Yok1'0N1SZ=H?'qV, U"3uV-ZO)(X&C/NIbOfgihW31O&QN403Dk(*ox_Bi>a^=sJv1X'AE3ttVsNwYzTmP U"L#*n%tZ'Xf<8I0:CDDvVc(X:Igdx^%]1Lo?bC2o?EM?5W^_&6DhtWgK2/k7c.Yh:4]SFJ0dK^t>,*cI*] U"Jzl9L#N#e+_'GLLP>kTh\zsR'cFHqVby3)#Uf(D:f%sc[r=$#pDjWV6#w[q\8W1 U"E7R?CXua\(gU^RWeei\cshCd.p7yl#?ZUJh0)n-e$fq22+De^#VA_+x9u3bsM$6 U"63sjb_5gFKTS'FuhM'E?<0$8[ieQ%M2Jvu'X>lHS&vvUW]Resr)bnB9IaU[s)0+r/hT-%i:'PMk&Ny,/?.=$ U"\Gu7F07p\%y>g;=;qG_-H')2:tB3C%0G(=$#bnSPQ$$)jk.5c7ut)$#V<=VbSH0 U",#zXH(bq&^tN;%Ma_$z2fhzCfnc5KT_?B1xq\N^poS)cF#/0P,>DjOpP+#dm,AnVP,QUWEFkVt[lQg^E(L0nL;^jeoiP4W]Z?:>I0bXB80:OIS3M;y)AjencMK>PjtD)rgLn8T(u0NVVf-eu2nD9( U"^^AjY,SUDTK)EGe(k7HWSND:p'UGc[yo,_)&&B;ipr&\2%qh4MI$*k:gcjk8tZ. U"&tw-cPLOM>k.a\?fz8.-vPOkNP0tG)e3zVU;uh#R([r;7+/Lo\-t>AV?'%%,pOH U"K:F/P86l^kLd5Jn*%b20S]&tv5udTZhaPzvC'F(rnor^x%(up(%)9%%[%-%rB+j U"I4s%NmQ[%%%)%&%%0%%%%k#nqj.%niSiLn)\_3H9Re:5Vh&$X0s2Z&_XpBouuQA U"_he7jN6=Ogn+k%W+zJ-Ws-.LSO;SF'cK/2g)1M0qP>7RuX;ph*nK]H\7F3RCOM& U"j$BQj1n0xX8:$]HXSF'&4\M+ah8lL(v,VUm&PB0Pr+x$zN#:?P:%tqy6N:2-8\P U"U+<'p*Fm(JwoUrbhdb8gEZjn8\/2c/hdVW4/;&_'BRYB9:Iw8/N,1oN+ngtn2^O U"pxY$V#'RwHi)lgFOhHs4P(UJ-P,P=2:;kAz6]60Hq_IHP09DM_&rdup%&'9%%9% U"%%m-%o1#jIh36Z*h*7%%$;%%%/%%%%%%%%%&%%E%%%%%%%%.nu'n%shSn%shup% U"&'9%%9%%%m-%i1djID=.$Lw(%%%n0%%%/%%%%%%%%%&%%E%%%':*%%.nu'i%jhS U"n%shup%&'9%%9%%%d-%x1#jI0h2Ma$B7%%fq%%%,%%%%%%%%%&%%E%%%&$.%%.n U"u'S%ithu%p&'9%%9%%[%-%$]1jI4i^+^X[2%%m%X%%.%%%%%%%%%&%%E%%%%lL% U"%%ugn(u'Sg%fxup%&'9%%9%%%m-%r+.jI4%?NmQ%7%%)&%%%0%%%%%%%%%&%%E% U"%%%rZ%%%knqj&.niS.in)u%p*+%%%%%*%%*%:%&%%s%[%%%%% END SUB V2 CLOSE:IF S=12AND 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