'=========================================================================== ' Subject: CREATE/MODIFY DBF FILES Date: Year of 1992 ' Author: Ethan Winer Code: QB, PDS ' Origin: PC Magazine BASIC Techniques Packet: MISC.ABC '=========================================================================== '>>> Page 1 of DBF.ZIP begins here. TYPE:BINAA TLEN:5737 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.1 SUB V1:OPEN "O",1,"DBF.ZIP",4^6:Z&=5737:?STRING$(50,177); U"%up()%9%%%%-%(uB&=DQ=CD$)7%%]5%%%1%%%%ig%fhhj%xxSgRfxF&9Xt\k^5M U"l[/N=#S*Q_i]+^goJ7CAx%bz:f*XhZMfXMRmq.K]AAubqh4jX4-(_lTwn\pjm*Y U"F7r5MEEE5hKE-xRfUmKmdqLW0Ipp0Q4vEjdMF/Ah7>O0(pp_5T&Xd8i+ZTb??hOj#?6f9>O U"aM#^covshiPrh]0O2)j:k#QEqeFJv3sh,f>c'm&W/R_)?x4_UZ4L[1cN./Mlo3( U"J&:L>YuJ]^2d5R].cqfK8 U"gM2gjmet(JXJu3c[fp]7KqkK)-V+dn^m9+87g[W'k=D&=_3Qe*7D9VD_/]WBbLZ U"#Uwk;TX%G-W05i&4)tF8CpZA8AWYX76uuUkZ9_3QD[=lU<98?*M/cUhF;K_O+g% U"'LjDqpn/TI]qYj\Abot8Ag$;s_/''P9y?I^w_sn:Y^cNN8FpAM[fS1V'^v5YgJCxMT6kt.lneRl8aF6;K,'U8(39Dt.1' U"X7#)/DguYcU:j4=5Z/cPxGpUYMYv_q9*VMp0kG)b6Q9Dn+z_T1\u.pw9.AJA>H0QMDzc*Op.?1Rf/D&dW#KO=&P,TSB3_Hy;r'0xbt,.6q$q61F/=NZZ0rFAEHKZC6+<0B%,qh\BxW&b\(S2yT7 U"zHeIal^IejF+(]wCX=s$G3D-i2M,:r5JNdI3$h-YNEJ*S.qFwbOU2%f]gls9)RM U"Bgf4pRMD%adyzr^OJfgy'\-jS:-coTwgAh:HO:rC,$GVPGI'b>-4%'pKNz8OO.Y U"*83zl,vaCoNH7-AXjR'WG3ncSa3SuJI.3PnfTei4E)/c]G)IP]A=ez&9mD\;>%M U"j+o(?,=k[MT:W9PXxRLxGVLfK.6X:Vju89PJMW6eDcVdk,.)tRcO0Ze/z?.xKV1 U"9$u&d^[3%*9Q5L88[*JPvCn]V/DMWJ#u:iSPusQE/*RgF-]51jI9c#;=3K88J;* U"U,W>>BsC6?u(j4fx^\oPp6'c&rIzBVK01]?iQYcRyPX=;uQPPE>0&dA?6\tNXs: U"NGAKugz'5^bT-$M*efWbl/7BscXMFqBWvLK:iO%PFO09P)TrNnD4=q&xepls9_* U"+D^dCCAS;\qT3QO)7[('FxT\Y',P.<_R;?x>L$;-4P'LPdc]kTE.4K(j/F+*2rcttP9oNKCZ:la,wtS1Qlp.TB>pT U"hIl../eS)MOcTpYksv,2\)FUAUC2%?M-r^HgHG7)Aw#:.2Y8I1cH-Ow)?-f*waC U"Dr[bO0nM--b.pq<3pG'mI<(W2:q+ibCN3 U"SqWXp_>WR>w&l5iU)tC6\Q*MbP>Hcb\Gs?BtmhX7>7eO:fMd38_+8nu\ U"D#=mdKl[u&CuWf)];uJe%Y4R/v>12G%qbP-Q4wc4l0b6aM2rCun/ey;2mzFK[%r U"ykV5VT(G.pnVkcmCCC1.#0Z_P%#TUazveT:%jAa31v>dA-YP(I]w,&5QPAK)C*h U"K]R24a7l)#eD'6_O5tp]-ImJA2V,qnDWJ(nGK#dJ'/K.pjgvoW&:;E\8g6VIO#7 U"Y,h*RD]ju:CUEmb$:BLIiD:xdE5%,=v5g)Cc[[KR\0>?cbH]Vw:TgMardds]4r5 U":.$XGM#X/nHPHds]>Y(-'(tq97Zv(7>2OqG.]C\V.==IfpDCWWWlO(HHidw4AVn U"<)xFxl7Gtuu0Zd'\jLFi>dn;t)grrgf._/+;eNMOt$YxPb0%=)9n_jrwX-pEKS= U"sHvHww?O:3^*_$UjBvr:s>pYK/E,rf<,3Ib4Kxk$>H(7cYLE8Gj^B%Y.'eKk'Cv U",-dS^jy+%,)>jo58Ll[d;[_hZH-=OL;ZlWP##;,X;O:)wNn\gD\[iE;V U"'XxLhFE(9^;x?.pwH)oZ\EpkD(^dC[D]0[5Gj3VG^Y/7,iN,mqoqT+[oFPQrS(1 U")3DAyOnyW/D0$xdbrg:I0p+'PPqnPMtqsOt%&o:gA*[If1oHXzj6O8O<%[LV7swPh7X[U(Y]X%sfXv>N9OH4zj++>][.S8^qIKei&.Y=8= U"0Idu:7JQe),Mn3U/J(yT)38GS0dEpL-nG8:SC5z,1[2$h,1DUP':;m;M#-&_[>B U"b'\0'$cR1.3-]tfxWO>[\[pq7HrJ$hc.UJA5&p)E#JOCfjyUaim9\>?IgpnC28. U"v'k-Tndvh,[S%4a:k<;yCFo_;0i>6#H_IA3F\8rrQU98,iDvx..h^(jir'#8J88ImFhJ U"?*d+JA&DV>tLDum98kFI/5LV0+TGwc_34Mb$[uDkNc>TK7Z=k2q'>?RXt?hSCq_ U"188%t^JV>tOh7cJdb/TBA<>Y\L(<&uS1T2F*q)RJoe+0a0-A_E5*[=8s()(V:[P U"1s)^_IVSqXIIrx.&\.StDq-Ynx&kF_ZVq#J4.H((aiu;OOZLoUlE$[_Z^;]Xf,Ro,q,;WWFu& U"9t&ZmnH*KjXYmg\8nO1d>2d.GVCx,%L_Ti[_^6APE.bq9HIn%)wgq#az64?_(#% U"Z0X>9'BY$T.49.OHD5-TOFIeyBm.]g2KCN)P6I0\+2lx\o>^,,?Z_;8/A0'^*=Y5Riw< U"PB<1[7C1EF.,zVi9OKd34RNWQ[Fid'h,up%()9%%%%-%7#w&=]Oy5E'R'%%&v*% U"%%/%%%%iguf%hpSg.fx4y2,>jo^5Ll[Ld[7=O1&Z;2zyciO834q76oEnh^4W9oWO*YWC2/zcB;Yq2ZYP4R+QO#*tE_9q*g='q)a2e0.1^r%#<=?>ZlliQdsm.\RJ*XS5*HFrTnB-5CFN3'TMT3+0:PW%knlj> U"D^8zpsAuQ-rs95(8G$oK[?urD9Bn3uc]t=3'qlmh,=IrpIn5tb(CJ:4_aZu&*/' U"<\79+&uRM7sVlJ7t5Q0$ga#N,_$/hxh8=e[sR+H.fVs#0=$S[0/voOMLgVC6RU) U"i7s/*m/x-V9KBNdPq[*#j4O_qXHUXg.k=/ika?EhU?Q^)+3u4H(m6QWd2]qJ5HU U"MfI=?e8E)7/0OerL>:cV>sLyG/^Lt(UlH+ZnR]\ue%9x2jK4pH6\hEZBJ%d<:g, U"mc_lPr2tIdMG'=QQ,[;*VUSEdJ5ds%Iyp/hgnOs7pnsGL-Tqrmj/LoOKu6F45$w U"=Ce:nII[wByB^plMXsd-00$*.)WI#XxkW6us^3tY6mo;RT9Nuo;G&pNNq$QR>?G5Y2\xX8;VQPg;8hLjd'#-^Sff U"wz5m7zZk7L[YKHfFx=c/%#E5_K-Q7hcL1$j7jsBZROQb)M(g\qjK;22nmpS23oh U"e&e#uP_c6fU0IDim2i0V^vn?MEp)QFHb('PW^TM]r_/D+Yw'u%p()9%%%%-[%ru U"&d=qQh,=h&%%%V)%%%1%%%%igx%ywzh%ySgfLxTa,)^ie9bUhnq:4>Iit7N'6J* U"[Jp(U3n5p\O&fTVi#d[i,(,Xaa>)4 U"]5_Dr)tQ_-pyyuUGyHwo*QR8?D/nDTq8g?A4PGfW]x]MQn*,,$l$h/cf9JM_^wc U"?j8(5?>W_bXSX4Q;qLl*:1wvIabY:mBX8WI'qB5lbSKIHCDr9uJ_?p^F7Zh8[)v?#/dv50h+:_h7i- U"%O\_MY0rUxKmYJvWW2eVbz3TlRu5[Z8[qJU=fN1P&4HIOR#?;K%%pWL4e?jZXAXm(u]'NABp=qOn8n%^)v?1I^,uuDlURr1]2al U"$hhtd&p9NY$uWUhdR47'_D*_pC.lZBGC$?S\\8PiED,CIa. U"dqsWHRx/;;bJGq,5)[9[Xodm5eQC>9ClDrnofWQVrYBo7[i_YMJrj.#g[?+BCfH U"kA(8>kt=)O;b:w';\>t+%up()%9%%%%-%ru]&=jT;gHa%7%%T&%%%+%%%%ig%kS U"gnYDHF=';U5)iYJs5QkArYMi.+0h[HKiQ'ZH2df58f.%X<6l]9L>d00(z?=jBKaf&'>bSs6_e=4 U"=FBrW9^SmNL5#;lCO>Ykn$$O45:i?BZ['%%]%8%%%%% END SUB CLOSE:IF S=249AND 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 '>>> Page 1 of DBF.ZIP ends here. Last page. TCHK:249