'=========================================================================== ' Subject: BATCH UTILITIES Date: 11-15-96 (21:48) ' Author: Bryan J. Kyle Code: PB ' Origin: hakyle@OctoNet.com Packet: DOS.ABC '=========================================================================== ' Load/run this code under PowerBASIC to extract BUTIL.ZIP DEFINT A-Z:SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"BUTIL.ZIP",4^6:Z&=7311:?STRING$(50,177); U"%up()%9%%%I-%;-8*Fvh=Pt?/pp8pZCqEh;i5-7RGlav&?^e^_T4ec[e(:]FdREK2'>8 U"1r,=rb4<(MV5D^z0MJ#wz[(g=te]c+l'qkOLRZxOtO*n8-duJYAT\.&09/7Hrqs U"=#pf[\(w4zr>-Lf*JsGbjoVsTr[lL$H2cp&>;HdKYmdyoH2S)'JZa;/2.t*?9>&TGZ#ae-5)Y U"Q79bbc(%&oi/el&&lHoKmQeWOzF5ie'kOa.svnck$x]u5353MVaip'].v^q;+,* U"dRS<,E0&JF00I7Qn&PmP#o^um%.F296E/zW+X6R=UlGB5-18m3LY.7C?wGeNMf) U"2=t=oO$Zx^vgg7%>OthQaMHw%NR,sn&I8-JnO0?EY8f[lx/dWu#N)hLpIALC/p0pZ(YS?X2CMwEE[odl/RwcGnI U"QfYY\;692#uq/vz^w.H.smM>zTFBi-CW:wr6)^iyPCm&ea-oHMEi$AgH# U"qUMZJLveBD)/1xms7cI]Q U"jHTa(ldmmY)]G\'i>\Ah'+8?vHpglQ+(AeV*;]DDiEUFaqEWv_trYxH;nno3#F8 U"LxW,Ql\MIUpp(YY3KY7zWDE2vQse0aP=,Hii)]flb:T-3r'u%p()9%%%%-I%6B1 U"[FQ98-FA%%(%K'%%%,%%%%wig%Sgfxhda.D\QU9?oh*8lt/;J.:YZO*$:n.P6N.kxG%9%/8 U"#vNUU\,HQga4IiPfq[uu?'ao:%up()%9%%%I-%/-&*FtC7m=R%.%%d'%%%+% U"%%%rk%SgfxVdaFYB;U9TrpP590%3D;7/R-sVs+_]2Q64m-MB^%Gz18+<\VJ(jh.*L,JfZL&k$Db? U"lx=TODTKza/JAmE%RtIfctJkkPx=:BFQX^S>ZtI=vtIOUUGQ24[\<=ObieZpBh= U"C5kGeX7BZ&,nNxp(BF9dpSM U"BKqwu=UI6778)4Wxcv$=65e+;TIMrV2,D_86AWEK;lSV5).+8YR&0=6;8E,I-_r U"3tuZ97%\aD[j;:DYl.KdhTI U"/5>.i>oTXu8iw4O0rmJ$'oYD:Zinse7p48,ymaR0nTgx6teVJDN-=]_%_HhsOAc U"P_?xj,$or*Sl6oL2P''C&]v=KK)+bQ#1cD]BBvH&]i[IB3/P,?fLbros6qwo)Br U"9Np7i/9Q*L]an[JFk'%t(oK>[lvbgM1/B(s&WMI>FudsIu_fF?5c-/OH_;Jy&0-'*z_?jY U"mW+D25*$Fj5-(h0$9iNp'')0hgSs9\9=^)6B1nN)DSai6so'c4up%()9%%%%-%1 U"1d*F6*iiE'%&%%&g*%%%,%%%%hiwS#gfxdPcX:zRU9#nu(IxZUET4Pg3,:fJ3#' U"b*'0F6dr0R6rQ)/6'eg>?]rf\#3tu^a2W U"Q%$bLVC8qzpZ1tbqbC.i[P/3+at8-RV'-2*tcE)_TB5L8j/+^ePxmg)Bh0FQjz: U"Y^qeyn[0:Z%\BsJ6Vh>e]35lV'pM_SCr]p#e*g+B(aVJ8/SozCHjL5=Qh:Dj+;x U",u%p()9%%%%-L%1h+=Fd7#(\L&%+%9)%%%,%%%%hig%SgfxMdb.:\re9>oX*89# U"cBg/G*Ijjs=L+4N)zbEDwl6r>T;7)XXVCU[:qM]QTpiSLi\8qj4[GuTVd$-3LK$ U"Z-?:7e'*-Kt:XI]+==eCR[1GWJ(/qI>,xnN:u%+ubOT9OK6iJ> U"4[i4etD%]U_5$MF6O#TP10,X&T3gEi3eudvn3R5P0XDbEBm'F2Vbo/eZJOOoOvJVz]t4wA-V0H/3pc5H;Rh U"KfT[Whqu5+Q%Y_+aqVUEY'll_ijoEW/-f0=PjR[:^D[Nth?Y;d07nZR4b:^0qXz U"7&r_V2Gh#LkmYS>m_*:7p?[+/[k'NHTq2q4vgG3RdQ-hgBJ)?leWU2Bf&tQhI+G U"_&^lnA-scqw868-^VT%Dup(%)9%%#%-%iDB1F,eoSok$FEjd[ru)nWHB^gij)KJhIn)e1>dQA[pny4t$:Tr)I/[)jOYU U".Nj$4Z6.[+ay%_zz7l>*6$D:FcEt5fgItzP3GNI#p4<;#6[GC3Bn?9B*.NFZI<< U"])/4l?8omKlDr-3D_jAI\h\fIY/rJ,gK^r_8RcKj+i.\5nniX#G[=9//?s+Qm2+ U"6r6oZBj?fR5kL^\wnnq>3 U"s.gdWgz=\M]IoUiXv?(e;7aCu%F'E;zinIC7Ly(inC5Q61z_*DPzg'H3.b8&gH3 U"USBN;^6)Joru_Q/17JMe^Qrv))wARcRuN2DOekV\,..3nA-jz1k&N1TkV==uDy, U";j:HeFqerz2:BxW2;sE'D^2MAK,^5\WoCVB%TmSz,eV\5FI;<7RiLfM:i<9$WAU U"wF\Z.<$%N,[;Y1Q_ZND:rP(qh_x:nn0me8tp-XZ9(dZ=(_Et(]v&D9RD54-<4I< U"J:>F:amfzAI.Hj)]INEu;+Ji]\qzNAJFSMiicF[q3ah#Hn3S6:]s)\h;Juj:7l2 U"+Tab(kaO5b$h.sL2bY3I^$6km8c)onw;o#p.T-=oQ]p5DKIOPt*(/-2#MCGvH6= U"-5ESTH-C0BBOfKmSP#=?Gc8Nafm U"h&ttCQmxWKhElT..Q(a&,rw2lt-OFLvacT;bC7kz5clu U"e1Df[Kmn&t5>WF;Y\t6q[(MpvOPdKev0ROo,aPGA$.Kzn);X]TSlY_zV[MIcETx U"W$PThelgTxmY2=+5q-=[2n^)s-8\ld0gjp=l?:GK7n^k1lwPH5'pW\\nt0)be60 U"4&ti6p44=$Cv%i>B^oB]*W1IcCRIT->rpx7u6>Sgl1M>b_0%1]u_7fN4u:\v-'P U"Szpqc5#E0+m*r\xlIjL+*%6g,il>;l&M,v);(L3I9Ez*>>Kh2r U"dPju2h9[:c]*Ot&.8W#5MG8tQ/7_2YP=A6Be:E;Gxwe\76x?7]tXB=8>)?dz&MA U"PD-_f?m+nW(kB?I197cwg+bG*:-qbl.UqgQ6WM:C:>a'4*V]lI=eUZ6a/#ex<;N U"ke.j&Wt*1wHV76ciV7H6\'pb3[WPANbAm4.\[aAppGCG3>Z>XYJ:7qKK$=0MVfH U"#wi/PjB3yNj/aXhzB0a]\?,PB3K?D?';[3ZJ'sGq,oXXA0MEw$lheXO?_3Z*4ko U"MYMNDw^/90K_)R8a),q]5nCG*b0[Qoe$4OP.3G3 U"m4W2A\f,h[%K)fArUv=e$'/lidgVej;p6r>#S'X+-:c+TfXhpPM\46g^AcF? U"(.]_C,-\iJ#*&&>UeU<[#MsWid:G[>gY&AK$\k^DGHLltK_R&brxN=D:R1clebl U"q3IaGE>[h\h5L&-5g5AiP1(lh))A5W7pT8Lmf-0[sK(L#eLtO+%ns_P=FEqWv#K U"IF'0:cyPSR.>N:,1cWYbdN[>(Wu4>K7GTw5+oih;-BAT/fh-xHW$MOFtV%Wa\)>SQs-UD>C283EHtPX;ZV%1DY68C3uX6p)2T0 U"VU/Rn$Bf\i3#./yTbG[.KBz>FPyJg]W#EZXiA%7kBNnJeUKC**sMLIQ+C-rYe=u U"8-C(&jq-/My;*^*azRAC9aWtG*lT]UruXeJW'tE\+\A&OC8+oD\E$T7W/QD7q+* U"<.TNA/-D?(0_T/,c-/zg[#zj^K-^]>3Bah+=(7 U"&NV9'=*aK7T1MySlO%T90dlx94>yg%$b'#Pqakb7gq8i[jU+.]g*:QK.hfkOS)z U",?qr^H9V43'M1,lB)HpOWOcS[&3A/Bt/=H#XE_dL;Fj/KCNl;(8iznmAeJIv[t) U"azjCp2GbRrnh2E%s'IS<7gBkC4CE:8Bp5x4#h3&S U"N09K$jYz?*$o#Q#o(?dgo-'lqlP7xc]?iU5w='ZGG6Exb^\Om9;=0A&JSAgX#3pu]T9G=3B4 U"#]-.YeXQaij9N/Tr=^fsV0Ue5.FDZwt.EqQZ;]? U"NaZxclrP:r0kWSJ/H$tgT=\59B$oI)0u&fqIl0emk131^#P&oGnaxq(D$LKn/76 U"Cg3bJuGdcniPEfDV.OF+2J\DaIt;UFM1ZiQExKWDGVteE1lh:C9fCb9hC3KIc=_ U"7,n[yE0-xnh7=uTCQKDOn.GaUIOc8.'8:iSuj#'6q8Jd.'x&up%()9%%%%-%6U+ U"8Fh/mjR'-&%%%#+%%%.%%%%ghtu&(Sgf1xtcv)^ie5c#Xnq1'LiuRDY:U[z&ZPg U"KWR0g^=fYqakHF<.8K$^?ITv*olzt\FtvH\*7gk\nDXl_nPy_<+SQ,9__2q^8T5 U"s7U=1sgvAp9s(tmL?sH8cIAA>V.l[mZcnL9GAlbCn*CMCDlT1yHo$[jBu#+,YCo U"M\Uf9W1qW7&RL&+2Xk6maI<#GDG5QYO?*2c#zWn8z-TifXCx&+9:NAm4diPvG*F U"Hoc08(aRAjn&,oYIP)o=Fv13obg43_apU+5,'kk:kBYhdIm&'e4YATyp7i#$i#u U"h36G_a*%/o)>-b+w_kD+SHgyNiDjJ'nOOV3QDNM[ZsG+6kh$5p1mZ4$KD(;w_9Q U"a,O;Brp2L<(NP2a^:Q<>UJGUTvNxI9wn'vFV=3KP\b7([eJ9HU&4O4i6zS15&gDV#:8L:4*:EF3k^hJQ7SjfwSKMbLpVuE>FB'_? U"Bl2a>a\]tx%&up(%)9%%%%-%,(sNFd7#'%%d%*%%/%%%%w%jfir%jSit^hT U"xh%s#^5cxEotU3ras8Q9o>B'&OZeH?O0Tg;Nd5Q,h:#Q?NL/Om/]daQU8$aEU*a5/Z+i(nf5CYJPS2Bm%e#h( U"u$,$CQ9mvc(:Alv94xTU?Ke>nX]3&KnW\16i(eW=$B+Vy45#2a.^tws#gUT6m2N U",djt(Mib/h=SQXQ5TH?e-VJA<-(p^tcZ\S8[LoB)O,7thc_bWb0;A\GEq:fabd> U"'G^*$-eQHh/WSe0%0Y9H^r0f-\ngW78fQ33K&7\4Qja]X4[n6J:w-._t[8R\VQX(d\LuLpCp<6BYUn U"U]+33]-0Mi6-AT>jABI,e>rC;n9$v$)E#TDl*Xv.kG3a8pI]#rg<&&nhXjxJSET U"QC*WCq>_uPU1&%-h*^BUX:a U"tm\H$XJMDc^q<#LLP%eaiYenn.GHBmkx\1OSByNUZnBXDH/?3iXc[?_qCW_,g3$ U"K^LHPJ?kXXbRuioXJuOBTdIBrfDApS%CU U"J#En%yS]O^ipV8W.[aw^664_l?0aM,Gr0T:nmCgH?DqE1nXDwd,(/flB9Ty#\lyT7e:n,\:95N2+Hu4u%p()/ U"%%%%%O%HS7OF%Tq%9'%%%%'%%%%-%%%%rjs%zSrs%z2/u%p&'9%%9%%#%-%;_-* U"Fvjhch;#%%%J%&%%.%%%%%%%%%&%%E%%%%%%%#%xf%%jwSg%fxup%&'9%%9%%%R U"-%eu\*FTr'j]w&%%%/*%%%,%%%%%%%%%&%%E%%%'b%%%%wzsS%gfxu%p&'9%%9% U"%[%-%N_j+FlB[PQ,#&%%<%*%%-%%%%%%%%%&%%E%%(%/'%%%wjs%gSgf%xup&%' U"9%9%%%%-I%6B1[FQ98-FA%%(%K'%%%,%%%%%%%%%&%E[%%%\%(%%w%igSg%fxup U"%&'9%%9%%%I-%/-&*FtC7m=R%.%%d'%%%+%%%%%%%%%&%%E%%%'I)%%%rkSg%fx U"up%&'9%%9%%%#-%#B/1F()>Gh#%.%%M'%%%,%%%%%%%%%&%%E%%%'F*%%%rigS% U"gfxu%p&'9%%9%%%%-%u)h+FsCA]K(#&%%]%)%%/%%%%%%%%%&%%E%%+%2+%%%ij U"q%jyjS%gfxu%p&'9%%9%%%%-%1_d*F*$iiE%#&%%g%*%%,%%%%%%%%%&%%E%%%% U"_-%%%hiw%Sgfx%up&'%9%9%%%%-%21h+F-d7#\&L&%%'9)%%%,%%%%%%%%%&%E% U"%%%0/%%%hi%gSgf%xup&%'9%9%%%%-L%iB11F,sNFd7#'%%d%*%% U"/%%%%%%%%%&%%E%%+%&;%%%wjf%irjS%ithu%p&'9%%/%%[%%%H_S7F%)Tq9'%% U"%%'%%%%-%%%%%%%%%&%%E%%(%b>%%%rjs%zSrs%zup*%+%%%%%2%2+%7'%+%4>% U"%%%% END SUB CLOSE:IF S=184AND 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