'=========================================================================== ' Subject: PICKLIST: DIALOG BOX FOR VBDOS Date: 12-08-96 (10:02) ' Author: Michael Zito Code: VBDOS ' Origin: Mzito@aol.com Packet: VB.ABC '=========================================================================== DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"PICKLIST.ZIP",4^6:Z&=3646:?STRING$(50,177); U"%up()%9%%%.-%'v\WF6u<[AW+%%%iD%%%1%%%%un%hpqn%xySkRwrF(8*t\]C9M U"+XNx?S%a(NwM+;_K&Owb4uPi/08YPN7[6U?SRW U"Z#>d[g0Hg_h;N,DD'#Dp]K#gfU=(w[xMkzYp1+(?1X'Cu?^eL__A?tg^)[K?BAq U"20GlAu:o:H]K/b?OZDcCao].kR$Pa=rPn\uX3?]7VHZb#nXGYCb=[#LXD?JulM+ U"dT^&B,x)bTTA2*41i>guUv?g6A#dFCXDs,H^,Y[f U"rvDak.+ToaYSfL=>BLpf[wQ(7:1Y?(gJ*L/s(MmGd3O25N8jOK)/<+CB*>(7WN3 U";wZj'gZhW0fVFJhS\y.Y+RBamX[+GQG^cTR,f=wX81mVI[d&2qHA%eDwW>IFyo[ U"QRId&MUXp=Z=]/%D>#JF#$:Mja;9TQz^/p#);_jA*q?%nQ8O#mqMY*2+oT2\cBt U"ZE:1nIRMbnv7EchX%EI2[nb?9NS\0[fR)P2c>Sq*h>WOzAkS%MPJE/CgecL\Bdl U"X],JAb%Aofuw,mhmf\4H*Gr0,Z0s01lFbU5ofqdox5aRkDWX'kf_rEx U"s'8=&rOZ5(u'KuyW#tDdowf-8m4W;x3oqoVd'>Z,dF6./#3Has$&)QHJXK0/Xd# U",$6:U?IFR3MYE;$gi>E4\.l*#P2_o&d,$60car?$4_4XixLKquK]Flk#o*q+]tJ U"c_%]YBpv-'wrx]kn=L[r-fwPZOti,u/qit#/HM%B^YEk]/fuwi]\8r)XU6&efS7Y,I:9imxbH5oj1?c' U"_3XG?5)jW._:MCS5YIm.nm4IJ&KQSRt*^m1IiSF2HXP&jv:AZ#7aRBOK5SCaGX9 U"Y6;j[)IxOl>Lg2z^WiB).E9jevQ&hCviQOqh,_jh=qM7'&\e$u_7p.*;A^AU_Of%mxzPjx1bAD:1Ub5_GXDF0NIE U"=ppHMQek/as#jzW45,?[SB4aM>q8c33aDXNJxO(m*N%4xJYr67Zd_UaB&:HsYih U"*R&6HRe1*$6C?22a3gSLVX*9L^IsCR&ieRB>pOf)*YrTK/>lvsxJjJi>Cmvwd#i8oT,_vV&F75m>A$KK0B]i)Z^MV[g37CVI_,ke%M)'EGRw;k#2#(;1Hr U"+Tbr^7Jc13)jR;$/-^HK(%>+gsI$A-;H%pm&3m6QNoZe;$\4&Peji\PRc;Ld&1c U"ba+YncbeOb8Xy%]%2xDAAhb^.1/8l6-:(/7[VI*r+sMY.5jJZqU'5()()reQW7W U"[W]K*O.A)G]qf1ztKuC&Zck=FVt0Br^0/?r^a%w->cCTaRMtFfUn5j#yoSx&^Q: U"b]6[j=/=]nr:BSk8(6KD_d8B&ufQk+y<*iAoIIFJU=HBY9P&cD-%xI+NIhwg[8Z U"uK*'aE2lae=TxapqZKG'3/gs%UU=hj1qhXm4,)fkQ0KJdw=%akq3l:.2^Ke)[/_ U"8bv^Pt^?Jew[5[C\j+G,Dv(6DAEkq(&ZR;ouRbN6yv()&*0OFS-Ny(/vIZ+xx+r U"XR)/z4v*y;ej?(Vgf&t,Z%)_3PB.x0]=/C/s6jx[chF>'#&z=hygv_eYQy2DOFo7O3^9DW^_0^h$ U"IL[*\\botetwc8A%roN]?tn%Yy74Cbbn,M$J0mrxT5$p3(BG4p/FC:a02P?W1=/ U"kFwKqrL7d0DH&P/S>*-MihC4>U^=B;iCHc&o4b(27#uw4%up()%9%%%%-%(tnWF U"tK'?;'+7%%e4%%%1%%%%un%hpij%rtSgRfx&&;,>So^5Ll[%dqvIdeJwI=y3C:. U"49k+F*eMuX2fTQqf/>okAPELuutGe*%\Vi1zt:j;YF6XtB_dErKUL$acUaHTBr.+GH*KMOqWHHo&K'lJy.BSlRJ5xJ=Q U"%(Y6K=t?Q](-IUk^>$)i:E2nx9;_HWhd_Q^C3#::guX>vt)?/H*2#zKanA+\5_I]T^JsOP1#Sr'h8aT)]^T6hjHR4 U"jsfPY^+IWE5S?jE6Dz(4qgL)aFmFp)petXZ(9w7O=OX2XSCks8>l*i+ib>#4G&c U"Go>/\z_l1)&rGmQdo5p-%>Ac#gf.XN3Z4+5?Wn[ViG+E?.qSE/pk[c^P7B5C/7, U"h;uRWmE/Sa(guq-^xAXB0\Z%N&%%+]^[tP1nIt8)(O*?[9pOBieg5EGWL)KJ,h& U"sMkJiwmTl*2$'9908LKgZ=,n.vELxX9QSY(]>0mG-x==7\I5O35n:EN:t+6^+jBRMvi\L8? U"o#OqWA\MR[Hs[?e\*J2V9)M?=Pq;/.6&/;GJI'>kQX>O9c)e\?yFe7z0m9kH9Br U"p=D)#b+Luc%35[S8WaFC(rQ?cKm1cw)C7mF\%&XdOOnNW_zn<4y&dK5FFA6'7Mh U"Tgxv+PLFPl_h9gWd%6/->Z=&:LWE;9J&u%WG[1d.iF0qrH9]2DNQkp7mv(QnRlZ U":nWi_fy[?d7#'daf/'K'N;=QCPvkWcE6/#Q'uTl^As]nB)?*q>RPs-8H>f9'Eg_Zy6GYAD/X2\ U"Yk5%L7,];2)mOk?+aw0'#'][tQoFQ)mU*A:^7Ux5XKsDn55rRg_.\XF.c\DDFQ? U"=B$Dwf?*JG)fR,1\ki=Nf1CnNI*\A(w1U;a)bmZt[?JM'c#ME\8T^c?3658s,uq U"A7hpkdY10,:T5GNdbmD_>jMVv-qEK-uPWZAkeu=)3G7?h'89#t U"9OyBR;Q>+BPmsp:.a)GV6$ap(?lQb]XvN5&lnAMgwkU%:BjHkVLTGO_1YXay>WT U"MhZv$iZQiEkL1U2%\>TB(=/%,<5NxelFQ1n25[hA$X^LGIj,>/NhZ>5Yq6v<F-TNu=cdRs U"$0#\Y8uxBU)Y->fY(1i.rYJInw4uY.uiVM&rcZ[o2Oc\n87b;+C,,9#t't5Vt\V U"tFV]SR^J3$bg4pdpo\H+=DbkClN?t0XhpbZAcWcG_3EoU$$4Z:V3UOl#lAf8]BX U"fZ\OHV]BH>X0xD6A>*R&(&aiMcOm8=Z077:rnOkZk7&CDhy#vMbIISLjftsuZ5, U"Nv7b6B+L>lN<;in=N'DDE:DOuaXA'G_/BZ2(u>S[VV]:9Xjnz$p?ELQe?OkGLJ; U"m;v+%up()%/%%%%%%(tJWFa,,?OA%%%%A%%%%1%%%%ij%rtun%hpSr%fpun%hpi U"j%rtSg%fx2/%unhp%qnxy%Skwr%2/up%&'9%%9%%%.-%'v\WF6u<[AW+%%%iD%% U"%1%%%%%%%%%&%%E%%%%%%%%%unhp%qnxy%Skwr%up&'%9%9%%%%-%.(tWF?tK?; U"%'+%%'e4%%%1%%%%%%%%%&%E%%%%-,%%%un%hpij%rtSg%fxup%&'9%%/%%%%%% U"(tJWFa,,?OA%%%%A%%%%1%%%%%%%%%&%%E%%%%Y2%%%ijrt%unhp%Srfp%up*+% U"%%%%%(%(%''%%%&I2%%%%% END SUB CLOSE:IF S=76AND 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