'===========================================================================
' 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<ch;%.%%J&%%%.%%%%xf&%jwS#gfxdk_:Y;[U5ehF(l
U"(JF?C;)'fF;0%GOm_*gUr8an\fH\I;a.Qtnjc?CS<C\ee3h[rChU?WM/v7<K(?8
U"E-.jLe7t2%[yGa>=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$<EcmIv6v%%up(%)9%%[%-%e)u*FT-rj]w
U"%&%%/%*%%,%%%%w%zsSgIfxtb:v:;U=5#X(]r3ljS0(V)M&*d<?INd1e5nWjV0^
U";S%2[Di%ddp$faw<UEMJMSqNN24lx^AB;tU-0d6J+_Ahf=C5pXvi&8K1)iI[mW3
U"&J?=^f\L#q?.u[&88TcCc&Eee.P'']XeR0lh\rqZi+er-DiMa2bvsCLi'mkbAgs
U"4]GNK+2CKMX_E_n]EY\>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<h4G#pzO'+-<]U=V<P3'Udg59
U"MHx+%up()%9%%%R-%Njn+Fl[.PQ,&.%%<*%%%-%%%%wj%sgSgIfxtb3::RUX9?h
U"Q-x9s4*b0($Z-&Seq</T$(;58nsH%#:-U&RmixM'-phbR%*'J,btKr^DWt-+3aN
U"\52lYT%C,e*e-J+=\;4P\S/8?e&FsToh4J1-lAm?aMjnsae_2?x)asW4p:&v_S3
U"Gf6zKfodFXi4a>?EY8f[lx/dWu#N)hLpIALC/p0pZ(YS?X2CMwEE[odl/RwcGnI
U"QfYY\;692#uq/vz^w.H.smM>zTFBi-CW:<s/*6>wr6)^iyPCm&ea-oHMEi$AgH#
U"qUMZJLveB<Tqj?]dhe5Yxf]IQ2rx;Mz(6*a0=q2p5b/Vf*0PPs>D)/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*8<DRCvo5o_z;AC6_8J/x
U"UL)OW*g#Gm)Mitu$.?wi_+VRllJKG^J')ct>lt/;J.:YZO*$:n.P6N.kxG%9%/8
U"#vN<kP1;=$Z+\&pJR?9ut(u#HnY(dgDyQfjP*K$<<$n<pHH#w(z?Xp$G2PFQ_x7
U"n\)^7pakEK6HnuL-,#jpK#yWrza]ljL5Hii?Z7?T:ONDFa[WqAD;bgAeVQc)82N
U"j0*4#>UU\,HQga4IiPfq[uu?'ao:%up()%9%%%I-%/-&*FtC7m=R%.%%d'%%%+%
U"%%%rk%SgfxVdaFYB;U9TrpP590%3D;7/R-sV<zYqG7;99=wSm&#/k5NO;gKJ%xB
U"AX=sJWzYatVBS>s+_]2Q64m-MB^%Gz18+<\VJ(jh.*L,<Gzq5v:0>JfZL&k$Db?
U"lx=TODTKza/JAmE%RtIfctJkkPx=:BFQX^S>ZtI=vtIOUUGQ24[\<=ObieZpBh=
U"C5kGeX7BZ&,nNxp(<jCTq49.pAR<#lG5n_OHh61GV/\UV4-nF)JQs1uS&XJWseX
U"Qg1C:O#02(z%J'&U-qi,+%er3q]\%'up(%)9%%%%-%#DB1F(p)Gh##%%%M%'%%,
U"%%%%r%igSgIfxda0J/QU:9Uh,MJVRCLvoo5A9f<p&bk_j'e&I;[mjEV-qorH;B(
U"M[j=ekhXd$e6.f?v^/G_'=e09v:nuE)Ic:/VCbAC/I%eQHNRtA;yr_VT.D=[[uc
U"n5$[ad&<h3BK.;V'HZzaVhPOS.OkeZr(Y0Vfg#cPiFN7F,&QP7$/,.e>BF9dpSM
U"BKqwu=UI6778)4Wxcv$=65e+;TIMrV2,D_86AWEK;lSV5).+8YR&0=6;8E,I-_r
U"3<Kiux7p%Bup(%)9%%%%-%u)h+FsCA]K(#&%%]%)%%/%%%%i%jqjy%jSgfCxdw,
U"+p<U98L4]4EqCNJgu7tV0sVV/NTIz0.VN,/ogv-;\/_=7uqhF7i35<V\ED/bm^L
U"p_SkpB'DAhf3ARl.f*\pg-5;aEN%nXK9,')RL7S;>tuZ97%\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<Q[b#'0W_v,8]]Y+h
U"R\Ow*,d9yIn[H5]mx*qCNmFSXHEIuSDu1KBm=4>_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><igNNlt2,F-t:nZM$]JcBQBpg5Gkk'144;Ph)He/1n$
U",PP%(LT-O8YQIZue.IbNR'Su6vVs8I/U+kg-P'864=[+EwIL;O8XBG=s'0/?[0Q
U"&bJ*(P6HVa=DpRv03[]44%DmHcCMwwOzOP^jUc3XVtudP?^Qay?v/:W5l)KNN9R
U"^p$kQX9IjF&MWYQ<uiW<F4.i.33O9,Z^9ZJUfL%1Phbi?1bU%3'U(Ju]8__tJOF
U"0c<Fbb1C1hh]j]KR1m4=J8C*buMqC;$-EEAdssDK%1a)amNgOg_Hu\'SEX0P(0_
U"):Lr=x4d8:(dF0yTbtb2mJ(ywth;jtL7URj<bvuVGAK?[?bi]>?]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"<e?2*P/s%ZGj>Z-?:7e'*-Kt:XI]+==eCR[1GWJ(/qI>,xnN:u%+ubOT9OK6iJ>
U"4[i4etD%]U_5$MF6O#TP10,X&T3gEi3eudvn3R5P0XDbEBm'F2Vbo/eZJOOo<VY
U"<+mN?Oc:cl1Zt<0K'vhIZbQY+ivDRb8BS;I_UPz8<mQG8d)q+&?sPq&+0j(8l3?
U"S8E2PtCdRzs5]G;pNlU9C'PY[]Y5JiHip6jB8_u>OvJVz]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,e<slw%-%%'%T%%.%%%%g%zynq
U"%SgfxTf?v>oSok$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"6<e^?cnCaqfFI\W\aHCjm?A)l*p?6nSW\*qbn:z(&o>r6oZBj?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-C0<fkgZ5fICU_u#FvD>BBOfKmSP#=?G<Y8sn^ahBJE\i^iTp0,9i<X<$
U"iDmR^9$*nk;LkhLC_2B?$KC&fKcObIxp^*%Pp\l8x]A9r;uJiUQ409wW>c8Nafm
U"h&ttCQmxWKhElT..Q(a&,rw2lt-OFLvacT;bC7k<U(qZ1qT)#cm,GlUUl>z5clu
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)<b2NIGaMxQ7-;g?sHCaZV'oV/pAh
U"_u7euF,^KRn?,DX3cGQ*amgTb34kUKif2#g:KrI44$4u.*(fS<[Vc6A1,0\$<Dm
U"80$t3?kurb\dfWrleH30\gMNo0(^A+A-IrWlfjK[KR-aePQ>;(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_<t<2oKqI4VQmBwgO??BhdB,>)R8a),q]5nCG*b0[Qoe$4OP.3G3
U"m4W2A\f,h[%K)fArUv=e<h>$'/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-xH<?nS[T-<:#W)D
U"WIbk3haL]Fd%vNx96KC$_$^kQW0u3Gc.O0bHVh=Cs^ljG^#mpi4Ds1KaR&RJ\fu
U"J\*Gd9]yL1+<lo>W$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-<WF(_.OiJvmFRDGsgT;W1v.->^]>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:8Bp5x<UE)d'*;sKV]JRr.;LcSo%2Xsq3#z
U"=#I:kagVm6kZ(v7Zpp76_9%i\Vzf;TFGs^_[GQ5cj(:2/c*(epzS*i6YWj^QcZh
U";5*g2]]mxgqu50;6eDB<,qON6j9ikCnlqhnX:Hoh0Q5#M_h'amb\0[*h5Hxq0m6
U"BEW$s33c_jwO;mvTu<4,\o&'p69AdhP=PSLo_YLZi;($;Ds51*eqmB\:>4#h3&S
U"N09K$jYz?*$<J]7*:=)r]d50(HZlAH_*i93,hyW'KPwrIyv]AHyADM0,NEck%zY
U"udOKH_LZ0-k:aKp:u:puVJJaHtmOf23=DN[KH6M/uRVZ1slYXag3qJQT\^WWtC&
U"7>o#Q#o(?dgo-'lqlP7xc]?iU5w='ZGG6Exb^\Om9;=0A&JSAgX#3pu]T9G=3B4
U"#]-.YeXQaij9N/Tr=^fsV0Ue5.F<yN6ly;)2MV,r9IpN<ud_Td>DZwt.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&4O4i6<XTq=,#
U"a2;U'=od$S$+?s5+R,pM.:#3ueM[#]](7v;Zi-X[$=-pNwd&c?3<H_EgMZW;1%J
U"Pm8d&JY]1CPzTR,^[Z>zS15&gDV#:8L:4*:EF3k^hJQ7SjfwSKMbLpVuE>FB'_?
U"Bl2a>a\]tx%&up(%)9%%%%-%,(<FF>sNFd7#'%%d%*%%/%%%%w%jfir%jSit^hT
U"xh%s#^5cxEotU3ras8Q9o>B'&O<LF_:asof0BhIaD\W.B/fuU7vF*Q(mz[)m6BY
U"G_p>ZeH?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<Z86
U"oaUDKJU+&I=3S;W8Jq+&l#Kn)CS0'4$21._v/j79%3irN(ef.zg=FWA12uL_<Y*
U"Yf1CoQS;]eEbnxn_=6=q$oQ-s7uI30WM0MqZvc7fCO4>\VQX(d\LuLpCp<6BYUn
U"U]+33]-0Mi6-AT>jABI,e>rC;n9$v$)E#TDl*Xv.kG3a8pI]#rg<&&nhXjxJSET
U"QC*WCq>_uPU1<ZYn'\)suLjFQ?B[1U0SB'BB#hLxX&9Q+l4Vjc+>&%-h*^BUX:a
U"tm\H$XJMDc^q<#LLP%eaiYenn.GHBmkx\1OSByNUZnBXDH/?3iXc[?_qCW_,g3$
U"K<sJBm=#c*Y;7KiR7^?6*uq1XH]]H+J23IGXF?AJTx$03MKU]ebcoMc]4^vj</^
U"<pRSdB(7HidEMqX-:xUWIsb_:ZGvq2>^LHPJ?kXXbRuioXJuOBTdIBrfDApS%CU
U"J#En%yS]O^ipV8W.[aw^664_l?0aM,Gr0T:nmCgH?DqE1nXDwd,(/flB9T<l,7h
U"=aOsX&1174Ul(k)q):rv_gAgjZJwZo0\_OR>y#\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,<s,lw-%%%'T%%%.%%%%%%%%%&
U"%E[%%%&%0%%g%zynq%Sgfx%up&'%9%9%%%%-%6U+8Fh/mjR'-&%%%#+%%%.%%%%
U"%%%%%&%E%7%%K9%%%gh.tu(S%gfxu%p&'9%%9%%%%-%,(<FF>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
