'===========================================================================
' Subject: Address Book in VB                 Date: 06-13-03 (  :  )       
'  Author: Wayne Anthony                      Code: VBWIN                  
'  Origin: Sm0oth@juno.com                  Packet: VBWIN.ABC
'===========================================================================
'>>> Page 1 of ADBOKVB.ZIP begins here. TYPE:BINAA TLEN:3684
'-------------------------------------------------------------
'                  INSTRUCTIONS FOR DECODING
'If there are multiple parts to this file, merge them into one
'file using  COPY PART1.EXT+PART2.EXT FILENAME.EXT  Remove all
'message header and footer information (everything outside the
'">>> Page x of..." lines),  load the result into your version
'of Basic (QBASIC, QuickBASIC, etc.) then RUN it. The original
'file will be decoded into the current directory on your disk.
'-------------------------------------------------------------
DEFINT A-Z:DIM SHARED K,S,B&:V1 'Created by PostIt! 7.4
SUB V1:OPEN "O",1,"ADBOKVB.ZIP",4^6:?STRING$(50,177);
U"%up()%9%'%I-%'c/jR'9+_##'.%%d(%%%1%#%%uAM>942ACVSE21?4x<T=[U^5L
U"l[dDGGR0'i37i/tykRe'-$%/fIpRPRt/qap1=DE3$+u/c8(bl)e.Xv]Ekr23_E[
U"]^;YS\3I;P[2omX^3o)3I5238:59w-i7TD%d5g3Qc2wrbTL6uPbcvFQtRE;fMk<
U"TV-mXfJ?_[-N[4Kc:/wdQ5tCG3>]&kzC$IC(JRw#Ys:Z%RVW%h_sOh<nihQMxcO
U"f1h-s\s<PDv]NZhxaopCA3su0pst?RgSsd#b'lCUGo-P,#]Q$PzSU$3ZU^6%;)z
U"5:&5Hh%'w+B1%t_L<2aR-PKogDc$+([KeoDi$KzJJOxY(f__dHj9LZD-B<I..]x
U"?uQZI:pU_wI\i&AgiL19;QQX2'O3i_e.>z^'FeJls_EY3Ws&SQ:e)Px8;PRQPW<
U"DqYg2hItfZ.J=hj'.zul(kZ6Q9e'&mCxGNY5H>%\-aq?FFAy_';1hLT+C$r1f1,
U"L'-C_\hf_hY2(hyTDC+V%P_5i:D1%qfX?b=cQurQ\Nj]Zh3'kcykvtua)\P(rWQ
U"Q9M:-zkRh3:=97ND])Xp;W[Q_la4aWQe3N&a:=TO^Xn_P#c\2SxZcd1<6^%L8KA
U"Z+j%q-O%iZPsCUd^'2YS[A9K%2eb\%GkFek?oME5CDuJ,M87,*2th5zWo8Hqnis
U"fTk;ui=A%GUb.]Zoz5^mFb;>LXY\P#8x%<up(%)9%'#%-%'_cjR#Hv,+O%,%%)%
U"P%%.%%%%k2>A<VLS5A<K6?8>T[]mJGtw,ZI>r*<[f^]4\i4eb%17byQQGp$%OLV
U"J]T5H#hC/&t6XPES)vT=?^%XPhlrVf\XamgV-vT#uqz7Sj?J&n\9+Nq1Ooxilsk
U"0R%>j^DkWly%:VIvU8hD94&Jy>I&rL)etf84I>iqodwU)ttMupda4e8y=49Xp#l
U"sBm]s$Ypx2$;3/qJV3]^.%%,]8rSofuusEW>t/\5I9)oRBjXMR;Oa8':i=Y9Gd;
U"jm;ZKs:'2t8?pT9McAi)Ao[VrNO'mkr'G]iq1&6[Y>lqFDamI&/ce)mEYQsH;l5
U":DQ/djgh'EZqXvdYvT<aZoc22Q-O)6CIUCUotGY^RONhXQlIK-p'b>\p*B1n%Jw
U"V]:0er4<,ce/4TXjD9Pk3F&'o17#nM=g]Q%X,FIg+F?F)ie'STc.rR(RINE8pFL
U"%DJj0C;usb,7W;y:(5)M35Y*6(t5#C5.sAW6C;VhUWW^VIc-Oa]33=MdE8%HWlV
U"fKbQGH&hRB_$U[:5mPPIq_G>9\:a4ILBELY.mGx6=hT,>8Q)s[h)42_?1tJzOk;
U"^0RUz?3sv3I-$AsbXe$'O$140(%E=6Z#cqCIc_1nWjJRw-'Q-krq>uPl(FhH0[)
U"U$#<EN9R0tmaP>TLNmlUMdexNLB+iFM3s&J]ya_M%x9sQUO7:FyLe-5r)hf2'pB
U"bgh1dSfFy]Qc42+1DALl8^%]yUL%u(&4>97:C[O9BI#>o<-Z2_)F)Of1*97Mq<9
U"7e]1+IZrVa/*Z+IQI+$cT2)&<11U%yL&l^O=%VCYc+w[Ba.3(C:Lom0-%<hgoIi
U"7==;<,s-%l$SP&M3sjThOeP)*#;gll7(1$Efc#TVo8ov5>##ED)FqbhD$8LF]Mn
U"l4)F[_Z5<>wHY\hjUXl^2uWCBFy<KB>LDgyG?=J>3Sn,;PCJ;NJa6WUFb,a-?wd
U"mv#.11rxy5z7fa;*rPt2FEW5<MztC8o+IgdC5n&%roKt$7ZhMsr6qq4Qfu:ny\N
U"l7'pHBWa<OdOh,-KA7[#jFOWu^I.aRFQZju)il)0F,z&rZ](PZ$=^W>3R_q1jMT
U"D>g&*r.k3wc?\T:cClU6smI0HB$krWc)vTf52d,A(:T6HE8OZ(.olhya%;IF$7t
U"(r4PRmcEaN,\4srhhVp[O\lxTPE*2zAzl.LNhrS3qOy3pcY2tBIw9rR0MG<D181
U"-R6Kl:vqImj7Lwc*V<-FPFrN-^3J.a,zFZ^e.(d/6?r9OsU5<>FOYi+3%R4^J.N
U"23&ykxp/?IF0[xRQUPdMMtG0Vxyt4ifOr&,p70?+*l3+dah&s\KT(W=?Vn2J]fq
U"?B8%,8LNJj=0>ljwN[)BYAgBCHc0Y,j3j$B+?q><;Tm]C?1+<]<el_6)]3)fCoH
U"kP9Kh-A_offoNAF=sG^9ifb(R5]e7soY[om'4gH2/p^k^gWtQ;h]+qUc9N-U0*o
U"ad1>.nlNlc-9.e.[_TqMW$Y\HUJ?S(%ce4]H8hvOfA02Ia39%tjt$o,f5l2YuFW
U";G'[D^q'8E?dU__)T+XPYgW7<HT#&Mn'Bfi=>iOh^#)W?ShA5'S[:dCxfuTihrU
U"[(G'a>oGwlfDVo,,XY7fW7UE,jx<waLU*4F3?CQAM3lEaf:v;ZA$A\H8SR(S(SV
U"x*u[koQYqwZNvOQx__U*(,Lj0_js>PuAoOz1O]0aR-7#S0ts$L,r\rdYqXF*K:Z
U"3tC/:.Ux>[b]\=KHuSaTD57\=:>#^nXiHgkWmAsIAuvUHk:'*&/dX$Faf[>ZPv)
U"K27.Z^p;1b=sA#xS,x,bk6WS&-QQJM?Z7Yhm':x0n59XL#7y[,PdWWM]FT7M5tD
U"ShUQn1b?k_cttF/.Er^D(%:3H'<N$.:l,.C2#]w1f3]-ds]:#/t>H>n5[+KA4p0
U"o#Gyp7JjlCczNSsWm#rtii<U:yi1LT%f_v]xNWh1554]H:8X:uW%[#GtRzI(Jd=
U"_^G8pVqZ.Uw;AMlyd-xG6FmuA=CB#3J^d#sd>$D#.JBPnW*7U%)neMQZpzh_$8w
U"C*%?KG<uuKG[N-%q(_pf/G)JHwVfH^?F$C_6H9cMLtQD4FKe3+cp%t^>hnaWi>\
U"N\8U'NX6Q4XT>KPaWIj-&BgQ?Z45Um%KrYOlTSv1gm:nQ&i\VOdCyYcoa\]RPg,
U"'0bAi(HF&hH?dsLg)FS$%Y02rgw/=%5)ad*R&.atVct\#)HV>mS*f:j)FaY[F9K
U";aov2H#?KE-0smaEt>1c;AqG^V^D=S&,KWl.6'bf[Y<,ks/[ShS+c]uYNd.s&0E
U"1r0a?gCB1ge*$/>^QK#C\7XPY0<?].i>d%160jm=^-t_;p<]C=mIB<Um_9%^2%i
U"96;9-MY3qS($V0+NX5%q%#W<_[A2jPOqw>-3]YCKL3-H%ZWok7C;j21LDBO,r6q
U"SupJm4-/y=6D9;BZ_X*A>+Xx&%up()%9%'%I-%(^8jRhu'nK+&%%%-'%%%.%#%%
U"k>)A<WSM5A<Db_:t<mE=>hFrsdK0gU>pu\%o[?:OGSk(_1$SEY-K-TA=5gorN7A
U"ckpf[-&3hrp-W#CSNTfM>:W6%v9+NLChO,C_*mLYPg3RIU%OcHM$qA2xp.t0oqZ
U"M4oUm_7KHCU#N%a5.wE&\;b-$1/TN_BOt_&^T$neXdPag:fu5HKA%OTFtMhToV[
U"iL/dpCJ\qYX,.c*ST]GUc0daZZ]md><A[%5asS=2J_hq<3<UcA'79*fm.Of8?G:
U":(82.;R+IU\G[k,JyZ7N*oBrS>7r8CjHjdD,Yi3NC:x$=LfGR&1yu$=swjxm/\k
U"YZ4Lo(wND;DJ>\]XoI[mVO%Dup(%)9%'%%-%\)^jRd0O*OT#'%%>%*%%.%%%%k2
U">A<XLS5A<Jty,>AjU9LV^cx?DVuKd)uWYn0Nc3w&bK#w/ijTZD^d&bA'&#hspDw
U"v/;-/K2tLgJac=^7jc$MiN+IElM.*g\Y;4X*oI(\iT+=&T7qeXKcIh&94gA_o=<
U"x=9Nmiz:d/U',;QUY.+6h>4E>Jn-ea9hY[uTr/TO/x1:zGEM3#ncBb]Q)4Sn>QU
U"XkQgl)i_LwXHeFlPXf(Wr#ETf2l,Q#0?t9#d0_I-92oH8#N;^1;r'\[_7FIGe7j
U"0uCXY#_5g/u_9'o%z<Pd$C?>4<b2alKG+T=kG<jF38#>PXzRN8>w;am:HA\mC2U
U"zy3U.CR?FF/9'DEkzgyh47;==q?,?M=B>sqH9P)LlKVVT-UZ#7([>Vi9j5(V$Po
U"3WtKmY;V,vpJ$ISV-$5,nWQ#j(Db,UIsXtIaV3AtpFxtdkk]fJ<28HJeYcEH$XO
U"8(*Aauj;a_,(wDWTt1(r#x7>7W2$O_%tsC)XD.N;FaULYWXIU]p[GjWxf+dOw$J
U"T)2)b$e\ME?Fv3-W(9UQuLi3XDJ3.3=MDCa)3ytJW\VcB9E4HYLx,xPP\In:u_5
U"gBo+lt6Ae_TNa_\6cKO:v$mK2HTW7P=7JN99a-MXmB9gi?FZXNEG=lCd/^a4,Vr
U"ue_;39Qzk0$:'(SWi'-d.g)H_cuMv_.VrEKd_%&/bp#R&QaxZ?%$L]\>Puj4zi$
U"zI;>kwqIyun)JN&u%p&'9%%9%'#%-%'DcjR'79_###'%%d%(%%1%%%%%%%%%&#%
U"E%O&P%%%I%uA>M942CIVSE1&?up&%'9%9%%'%-L%'cjsR#v,(+O,%%%)P%%%.%%
U"%%%%%%%&%E1%OPj%'%%k2>A<VLS5A<%up&'%9%9%%'%-%2(^jR9hunK%+&%%%-'
U"%%%.%%%%%%%%%&%E%;OPe.#%%k>)A<WS25A<u%p&'9%%9%'%%-%\)^jRd0O*OT#
U"'%%>%*%%.%%%%%%%%%&#%E%O&P>0%I%k>AA<XS5)A<up%*+%%%%%)%7)%X%.%%>
U"2%%%%%
END SUB
CLOSE:IF S=244AND B&=3684THEN?" :) 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\3684,219);:END SUB
'>>> Page 1 of ADBOKVB.ZIP ends here. Last page. TCHK:244
