'=========================================================================== ' Subject: ENCODE BINARY -> BASIC Date: 05-26-98 (17:00) ' Author: Leandro Pardini Code: QB, QBasic, PDS ' Origin: lpardini@cefex.com Packet: BINARY.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ENCODE.ZIP",4^6:Z&=9432:?STRING$(50,177); U"%up()%9%'%I-%g-B:Ifu3bj-?#%%R;%%%/%%%%js%htij%SgfxKfbuoRVRt>R'^sd<&fm5EgM&j6DgU4)F#o(2p7=\p& U"*aaal^ox&^\rU*wEPEfNnVa*kCFYn;cNQjAUo&qge=E_;L'OQ%0J=IeZ3:AIluD U"w/hQ:kvFBo(NP6^G/s5+[*FAp-mZ*oVFAi:>F=p*Nb3D3ufGUl1k^?/\I[Pu-h_ U"o)?H0H$-RVb2CQRKAlZSI;j?W7:u3bMo\T3:+EA=Ha:2#,;ke%[pCbxq*o:FgWS U"T^RcH&jK^aOx]^w]iRCueFi=vS'%=f--=JkeReL)sF3UJM=-YIQM+qL.a42e*)^ U"e)XHoV4:*W8#?UIc-+mqQdde)ODkE/8=Q%$#$Wb,DH0&#V)O:R-;>/cR+;=2(s%D#' U"gg?>22E?FiX>jv6^2ImdTWL0+\dN#)VGUI-pU7:Ar;E$YAaledYv^-^=;f]R>S7 U"^+/]:1bK^%8HTGQc:h^Xkof;2$/%u;0=jN#A$Cp:sOCN[+moda#m_GNATXJ%(cO U"8DLU6wYkPdWJ52:Cy964qg+c$uW6N.S-fr5>X#M6oM(G3Xpo:FO<=^+Folw$jq: U"b^9YX;hrlgRY0i'Sl-15n'o<%0'd#/&bJP>/&P2b>nKs?ANMaM#BCCY&vYRyg1gHD\j5u]*:A U"cL:fW\N-evpq&z(D4[dGJsohuZ06Xx?j58V(4A[([?gDTY>r\fmjud>P(OD8McR U".5DlfrC+jVXmK1%/ULFAi8]%:5QhR4hM72dgTu.uHsnnkn>d(I/o:I_6T%O;\Vs U"h5ZgfFljJuV]RlK(CR3Tj6-#;C>64;*n#A(ioOo*4oLVTv?_A=Nm4qoCHeTSPLG U"NdE?%ISPexu&DiIC6\BIl3ZQRC#7Er0sD^YfgPhE6,T=4;pule[SI4A>_]k>\Z%87bJK5)Q+#NxCMN5nPx6i*5f:MK^F8r)+]pp U"GUh2ToT]h;Qr1:F>DE2#WjxHj.e&D;(a.erftX*-v6qtFL]N;U8K=)j&MRO7fHj,X,9UT)9d8pbR9*;9du9Pxn_ U"::QJIE&e/bN>_XsD*uBXW:w%Zb\xuUj&#'OW1b_)TOlFqxb1bVadM/[YH[q*3e# U"*puI-t'rgGlwWGK>kmS--Lf2K9Iau,Pe0VR]j)Kw5a96]iMrQ'0^)'W==kC)>CY U"r0?S>HuX+QhI\=-&CUNWcJ>p^QxS)DL95HG[cg#;]aY,;qQH+Q6e%fgW2?Be6w_ U"D4^12U[\>2MQ9h2P7(&Dx&:W/IzPeWO?GHJ.Y[YU+I6cVnY%=D5MF63]jL<$B$tE6Z/CN.+xG-,=14X'5W,u:=^Fv<(JMBI3/O+i-IR_fa47/lT_GEC,x^UtNLRq?m3IDMEZ[^%W U"qSM(&u_(-(Dmw15sP40qKHDkZMw)+os^\1Lci+)i3JV95+^w[)=6;?0:tmVF-9H U")hMqVE?0G[MZ(8+N=_EFuSvZQn3WQV92?Z15%Yb,.S3gb%ABBfiZ;F#,I;Sx;[5 U"8Ti8NZOj8^bxUl*gD&PhW>PAN&uUI)#uCf%JiT& U"v]6D4FKo(?6'M*KeAEo+\a&sF5-4TWmkI5&jN/6DxZ^774$_6sRZcK1#+,tRG2B U"jLtEFM?4anr1[jjqeF=NvcW99A^])bP;5Z-m*Dsjh1Vy2?_L=3E4v,.m7),1:bQ U"Uk=)qHrxuu,+:#tdhPm\*_h06.MB;?MVad\*1XkA$;w;tDjG4L:W- U";2H2t?eY/C+TwrW//%O>;WpXqqS?.AxAyA.g^d.8$ U"CmZDkl:W\fTdThRg&S_mWI$do_I^ij(6%KqOM03Ow&-^My U"zDRfODvc,zno12?Ka5_/)%INLHv.?/XGERb;SDnBGTK76wB9s?$lE<^V.M-)sV U"()6RV$;AQob*#Jlb3MJ$q-OPL=W]6jVH0a=^eT4JsqOf&i>>meN:Zpq>ULWUj<4 U"nPzP2[+>-i2XJ's&9csB/U6MEeYB%_4S*hOzpr?7=?GIUm[q<\2N;z U"hBwQ*+[ss?-3JOmHo:/Tpp2db$z7JWxxu>6SU6O6wf1R2JBGpPfksZEcddN+o+7 U"C_]]S)8JXwY/-\-qBhO1_9quDEuf+\S;Jtt;&cS-Ufok)E6uE2D0uCvPESrGpG5 U"VYQ4tsa6hSup#det-3(j-_$+xL,>9N^j-dg3SMNEF;F[j1MsVxQTKV>jLK,bpge U"28;7qu18RFS^I-WV?^r>G[#&]av:^XJ'&AXc[$AO)-%pAd[#tOa;44]6=RWE[XY U"(]$nEe_/XU$#4Wc=^Lc<]NJOr6arJkdrER[N1G$wcHiXZ_,PG#]1xh$=PJ:5=4z(md U"Ywe9tcghBp(9:bJZD%*2/;cxv\w=SlXLcqt-x5k[nTcq$Pw%^QiINR+B\lMoYoi U"W5u6T&&&-P?RJ8+.&ZWUyACsusGRIYs/O(TNu]vQ&q5i36]#VtuqF$tI/WFMLNW U"$+t6hOPGeOv:3GaunY[q&BXXwottfXJCA?^X.+fncMLU9r$?m_%IsyD'NN#HtMp U"c.4mDT0(BdW(I\4Z,shF?/AF1ak(21o9ydJ+yNb9'J(;+CkZ5?wiX4K:lNDKWs. U"a?JxY)mY2>t'4cV83_[7GybLatWc[b&dGoRB'8>4-POdmXk(Z/-neP#URFr#Thw U"-pkNV1Iduq:qNvV2mgf9r U"Zvhsf)ZK]0)adBsFr7DHZniA,I>sx$mx9w:a6:oNG.TCuF([aR%,wwpA^?R2N/k U"*f3z;pa;$umCJ9=6S3,YI7F06^9CudlY=5H/6kI[HW#l<(;.EhFP)Kh$=^77YZ* U",;p&F?$,grE3\c$2-XIV?5B)cW$F?=vp.pBE/?gAZcrATB)ce+3PV+Bg#aAd,x_ U"r1EBLFbLLMG_m3,2YvTX6uC2fdc]qm+_Fn8S9Z&#Vqhm>Lpzh)$2\dC<#)&ASdY U"^a1-Ze\)'H\'Gz\4lYQJ#UhujWKNg7dY_%z-%)sX8k])FZ:Oo=2R^bEz%[_;Gv5 U"]O=G=q2E1D/z]Ugt(VL9H=jWIK=3E^F\];<)=9^3d0UH U"pQgVjSt*egAu#BuA\yBBi'Yc9R>K.ZfYWi'+u\\BU_7T:p0Du5PVlc732T.9jBJF U"[y1[lIk:nqHl-)a&x5o>1$cB'mKE>r>&-)OA47%X71hyetocJ U"GDQNQkWFC;&V[6bRj^c=sN(M&#Tjw>LFrOcn+jvVS+T*Z^i_=;g1H+6U9Bnr-&i U"0fT*M$_:*48'>IZ[sOC[P#nqDGJf;sIY?O\C\7h6BO3\ka'-WG-J[qft/jTPW'1 U"#dqTsdsa?_'#quOQf0lsXy U"Sxi,ww4LDyGDlE0s7[c?$7jdgUq&c$(*NV4hK_G'nWu=)VVB4sgBqp[FR#?v9rA U"Cgi'ZO,Q/,369(2o$I]27.pXLc-#XTsLLIlAnV44CKQ+(Y+Y/zQcVlC_S>9(]R1 U";a.*wqIin9+PY)WW5%'VjY/ke46%'kA]6pZqzOj2XV$c#.MuHw^iM&7-7HN\Yl1 U"oY]6KLNvXCiC_L]/8ybBMMNXOs6PCUSNb0P'\7;\m,&[n[\yn.:$a=2=b>Zc'3 U"01bghsyol%V)P6,v$^HbkiOUS[FB)Yf-8^.e7$,C,ZCHo(Lu'M^+v5Y*hH1nSil U"eVuq(a?m+\IiG)s+%J^9F\*mlpXE/CB1kI+is=oS^QbT U"($YM+CY$mb<%k76=%1w]iq4i*6bKH9jlR3Yt)mZh$q[Rr6\mq[0>L:uW0%4Wpr) U"2lRW+VxNolwKivNx^%S0*unF+;S0;Q+.J[u2JJXDB:d$F>U6J/M<13>+a2a1Pb6 U"bAUC03DR_aT+\W8.B7T0XL$Qc;..2mZ>GMYOiGcG.MBlq,%J02C:&Qmp,V>L]K9 U"kmHKemuekMZI3kk'])#7'6gHiVJ3AGjc/i5\*>LxU)Y4N.MZD&\2h>9A#ABb-CY U"jM:&qN1s2Q\->1,2XZA(Zn^R9dw3D9,BGg42^4JbiBHHR94Yp(i100wU9d^U0,5 U"C79AdE;U525W8MtBwG8dri1MPf/)a&\w)0t U"*yo%:WxQSYo/raRZ07;-QZMG1p0L)%_O.>a:0Q4Z=yK.m:Yy2&*ykmqyq'K57Ht U"+:>uW7z)lg1?6jeC#*f&W/Q'y3I;*;eXczZJTr6P1zu^letfcj0F4FYcBU(dPPE U"q2)l&CyLi0O7I'fC'Xx(=5S$c9p7DD#c/%hm38vf*2:dpciJYpnQF7cek0QXN&i U"H'PPnI&(+d'TBO\sCKrU^4lk$+%WM,<*84p[kUPJ^Pm[NxWPdgkel,dlh*(fY]e U"rgiEwx):W\D<[]RBO4GH)Qc7krlsC3hMG2T#u;C?C15xsQT4?hJ-ADGZ&Ldg9FY U"Rn/PSkh0FL7,HN(UG;Q(/M*=8J;h U"s>Mm7)wD7\tZkH;>&PhXXXinf&3KkJ]TP1V/Hf5=I'JBBY;AU3B:x3c#oj'>Yf, U"ixgvz3^h6sU&\(n4THCw>\fECAN(C$6]b,2f]]mtfSdEoUnm^wu5Lbq;d?t(XP( U"kM;[a4<\k[19U=R0p9QY.Al6_em,eIs=/PLY3UG]eS9Dk42auQT]PMBW8y*g70(p0PcuPT?DtHNJ6x;SQ-grh7I^#&1KM$B.%Ju?9Ic U"utv/Xm9(A=C$8-+g]&%\o8;=js U"(:Ez..)a\8Wg?iKLF;Ez1o$,,sxql??l;8/RJ2[Pf*h/P$hk&:T4,[A&Mv:3QST U"]($GT=2N\uYk;Req]e5,OR>7ZH'M*LZ/Wt;v.pws7EgnIOR.AEr#+aocNc;*Z[< U"*\[23X7[zLhL/%hh:yE=-XSu.Hp\q(Z5,La[d[]C\RF-'0\?tO%AN0]IT)ouUNa U"L^(#F3d$Oy=:_MV=o[FZtFE2]z4=YLXf1gK-9<$QdTTT6$3'4=z,Hd>G=<\%E(B U"cNRJ=XPk#j8mqJ2n^--MQ:B4^QAkM)trfqe:FJbB<'fqqwST,tDQOLmcUzZCmGA U"L6KP0E,pL=W%-m7jeD$^i6((4dICG[Cm+8R>jm7?WlmbOlc:6]qfk^u=GDZ$ U"D\m>3Zxec^C[+L^zza,jP1im7+*vm^ke9l(NCChO]h(4L1*W:sG+vbz4:jAc,CF U"ir&9?$uZ\Q?YTA0aR$(71ccjg7=NR)#xN'UhcIpW:4fB/Tb4TGalGLJMci8Wqv/ U"=$j^-cot-*?UdRO_]S6S^ge+'C9g#W4fQb=[XGO&=Bk9TGgjUaP1aa,f=N^rE)9 U"(/'Lt*pG&8T-CeYI],na/#':A*GRS.cbX-)=VtpZZ;;gHSr-Vq%\$)UKW8+6Li$ U"m,EGSdpN%]EUGIqZO+[I%2#aNYn;(eH\rjEVS]$*cQ_F&-G:^^k5W+#:M]<(H]Tj3W'm*YQn&*p.\'>BkECfBo9SO$84] U"6pnQBdaSsg]+q)q-SEF\8+jQflctF2^t(uSi)DI=f$L2C6t_(GXkz?.d+A\o;9X^.S-(e]_s-krkGxAsGoqMH,jj&;Joc8(=s$g#WWoHuz+zSS^B U"fzWnWsm\oA:/Tegv#8GTKNEyMY(bR)=2?>E%2:z4C U"<%s<[n?n.;t&3G9mktUIn,t8P22:Vrkiu[L2?^X)G^S)TL$+GunZmsO#'FFrgn[AQmVlz=d=a#YG7^JYCoh]7C0]6#+6j(Ixb$=]O5 U"3(Nu;IeeM8G?Y/1n32l+'^E.5 U"qnQS&KIGC.VCxd-&=8ClBQb.+B2-Lb\ABXdTu8R,ias3k^GL_k<8K.QXG#R/>I' U"3o'Z]&9pFM$I^n7C6[F38w*YNoTtAZ&_gdD>[r1?>hfLE[Oh+V[Hn=kbj/h U"ub>lp7La($M,'L<-2i?j[$PJe=s6AG3BF]\)'Q=hpyq]sN%n;4:NM^IZ?)U99R: U")GIdK^gH7'J,d2/J84G\IJ9jo%qgq5#N9?FJTOJ5zuNql2n,g\;4 U"a=hu5y*t+q8ln&Mfwk[I65V.n5V^p*p;MpsS>uxt\IVw-.*k#O6:sMpynsr'7fSK)u&N&up%()9%%'%-%:v-:I U"$W2IL%U&%%%P'%%%0%%%%xufs%nxmS#qsld,$8s(mV1?p,bgBai;AQ.XxT\U4ou U"xyb-9rU]Q(bJQLgx5JZlIDgBi4.P5eO3&1V.:MQR1%%( U"%A%%%%/%%%%jsh%tijS#nsnZ8EtFpRRoEX-^^/pmROGE]Hxu)7zUMXCuO&:?(K[ U"7>T-uG,TEaE2hj''Lysr_M(q_(N%_f.Jqu)kqiq#DN^bgfM-igmO/MmiMfmb(Mk U"pfb5f'/2mgV=npQ,GNnl(f86$KW3RmQ U"%nhnmLXIR(b#8\T*3l^DA0gOZv>##cDZ7,AQMU#4'lY#Ic:du+H/_iUs4WQ%_)Bqja#:N?;0e9&*Zxl]P U"K?*U]vleB.78]+xVKr^+9>Fuqo4KK0s1F?x(LceQ=r\69)]V(OP[]:qA#*_N5KL U"T#DLfM^wdr98Zin;1ar2%up()%9%'%#-%r'T6IMN'QAY&.%%E(%%%0%%%%fg%hq U"tl%tSnrglW+ZUw5KW[KqpsGViq$ai+]Z(:ZbyZbnZ;7ZiZQ*QA21>W U"J.#z8k&,.byC\rSWX$.Z/Nj\C]M*yKr7=_K776y2k^.$vOHUeC*%i$lZ<#6:aXl U"vfGD[Due2&sTz:Jne?.:RzXhzZvTb;Vm)G3NV1CwgycJKpOf2ONGwSiLg7mC3w, U"'nTL^rlWd%dc\D[PoNRAXv56gK0o:Is]>30$#kyH>8c_CY6. U"_=-c\LBr84^#BE9iI2nhkmD>CW8N;&?kFmN$?;k)N(#]s[2OD1hMuGHxo/2$=t] U"'#YMcVkT)l4k,w%%up(%)9%'#%-%)#8M%A3a2:u%)%%s%.%%/%%%%x%xjwn%kSk U"tas6z8)>*\5pca##i$'?b)'7a)eTuGA0aFRl.2?[sICWE?&Z3BXi3OP7Cf8b3(5 U"Q1B:ZGaD0IFR,#2?_3WINIq9aDY':>S[fHgpBnJM),ZlciwhTAHhGgaM[+Tv^r_ U"IyIha=OB'r$Rd[C8\#rz=_j#S4nfBAW=Bx%?s'ov6G;+tQ;*k/I2n-%E:xleO1yIAOjXE[+:198J>5K)jt.Hpn%il_3C6m:75shOt&4F^EU U"_Xk:7?P^oZ2?A;cGYzm2x-98qtYk'Zd$UjI3TRb'*jYkRA(2_m#veoe1HWH6VYN U"%mT1u2F3..^3]-If?vPs+$kVcoF^UHD(bHN8MfzXJ..AtrV:nN5q>y.(sU+?p2= U":vodayYabIGmH?nS_1/tmjAh&_2DKXW#;IK(fL3&9MznYIY?>,;kw(?kJR+J9;b U"-M/vRsh.jFsb'#s?SL8ds?4TB>/B+MA%R6>%aT8oqxi2LGA7syWv^m U"7ukw3->_Hw?2heU4B5#f9%s.KCDUhAC)Jl.&0K&bsAmcw,1(ULladHik#MA:A<[ U">?0^+/qo/scX:%r5zGwY*%IUU+6llf5W(Rm/h=#^M#;cu]:G'SzFo03x<6vV)[D U"?5RPm=<:Ru$Ji,ITT&G'*qHZO\Xi?)'M)M:[[kN>Y9vn%nXhe2V3>Joxo-6JudJ U",g:lWP'd,%_75rD,k.\bz/[Td$ev.7pfTG8\r-5TxzRjCxJ8k+kJ#u5w95U_mkf U"9ZtW[ZH4+W.(t(iuUt-9oRQih]]\y9$UNCXoalAfkq-Y7#nZ$fCNujf?Kj0nW8E\pQ33WGY&C(8rHA,9#[Aq_V#-HW1B*0n U"=uX%j:4,;*QjUptz=H:(,^RURqdYM U"Hmx.#y*S%Q19Z%>t?p9ol6Z4p;u\rcF1#a6V;Tq3/)T^LAYDYRs1=;nCEl0[X%Yn\9-OeWV9SYM:I]P;%>33S.aH-fVED>/v U"iyc8JVQ2Z;(]9Qp8?wfjN-GU3JOSP0fG%d$+TFjbRI$9fe8?c,[^s%,up& U"%'9%9%%'%-g%g-:dIfub)j-?%.%R;%%%/%%%%%%%%%&%E%%%%%%%%%j%shti%jS U"gf%xup&%'9%9%%'%-d%v-:4IW2I'LU&%%%P'%%%0%%%%%%%%%&%E#%%%U%?%%x% U"ufsn%xmSq%slup%&'9%%9%'%.-%kyT8It(.V>1%.%%A%%%%/%%%%%%%%%&%%E%% U"%'X#%%%jsht%ijSn%snup%&'9%%9%'%I-%4-B:Its'*<+&7%%#&%%%0%%%%%%%% U"%&%%E%%%&8A%%%jslq%nxmS%qslu%p&'9%%9%'%%-%rb'6IM,NQAY#&%%E%(%%0 U"%%%%%%%%%%%%E%%(%gB%%%fgh%qtlt%Snrl%up&'%9%9%%'%-%&)8M%PAa2:%u) U"%%%s.%%%/%%%%%%%%%%%E%7%%nC%%%xx%jwnk%Skts%up*+%%%%%%+%+%%x&%%& U"