'=========================================================================== ' Subject: E-MAIL DEPURADOR Date: 02-16-00 (16:31) ' Author: Ricardo Daniel Ponce Code: PBDLL ' Origin: rponce@lanet.com.ar Packet: PBDLL.ABC '=========================================================================== ' Program to maintain e-mail lists ' Run this code under PowerBASIC or QBasic to extract DEPURA.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"DEPURA.ZIP",4^6:Z&=7680:?STRING$(50,177); U"%up()%/%+%.+%]P%tMC6?XE^;%%%&v%%%/%%%%ij%uzwf%Sgfx/0/J,[+#+4%1p U"(.%,0.0%.,;,%-+*+%,+*[%,;<0%/+-/%0*+:%)+<*%/-*+%:+/J%+-,=%/,/-% U"0,0)%J)J)%/+)*%9*.Y%,+<.m?Puuuuttt%10Q0%Q0a07QP%1%&GH9#:[\7;XiT U"a%*+7HX9^oeZp*xC(O?%u7yAt4rXs=G>GQfmHuxsbi#RMTZ^L5>s-V^KZ2xn1uq U"p(Xu84NhN\8+PueqfCDLmK>Wr(/z>#(xc2M6k1ipU;7$xDYol&->HVn^$>ElAVK U"-'X1eM&m.NSM8]>PfBBnGFrce5L>Jp>^R8Ht+D,vccoY2q>t\8UcfGz?jM:CK,\ U"4UZr09iZ-#X*Qc,-\sdepxe7Tf'QlWM[l5U+%=PCwBu78NpgdK]dscNwJW1NZGJ U"z_MfY,YmMSPT14AMUan<\-k?nJ^hRP7GSF]691Xccjc(I U"hq\:2gQN$\82EeI&%0BMOI3Kr=PAKo^V&Vw9fuf>Mpts%\miCm+GB?nR(a$D,?_ U"1PDior5$39+2$d12oEX1h?8S&\'l)zaWD=9h67[Dj=7trw1lrwc=WnwZaoTw#w) U";fJ5Z1O&SbC9T5f4'Np.Prv'fdl\.*,2gH%6FxJn>EwZe-Wn.F$]p/:SGUeU.,/M2R#9=$[irR>Lo*Y7P]cMW>>k3SNVEP.a\k7 U"Av7saCpeW/_lhqgKI(DjD*jmBoG3I#QdPFCgAr;RJJ/G?X%U1Gat2LoI78,SA6_ U"W4vWM7fBJb]gCvEV)-aL+(hp.dm1Q(FO86^I?gF$IA>yF9$8j_gux=nWnItrwl\ U"o>01_R-yMiB4G\%z\E3hF(sT9xfIT,hZ+Fb3]VdKQFtu\M0H$p04$I^3GT+d+\m U"(C^-g/435gPBQ*Mr'BfUXt6)OS3u&e\9Xj.X7-A6],[#W=%T>GdTrrgEF+\d]NS<\VD2xHrLp,qZWus=-ldfg7_>6 U"1vYE?6wG,)HB-+=S^>(x0+-Bhy_+9d4,Nfs=J0I?Sf8Ei_inDar];zike6sf8SF U"53Rdf+B$FmkvMx^Dv3Wmspxik;?Bonv_Lxo0\c U"oh)WA:A]5C6s/h]glIqg7>M0L&H%N3vUPiBKRQNjdue7\MWGoLM3N]_O-GEUCqp U";Ibk-$C^ZLI?Y3cRE0$pW=gTFVUJoLdcwYMxfhmC6<21^UBdKa.i<#LK631x[l^ U"iO#zT[k$g.1^U9t=v-lkGTQBv[+Bh0L^U=^>(cTeN#_9]aFN4X3]#jHf-2Fj.>A U"y^sk3v[*R1>_VQ%F>kk*LRk%J;4g:sMX)NZBSi U"Uk$\KhNK1:O*ro2Mgl2KDy*IOtItf U"P6dS&U#t3j0kVZe'.hvw;%TMM-7$3%TlX5';#:$cXtxMoJ&q.Ar=E0vwnjDDoh;GuuQ;MHD U"f$dIia]>6O,sfLQuK;bU/4$Ci8k,d7b*$\/k*Xk:B1^#AZM#SQ&rEg:ZYEFx8bF U"+Ak+j01_Y7i',-(]?1?-jJ4^Ng:?MV&:1TIV]kE62#g3GOvB0Hd#%%TA\rU#QNn U".<=lJG3NllP,T;Zx19,)ll^dhQ>S$Wm5(6rmgDp_SB3A:bv9hGg[fnit&rjL)UaE2U:q[ZK9fW,87G;h5]qj\oxg;1=&Dq_6Cl1L U"?.9mCSsuj&P)KANXPCTb2=gEn.Yv-AZuIVr36MVG%rnmhRv-I)f9V,oi+8t-),c U"Zs=wQ:5a[_(N\J\++EQ^*bns&1Z+cGwHu?;K3npdS$h?^I2K'7p/(85#50*RBrS U"HzS5k*qVlJJDTx&)Il%S9:FE)d9vOBiPqKUh7.c^1FX4:Bsa[9i^32m0eH^XOh3 U"\>%]a[q)8K\'q77d##cgLNrWbnEr-4B/J#eOD;:YV?J_UeW9*X5If'TA?9SEnRX U"2t<56lyJf55q](tPbN0qVNs]:4#UG2gDPSSRW=0ETg.O?rqh^-dN[mHeQZWNAQ^ U"5Vl,uAYzC^587<0;jZd[p=s\G1r(^XJw:?_+9I\Pi>;jL'CidY& U"PP$%DmxqrD:pQbN6+$NM6cE?:<0 U"^iAH36Uhs\BDB(tu1g2qBtIrwk=uNXs/kkeKHX79f=]N$5G*DF)9S+5fuE0rg=4 U"TnGtT%\Vsq-jjI9IdjbfmIk5Zst='Qa6<$=d]NX*hyFWxX#Ite:^S=%>]M=eA?U U"vH8hppl_]13Pt-0nXe=op^DXpptNh/1BnaTOnF^tC)?]))Lmo_N<:wumMHj'su3[ek=H;,o9jasE=Erj9O1<-E&614Vn-Fcre?-B#lu U"+Wn]Rak*Fm+AnbT%TT)g+eY7Lnn13rZx#Adf1sAk$8;5XD^+%T>F*a7hOj+BfsY U"p1.h^DVdVx%-$9^5AQ]Gq<&T,b53S%U$/;Vw]rb1IS2M*.(#W'BLR]?kKe(ZA0/ U"Xlp:=At:\_?d,xF9seUmadGYJw?Upt*YG_._k][Bf&5.tdoY=IyMrWehDOU'K73 U":.w67.A/w[KE[2lP:0#WC79I1&E^5=ld+&0tb*LE>#D?3d%GxW&3*B%J:gp7Y&+ U"68yXa[qk\YP.M*G-&ZA9caT+x;gG[QSf]:]EpZu#p*u$=AR(%/uQ=VMocy%J:-c U"^Q$ITI;wsktA,;_4IUNIr&hBjGG*k;dq-$ U"&J(fU4S%U(y#n&);V,H;p/%Jy^RUjOj9m%:8YQrJ1[U$g:,:^ctVnQj]k4)o8mN U"245n'RXneZ8r?)c#ug=yM]ZGrkiVH3d=[COwli;b:o'MQSi5O-6)RMP:-HZh)7h U"k>EQEqcWI3_(f.=gZS(FIWB)%KVPP]q0-YPhGCC]d3oL5e+J#=K$xd;HPhj&gQ[ U"sIB8PX06,r/*K?L*]7gTI'tU<&G.__ U"7(DRnoEOOf#?-1Qcsa-QYbY-rWGCF0d^KH^M2D'TtOtG]<'P_W&f*d3\fnxNno7 U"9,']w3lYeQdF%IgDli?0H][ZCL38#jnH=B1Eq-d?#fjE\C'Zc(K*I51DB*w3[CV U"LOHh_qE-Zq=c/A0AE/1lvJ+U-PXBk_T?#->hEX'u3&Aft8J&CfnROeU3EiiYGzT U"qOAiYBa(QyA<].Rp$W*nsr[3q(C'?SY\VoF)BJvG_$uWSSgJ>a,3H$A=7w\T.$l U"+udl/-^ZWSNw(ULd3#C3bgM*aljIw+h(>sW#JqXfQetUDH+8,FN44I]T*,H8T(. U"ny'J:'TI(2zV763*Vv*AlleVh12Qj)6ojv,h9gh\b9b?;YUiXe_sV[q6/*bp>y\ U"N.r1bDTfsKGr\kV0w]Leq;pn41MP^np^t?ALwLdm U">i'D[u=lu1n)Qn85gpv:OChF(C[HLIlADb,b#C#]JJgH,wNt0$?&b[P-3^WlPZB U">Seme#/6945m+1u9mu9Mq\(OsqcLwM*dXACA$i\b5F[cU%hKVP07T-%K\Z\0Yl* U"keiJZ;7)PIeALCU&db*(9Lq<4Z,xc'lCC6u6)m_\CA+RPLk)aMkj_WuWUC+5BSq U"u--gi'DC'77p--imi;393u'#]R4A[iY^?bD0gq;*%$W[7fT#YK6>tDxRw+#fPY2 U"72P-aYZ)k%(,Ri5qX.(:54:v%?3-d+;$9^_K=F2w4U1=>&1[S(G1PMKROAIG(]J U"/Jz._aHNF(0.ghIJeTV1oOAMmr0?V)c-i,Q&BXkqtm9bjo+8Zkt>_ZJ8,,m;[/\+SUsKYV7>2?X7-AUVV'P:1XoG'I7*U_VhSJap3wnhP:]s%7Qc4Jd6KH298UU44eHT3$kQ]eAumC% U"oQMABuFFvF,?8HED&J4nW\1gbeE6:1,RwY,gbSURb.raf$SadwfWwnnG9uFf8+k U"u+ujf#A5Rx[,CB3gcr15L0a9/Q9BqV9MP%p^>Q%:;8M=m+0p'<2547[_,LjBOKo U"j)^$7qLQ=YkdsSIK4IR'gtoq]f4kVDK,ffLp-Itga7zQTKx^Z=DwE'r'PkE]tni U"Wi9N>cc[6x?#64/_l7:ewI03:]l6Ef=8*3Y5eM]hNEhZ%D>-]>_#CYm,UkRt)tw U"U\h&5Cs(7y=P?09R^oc&rPD(wY;XM5KKK>-nW#l)x-lu%I#U=eLn7de&s+'+ea= U"5mH#Tqm>W,e0BcneD4UZYmC7JH6a,[)l[A\aI)JfPUODaPTNV[6koby&LyfaV2l U"uSPj&ADdo4n-^alj[Xq]MFr[P?TSD7,'YWW1qoug5\2YsmF\jTXgtQZB9F6V(a7P U"o0/eOL=8q7/A-%;_Gv8SO U"/n:p%V_n$-#O$?N9T)G?J(cArmvE7YR0wpI[CI9;;,^Xcwo7:Uo)eqxDZjr>Cdq U"mO<.Z[W5Ew4DCR[+or16\Xa%EDb%C+;DWU&VbIIEFJ?gEP U"u.;%'%U>3i8)N'B?cD?'k2#7Xh,7juW%/e$8[l9edH+98-La41#)P6F5*Bwfw\v U"pl1VzXB78_YgpiML\X,\S>LM^p#7Iiwy_,Ch<;s5ZD=FTlAY9G#NvZsfumgUEb4 U"QXn/[F3n_nkZOxD2taKD*lF^y3K-ipg8gRFSP^Q;J_F2VI&yF-(f9,H?%sn:=8? U"1XU=vo,PH/4bj]e1k49[#]V0/3+=Vpt%m'yJ>mBt1qnp:+^20]6G<(71J(b.Fzl U"k/p>hPTs_;3aD+(.^B+RQE2f-DkT4uXZwuHkV^K=,u1\7mC\E:#A/\\*;/euqIY U"H1)%&Ef(tbRd#*c;M:-'\>UI\hDa3yG2Qx]'$PX=xoU'Q\'BYu[M?uVu7a?(gLi U"LJX^;?lwkx\][10gp^LGxjc;gSlMqu#G\8pKuRVs?MK_jZAdG_DVhBLRFJa;2oA U"7kAmU_MAo=60#dBd_CG?+pA^A(h-ay/Da/hms(i.*j,>vf>$7b.JDpRs^+?jaa* U"$_TME,,R+OTF.2^uyJfNj']M&Chkl3L^4o'$8DzR=Ag$pt(-g%U3%QghURrfHC, U"V>3(DO*QWdp#qxXz+MR#EpApFaKnb_9:YrJej)75$d'D?':Ctvof['VmSyf5,^d2LPNnOkS%aD]X9BVtd7HxiE U"dx8*&;=^i';kF<)LDrVuWt.+APt$/kES]]Kjx?Xv.;ckVn0jo9Y]?6$9O?#*D8o U"Z*Qpi+L)7$hwfUm*&BjM/;+9GInkk?Q*LdQ2S\ThsC%=n$oa\ktgg3l[c+Qa40O U"w&1LGCd)e5Sm^%84.-rUAx4h0XFC\f_J_2AO*:x-=3?N&gH0I7G0bg('Gt>&fE& U"Inn)O^IIEFUTS7tYXrF5yPYN41Vacg4=fxvLg*o_]3gpca:]9SK5QFw=(zLD6d' U"]9*NgQAj6^gF?.&78eKDvPP%$]?OBiSyw&a0:aeu58$nXZ68+4A6VZP*P>5&$Au U"8d>=yF.9&H/c$+M]8VFdZU1d&dE0#;2PJJG-[FE./,DTVOl=wxX6S_Pw-6IyoepJX;T)Cz9uq1ttQmfWEZ/&;?YN*LxE#IOip+YRYwr[j U"xa(oY*6TSUrDuMKfT*h&='+5>^QqI$<3'q_?^7sb\5T2QsZ[RQB_,q%=T-kC%FW U"$0Df)$8*_4Mk^UongjZmTW U"ATZ-(In*ca,rO=<+s.Cs2V[<]bG;>27?wNvGhv](qI[h%P;TkorutV2E+On2L7p U"R/QjBc6D:[^vnJ:W4y-]f7ILmy7QZ1*[*MT8C]3s,F36rbzS.j=b3L>2M^iR-B/ U"/=RVo2;KfBk*#+M40aP)1Fd\&,IQVe\*#M%XkXA//+QNbW/[O$u%R7r[[dX&_QY U"X4o#y*,TObYUv]YBbRLx7ChszGNT\2ETlq,iCDr]3 U"K:3LAdJv[&:hsV<\sQaem'Ln5Bt2l[G* U"O[,$;Sv(l9QAMH5#\hT4;5RWe>+8rB?BYFSk*E,3VnfW9p[MGit:,&,8fz6q+LE U"bxu:TtdVSeh1SK2>Hul^qLmlK4ORm&YyMMBFo(%(%% U"'%*%%.%%%%q%jjrj.Sy'y%2'&7%H9:[L\7Xi'Ta*+[78i>WoepX1;T)z/9uqt_t U"QmWUEZ/;[?YNL\x2:/&;6AM0_PG8mR00'lU)3X]C*n/=QA+R$TUrD>EGj7WWDVQ U"nSPpfa>f:6Xf?&rQ6ZedBT[Rlu\^5V^9>\E1PNTdlT-BbX_Y&M]\fctD\aO%JyN(?8>$FoP(fN(o/EL3p^&oDU=C+DIsj7pfAV1D*o U"dJC#\5BRnB\:pp(+f7vgM]P-3K-X;IFe6QKp1k=t(SzKsk,#-H>zK-Pa_10G%Hi U"C3_HVDlumq&a%38RQZ(L/$V:4);q6r6HQa*Ss$$CS?h#B]iK'$6MjV:wujWY,_srkb\LDqpy/5cCnYdgS6MLeD6N:$4W>Z8oQ[t/+y.85U]uPPVar U"hh-M>e41y-D39AcTXM4&9EF#Lw$Yz7]BkeU U";Rk/b1nf7o2\,+7sGgb_bS<_wD^c:Z(1e$lUj U"tZoFnorW7bKqTzl^lD4FhQ39%h3X3MsWoKJm,)^+u%p&'9%%/%+#%+%]%PtMCs6 U"XE^%;%%&%v%%/%%%%%%%%%&%%E%%%%%%%%%iju%zwfS%gfxu%p&'9%%/%%[%+%9 U"\ZtMQ[8Ms]#'%%M%)%%/%%%%%%%%%&%%E%%%%2<%%%wjf%irjS(y'yu%p&'9%%/ U"%%[%+%#&ZtM0>BFo(%(%%'%*%%.%%%%%%%%%&%%E%%%%>?%%%qjj%rjSy&'yup% U"*+%%%%%(%.(%v%%%%hB%%%%% END SUB CLOSE:IF S=122AND 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