'===========================================================================
' 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+(<aMh
U"FF7pT_Ug)OiS6H?aT$M'i<G46M-kU-tsi^DG<ILLW:\;/wtOOCXQ8ftm;mUTwQC
U"=D7<,#BR??UwJi)Vi4N;k:x-*;4v;Rg6L8'WIR=z>th4<u$$dntI\?rXTU0BeFv
U"*supOwB(elf(CAi_<J4?ogg_mH9&'$W<hStjJu]#9MThg8*f._OIG;:4Pu>2I%t
U"A(wQ;^&8D#CACwTPBa)M]Vyr*Xp4g-q%y4C47]VGLa1v5Q4'R+BH<dayT2i2f7B
U"J[BC\7N5;V.=O*u-Uc,Fo#X<#(\XY<d/(n>S8y6Ak[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<WBD5i-aO-F9DJ
U"J?JF$qK(VDPAG?Z%-Z'8mtD<H?$K:5Z+cpM'kxgu<<B5GzR_)d/-,$uW.I#N'2/
U"eWAbG;)?tshgGvrdM)]JH5HRmn/YONT6AV]wZVaE'C\hO(n,gmpV(X%Yg63%'a3
U">-'PSfXt/:*=jGc_.Z1xZqVfkM[8DEWVAmO'0&kefep-bXDj(M)Hxl6\y&LJe<n
U"_<ny_0Lt$t.9v7ioem^i[1/k8:p6(Z14Cmg.YWjW2b-DtKbzFsk&v^LcTG)kc.B
U"zDqbzwh,aTXblV*<MJL5I2]mtiak\bZRqbl_JHB4VzmvHcFsB>_ot*cIdR5I([Q
U"g3ESBv?/<6ICWyq/$Ib>CIR8Ap/M$O'Haq*9rQZI/1-B5HKK3><HPQtieC,)Qjy
U",418mO=6;.[utrF\/3[^YCo>>P2zZFq:hSePZ/O0HnfYCKr7[neN35uvhRMn(#O
U"8%M]^W\k<KIjjPE^qlYz>=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<R
U"bgj[O=nPRGD2N%%up(%)9%%[%-%iB1jIDB=$Lw%(%%n%0%%/%%%%n(u'ij%hSns
U"Fh&z.,^[[58Nl[$fEh&).:,FAX_noppO_)Da.+YB5-(^K\hJ;?3Z;VdtLapcK/D
U"od-Shy$HB+FS0&O0j-Yq\X?wFukkb?.xV+3v-K(Zm/C[GXmqLPx81cr_Yl_I<8\
U"TLBcuhD)s:R4N43B)0-P^*O('5jVEna+i736JTv%4k]<I.6JGZpj\F(NzL=*e0o
U"i7%#;F#i3;,:S$Hv^Q-.^#l-3y%-*HaMcHwZK%Qcv8Wo]2S[)[e=-E)\QHdJoV+
U"pYwG=mV,WhM9,AOq<+<-F+lL=:BE_H%Kf=g2tG,Wa+J(A'joE&>_l<fEtgkrl:C
U"l&,m0OH.1f&>+r+UhW.CA3hh?)8O2.Du:LCUS[UuCrMq7l)EGpES>&i0VCKob'S
U"0VWdcNn;f0nlW6%((Wo?KF,<iC+]YGhw(ZpW?N?+XgsflsQ3;ZRJ/y.d/Br.]3?
U"*=E'>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<PYC/.w;df'E^+_[Xp,P=v&uW-D]z6JHmGO]ERzhhklFW
U">=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^H7p<p:%gpRcCBERmKieq:
U"\n*ZOcL&*oYR7hGGlXsJ,$C29G&/cunYl+XQQ,5oh,J+1_=151]5.ii_eJp%qO)
U"OqPH?r:TGAYQ)(=zMem(I:arMv=9CiPF<djj+eR]3zm_)6ul&IR3be8HP3CptiE
U"84U<.16DF91;ZR1mjLd$;cp(/Eg9;E(jt:If&.up(%)9%%#%-%x'1jI0MhMa$[B
U"%%f%q%%,%%%%n(u'SiRth&K*dA#^5agNkTiBKY#cRNQt1DPn)GqtDe,M*L$+s6b
U"H*tL'(*a=:a0egJsYt#7?PGg(oeke7?L[D)eyuceZf,JY;8^=g.J7XiG-7q_uw\
U"8wh_nNfHpaDCMJICHrtXwx5NwuP_6;nH>U#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<U4jFuP4\VNP5WM'LrVZI
U"t(ujC<YhJ^rRaGNV6bLl?Bm7HP7fdhP%Q=w<B.PKT4<7.11^X3km6o8T%0OTq6V
U"ENH8xV+rv*8P'hBBB$nJL,q)&]e(wbNr&<yfsfPxdVO$SgI[fDrrhvfcRT^oN5A
U"9/x>#,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"rOb<t_l;(bvYZ*l)e[^k2Ch&MeyU$El3bZ.jft3i4D^^hzx,PHI=F,XWNdjLnVA
U"tV&Tk:Gmc?iha_3JP+T)bbnEXGLx%mkON.r5Wpo^_i#^t&_NsVHsiR;sWNIk'7Y
U"4:.capA/Rh:]vOzGe=KA,I57O,_+53cLl+XO^q8)/68^tI&_Tu-I)kxe-PQ'X*w
U"<Hm5GJAQk1gpTy_VM3'9?>tY^Oy+\hSQw&lixty/o%Y-,P+iQ<6%k5Oo\ar6iEe
U"tGdU/)7R<=959P[,*\<E2^l9&.RE(:x8WHl$zML$7y_6gx>i0f9dddHVfg+RdGu
U"-r%lLFLSy-rR,GnB-*c?p)*y'S?T:JEc6Z(x*Cwoc?SvAUA3/+ju64nOq%CS(*G
U"=QWlu1Y02NqX1l.y1y(:r'2S1s<DO;wjU?B,3It6U/$as7T2BmJVuE]6=y2'iO*
U"vy:s:G)C0l/eFnwQ%94_e=R/:\D]9Tp&oF,l%4*LnZ-6QnkjjFu1nb^j0C?j]ZE
U"$IuW%B0;O&N_xK4*)75P#jSG3]L(XZhfrZR/_S;jNsZQ8/G(x*CdC;%lYaSBGmk
U"NwNO4XfErC,%;U^5j'wRQ$bF&GM3/LKO#K,G^0?5NZPC]dLuxb^nPVjW7V%wr_;
U"3b;^o>lwpSDz[4jpmj'cu8,#hVRVuGkIAajZIs;Q1Sb($S+4b#w[quV0a'%n*t*
U"-'^vhlsm<4Js1;n8VOSLh]>?4)=#2Gqf'4rB56>V7Ett[CSCzR94e5I651,p=67
U"in<j_%^#(7cy[B4HDHJ8.vvQv35uOs00;bX6g+UDviEo?RuY&\L4(s*p)ji]B:C
U"DH3/1t9a)1kq5q9h9A9d=+-ps;>nIJE*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,OCcjgQz<Ih[vnPh
U"L35IUiiQ\>wz>%a)#32I#^iiNrA,N8g*jm,4#$;>r)zJKmgu5N:b2;=v<3Iq.[k
U"ZL8'D)h#-Gu/Q;bQ[r_2<xM(6gL:x=Up&%_HwHb-C[[H<JCvC;\nUA.(w%)HLs#
U"cWSh<wS:c9SePjCLk+.a)m]%5W1MT(0LQL;=7r6Y;ZW\'T9)tB)S8MzI:fO(%D>
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('UXp<J[bz*Q8Gi9d
U"L)+;FBT/>Lq>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:5xjI<U7gk=d^mr0b4TuBV:^rfvj
U"ZrPUkOZkI0r-0X=O-TtHbXdw?s-HSntZ7tOc>0YQtlr.P+o2dKNiaIFE?hXRBrw
U"-/uhlNb8JfRN.7#MtPQujgMlh+sY6vDkA/6ZWar?1dH*.zrNsm;.]&aA&$RntQM
U"4EuCh_S$_=LkhSa#EX)TM:]RF]f_,+><gA3)3yN\Z''ECn,(')21yBbOxdq=WL(
U"?bFoV79LAzn2epOsnNLQ$[hrrrYFgsbUgP2_Oi=%h$?XJ-W0rA#iCj[O;&[E:Oe
U"O10gj&vAl5PWN=Xts6n$(>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;Mxg61<fOdffQpJk9urioG>8b: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<gH3461IA=Oy^w*kYb<:PdQpu75XSsB/0,b>,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-:K<k[s?'/E0%oZpz=*HeaZF6DL0Hpg_o+PD+Wn1IoJp]'MFEvBe%*ha0MXm
U"<(DlY>x02W4Y>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<cW?-L_C[o.^S,l&*<1=)Ncg^_>>
U"IKo9]<Hi5*'9BC8s/[/f&fBP&=E7G,g;UF%i)SaL'QF\=C9&(gQIlRrs;j4+8>Q
U".IlOfFF:p[]fh6(#Xj8R]/.e9-Tsb]+p;+AaZ:GJ7&lYyE'fx,[Bk(?3BW1tPlQ
U"=/*nw<zkkVL.(]E6Fh#-fDDCxO2=v-wAjOs:#OOJ)&1__9'X(f*7hl:TSPeM\)g
U"SQK\W*3D2\jEdA+.$Z=fXF$mLpWD:..jj//hcVpAK>P+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:%;.<Pug97o4)?k/<gOu(<),%l3h'QipJ[rirf<cJ-uU
U"(+Pek4<>$OP^_Mu'<f]aH2Opg8^/fDqs:ldC?j89\R'x0%'jzi8CaFc$*;fpSF3
U"JO2k<j5$/+geopO6-)nF7wIVkM_2x)S&&ps6h,l?&\C%A%#&4L^NQbOy,'PF['h
U"32s+J)o$Yt7HbCnbCg.GE'R0ts^(?sE--1^[QZ2C:yXMKIs?kSSsL<Sv'NXqa0E
U"bi_Q7kt=MhVrqNhaue_vfYVBa=f5DB?*JGmLj5p]*\a/r)QTf[1cjsb9L4+I+h=
U"R]IskrP_=]7.SDY7/)?n\<O9LIlEY7fp%JTIR1/8fsVUyYZU7Ryb0#om=P[&Gvs
U"E4lGh\O7f[k1.%C8T[%)*G8rOjhu#C^m^z[j%Ga=oe5^S24d(.4O<<,ekaSHbv[
U"v?+L0i,n2d4B]uLL2E$q[]shiTI^;A]=mU.IT^?OOF7w:[cEICy;qVC;m1%jpO]
U"9Bo)F.9xqJ<DS/3BSa-K0s?BF86_=T&vi5FOHvE=(deVP?WG?i8F9CpA>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)[<jY4B4cL*e&U[>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:wbVg<Oopu2Y.IIYQ]:MjP82mg+WMS;p?\GHNOXq0XKh-A#1rWg9p4i7
U"3(3r(vNjT=yZ?V[anG9MT<S?5snI+S?Gk<y355o/9eZJeKE2>zItRuc3Zjbl2R^
U"D;)nf#xODz2_WXhS;FS)7XL?Se;Fd#08WpN<K1(8]ya_i\]2&*hWx(;,uB4;h<-
U"G60PuD6eP*Tr:M#U3;)52G\VyMyS&d4Ox=juw1rf%h.RP>8[XnIla<Mu4\?U(^,
U"KbZ:0V5sOxl%3r<cRBeH(mo0(1D6gZW<NF>0x8rTR'2zWNDWUM3Tc*6BV2EybTk
U"jX10InC.X#6xh1kKtxl6gL&lWH4&r.TP,>AkZzCakuxu<f)PDaF^X=i)$AEj[2z
U"/nPg1B4-T?12U.SKT+K<E[rL7+.r])3_gab^%c2zgI.U[<F_GuGYNIhtu$TlL3[
U"dpHaK3?*S7FiangV]71UNyeG6I[Q,\U$PDh;u5H<OU2N4_y)]ef6n^nfj2?fpI%
U"(AR,tkiXCk$_PNbuVaLZ\]scMi1sVs<dyo2XBd5CtKmu[QTtKC;KIs?W8LKd?v+
U"ha<X9W^U9M9n;]]1vM0*y4PW8cBV5-;cYD?7GKrYe,1c2*S.52^^a?W>pB%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,<L;LPdL0\rxop*?C)hjie922b7ez
U":vA&uyQIY#k]9'6gU6.(<,](eVf\K^qt8<26xcK9-MG680cK%hJ0g)oIDF)%06R
U"/X.1[bR<.^fa)LPC:5za&A*ENsE>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-+obOCv<C)FA*D'g+rLF#P\RF2dM'H8#'sPd'/7\U&j_75f9S<O
U"\*EUGlHitMQ]LtMh-:LZE5>AiDC2ah/V0iV\pb0S98<%jx,USKBBNV-8]*<Na<X
U"A=Y*O18R,3RxEm;GplZa14;%aCrOYwA8$2f&>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*<zux>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+<f$U[e(y]tI(azi0;&cw*nC7j4]B>&RRItG2#BVKT-
U"dlDqcG(CVc:GFT;]'m:[dfm(SO)]uGemR%SZ<L\1o\aZWaL.lqGS9^6Amc^o;Ls
U"T(j/7F[;n8ll+_L+Z0WASlAtn;Zv(,n\/I>tVd,BH^FZTgkSMhblwW*Xgl4Ru6q
U"CW)p;%o]+fTv^eKK5Ou]11*JSC6F2U+,D(V$.r2x];Pl$;wnVN21sEa)I[63LdV
U"ykQwpUboODVSOgAsNi&UnbxR^$#A&jY?mqR7n1F.<o11+#[cCF?YT6Nj%m32mDG
U"W\WV;P5mT)n,*a0<=(4011%DyNuXpDgb86?Kuavt$*(.2lJnkp<KXmxY5lq*Yoq
U"C5NaJ$,A,b;jjF3C4R-&\[pa[UnSjybx.2AMfOt*q.+0]cSYkvV<8'5pM/u/ux-
U"V&:K45jqkT+uBf<<ae($UnhR^Ztjs5$k2W3)Pm$e$',&&[qWUq1<*5_Ds91h=b%
U"Qf95v/sViuS1EZoxWM\R?Q(hXFkAXrYgujR72(B,p.B)heTYjn:%n?EDb4LSv'\
U"o%D3P+N\$9c[:ITbDi1EAcRr83+j/]*e%a^'H\3K3?m,-5>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<oRqVDkq=:Fv1tg
U"'mlF6d3\Fv0K;aK6I:iTuugEJ9i1)xD4k)V'4j:LO</aZRHl.Afi;Vj9kZ\(dA7
U"VV5;cs$X;4\Dl]cHTHs-OG6\+QVEV)Cn5,V[lVq=jUq'2R>/H98s^8b=:Z+K[O8
U"'T>me*w#c3psOK0UH]e9o0d?QRaCh&i3vfN?S<=*Xb0de4)=#l1O'_eVr^mH<YW
U"EV53KNf;n9BYU%)ECJ(#ih(g1rc:b0UGimT::krlF5lT/iJ1DBW-.^aI:oi]t&o
U"R_2Vd3O*?'haEaAcS\#q9SZYF\cAda>,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<E&>.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<\-<hU55AOT2if2%_OIKSa'uh?z-Y^+=VQjtc
U"g%eSVO\.i.<T%SN$[S<0<=:$u=;p&fboJs)LXf4a0Do.6tNrhT(4%m$:yCJh-5&
U"9<amIJ>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\$29AGNL7W<HuqB[kl%Y7b;gN[:OQ3[rJO:)<K:sLX7<Y'd/::UE#xKuckseli
U")*fxQ0MUE+N9KC1fGt+d1vV?:w<AM*z8*-%m6^1Lm']rkE*V=tnkO<%YWlERyGj
U"qa&>3k+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</d%&_pq)*S>
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]<fYlt_xN-Ldol8fxx>h%%5D,D)AYH28g[QO&4JJ?t64a6qpNDl]l^Vh
U"lR.Zc_enpo_(UxWl]CW[.3LW46uynlv$01Zs4ZyL:_tqI&qSSj#*qkS[iEVQ(5^
U"*(]I+</CQ2GrP?u[Q>0Uz5.Z;2S&is?#p])cf<^jH%NDx^0Vg9YPrIv9Ck4mG.5
U"JsC*]2n2I:v#Cd/<aKp:$M7MJaM-4(\YoOsNxM$EeDx7gdsYfM'fW-#a>.1h^V4
U"0H:-$jLgem56eek)_#Zxq9Hsmrb9.S?)jm<u<TL^3QjxjZqi?o)hp&-f&_AD#'=
U"UnICiO%NT22X]ckXrt*Eu2Q^thFF)I]H1+N\hA20LV2UzNbp1&xUuVRVRuhoT6c
U"0$BQ$L[)Mop=ppUo^nru]jgGkH$qTmDfdBb^4$fBW5DDFTi7,%CNRmPL<&?:)rD
U"s)NFlPi]5OYRm*GtM%Q[O.0*pE7&2o1gmvN734rNe9p'B2JTdvy2#Kw.sb7u_?a
U"aqt+,9]x)[S5vgCoP:2\eacJZM_Sg,1$Z2l3GL4^5_jDYALmf?iq(IE$GFqv6:,
U"/6LV-)F#bmOC]p0_Cl,LlU.*6(C+TNRtCTNViX,KoJq9t$j1q^MOy'AL?K0#B.U
U"RgH2>j64HB\U]t'1Dk$^TUI7;a#=m669Y?q<?HM2otJ:)*oZv$PHgB4cX=34v\l
U")peHN2'#o%w/.gV.Sj8bIll_N\4m>WxU6fs.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<,<r+6I(*AIqbs234Lc6rUmM[_rG2P]
U",jrPnpRdZ:[Pm=15ofnzQVMrKy5s?0PbX\iB0kX?_v1qjif#2iYl8XIL*'^Oot(
U"<+n6n9'fDW:M\w\[3hPAx\)4C_)T842[^y^/od>1I[/TT/+8f:EnLmQn&b^X+Vw
U"j?v?,K=a7Uuj-aS=\p'sN4oAHC#r)YVTp2[,J+IWhb\;jgYb<GQuDNpV0vk5<a;
U"vQ<rOIKS-.*Uo>K=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[*(8<u0$rp6.8:-\/7
U"eixzDH$=JBqF,GuUR%MOtcj8Is?saPKd'nbe&OR;YS/iJ?HV%07eXd*5%e%x=YS
U".QdMOOU'Fo]sAUv(F'1mP(b8^ZQy,9v)C*5nv3%8KZV*XcQrj8glJP,=Y#+8Sq/
U"qP]*7IYMlpjQ)WdK8BE/I776YKIAnKBvZY[X:RiKPMvsF)LL(P>Qp;),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+#0PNwI<Go-1G,LXL;tT_.0dzk+i%Qg8poS97GRe-5yq8>dj[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&<EP<GVg-U79Qyup8huN)^
U"P5G>(/?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.<l.Ae)3Sh'#7LV7L*szd^L(+:]CBN%WRa0$\ir-ONFA]3,f
U"lC)%*ZYt]0JQLA_j8iM8#A6-[\j(J3AZPsBkpesI'4.mIxr(pMN=%\vSl:4raqY
U"r[MP;SpL1>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-*x<V[Aw%Ay>I,j5?<B:5B>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^%]1<aV&Ha_[)Dvr**GE#lQB*Y4V9j/=NR/
U"v4J,yrSF9mI<b>Lo?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&vv<RS\KmAZZ237SXAHs5gg
U"-:$y:gDrGHH4s5K2;j,XtdHpLARI3rg*wCaMQz\OhmiI$D-0rb_d'q_0[wE7Q/d
U"l0r4_ii]Ii\BDL:$7BE.K>UW]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^<MA-YPLoI3)7<*hBsO\7Rm(5
U")GF,jL?g%=#H&G0[rtpMYZ9bUK.j2d&7>poS)cF#/0P,>DjOpP+#d<c]OjPr5WD
U"u91O'X3)FQ6N1MBkSVtS\wv(,8t,DfPeL9pZ0HAd:\oHpRuJ:=6bjA%TR[JU#X,
U"i0rG*lWT2I%VB&S):t/D48'&<SLZ44-w?pcMAFrYB*c:H]_:S<ZLJRhL(/C5tR.
U"T_Dbrs)=2CN+?-m9.$T0V_lO>m,A</kx.Z&[TZ8YNJxq5<gfZqnjn3L+'tR=on9
U"^I0[p?\eieU]%kpUsKGbsB4?gTYGuf,N;#Hz(qolL8yBDmb/r1_*A5WhCs%sDd)
U"[gTDTIjr8WqbKG#5]S^T0txWp4ooVWP&8^P<r82y'3^i)+DH9p#bNCr7ZpLAYMb
U">nVP,QUWEFkVt[lQg^E(L0nL;^jeoiP4W]Z?<Uf;qD\o+A16rE[[Pq5_h4xUY^L
U"Y^Z5sIH].z_gV^[sN8jv&HE0YS+mmj28,A8_<,c1LpUK_1lgIT4[4bOws?[b0#E
U"j:DueHp*m4>:>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
