'=========================================================================== ' Subject: VARIOUS ROUTINES FOR QB Date: 02-03-96 (00:04) ' Author: Brian Bacon Code: QB, PDS ' Origin: FidoNet QUIK_BAS Echo Packet: LIBRARY.ABC '=========================================================================== 'Here is a HUGE library I put together (has a lot of your guy's source 'in it (well not ALOT but enough :>) It is just the source and the 'include file (and a README). Have fun with it... DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PROLIB.ZIP",4^6:Z&=7688:?STRING$(50,177); U"%up()%9%%%[-%A7dgE]F3FgZ:.%%]n%%%/%%%%uw%tqng%SgfxKNa:&o\]+X:^Vt#,9a U"UIVR0kqnP1mRmaAA-+$BrglpEl4-$%n)nGne%]fY28\MzJBJaDphX$t^5DIXHd0cJxyd U"zO>HTg_fXO2vj0&F[=2?:w_jKjccv&:[Tz)EF3oqR0P2-bRR][=tkG;oBU>sAege0gq> U"_n?$iP8j=CXBoRS(ZYqtKm-eHgZYxN:EquEkta9#B%.'dOr0=GwZ:Ei4c.QbnjO;ER415YmX_RoIOGDP6+MKOyoOfE#k U"s\VoMIS.-X:rJZvj,./<\GW=Gc922Vcr\TQ%U#,6I,=^uE^)j1cxeji[&j:Q3jve82N, U"+o-CQ+/rdC?80'o4crIQbSGl,/$+e*0&^^yYYH)#N7#[L+jWX1:w824DI::6/\f;S6Mk U"$,.rvHq58]^obWwnJfk?u8IIP.;eP1^W_mBgF;#,F% U"sJSRe&+7L(7Mp\p>V1YqHU0,&Y,&BLt+g(%SpSl:i5rvJnCMIYUkjZ;Y;_AVw]>uZx<> U"PdKJrDnHfDvJS#Rt+&HP,7VN*o%x)33JU)Sa-ZmDxT*94X9jWFp-Ceq*VQEjf$YxdT-HTmi0,wZCn4F%nY0X_k\ev<&4YU?,uTFi4]Xe$hD^hR U"?m_i7\*6Zm+\Ak5i,F\5LsDvq&fM,eZc32%+yI2?D9O]B?#qEiZ[ZEYlSSUyL+uMGG/b U"BJMMXj\4+OY8rZJIRrZ3SHD$+XVA5i(N%ZipLtpZBKFjim\5Mr/Yw6*tl62t U"vn3pttVQELI:mR'\Vm7g]bkJig+[JGQ[^_PK=Q.B1%Ks-D./lS&CRsJ0Wcd=%o/#qA[6 U"m/Eq^(A2erFV9r*fr#K9xPn+&#D&92]K+YwO=OAuI5':r]^U?JM$g=2=wA5#%K-fK7._ U";(:Yi9OqF9Wdqry.S]3JL2iw0G7x[R%fo7LIX;M-d4GW5U8n(oR55wQRL1?b[L>fAAgn/iPE)+7l?In$4?YG$f-19*5a,-am^_'AD:6x1zRu U"q)8>KguV=g$1*[0[4RtYB6+[3a_qh+0^ma]jJEnbjVW06DS1T5$iKU?J$TUv[2r-FCds U"ak_gIrP2=h1Qxy&V9=>QU5Et%L5nK)+*PqfH+^uSjyBp1(bcOk/h#g4G^/JILO5'iS(? U"B30SY2fC-EYF-P%*VU?_T4(UNiX47%2THiVJG_M=_VkW:B)\PL<$#d5+UWZ;k]tW&VI> U"\Rk^UXj.UF*nxb#XaGJ4HA>(ptiYF]f_1gLhFd6rX0*UJ'66La8s5U0V>VFcj^>T[zWt U"Dp:\5$iX*Yl8PD*U8U:gXd\'n*GTW?a;L[-k%=V:R-4U7p$(pi)c.UFkSCnF5'jWeXqF U"'Mp_N'.>5u$OR.H+mupf1+W*?)&8l5.7r*6eYE7S[d*4?SD5YH1k/gC;STqjnr4+=UU1 U"5mk5M#b[XR^lvLXIXM()E]6M1Pm(WLqf_2EF0,I(XgP:YQ.YnjEN)>8/8%'G2''Ug>\ U"uAAUdoZgGBeVAtJBkRMb9.2jYc<]^]CMp#&IYVkG05vs)S0KHrnv6)K%/tl;G3HRVWRt U"JG0myBL9bv_q&p4q0$KYrr\cqbtUCGcgKzXvNY1[5NsFmxUC*+g;]3us3Fa-b1*+Tq+] U"4t]B0FhndVwV+6ZuiA[[13xoSf1>kA75#EKAhJi2SOlkyGO;Ox\dC/zaL1.,o4.:2vSf U"pDI\#lWKk64zidj15;1-Qg]-41p#-=(Sw66&[Kj0[tuwR6uB;WWqsKhC.f,#6a&Wk-EZ U"WNT?RpRUUl.6/RS7ICF*,0pApP^2A5f1T.:>AFVn+n/o\:t,Px8&a]u)F(K3c,XO;a\S U"u,iS*ji#WM&0?Q-24i+Uw7GyL+QjWo;QG:F\/])FWxcM#M_..'vA%ikj._$a[Y-wf4h] U"^01\t.^u;u-FmXW2+u&=mESZ*64i.r^B]w.Dgm4-;+vfZ[TSv-(7V^vpDUYfn>ir*e:X U"0pAI40r2]p#*Ur.E.3gBfFh]\Ie=Z;(Wk&tVQ5Z<$o3Lajc#&u1n9bYbhinSWaY>E6=Y U"B/ug=h>pe< U"QO'#)U+%3AZpF1r*'KB59Sqc32sX0GG;dM.E]$>ke=LHpK]K4=dKN&5WkTxfet;4gd?s U"J^#\^$S1hYH]U>1TkbX#(*7JnDP$Gw.;Mx]SEEdND[kx#E.F=r37AlYs90pGS%x[cD7& U":[q$?iL1'Kkv7c&hSQ?9XV>uVEY#Tdkp[,=hM$rs]m(hL]23XU9'.EpbSAp3\:8$gj2$ U"1;4BLgdcNV-(9tAh6tot?cngsW3jks%mkIqZX^g^:usJKBWO8tVKzK^-sxEyHHgtVb&I U"csUD2vqO&b1Uo))^w(:t$$Eqthk.fDw(gc?X=7C98Tc^p6MlW0o,omwd>1=E)a*c[4/< U"LRKEYVII:90H4_i+z(F5b3Skr_qE9ZRI:rH5HnI[W\o_5op*,H6Xcw$*Du_HOAAs$._. U"T-i_n'=Zl[JS,^ja5m5Gn\&saV*,LussaF,-v>Y3apkkQ)_(QM(>GIeccb5o(s U"Mn4F-8\o6oDm-f=0Jd++3G%ik[v,Inn;ceY*Dk<&NRphDEaGp';]mfMt8URD]GoZ8K]\ U"M,h?_a\5b4J^CJIUh.*GWeUgyX)^bb+*&F2gx&nHwa3OvUoQq29/ij3H35Q)d7J2fYwr[Z7h&['ZK.glQ0 U"j)Lglqb_?*Y)j_PREnSJu.XqxfSwragl0n-LP*p4WIb(6F0:b+-w8sFt;-x U"sKrTnQl5j[:bKgB0:Bh2crF#N70(77B//i05AO\qXViZ6Qj=K.X#yMlXLt)l(gLKg]vQ U"H7^fTGa,OkEmCHM-RlFvRAB[Ojj'^eKv16g1IE.X=TAWqe1N[^Auaj^hrNJcgWj[0C4M U"xzZ?^>OWuVbX\TScZ73'SDnr4rBb1j*3]Bfs+2X_=CbBJ<0: U"(k=c2:R_]Qn?AWADNB;-1i/bS%Pv>J-,9ezh-7S&P;2zr2yY.#bttyb5n%[RZ7CC&'Mo U"NO&eO)9l\Fj=Aq%re:[Z:+S+K.>\Yqq_KdO3QueDn9o*j8Z)?pyTHblvLlK,l(]VQyK> U"*nm<4y.t[VAZ;Yk>j-K(V=;':TbA*2rLpx3o0p/guLtV+k%q[Eh=Y(n9H&_N8deZ+9QBRNa)G-(>S,$GNamR98ZQ U"o1g*1wMO,1ZG\pDgKS$+KA64'LIrmfO;3D[xEw7lPc)$gqDqUVcj>EX*WA*>Cn7D6$dc U"qrHaP9DzSth.D)HG;g]r&E47YU;K^\SmD+Jql%&Nk:3$K&[y'N(#'yqpuEX'eZ.v,5X8 U"d^)lyJ,q(gs#I,hy+-c?>rVI23.dvz,V5?8aqDewFbpbJxQfDyG$R'&vM4qguqmGnUsh U"N3.6P_Y7[nZo-V(I;VVr^UpN[04=9jZHbvATRY;qAm)Eq>>/-lsR,BuS(;WWS^Odp>/,\3E,5\n&[hMw.xZ(<-,3PI U"\8ctjZm4#0>O5p.v-jHZ7vSP>52aCG(1wG._ovY?0107h,CX5>>qD[O*J'Dq6\,*1iSa U"bL>]JDm;4vR(mocCn-#xFD($6J'8m1Us+%Lu*9/93*o>f3#Q$*_.HpBeQtjAtjl(GQ_g U"]ZkZ#12,+gsL$G/MW-*9#VQE5cbOw;)t]KG0%f:M,I3>L%$B(pbMtA8BkWCI.)[:NIVD U"U?_iiC(\[1R]0PSy).pB;FBla4[[?=3QRG>U79*Dkn0=l7I%%i/o^nSmRaoHTO'&_K$? U"i0[_7n8,m#2preet>lBK=nql&MY>\SxLP21'aBVQR$g-ti^/%IL.uTk4q*cXgZgE327y U"N>.1\b0Od6Xa1dq0e]:jHhJ]QRu\X-w+_Prmg9qee]?pk^;NeHQ*7qDUMV^7d[uApo#S U"3s;pSlFFF2* U"G^^WrARTV9V*AIt/JZ4+pLUV9NL0SG&eKva:$b>rzwFa$dlUNW?ya7&Op7tp?:^3K?nc U"i_>&Ru0?r>^Qo8fMR7Ma*%HKU[.e0:t0J1>0KljjZP*_MaduT=9WS_J.whQL9mJq8o&p U"B]FGcfovf^lI9rC.F&tjR1.ro1.P>fS^>_;Al'LBV\V:]1c]m-]>uea6fQz>c$7Ix)i[ U"WJtOhM7)^Iv*\N0XS/V2KD0k['w-h?G*M2Tnt.CABW]u]j;]l*Sa.t9(iA*jWnk:qQZQ U"u,V8?_;Y'j1OelN()arI2wL9R'I1MhlZ+%/[%Vu< U"O5U%*DLdWdvmlO]hWf0-)gO9mlX/#B4DWaA*#dOY;<=6MH*Ct7#Xut68ns_v/VZ6S,/D U"+x-k]4$+nPIl[7LM]jSE-8E8xPmqSU1d3kA$S2W5j-bR.e?va;cKo8X/YgrzU[i.RA(p7b1;=*Y1 U"iLLZRNz'RuP]Ni2&+6Q+V;UAlCqFaW''OJGMRtd8luBnm'P5qQZq5U[zLTtmRzp*/.-x U"0.y5/gNnXmN/^9wgD4nQpH%.pD/Zb0Y509)bY&0B'K?[ErR-f*hBDq6[-R',#/fx=Q9X U"9\GbcC.1F*=0x+<$tl[=YG U"p7N?/uHQOWf=4Pr2A#^REV60uk^W)>EYSq%f5KWF-GHkLm7UtS]+t7Kn#b7&UM^B5GdD U"Mwb_%Oh8[n.Jp2;gkKsSmA_EZ/KtkW582TP+4gkNrq8Y)'<0V8 U"xovw.7s%KhzaMRi,XpYat=2F&>OZRr\\:IZwq4$#%SMoms*tbs1;paf.WRlo:b'W.Ts? U"4G4w,Z7-QY4CWll*5M,y=LJ9ybXm0#2DjqYGILfB)DJ&HSAqaf&;b8q1%TTWP$pa9C51 U"HB7YO0Y*3ku.09_yIlm[j=PgT5KvXGP6:#_NT+]'';o'$#[u:c%%7,^*sh)C-J80gr/dw*H1d:C5fm]u_Y?ODG4uw^3 U"-i.w>Z_Xu%p()9%%%%-7%#7gOENkF*eV*%+%3?%%%.%%%%uwt%qngSRgnNg[]=5#X U"PNnN?t<']o]7NSv&+4t%Fhp+8Yka9Ep0F2-?IZI;1lM+NvTRQ65fEqDTi6fZM)_]dClH U"EFeHIobNs==%tW#f.NOhAgSCMXaVA\Y*EfHN7-/;m'ieVmc>1O$U3PmvIabnjVG/ U"OGF[,^jN?1A58jvr8?g5:]0gUMNcj U"23OgXQklPjs4D=Js7Pz*k*-a./Eq8cFbZ%M.L#NonA]qlj(t[CmIZ6t'/9]IoOzk?1=D U"J'spSMXRVIG)lNEQQLY3GD>Mn4tNs2??wG1lj%BB_9fk:2r/D2JT]HZfTk6p<*;b,d_m U"HRA,aDJHw=Y%CQq%]A+(>EC1[AjR&\99p-7bX-LFswq?%N(I.Y6]Jm5(G%URbcXe-0TS U"#DFir_viBysETH?&ZWoH6nJb2EnQ6VvUoLoB+[c8qeP U"DVj7*KDb$DNN&Q]c2euaux#250Vyoa+lLN\RJ=DhJ#BC\kX8ot^Vvz, U"bF?NTm2Ak:$tDG58^^P>hp7+Tj;uuD$qK^s,Q=2Z0-L/CjN[suU'C0Q',*[.79=5< U"8GdMESXIKMoP]XFMI.KcF-U1w]B>qs5*cL]ivAH0I):v9/R;[?P+(*xMb*ToG:CJ7#cD U"sq9Ea9zgR;;gK+oQ3a/DM0$QiAp U"S3f'Z7W;EY$Rm.TP#L7J;U,m=cc)U&CpKc+UF&KKcc-U&SpKs/UF&[K>VW:NT%;c5U&Bs/o.*gOi)dJUF%da-T2#(I;s'=AmQCmX^_D'_7B4E*oJbUXb= U"I#7*he_7n<7yW>VlcEuGIu/uj\x;o:J3XD]7wULqD,o9;K5q,q:9;4qD,p9;93q.vO// U"+u%_M*#%Sx3oCf$WD*6(bm$m*xDs;9t/[;>oS4GuTv5E'nUoAsN<7E$L5GRei2s)Sd*K U"H=36a\>E4E%tFHem[./Yo3nZa*oC\Xvn5Iur/#P<0.t.nO2-JOSZqkLxW6A=?&HF51Sb/8#^d.\6LpGvmpHIuGjV:IX(ftfkM3gioa=*V#IA-Ut0$Y6w3\9jZubja87n^W U"SBrTpZ*j7a'CO^__1oSAx=aeCgDO?<#_r%?4I'hK,N#,rp;VOD[DV2Y/chDp9Nj4jUFsW)]2^kFUNpL U"q%;Agjz)^'3]qs;S0TR%JDJplO