'===========================================================================
' 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-xRfUmKmdqLW0Ipp0Q4vEjd<J;kW>MF/Ah<Uj6HR=,S436/j=:A
U".Y54\r*\rXdHX7;zOd7f/fHB?(H(t5e$X6Ti6TcT:7-.;MmsWi3?XiRDDHb5qk8
U"[6jg]PO&,(B;dePb0lN5'']p&CDC>7>O0(pp_5T&<BM4h8-v3E-<,l1h-k]u;&Z
U"02B1oJ5#5L4ur0[KxXgdD[*\Zd<0U'/#WsA0*<VG52>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]<I%gPYkw/TUefa%1A+vR0B6vk4*n0RAJ:]B4_B]evn/PnY3C
U"htG-1)VQl<o%4<U=;_[F;Q%9<uBRIs=:RjI<WYEYa?-hRKH$[p0kZ#N1>.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^<j)*nTG.W.nW8#QU)8#5THLPEzk:
U"3<YgZAvOefayjt/DzKIh[qa^GZRP=XYi+_ZoqE5g*NNmakoI7H6DQ*S/_IFdmJg
U"6#o^>w_sn:Y^cNN8FpAM[fS1V'^v5YgJCxMT6kt.lneRl8aF6;K,'U8(39Dt.1'
U"X7#)/DguYcU:j4=5Z/cPxGpUYMYv_q9*VMp0kG)b6Q9Dn+z_T1\u.pw9.AJ<zpF
U"eIjrO%MVz)BC76DoNXARMbBhUO?7z;G%??UjdWNW_yRZ<h\WsGFHm*pNLZG/FrD
U"z.tHPD8M>A>H0QMDzc*Op.?1Rf/D&dW#KO=&P,TSB3_Hy;<nv]L5SvJ7nF]KTGV
U"JVQUC]j-h9O>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[('<ujr'R\ouUUkew.#_U3^XDd9N%&up(%)9%%%%-%(Fu&
U"=yk;dg3#'%%)%,%%1%%%%i%ghwj%fyjS[gfx6Lz*^i.e9ML0Zdkug8t4Fu3BWP%
U"K_1N(N]#>FxT\Y',P.<_R;?x>L$;-4P'LPdc]kT<pL$1sXvHF+(g9RriS[Z8C7;
U"*0=JZO3/RW$(aGnwe5?uJOl>E.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<(<A09?)[b[Z7a%\qq(X3JUGV'MZ0-u>W2:q+ibCN3
U"SqWXp_>WR>w&l5iU)tC6\Q*MbP>Hcb\Gs?<ac#sg'-]r9y*N$T7\sZHL6*mzO5/
U"d1qYsRw).XJ=Hna*w'4Tw15CUB%^*#a=&lcds[ij>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+<Lmu2LG=l)c$UxkZN%&up(%)9%%%%-%(Fu&=8%wZ3Z%(%%H%.%%/%%%
U"%i%gjin%ySgfOx>%,)>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*[If1<lzh1ack'T0X]3/6\
U"m0\YHA?f5VBEpd4,#<bS6$1&tnoPb/wUDr1Xcc01zdZ*:*\<5JVQ]F)DekPjJ+q
U"=y>oHXzj6O8O<%[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^(<u]XeH[#8
U"$+JmC6QYThm$XaDb;?X,e\F2)oXB')ifTg1h/jcjmj-1;$/'>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;<r890\uf/rP01a:D(+c
U"slm/mU%6c/SK_f*fk]^&OeH.ke*ikLLAU>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.]<d2RNJ2_yCnX<Kq+*/,S)-)4#BUX%EAJV,
U"LFj]T'Q$[Lmx/$R/-73ZCeG>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;2zyci<pPYJ:k#**mirt/PT
U".\Q$:)[*cuh$,>O834q76oEnh^<e.3cn;IqDfmHxecI(.K*NQ/nV7.E<tu#Gl$z
U">4W9oWO*YWC2/zcB;Yq2ZYP4R+QO#*tE_9q*g='q)<G*d&Zom2\X;N4DV4NGpH/
U"DX1)A3=++n/3cn4)0D6Sd1[zp&kN6yY9(29xYW)bn)6k&Zq,oPpzI;ma2B*1F+Q
U":7e>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<F6<<z::$RLl/
U"H?R:KshA#fF#y^=No6tq/s,Qq?mK6#[7M4c.48B\5-0d?.2H?$w/yFoU2xcd6GH
U"ZfeT7:YQL?.YgM9\h%z<A-;o>;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,(,X<wtmI&i99R_\EHTHX$bWJfTPT8m,3rf4L>aa>)4
U"]5_Dr)tQ_-pyyuUGyHwo*QR8?D/nDTq8g?A4PGfW]x]MQn*,,$l$h/cf9JM_^wc
U"?j8(5?>W_bXSX4<QZ0OcBV8qULja]3<$tm#K-6jM^6?A%EtFhQc&pGct;0:PqQC
U".fhjSYCWC/VCSp95.78^Jw6C)p\y\\/?.LuWYQQ9o1R/.XlBfgS]&C+Y5MZ/\M[
U">Q;qLl*:1wvIabY:<h_uIh+'2&E=CDi%k=5tO*R&8g1:9bh1n_6c*QYIfJIEPN(
U"S$0Jh+ZLeSf,;:aY)_#0n3JGEDW=nj#XSiI,JJ^O4=E?mLpib^Totap,MBl&Iia
U"Apdi(N^TCpY^nKuPg/AVFj5w'DnFY<V&2f-0e;.;IwBkfO3xub]WVc8<uVqJkGb
U"C=:%XQ;l^'Ax\yQH.'cEW54.rp3A=DGhNM-wINBDsMSwkfU6KKIw$-+P4Ykdh9l
U"8(SKf0Kb7O2YZ<tM[#CccWraq7.xtih*<b.J)z)j#5qw4Bhz'ti9V/X\G--6\qP
U"t=<uAl.raAve&4+MVr8=;=h,r(%up()%9%%%%-%(u'&=Gm(VUX&%%%;(%%%0%%%
U"%ig%fhhj%xxSg1nt$t,:;U=kVhQX]Zby&mh,TF_2i['IEz;4i)*e56L)gog?0Mt
U"5t3Dz.a9epQw5>mBX8WI'qB5lbSKIHCDr9uJ_?p^F7Zh8[)v?#/dv50h+:_h7i-
U"%O\_MY0rUxKmYJvWW2eVbz3TlRu5[Z8[qJU=fN1P&4HIOR#?;K%%pWL4e<aQ%8'
U"A\6u),%=l71g_H6,\M''>?jZXAXm(u]'NABp=qOn8n%^)v?1I^,uuDlURr1]2al
U"$hhtd&p9NY$<ZHZPOCoQ+,q&fc>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)iYJs5Q<U7$;)dW]=glLm:5y=OZ[aSjmK7QAU[V5L3fwqG;pJuYt
U"-hE_MNR3l+b(0aJpGp\eSI#],U4sP\Zk#1SeE8%:g_.U-s[_jU[][7rouH6Qb7*
U"Vj,jW>kArYMi.+0h[HKiQ'ZH2df58f.%X<6l]9L>d00(z?=jBKaf&'>bSs6_e=4
U"=FBrW9^SmNL5#;lCO><dK:67Xto\Q6RdH%Ut#w\b2Qd9aMfR2v4Qu3j)D-2,Z5J
U".dvGuE,yMB6E*G>Ykn$$O45:i?BZ<Rqr]7#;NFu%%up()%/%%%#%%%oB?;i%)X$
U"A%%%%A%%%%1%%%%ig%hwjf%yjSr%fpig%hwjf%yjSg%fx2/%igfh%hjxx%Sgfx%
U"2/up%()/%%%%%%:%o?;?9%wc%?%%%%?%%%%/%%%%igji%nySr%fpig%jiny%Sgf
U"x%2/ig%fhhj%xxSg%fx2/%up()%/%%%#%%%o0?;O6)Jq?%%%%?%%%%/%%%%ig%u
U"fhp%Srfp%iguf%hpSg%fx2/%igfh%hjxx%Sgfx%2/up%()/%%%%%%*k1:<,Kdr,
U"%A%%%%A%%%%1%%%%igxy%wzhy%Srfp%igxy%wzhy%Sgfx%2/ig%fhhj%xxSg%fx
U"2/%up&'%9%9%%%%-%7(u&=^DQCD'$)%%']5%%%1%%%%%%%%%&%E%%%%%%%%%ig%
U"fhhj%xxSg%fxup%&'9%%9%%%%-%(uK&=y;<dg3'.%%),%%%1%%%%%%%%%&%%E%%
U"%%6*%%%ighw%jfyj%Sgfx%up&'%9%9%%%%-%7(u&=&8wZ3%Z(%%%H.%%%/%%%%%
U"%%%%&%E%7%%n,%%%ig%jiny%Sgfx%up&'%9%9%%%%-%7#w&=]Oy5E'R'%%&v*%%
U"%/%%%%%%%%%&%E%%%%w0%%%ig%ufhp%Sgfx%up&'%9%9%%%%-%7ru&=UqQh='h&
U"%%%V)%%%1%%%%%%%%%&%E%%%%x3%%%ig%xywz%hySg%fxup%&'9%%9%%%%-%(u'
U"&=Gm(VUX&%%%;(%%%0%%%%%%%%%&%%E%%%&;5%%%igfh%hjxx%Sgnu%p&'9%%9%
U"%%%-%r+u&=jiTgHa[%%%T%&%%+%%%%%%%%%&%%E%%+%A6%%%igk%Sgnu%p&'9%%
U"/%%%%%%%,o?;i2%X$A%%%%A%%%%1%%%%%%%%%&%%E%%+%M7%%%igh%wjfy%jSrf
U"%pup&%'9%/%%%%%d%%o?s;9%w%c?%%%%?%%%%/%%%%%%%%%&%E%%%%?%8%%i%gj
U"in%ySrf%pup&%'9%/%%%%%d%%o?C;O6J&q?%%%%?%%%%/%%%%%%%%%&%E#%%%+%
U"8%%i%gufh%pSrf%pup&%'9%/%%%%%4%k1::<Kdr%,A%%%%A%%%%1%%%%%%%%%&%
U"E#%%%m%8%%i%gxyw%zhyS%rfpu%p*+%%%%%0#%0%>['%%]%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
