'===========================================================================
' Subject: TCP/IP Access in Qbasic            Date: 06-12-03 (  :  )       
'  Author: Unknown                            Code: Qb, ASM                
'  Origin: Anonymous101@Uncreativelabs.org  Packet: NETWORK.ABC
'===========================================================================
'>>> Page 1 of QBTCP.ZIP begins here. TYPE:BINAA TLEN:11495
'-------------------------------------------------------------
'                  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,"QBTCP.ZIP",4^6:?STRING$(50,177);
U"%up()%9%%%[-%<%8TSt68%b6-%%%<7%%%.%%%%vg%yhuS[qngf2':;9BP:cFc$*
U"480P4;C'Dw;U)X(6UM_igIV.2/-Qh'Fe0:+Y./>0W.+[-oD[W6r6NEU=s<O9Io,
U"(YljfNo%^o/3rJ0->xIAmjzY#G<MyGq//PCGYuRsmSb2YBPDUJayt9$lvHVkJGk
U"2k^hKpYDgUy(%w+ECuGkynoGI/[JA4=qqYPh&bLlBC%6i56qdw,$DC4e%]Y]Yr1
U"JQVhBG/#%cQ9301(R,m33eXtDAVcA,zV97,]ctq;W/'2Y]Y%)vm-M?O*L%2%Nod
U".50U)bN=<f2q>YT#FxNV(_4V=okLt[jyALV2%NqdTapswYc4s3mV5dgJ]j80oLA
U"foRjG*O%Ryu)BuEJ8:CWKaUMZ-,Dn.UTuN\:/sh+V\u:?v*U-EPhMW<WfFVXq+4
U"dqm:0oKT+a0r;N^%;Ar=XLeAW2PS&[%AA25[SIL>cj]($MI&CMHAf8=:E/C&owE
U"'6&dVO2Pku?a,N'r4bt)HR50NGS?/]>bw2&c$%36Ln9j+]83HM#C;RXG[hUi<b9
U"Q14TZUC[Tk4+4#5IeWlV;B;kVb)Yaa7%inmE_;tEHI'abivG4+^;uCH(6C]Y.n$
U"G)bu>Od9+E64Z.dee6gCoG'&j+=(zCX8-c2j[FLE3'd^]4QiC_:1qXH#,GWdgm>
U"_CA?YCvdW6shdw]gaWb0X27WPhp8QM#'D,pIL5f;$:0)LF93AAgYb[qnSTjI9LK
U"^bO-Ap'Oh0^_>&ZYIgYN(KlheYJZNG'wPkbM.DxA?+L3JpgMdO0,E2%Z%rL?t,4
U"fI<9-B8s%mo4jI9x;Do4:1vJ+jC7&O%ovn>'*.v?f'lvpmP#a,'K'lDO_uojT;S
U"i7zONLEwr^of?[qDuC3.R9JS7lM9$Imh&FOP'EbBbfa2h0+[uZ1tb\l$4fd??q1
U"6a9T4R;1gEcpcQOi,sGIp?7H,1xBPp3H0cK))x1j78c)J+(jeIUKVYA/=N_D/h(
U"G2lYNQ4Tc6J7OZ.cCUldgsPsTyC9te/'DvVwpJfNdIo6wnv8k-]LB9hS<U\jgdD
U"L?F&j3]<OEE*;g&b:eL(oD0R3t2'1[lXsUskCEW-R9s%*mvDXeV$]LeaonE,UX<
U"Y)vX9.Oj:Yg18pO')fA6E8foZsGQ&UcK?6jxhsvZcYL^Z-FBH[PJ=j^y8d?6nG#
U"cCth%.uMuZqNpjvM&J]<Tx(Iclg&^akTnfcWC<^8hWmVYvqM.,EvB(K+^9[2gGP
U"++]Vw='pX%f0J*<]9^6MRA).')8'q$'n7C;RxuTYMo]fQVIk%T'T19j3*[OR*6O
U"RF_HTN4o<f/=-3FJMFvRefcOWw%bWhjb>E5)-gii<6qh>H(Va=_*kZ(CBo5M6Ht
U"YJkmO$l:aoEQ,K\D_qOL<)b=tyLroF>t5(3x;EZPB2%#0[)=+2<8y*K-:CLZ.Zi
U"C=O,mCStvTgS)3s5StnTj];/hC6e:+(3QjPb1H.olAd\2?lWx,UiO?p/N;>A,+e
U"wm;u7*inH<UZY?mvqLhp4HJ\x,A7]ozHl$L;(ap2W?&=Y[1]Hm^-G1R1,pF,Y+(
U"C,-o6hZTDl_vV[maV_WxCFD4B1Qf,+f3B$N7v;$v#;<FZ.P6F$0+=oQ/EGZn<C1
U"8W?TA&&>AOk-bK5qrr)/4^$AV8r;gZ6SN:-.p_K3RdQYdc^[P*cWrv;q1flMKmq
U"#^9#;JnCl)S*,_9^HFV)C&d##c_DT74$x->K%ry%ccgci_u:E9&mjj]EHP/f*:m
U"E7b4]NnmFwnBE3x'sqc&u*$Hxp1n&YxPyMIxLm;xDH3Qyx]nBz3[w%TGq3[7$E,
U":qaF5oAS.bp>k92'^_,cdvKCv=j84CYx[KI3v?_Gnx_g_#^/H0J[KAg_W8_vHW=
U"i[GqJBV\>[,ox]2uGjr/7\zb7=(Io0*?vOrIdA$(*ql,/&fAF<4zb1o]3ugRoN>
U"^V[,mYpopanI;ycdzBajHIgVnIZ)p-Qzu_c&qo^NuKtxELt:9f7B]Lcq<kYd62.
U"_E:)fOw0mXzb;j&($2;e+mjdn<_9tp.=^mc=c9EgWG161wI12e_d?/(1-Xm=FYT
U"l8/nG/,G&U1(76FkdE9\<2>BEEXVOC-ZO=uH]#ReE)_WbHp'?AlpprljpJHqITo
U"f0>V77PPufmcZ)%EB?d?=K?u6;4ucNJOar15tZs\6OZ7B,6cQ2t:rCA)G2R=_gt
U"Wcxh[(zh6xSNWMjW]8qN8e+]T[50lKG2^EgKp1m5*83V$gT_y*R/5]ssTI>k4bq
U"4=,GJoSP^Ro?AtutYt/<9VB+FxX/]<6+*Geq:g?Y#S2MO><hZSrZ)sbep]JetqS
U"f&?ZI+?V+[)=A^Gp\YHaNPiiFY5S5oiim9O+nUkrQwm1pK/UAD>J2VIPOm:f?fB
U"52oxFzrBU[Oain]]W0\URu<'mr=8L$)>g)$<&GxS3soW(TIW=VJ$H?U8V>:xuWF
U".kmc[YR*Ms^i#ju0Y$&E;?8(L8ys#P:O/2[Glh,/>?G1;&r[0n#]8=wr2._gwB$
U"ZlT56W+OnVO^%8lhx9Rd+Il.:;j0;^k=2.J^[Atq5vSZWQ6RHo]&p7&[8x9L.;q
U"JUovALV=IbCbg0sX=AJ7S(&K2Ktu5*kk6[8*LORa^DHlurLW6-<*Otgdok_=EUh
U"T,b/OzA&)ekj_-hI1aOIiK<ZP_.i[HpMQA51Sz[9MXL1Jy4$^K,=$94SeNR)u]'
U"[4>LuIP8?H]Tl-wAj%wvH;9'1)(jw(%&&y0Qtv?SR7JJO'bK*Y%gL/40]#*)EK9
U"=vo1>Zq9D6Y%^<,D:9QU8$oRcX#v;Y*^y4VsnO++Ox4u>rx$u8lU'j(U/jf7^4W
U"4jbnE9sTaD%up()%9%%%[-%;%8TS8a.A$D6.%%GF%%%.%%%%vg%yhuS[vqgf2hH
U"Ky=j/#ttFX7V&S=5U1/1R/e$6[7A+eIU(G*hG1IlCm1,W8h9KeAgTeJ1[1?[r8%
U"TiCM29ZMi>+_\W5QZ8)(ZPEEf*i+R8C90I'&1TOjO<rX3(y>=qmrwvu_ljKcXwz
U"Nr&BcMGx3pV6RlC?4t#8_1j#sP)s+Cc,Zkr37GWJ]5)'+&VuOb/1K?P7/?B'1Hc
U":2oa6u>%.'4Ol<:.9k]I+_9b=i[Q[4c&V9Y=q6SgrDd#]U's&OgU4#Q%pOFDU)=
U"g,FRN%E1C(^tR<9+$YE]('IfD:UjZ<&[%NE4(]Qg%U4Q%^pODUC)=,F,RNE1#C(
U"tRa<9;)aBe&h;ORY-fa*LY.)U*U%C='k/OV/'8g-'+)(/;M1'to7$MOEqaH1(%O
U"%pQD<Y#iQ0Q1-&j$9jYCb?=Ka37+X)PbevSePj/[==.?/O./GK1?'_'d)U=I1&X
U"/IIu8yJAJ%L%_M)c'))Q($0OzYaFiaQg'EOpW:6Y:9ibBR7h(9UIU;7/(?g&/7f
U"*1C'U'C,kj9%ia_q-uO4)hXTG'$QCPP#c)R95'jP:BYaJiOQ+*7';s0JRYAKU;s
U";P::GIu0eP]tfPQs+39tKY#?e>Qj9*'Y7U(c19a)45MRdSQ$:9')3a*]SeLa4'h
U"PT99ViHi)'XG.&3?.01'+*%WeSMm).Ar(5_-K3J-i+D5Q'/=\NKj<_)392sOxEF
U"(]'^\HT20<etpu-7EwpC*/S'%-C%v%Utf>ma*EO,)C,j2/_)pA6C09hB+hr5H>r
U"lV2=S7D<Y;:UD<aCrf[G_1k9ZkM,0n8aT.rPG+Z.qpus23SXo%6^vQP5+<*l90*
U"E<nPi<tDu1;2aj97'mOQJ+7DDT<oR7XWt)-y2J6JQEN.sy2,h;go&hnoTfegIn]
U"OmOG)GCk:);CA+;(sQjt=76%u31i9n/>ur8H<nYVqilXbQGhil>L3,T\KZsfmVx
U"HeoLBTA]g/,>GoJ+JWQZ;Ylv+'SHX/+0r41woExqdT\IwttTt2dVYNFsBZDD\1l
U"O)'b<eBB]fqID*0?LdBN^8KaKlMnwBO=z$rOdGWS'\J.&k44k2%+<K,3hfVD5*b
U"a-o7mR+vIY8]W?YJstXHLr;.=S1(uh<;F-U6-+mqHZZiPKr>%^mA_d0vZ$_aykg
U"nf8YGwxS?4cxxo5lwFu[vqXsQW0t]0M[?ms=c#KqzYC-OeaQuLxlO2RAadG>VT,
U"?v5n(rVHQ1C<w\0k;n%U+5;8jH<M\Cu$:Q2kxT1JudGv8QJrRn_De<%mGTQpkC$
U"JF6G03-X\BRK$U.]Kt.q+8lIP.ae\:C$P*vfHiq1#x=xj-qdChBmQ(VTmT['#5o
U"S=^Pn<JKloMR\I=dgGBrs^3LR3^/Hoik[PLZmo_Y2>ge$v*+Io_&u;N]5V\$Gwl
U"e;z?dr3W/rvtBD5li_.j5fWkJMFX?]JjHb4cSeo<h2Yt]Mc;AU9.RV1f)/vRytC
U"Ple6s&#RHGqRjY8lI\F/8SH$<r)teo*e/&Mx$jgqzM>/?A<C?+Jut:hJ\.Qd8'^
U"a:h4]dOMC1uN&MO*KxBo1_4:XpH'TuXvl_eIIlbV/jskV\Sxr<pCE-R%LF>PcMl
U"rAiA?bE0A*u[it's]oezBdoH\.eFtO8VW#isVBu,KjbimGrRllN2^9DCh\YKel5
U"]X?s9L3lbP9(E^HS&jbf4Z[QaXGI7DVgij7]LtKR1Z&+PG;*Eh^Ic'7:bnBu\0r
U"Xf7Q]uD,xO+Z8WX,NdOHC]kvOoX91?NNSkKc<]wcuDbMwDZQon7FBXc2d8cYnG^
U"mSL:yy\M;T]d,f-\C(6k9)l<Dp$k2dDyRWTbmS,ZAKl#o6H,7Kl3)LV/s2'8ZwY
U"3rwkpqx'XW(VGXMbE1[?kD(W/1A)zBlKXltQU9]/t1c/9boMsxT9ZHT>cMf2k$N
U"$gK$G.[L?G7DJ(L<tMJJ-qlOB8&48L),ku.)Le)R8&Z/-Ok*-%ZJHSl5<l.&Yur
U"1KP&>u]a^>,D0Zbim(BKJpq]Zf]f[FK8k^lI0e(gQ>'$2*6h,t(g)Uq4HJe,8#k
U"are8#out9L'4u]<t04o$bVmEeZ:Bmo]YY5_8D^vmj/vbPG:TGS,4x](t0t5Ya*b
U"8Dk\$lbfAX9.JlSHrA<6mo6p98j-V^sAnFbf3Y6Ug8DFr1#HKSTqm^E31nKMgaw
U"/6F3AEnGFf%wtn9:</hrYG(Sy(=9\YZWI:U(3ZNWhxDC$PmSty%KXZ$Weun#5u?
U"8.mK/^?eLCAg%y8qv8#REUKdC4RQRMkwng/4x_C9h5h8mr^Gogmopv'Z4'3c#Fr
U"3,'8scWr\PG$#K?)3sL&T*b((sX08LHXZ9iYpoS2CjhgEO,sD,^O?Dn<u<F_Gj#
U"Q[6w+7+8uhffp.ihS9vXteusJKS]>CYufVV-r33uT12#8NY)AWCgg,5JI_C+rbD
U"Q1#^r.P1Dg/b=,b0edlu+XUp5FewcW-hNQpdRC6(2$JAVQ$<cWEHX](Q$2e:+-Z
U"M+=H6Y>>Dbj1[lIM?kAV'hej:+fYGs9nIQ']_Z4[:iFbNBv0V7M:+):[akSot/P
U"1>sAO<F5KP))XKEmG^b7sK[lZjeA1?r[kQ<bmcTE*>0Xc([#\9ni/12L>;jlWZ<
U"8JYNbj0qqh,#/uo7rC47lQT$U\(SmZN3hvfg4xDJrC&JTAA-Vf8g/Vsb])6mq8T
U"tl-jJ._]LbX%c8Ub^RUrKm8l\D3Zos;/DI8vr]3ID?MqfXaP/Z7Oc14*t=a8n4S
U"<oR+jTWjlLp[XlVmb3%Q646]*/fTp?L4^*VW?$E600<qWv_=8&M6Vm&F-6huD*A
U"c_fOoqsK,/]Fg*>:SsSBf70PFh>i0/eCt\'n\z4(kWWnsdhUpb3hY=B_g<3o.jT
U"WA7RN,AhjJ30^<F(e'?ylNLRZ>hk0Wk<:T;cyIGlFxet9^0<_B>t\tsIQSptt__
U"iuB;T6w7;$8W]nkSp8YDpDf4?uXg_c)w5k6J+.$)]Xb6RUbw?XUGK6L^pF\tNdT
U"#BNvk1UkW=k.L7bmUR]Hwd$q$1'im]0ZH#(U1v'Ps5f4ouY[1wLD$XQLu0oGO4(
U"aH7c.BRcCF3ynKuFtZYPwbEivHc3=B40Hm]kX6Tnxc-bQwF43)+CWCW'doLLKU#
U"IB=F*]p=^K?52lp331BwdjdE+k8S6+O'lcbk,S#2hEX1fSmUO='>&F,SAh6A+.>
U"q$i<(W8VZMl7=XF[<kmJV,T(^tUu,a^Ya/iDZ+PjmlIFJk]#g<o)7]\OY4Ve]:L
U"Kl0^P^Ch\0,&k2E[;M6]<]pZ4q\;GD6b]jQERdk=rZeONGuBeEG(+6*Rk^^>j:R
U"q$GA]Dc^e?GKk]B#5%9(FV6=GYO^l?%l;R+GE_#[n0,*kzV?%BhP^,TkXR_%Y0,
U"JkzVB%<(UB6nkP,Hhn0,%6f0GgkZk?/[,R#^4bH,4]*c:RoG6gZ;:t6xBRs?Gg^
U"oecGODAEd6U4?/PH,#^J,Q,L^qJY,$F]tP6Jj]JP<,%G[PBo.kZ6AR%WG-Z;:#6
U"T^6d];,k6(B/nbX]dFrG]6V>#/^E,F]J,f,4]rt_,vnkBYe1E6V]=$ERlqkLERT
U"X]tS',t^$Q;Rfk5L>(TS66G]tAO#Rrpkv=KR.3+1&%Oaalf%Bk]?P,[e']x$mIi
U"HU&XY+&?C=3gkO$YF'Y%r397?F01-+1<?O*E^.+'?/PdOp*:GU&J++aJ9(;tQkE
U"<:3(Z]gxTi]LZuf1fGs1R3$][.CBfLLfKuEYR1u]HK,ZEFGS?[gbyp;gU-Lx(My
U"nc'18*\lR?eLUA*PM)xBHI7hj;?rRaqb.ahsn>nWZiVc5tt2AUm1d12kJD?(?fK
U"l7TmD'i843?#/=gLd7jKa,7RHvncs4RT^wN-R<(A5g2Pp$i3bB.i6uTk0Z(ONF=
U"Ns7sDSl]yl0A3u>(YUXtNhxopVg+-le3oH7d_#Zu35+KBh0)W4o-GOWNAc\PUJ8
U"rG26#hhXQ)k:/qV>_wuxe/>r6AWJwbC92?jyAWlVX*1UwnAMknMDEXPrN=d,aJh
U"vah2,abvMablhLdJEM\mo$wjJeB]l8X^Xk^X^XD^._IX,\Z<43N+i4LB0F1WheP
U"a\TrkgK3KLMC4mHLTCuA0/jwpUNan1Ij=jw<M7pN=DBwp)c2Kv8>u=DI'rCznaR
U"tV><m8t8hPfDe%SdnCLdax7#28TpNx+W\xIn^rC5bp_OaGdglcG.=;s.wjTvN(*
U"mhib/yIiirV56EXIs#*upDl<Z%N+Mf7Z(SD.1:N]hEWLQ^ODiI.d:uG'4U*1Pt(
U"xOyJm4CZjiL9/ZfV#GP:(nxv-Hc0KiJVMlnRd4iJ.:z3Aom2wFM)3\\.SNP%#Xw
U"h,YLQi8l;DhM2fOwxHt't]1RT=n&E%4wFG)xGDQ(n8x4,%#w68)%pZv4m62tN'x
U"gsX#FMyGM'q8OSi/O=N=hm$qX^*yOtLLxEx2fz<w2vy^o't1ZJ=fmHv;>ffjM9r
U";.MoucYToOR=YtdNc=iZx+\d_itb<cwR'wLZ[TX;nHk88%6ahcHcJlwna?wE-nT
U"6rczuc?QulM#1lgx>$sc73sc=lc$WOD69fT%D>^^rpdYg2)wRWoWMPs[,Mln;DD
U"wq2<j+Mm;J%Kc9*;UavfWga./M6$Tep?&-vzV9lf5PxD;n$AMr/p#46>;E'OD$+
U"TneeM0<)hXh)a;HjQXp;9,>NZ8;p>&J7<*S88P)1p\2>LHI(mur*I\vw:cOVmgp
U"(d1K8;p30hmRY9I1fEqn3IBox>p$T:&x<>_'GCTZERme83IXwt&RsVYKNu57)up
U"sh8B2FX?-9I^)UeG3R+R0jk#V*A56a1h/:5&_KM4,]ci60u9N::?lks=iRzYqSS
U"%*B*)*-zlfWeLr'+_Y;D56;bT0M4s-AdSoITQqq(qf$$pTZ5W?kS9G6<?*C\y.)
U"DNvq'0[YzQ'.3)zjDpySg\d(Tvqll,VCXspc=<O\RfD<sEY(rg;;FM_ZZR*Ool8
U"5mUl7Yke1+.,ue[OJYS+kZk?5e;gNJcbf%xiW?Ly3svObMT9\9O;tUOy>x2K&EC
U"XRiGh:z+g4rIg%mpqA_1[00/IualtDOPvwJ4iVhPtj673doVz%P[CtPG4nWqjeN
U"q3Nki'?r^PcCik/HET5+ra,T3uRW2Z'hdNBo3Fy1eak0hbV>2NY'&nMzQ3%y*MT
U"4yM%HOM>T2O>$MeXqHvjfRYmCz%ZWDagyoBcKDq(r^jPUj'sR_pOt?[14ZK1RI%
U"+miF1-mcE_)\ocHLTdsH_&Zxzx..\hV>JE+dA/9#KlwSy3AtGN(?*lkY>yR*vg2
U"zT^[:WB.?^:>MREsbpD=0z\.t?lS6=UX7JK,yeDYHR<;w8i.O,nZ96*UqEkrmet
U"[<ZmF$CwM()x(ur52)/W-<.pPT^_3>3%DZiHrc?yQuK*H\Hr5Th<8RXXU>+0^,m
U"s21q9,h=Q6?A$DfQf<h<eqCi9Yq?--K<10B0rNrq'G;1v=10uf$6B(\yZc6IEpn
U"TVc;8ij?QROMoNtbWEu<%;*4h2j-OJ1j6I\p\P6(M,;WWU=CjCX:;4^=\up:ZBV
U"9Et$e'4aRk\p$LO%ouqCgjTYS,gmK6?X_2B'\6N9,rCcXqoN&iB+Ku=&NqogX\1
U"KcR_cdFtWB/irO*Yb\M<lmHs22$GQGAnT<p_x*%up()%9%%%R-%pu/TSEt1cjS%
U"%%%D&%%%-%I%%#12C2?SM18B#5Do#1/Az?0$nB3j-mpxM9GtGs[RvzI'AQmq%nN
U"oR1S%?1&%-3.lkmBP7vMAT7O&jbfvg+VD,RYH*2+U1+mFp&&9tOr%ppRgNOj$g2
U"faboCeFv9nA>r3VbBkZaxZc9\vJ]M^npI2[EXT,7if<N=WEJl+F&YT%>zVT%<%u
U"p%()9%%%%-%1kFUSceTCg'#&%%&Q(%%%,%%%28A2SM10BlMa.Zjme9>XX*8<(16
U"17-C.T93R\5M<_s(H?P4brNmKzOGaI\=aQ0hl7oe7s-jT<4gu2$wg0ErQ<rQ0]f
U"t-v9>i]kz[XYHdXD8gk)2k9-PO]Dx8HqZ0y_[f2<*_OUoGRhf1X?Wgo)t#g\T)'
U"'g.i=2x;ea.Rf=60[;p4kg%.Ju-3G(pM8CRL-,rqZj^RZU/Rl8(f6MufS6)i451
U"u/0c8nxV%3kS%9]hq^6V/UN9En<//Aq(oFD<fZ&MQb_YTsbX5bG='b1[W?H8fwA
U"#jB.M);+[lTeuSQA3PRik0WB^qQS]=DmY<+^q1X5Bkyw?nVxp6<n1$D>nC18K#P
U"Kq,;WW9>UTl:9#[evMDa%1aJxsA_*)2]oQjtyuld%8wbo&iPGcA>Y>YJmJ[OK>6
U"]DBA(hZF;1ZY=pHjCktquS[G8Vx*nH5.8%o]m4_uf9f4k6sba:?%7)>gs,*J7os
U"m?kk4)Jl#tJ55<<,%Y6a)M='.Wi^ckUss6u-ji1UD/dcW_Z]^d1-d1\b4q4'd2P
U"E:B9TxPdtsy/Th_2\bS;v-eZqq4GaCau/LXdeaglv)%S'$Tup%()9%%%%-%1tiX
U"S'k#RN&Q3%%&qI%%%/%%%MA403D<4SCVGC.)rhBT?j6v+HWqN173Uaku75:#nPr
U"M84DX]^d24(aL<FvE61]a&&.]=F5r>MaXQW0JFm%mJGq^hS*dkFO6Z6V0>KXCGJ
U"_EDY4+7(rRjcGtN-bLLTGFxaLukmB%YC.BiEM8x=uXkmBKfo*$$dHRdY\9(hN+I
U"(y#q]H32mjDUXrxX'FJUoX-T3NOZ^=&.fX_hWPXZq%FOX-H^TDS$B2?J1l_=)$$
U"r-hZ0Zj</\#bb6U5>Xl.tj04pX2#[ukV&I(JmSXQ,/ltcK1lObCby6;_x;Re=JM
U"KntZbV,'AW8rOCH&(rLLwFxPOD,?-XdJuEl:,j_w<eycpNeek(/\6?L%QUaAX06
U"pVDAWwzj\4R0Z>N6P>d'[_oFuT&K+:1g0QOC%u9-?:5#0Ine:#$Bg:SdIs(9AHw
U"/XuKTq%5&gdzrnC2)*T28bpPoH_S_l51#jV5,>IPr6+:tb+Xv-9RJ65j#LSmHmK
U"n:8)xYxh;ZnxVTQjZLm:8&Kmq\Gd9zRqX.QZJ5$Fto'=;SW73+;\L;BS2OJbaBN
U"Qey::Qa'yAIl6i.\_F9/(3c7.*QeS20Wy,\(y^uP?.^5:,w1sb[pgPrOXUA<EV6
U"jLp%:YU8vM>8QS?beKTsn'P?#D\+YJ\P-Uud#S6'6L1Vm1/Q]VehN;C&WA&tw[e
U"q<Q]Yjd71CU2sJOliq3[pd2KZ9Mk)/\dB67pGBTWOd?I,aql;Kl5=-JNxv)pWux
U"M0V3i]lxO$8#Pdq41j8z=zRXl2;Av3ivrCZ0fKelMCD7jtyC.Csk-XZ3O1ePhT+
U"Et:11bw*E8d2J=h1&'GzLl=ldn_1f?:J^B=hBuT=MDtrxCK;cj;YNoGAK9]5nOq
U"x%NAR86Id*$AD6N6uk^4&.DnnX<k0#iI6vI^7.I%<uHXhGY<WAzuRd?*7w'uS''
U"'uGbpMJcJ7O2Mt\XtT9)1fP7oFmy&sA:.[D:,;'I1#wj$naafaNfqEr[/L&5_pH
U"?#.9-0)U(rm6t0EfZ#b>%,w4Nrcq'xZ2$Or=tI1-^IUL>#&Quja_R]J$F,s1E[,
U"j[4MxYxAu[l$fYP%[Jv*^aZJ.DbNK0mIW$6]0I1kF1MG:cN$pQCjdwy9A^U#Nq1
U"j9c*\oN_m8JV=J__fF1To(r;R.KT9Z,W1BHn.)=ni%$',s8AiqK+]mm$^,eo$3I
U"ZdHG2]ZwS4i_G'o7'B'G321[7hVEYJD%R?#%*sQd:'&e)zYr:XOqbbXwj;b2V>d
U"]kmqda*lvtsRHB'4>,kvFD=h6Yto>_P-.:gVe2q+e=]tMH#[UcM&A-GF_AO7jQ?
U"pX#6t)N%]>N(?A,Rp*L%nhCuK,.h:ix;'a-7goD5Rgo:3h*^Hnc&X*Kyq:pz_&Y
U"CXIwRg=C+6-ID+MUE>Oz2\F);#J6H=M/[fRuVE,n?p(?&2P3TeO$AK'I'xEPY(Z
U",$M>M^Z'9G\rHn1BC$nvwgl=6)p#;-w<?vv4fJ>f-dL=covH%7D?2yD_=R%jQz;
U"E%^0+Vm)e940ntBFEna[v'olCpBv::t>cXc]^X7BLQ1T+aN0DZNRNg4O2_[M7gt
U"C\9R\T(kamp2me(,#EeS1^^'E\kR(-5sm[8BVo4t7bFp;u4#9eOUQ,[S?G*h[iE
U":(3(cPF6?#XvZthYhjYg6e)fvod7ZwM(%A.-zwX_n1Veq'L7W=p'-f/pY<Q)Pf*
U"0t9Vdusv6U$RjTRJF%JfZ2ITG<,^qV>3:1bIo)jqXg^+8JepSXe\g]qPU3u%#x9
U"U/,xBexkZ2CbL/T_zscI47kV.ikad37>8rSG;7='Zg##qG/+JaNWIAh:8J2ZN3\
U"L)dGX6;]2Ic<VmQ+j../PFvE8d:R%5:8NJo[H1Z$l^EJM+9o4AI_M3fT?gd5l$&
U"o,5C$l_djhrOGkwnFRVk0rT)gb18,v.H/XXVKk3_Z2P0zhMhrT$2S%(y;sB\AF]
U"BQSa<k54IQr=LXG\lNHb(^5Fe?%YVr+-0F1u4vTT2(:'m'i(JM,2l1?\jMMWRCh
U"0_ruC(*25(.[-<ZX-)EcbYs>s;N6(1_M,tXqY6,D$,Z4$BL8VG'x/]rG-F+C.Ry
U"mX5dXF#ktYB%EeiIxjJ*[TaG;ms%x0F&q89Pp+9&IZENUF*mniRpLJ/^ShC+ZpW
U"M19c2L.GvUsu(VOpAkw(\olW.KL_OWOt)AG8?]JSKWjDTlIJ1IuF:ik4L)H^(du
U"xTdu>w_TXuG*:9fP*-XH2gmlX./-%'=uFahdk7%b+V[s,z?R^e;R(V'Z]L#V4<5
U"lw]96+E3adnLENZc7T9>5X^:ZGgJc539p^W>9>Ne'O0CLX]r.w.Z2\^l6Y^c)Fo
U"J#s<r.M#oDN+XBnRgjKU,#,La:d7<60Y%;xju;he4NAk<pOw-8Nis,'m&*TDOK[
U"vwPVA().O+vU6.k52d6V<uoja#W0mJ;<19MYHRh4m1ElhMG+C$L$AfVfc4#(0y,
U"=6LuBPr=2i6&<dKl_gcp0#CQ&Bm2rJS_S1gWFmSt7/%v)\Dx^pMWdp^-c0*bJMk
U"%C=3kjUfZHS2OC2M(LN;h8,jB4XYVU-0HSNAm0S?XYU'6Ns']SrcQB$^i6V*v^6
U"R<cQpv=ETk6&dM:9cc[iTR,t?O:2U2FKUis%hv'_OW$n=T=<o<hKxc#vQQ]l0Ed
U"KjfZm5\aR[*uclW1/fHeF-jZ+:j<6xF+6[(B<Vc;4&8'xn]N#&2jcMG4$%P1dhS
U"942qdq[immW<B\iqbk4[xpGKo[I6S^RS\+Fx0<[/C8=e0x(Yw?Dzs40;$ZnRG\X
U"9hoebYe)\1TT4i%)aa(p+_nR?d1q4aT>iUN7h-Yt/hEh9DpE(3j4+uIqT=u'jKC
U"Rd3arVeoEO0kH,'98$CQCt<hp:/<<:_KiTZI1EWU:Z:[Ay;iA\n=F3XB<xTqxPQ
U"Dug$Ll0-4iAAF=xPI^L>(S%pb\p/3U?G1E94_dDKF>6GyP$Il.Lk*(*uY8-tBq*
U"KbqL&71cUqu(>bjW]'EB-2kdsHa$EYEVE0#&2hr=l,CF79.NJpQ*M'S],j:Hi77
U"PgEio#PoCR&N(C1m?>GH;OUH^D&kk?69-F:LbdJyk6*2M[aR+d>.;n^amKEFAS%
U"^Q^1&uG5aHe;RNTTfVcu[s>:+;A%Q#<UkDkL)6B&RcO%pxOZelsDZPHfU%[sI&[
U"d1zK057Tu5XYxB&vXIHCK#uolJe?xHgSy?D+dd*[(Fb<$d6LB^d$TW,(ubvx*j3
U"ux*Jnk8:*5RqTd;_t7rLdB/-knH<SiO^.Ubw-#-TUIhOJJ_;VI/k#Q]\?6D9NY%
END SUB
SUB V2
U"qYPXW;oz'ELb)aZ?n;3a.91lIM1K$-=9/qC_\P'6W9VWTCZ=-VC3?6^QZSa]+/r
U"Q)K?KJZm]ckR?+ecVuL/C^SU4Op8u2D\YNkJcjs$_Kg()h+0'W.:8D)o)cEvsu3
U"m5EV=:<iNFvamkM-mr4k.wBsolXj0sD=:#8Rvh^EqGDo]*x5JEAEf+:q.Xc9dCi
U"\NZPZF6h'Kn&+?,:/N:o^nGdi4Dr]AAKr'4WD'6a$Sz,fxdG\ukV\A)NS$f8uJ9
U"zgJE(TV#NOa'oZ5lb1G+)C=^Pl8Ait8VB8L><TTtR-iGxHw$O+du;6$wCJ'dJ5r
U"/fYle=&r%^,]80'8:PPYo*.2YRsn8ar?r*T]lh5Y>62*/s:u4d<.zI=$/cqnrBk
U"NEt8xv?ZQ8k(WBJ?.+Q]r9tw6O$R4zVof#%C/Rg0b4WbZL=Q0'p=Lj?&hCKcHdX
U"B8_87wwlH:tN%W..I:)Mc;b5Y9cV<iiZk/G>G:llNI=,Q738#FD<?r=_suZ's$2
U"hSH5Y^J-t1AE/WB:/J_..eq]m;8C8-910THst=YhKDWpHipFfrAipjr(8^KHlnc
U"+EAa(#lRijsl14&2+Y966V4c]-?Bc+#(tjk2l<iO]L[[m:wk8xCe8(f64QXnT0q
U"JK?%1cMQ$/$0bd\s]5*;G?pn$hHE#,1t8m+qt\[at+SOg^Ll1&HLRzv1gR91-#7
U"Q#Tr+uA(EaI^]QHmrtU*q_;j>7B[.F+m%0S\;EI14wPot)DN(77p8(S8]p]8XQ,
U"0?afT<cpg2iFy+q8TYx<\y_V/X4Wq30y^t3)(E*puT5L.Mo>bIf7C7>\1e]>&cm
U"3$,tNZ9XDp,\E.l-N=]LQTOD0J+3A#DTIMJ7M1usVmCa_''BB9U)OWG&oPZEdh.
U"<g&L4n=g-JA3=hMoLftC-dVQ/Ri^-ULvt;JXRQt/-6S_Rd49nTS-\qFaoAth<Ee
U"9v?>3f\Xz8kNNY,dU]qc7q3O^H856tjQaW%muWm3koihgcaYb7>iQPFnx.rwZBh
U"ww(PC8Ii6F?w:U5>oK%blre-eJs_?M:HYCix6Dgj&2(_eU2VNA\&Qj*prcMY08B
U"5(DyKG8_0^]:#Kdv[<>a?mes&BWG/WXcby1[t8Q?\fAH.-\aLKweXL&<o0=IV0=
U"LUdO6mWda89$9rE69>gW6u62[h4m=rA1/jE&aiOPTtPfW<'I&r$+zj<?HuR3LA,
U"gAkm#c[I]V\#S01fiwMRKGGj]YTY69Svf?_%Hx(zb/gfcobIHdcWKgPrLLalhXR
U"o1XZDj7Q%TqRwX$ky9eI^68'=*U$(Aq.WZM6dg?YH3vslG1L9;M9]0ume#ZjZg-
U"pe'vDDCr6U$;?odUxg4qfn>^h[Cu.xKoYJuW&=BuD5(zy?Jj+be&rvpQ;.U(M0i
U">B)N6IW.r=KHx,%up&'%9%9%%%%-%4<%TS0t6%b'6-%%%<7%%%.%%%%%%%%%%%E
U"%*/P%%%%%vg%yhuS%qngu%p&'9%%9%%%%-%;$%TS8#aA$D#6%%G%F%%.%%%%%%%
U"%%%[%E%/,P]-%%%vgy%huSv%qgup%&'9%%9%%%R-%pu/TSEt1cjS%%%%D&%%%-%
U"%%%%%%%%&%RE%/P&O?%%M#1C2J?S18%up&'%9%9%%%%-%1kFUSceTCg'#&%%&Q(
U"%%%,%%%%%%%%%&%E%*/PO#I%%8AJ2S10&Bup&%'9%9%%%%-I%tiX+Sk#R(NQ3%(
U"%qI%%%/%%%%%%%%%&%E4%/P;#B%%AM403<J4SCG&Cup*%+%%%%%*%*%%6&%+%9P
U"%%%%%
END SUB
V2
CLOSE:IF S=204AND B&=11495THEN?" :) 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\11495,219);:END SUB
'>>> Page 1 of QBTCP.ZIP ends here. Last page. TCHK:204
