'=========================================================================== ' Subject: CATALOG .ZIP FILES IN ANY DIR Date: 11-28-99 (07:17) ' Author: Ken Sims Code: PB ' Origin: mrken@megsinet.net Packet: MISC.ABC '=========================================================================== ' Create catalog of .ZIP files of any directory for PowerBASIC ' To Extract KASACAT.ZIP, run this code under PowerBASIC DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"KASACAT.ZIP",4^6:Z&=6248:?STRING$(50,177); U"%up()%9%'%%-%Q\eKL+5)fPW).%%[3%%%0%%%%pf%xfhf%ySgfjxf%V,=T[907< U"o2?-Be]Del1=6//oJJy;qY#'JL](Vo57%[65pqws-F=C&T(J;3]9U3?iLR6HBYTbnks2h U"jGwY^gRv6VsV&_7Ttd\jtb,5mFqar7OBi+-%YDX' U"\h=&Tj3;#2sBA%[IpGkpk7F.#Q4SVsFbQdsBj%S?D%Pl:,w(g8cc)T2seAWAeocb6-f[,/l*o>38YbIOs')4PRs4S U"7R#[+UiY)qPk7M\Ubzp.$\cS;;\bj(\89l[6Q3%+D0ZbU\sBjD<<$'z\Ul'X(oH U"3nG)9jiEA=&,.wrf+jiRcA&SV*a*)[nxPU=jV(8;p7>aiFfCF^WhBHJ U"dAiC3uWnhtGm65Zw%:2;XV/G.A&4ozh1n)dH:nL2)u,xLY^0ufR2%_dg;cs>ZiH U"iPsRwAc,'Kx<$Nje&ZeBy.g)oJ#9:'Drx4B0be+u.Si$5_UiKA>'(*umD-Lh1Uc U"\l0d^$]%X#57?E\&4ylOX<#3U5T0xEN>c-Tg#zID]'_P(Apy.yEVg(+dX-NlSR? U"]U5/dZ^ecy/Q,fEn[-Ekx7J1f.Ld7ab-g:DnUuapsVaZ)9]6IUl.rtFt>xu.]wb(t19zHQ&ep.HhGFBtQPPb.E4>T=982eG]N0:0H5/&JOT\tWOG1 U"dAUS2vK*)nj5-kI[9t?-;_n/cre>/8H'U54VSN9tpVv[v=i+QdDvT=B( U"TBGD_#7wm-+VwlL:=.WI8;c2,Lmq>M6qair5t6%oHtHR.+e)R\8zL/m0Br)+>c.fgof&YI-\>U^PrNl/d9=-E U"3'f9x03S[_n/Wd'%o/DZ7(&$E_Y,B2&u\zEW]2F_d#&W't_SE(./nWL-0^UOLf# U"S6_f#?;W+9:_I0uw$CfT;IsrES':xF,tR%<\nx16oe.Xu)xulSK1Q$P[u/5o7Yj U"8k,s>N.w?uj[W;F=nAN[tL)uAuY1RfE3,HF0:._a]bW_k/Cpxjq)Tep>)8OEf9N U"u*;3_fh-NS[-YH(:W,B;Q-4X7u6C:556-G[)uf&u7gJkKbFZ/5+mo6\=W#aZ[?g U"+H.[=Rg$_.%)lzK(74=GfEO%L[uSfF\G%O15pEpnI+%$XC-+AQmmPs^>xa:5(Aw U"m7QE$Znm&VI=5F:;V;uL&+jD&8e['&/F7]ZfnYM7/R]iQ*r4iA7mH.f?-2AbDESj?eW0BdiFeKW'v: U"kD8E1ZT U"Cg6_A\U^?:1duS9YIXZQ9B_C[R%7VBW#?qCJpr-s\tBTq^Lq=3;)O5p]X4b7Ofq U"R4GK7G;ByO7DIrH%+Pk)>X<;5;w$SOb4%CIQ9fdw=U5I_McU6sV8ajX&i7OP#z> U"FcEJ+T?B(-6pMUh>sV:%.$Rn-\mPivFB8pH>pe4i(Zb(^])T>GBJ(Oi*i0Fa\*3 U"c%uieFMH<_mxoFD5$YgAxUy:*,&yRjYw$KCQuY$0,YCuN17v4AFsU%%1%LEju>7 U".&;FyC1tgh)67CrF&c1bv4n;sr=(<=2FE3le/g3Vj:O8O;C+v\vz:vXOOo7 U"l2]7Obe&Z*K)jlpiE+CRF-SCG9aS)hC+>FqH U"2Z0I'H,6,81?C3(i1N8L;Z['T,1BZOSuaugJ2N]bx^/.h(MdIf9rDF]0kb\*5Tw U"kpI3GEgm+UZ]wUX5ha2[qi U"Ftlj3?vWdGc9nhkB6IYFs<0<4nk.Liyd05xPl/ALe'P5>=JLL8<5J=jEPG4E#L U"z)0i4G11KEkVGaehuZnjA];?bO9Qp[5H\D(q;tPaSNA^v#,q[D6GOQ]f9S?,;$x U"n:b>w=IKLkkD%L4PQhhH5MS9V[7YHS\C8]E;J-5qAQ;AsJkv8W/F';R;d U"DHfAUBSQ]1gn9-ZjYh.AMbab?mlTIcD>dWi?O9h$jaf^7JMB;%bu=IB]d%TYBfE U"u-q0F4\kd>[W59Q-5CBo?G8Eq1R8FjOnT(p5QCF^]f3Ge[B,(\f5O(j-dpI6]]q U"N9OKM)d2e6h9wq2H=ZGQK,8g=FY?-P+[kV'c#9ENF?\'T+Fc_m^m0OMD_Il#SJA U"Chpc9jo5l,bqDniPdC)c]jC*;U5uv$O7uI[#+WN#T>rU0(P*0QyOO9j+]6B>pZT U"x?aOZx%^&:[[Nm$^HWWllO#VVBWI/N^8+0Sz>8UjF&%0+W U"C'jiv5H-hup])Ouq[S$wOK7k?$V:/0AWEmDoQUde'$^T=H)KVvlHbQCA)pGsV^? U"&XEQw3e(3m9Uy'xH^Y#HydcBjde:VU=K<#$mV*)KCfmIN5x,I_VUJ:)RDIJ8Q8G U"8e;_vCYGO];tv<2$664[m%LT]WRcC0:gPis_MMuAmP/%*hWRh<1y9lBR^P7=?o* U"wQk2aM4)9FBoB4[JtM4S+N0qlMe[#Y''S;K>$GN+u:$b6Fo;IpEpO?PO58=,;E$ U"3Nvo;#[C;555.vejT.74IE1IT'g:NmKds$N'a/<]N$YTD7y[s&U9#*Lu5RT(*AI U")(HT6,hqFyBee6D=0biBONuu\\Saws>odB]+Vj']q3=vijQ:)f41uQGeB^*CXAx U"J>v#:]0lNU,*#PR[9oV6FEM8#qM7B\,[9W4Y9$q9+Bf2ZnH3B'>?3r U"1_qXw'WK#[rb_(bSX>G1hsyKI#*<:%yC_.];1Z_#tL/4i[//ROEUH4o740Uh>;X U"RrgSrx(ZjwbSX,I*/h[y=?xm/L]jE60_6sDI[x=$,2X>l0lB]tO,dD=N]N:lb89 U"J7]c)ljgW4s.Po,7'6vD8z,22/s*0_%\p;';?^?[r>76gd^27-'rB*4ja9HV$dS U"W[;CqVC_vmm]P$v8$)cVb4NP#\om]J^2N^d8v[MmCUDF+pL9VSJsBSiip9nC,[= U"uRIO+hgyV5e>VZ-T*#OeU^=4:-_I>O]2Cl6,lENYm(SD#WG:>$=j#1B1^/FXo4F U"/ngJ>c6XlZM-XY[4:Ivw*4,oY]m$tI[A9VOlGYoAEGZ:^,ubQ0d+YhHQ),APBTN[FV*)2=UFk[ar8M7q?M)+U;+ui,hnp U"b);X+^e')*TB8Y1GOae,5g(shHdj+pALGP8p4GQ/MPAiglPV%s*'m+5S%Z'Dj32 U"-yYX)F1;p&6X>hUZbNAf2ob6.V<0uf?:GK-o=/C:y2pKF8-;PHG+Vy]Uv1ge;zK U"*RZ8s3[,Vib)c/MWDCG%)9cex-o8wIHfbDe)1*EDM&yI&vEq3;BFOM-KgtP')'] U"5odt8jF_z;5vo-JJP$.48mD\nSMAi%C;e7vy7p7BRWuCkQA=$e^,qJ-[u4b(Z5E U"]VwO&lf\:_mf*0V^F2lu'Wm0kQ=Is:P9K$=ih^T2n U">>cAf:*pBoP/[qyijxC?0Zq'x)3#ro$(.X2qo-'^U)yZ-Z08jfguajPT>TDRRM, U"RsVdQ(fN])Lqmy*4_,f]$q#.?p3?VL-/FzHX*,YzKmR5a8dLiJZp0*,k5tu2e:5 U"$_c/mG9p5xa>&14685N^HNn.&;kF/r3C1xy+mJskFaA6&q#EjjW.N3(cd8&owTF U"S:u*$S*mhQWISq]^3+N?R)EWhf#xWS2Jf=a>%aYPS#9p U"J(*O5'-P,S4,r0qVvSG,7NXVpcwi.]U80txYv\xKocp*nj[j>U=B;0?LQtmG9BU U"gOshf'gLcNO2dP9=,4zV.zUI]TzTTy:aCEQdu0D:,$;#JH7(phd.i-yQ&rg9qq] U"'m1td[zdMDn??nkOI[z$F=jxG4ubX]\C$YqojzCITWNQv-(,,BwrdvxpBvWa U"I[e4kFNh>Mm8'3j2C3AHDYKch0KD3L^'IXaM6)pb4An/Myb:Z2ADtS;&c,otFQt U"^+No=N/h?tED6/)>5mP9+QI,_jhE-PV?H_#I]I,s;lGc.GX/PzweX0Y_,jtlqJq U"&sy%oH?6Rer]t7VFoX3$=,>HnfnPj#jf2*/CjyR.jA7M9YL_CM>GWQ+P#o&>3X_ U"-VY3Ep9io\ADGr)*%I1O)2;V>^u%3PhVLzgu1*&dWt6.fk9QYW_-A* U"?6$w(Ntq214qjK54-7r]O*XXxXar0'qp/h6Paop8l;:4UzBXDv,*8jEl=kG_G.C>AuY?*01(1uPD0A.X)-0F,,xHp^ U"K$95*n>>I^i2qCsD1v;b:x+GToie(KZ#h_gLZDEt&f,ziIFNHH$Cl/c4z^TOPkp U"qq^8^ZO#nLM>,pORZJp%LWa(T>;GbfS5L2g&4;<$Kr$c>eD]'6L:eA:=kQDwwW< U"XO?r:qJ:=/u#'/Gy;jCY8q27fR;bk/<;*WYr7Dr:$rDY,+Dq8p^QBX5+XL(4F0b U"4YbD4[%/y(S9:v$TMvruJ+ub7Zc,t&tG=M:&QYe\PKSPDlF'd_:j87 U"Pb*)*G3Za$2L4EU3;Ut/''Fa;XtwtYwYbVTT0FHi1(.Y U"Hi6';M/Z8EE2d:yHB&fymd0TmqurBVJ^Xv6g$hUgEj?uyR8zh'q-4NnAho2n)xh U"eRqaMHbVnk0Z3tdCmXRYR8FRYLpa$d4uf$Y.ar9cILx=;=Y,T%U)dKxK1N)W(l#>arP%<\ U"(KLM7t>ONgIImONsmy?MY7Xj9hT#bDP6l7g*hu99\tg6k)PLUO&LuHEQKHk_&l1 U"FJks\q6-X/(:oZO>\Lo[8s0,NCEj\mk^XUP]U:%u?[bBE-^4Q[/mmc.8T,S8yc' U"H0UC.qH:P&=Urq3BtnOF^ptS^PmZn=,=:RKUy)4DLp+09UzXE:[l3m,RPVR4RNa U"'lGF+$^b12kG>gkE(X_/Vp_vo()rpYbSms(8:^RMc;>.D6:OW_8sbRIa$N4a*6Q U"m9P0/=JVt4z^/B*3VuIR][SnuF#A5WbKUzr7Flp]=HX9o&3a$d(+JXI4/ObtK9\ U"tZGxm_cwCIBsSWQaZeI7:Eh&H,O0.-uNWqKhW_tv=far-o\xW^0TRG'Gq#HpDo> U",4)oH#tNjwf$d-4/Q,Jyh7T2gzF,82T8F4(U U"Gg\[-gvAwek;5ak[CX#4O$SxTSL'(zH%W2>qpmP.?jkx>sk&M61aQmxFFh5NP96 U".5a/b;[fDhnX?xg8&%up&'%9%9%%'%-%.Q\KLP+5fP%W)%%&[3%%%0%%%%%%%%% U"&%E%%%%%%%%%pf%xfhf%ySgf%xup&%'9%9%%'%-I%<,IRLNp&)j+8%(%dc%%%0% U"%%%%%%%%&%E#%%%*%)%%i.tx%n(j&Sg%fxup%*+%%%%%'%.'%A%7%%Y<%%%%% END SUB CLOSE:IF S=210AND 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