'=========================================================================== ' Subject: ABC VIEWER ACTIVEX CONTROL Date: 07-10-00 (20:39) ' Author: Edward L. Blake Code: VB5 ' Origin: fielden@pldi.com Packet: VBWIN.ABC '=========================================================================== ' ABC Viewer ActiveX Control DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"ABCCTRL.ZIP",4^6:Z&=5653:?STRING$(50,177); U"%up()%9%'%#-%mjTcM55)sg>&.%%;'%%%1%%%%fgIhj=CDAHS2M;BD$7psRl%>w_gmB;+HUT%Bg?$16AP7B:^e&/G7gn8BqG>kMt3ha9gnh U"x+aAH>ctfCT?Ka,H*E7$aOPxkqg6\dSrB]Bac;m-8RZ8f#lN70#h#cfD.]ogR]. U"HHe$Kfw7/V+6nki^ifq8E>P-C-w*7p1+0BcoOV2&%5vQwEIZfP;Jekcm0Lmt]r# U"\/A+s6.<9-*LOtP-cA\DslnQsg$3M;5UQ&pRA-xSQWx4v/0/4kLX9mocBA,86YT U"?pF?V)ze-LOx37x%OUpJKf(Uktu%p()9%%'%-g%;rc#Md-c',F'%%%;)%%%3%%% U"%fghLh>=C2A>;SME1?\dxp>LRe57*WkN)a%(RwRCLx]O&KmA,OG^00%\E63U#JK U";Z4W.EiPHOqZhE==hRoyiW:ir538HK$)jlO-RHJ&%$;Dc<7;YAAZ;0d^^dREaj, U"0RY:+\o0<^o8s6,jA;6pv;[jD?3uaGoU,/:[idWt4'Jp)8*7Q*6,GlOzt0-Jt1%6VmaI?7^iS&?7k*%gaZX_ U"=>Plb;jr9Wm)li1kqu*xvhpam-OclU7goY\jwtN0A##3Wu[[Kq+v+k16ax$1O]\ U"5SfdsJ?a-fY'$CeBP)lwa$^A2-foBQ:#dxg.nDKBHKKX9$MBBP]r[t6IqX8'RsQ((t[hFOZY\P U"/;Ecc\%up()%9%'%I-%;rocM*F,o\\%%%%e%%%%3%%%%fgIhh>=MCA>;LSE1610 U"BA4'k42uaUNXY]^/MC'HorSN*DCA>EGHPsNCHJ[PpOY'^/Sn%QONRJOnvc'_Kz= U"(fs%u%p()9%%'%-d%-rc%MAkf%Tt(%%%.1%%%.%%L%3DN)kUh/jq-_tTGjWIU)D*coG*&Uy.^qX853sn]1-We08L6PGf08GL,P[U<\BI]sxqgiTSIKwB\QMGd U"qB3kWfqUM;?v\s^7EJSVvzZ5CbTGu>w4;Ik(NR8ObxNe%0k)/>=*b36V2:YeezW U"?%,*4s7tNon=Rm=1xv0BEwwoIY_-BX'f:(70M#4lVW;pGIVX7._7t<27fGfh-a2ms^ U">EImuSvng/D1/7_?=3dVtXQn-DBXGesC(+_[+O0A>\m/Qu/c-Qh#nXmvMS>*\F'6b/E.&3ixJ75^708PA8LJPY^^HW'5zu U"'Uf8B3$N(,w'TE)N>N-,W\f:-s%_:n;=8)-Q6L(trM8YSB/;o[:F+55zE0QClmFF+Pmn&]dNDJ1;cj?2LJ[0[ZB?9?P2wtm&e,lPcbu$WePw%&up(%)9%'%%-%_GrcM3thXV U"?[&%%\%'%%/#%%%3MD<1GIWSE1&?zwr)^jU596HjDLuA8&G9]JzUC%[_G_IG<%- U"OYb%Yb==4[W1#L>b^%uvhnQVC&^/l6pUjQE5#HTdFS-H:p7xkGM[5f3S)>bLh0- U"8oeM5]VBdvgKSS]&0nc=7UBjdQ]7V^YN_ZQHEBaM^aMp,]%a;0If(.Ur#qUeYn/ U"Zq;K)H2L-%reDk9KT6hfzmp+XXPYpzIeXt U"SHInF.dEi#>wW\-AG5?RCpGxM7ep\M5cj/0'Ie0;v+%,M&l=q^>#>6V8zc/dL#? U"SG]7mD7%:V#:JM68HwL7I\eO\nZRAFoKhYN^2A;5^ U"OU1;o^?nxJ[o9X2Bc=BgSGk/ehr7UqF)ntJr284f-]^zmE3+Wp-XqKb<5a(g&0_ U"Yn;=v?JP(x;[A92=CVm8CS-<^n&_=MCA>;IVS2CP;f+J,BSm7]xdzrg3B+C'9SFmeOD*dez([,8+^?#IA U"LFD(z*'+NI)7wcJA[tPDhZ+EH[kid67A[NUpgq&fT5g=bH>cot*4lg*Rfag9M*FCk* U"H-*YhEnJ1hr+Sb:CuMKCv;#6x3^%RnAr#A4LbGh,.1^G7o?<7+\,BOJ4W6x0s4l U"iIC?l+o046&aX4q8JZjOSmgJ6Zs'H-7/5O,.L5PGuJ)q*$DB?[IqrY9b7/uXaPG U"GTYtjR4cD#q2[Rd5u&<\Qs/Fl=QvOXCbphtFCUkx6qX$q4db/%t$a#vAsW7*F6q U"feDOZ\82hrJ325Cu8\;3[qMkINYFQ$a#%fE*i'PyM9ddY;pfDYa:u;;\G&HO3'G U"Y+kAsTEN6B)wV>Pbh%Hpe^2%DPyTv.&mvrVs?xw_$^C6#&Sk.$\h?5 U"?n1MEgXfo],Wgy:_(UMm[X.,./_kg_waFd%mOPv*Qp%q3U1k*ughhdF+frsnc)v-D9>w/=OA(OS5qgpf13<(Y?=m%E U"LeSmh0e&I')qF15%Mx([i&6dmcAI.)WvY-f?2g0#(_+Z)x:SL^Dewg'/Du<.GfQ U"Af%aS0v$f7qhZR;lZZOr92O)8l_^phLqgJVjd:_H[Ama-8)lxI,pi-'jsIS(R7= U"AT.bk#VQR^L7)aOR U"lTYi.'hb46aZq:[c]]t>S9[*q6i2l.5UP-^Mif[)^t]h^:1U^[61;]hmZB[*EtU U"p6Y4z:E]7UM:gu1+*LIC\B/Y'-;#L>OuN^c7tKjk>p:Dh1Z$Pdd*IN3k%fC2Lp1 U"u$2=8>('_M4+v[u,S2PTqPSp_PA4FU<4wk8>j&Y[']adRVLL4.RQuN9VC&6]c?Q U"CUdJ-e%y(0LN.soS;o+vdRP9eIb=KZlPp_77'NG#?lZE5<0j*]/vO0iE*VBDt=i U"A^WDX1QY+^P=if&PQZSNRwBO>2Ii.z=f\u0tXZN'tn$'zwVG419&J;2T*<(F7n_<8NVVW)Q^HJ#VY[/no4ix3SCL0eGi7 U"K.ETX^YO4KpX3Ki)bTVV>LshGqiI+;:7W)xsU/CG5HBXJ1,bFw[mt%_UZ:Q:[f6 U"CmS7qx^[Ao2SZ9]D/nPeh46vla)Xqgei^%,D&h]'nN*=-6#f-4-7SrGyL,_8Qcm U"EP86yW+k]zj$NA2mXuklrXoDF8EJ:ac] U"'xmWGl7y?=lin+,)_(E4iT8;Iv8___)49TMC6gE^z5P^#oD,YQ02\iL^A''faji U"+(NG\fCjM]bZ_xss4IF]4R'mg-m#*F^PBYTYNLY\)<$ZjWsDk;:)jE]A2sX]#=x U"i6'(Lz6oX^gk,dA.v:b%VG[9zb3s9(M/&XI$yLo782PZM?5PWAp8Abs>KKH=Q7cnCBfAGWJO%^Oz>v&un)) U"jhVDMdLf,G*DX+qiuA1YI#pom_exqsMcMtc8g-q,[pm#QRFAvQ-;,jwf0^q4.bR U"SDujd1g\r*l\*Zg$dlEo.G3JJ9i^kW;^XIV/)XQxXn^$SfGu4[i,;e,1VUbqO$^ U"J9&5CkLIh12N/tLN80$n?X(8H\F=Zwmw88BoPEM-t*Q>PdBI[u\Z(w5$sFP5ee1 U"u&Z+2^u#OEl,H&W-&Mn(Z)0Mqyq__XU.drWX5jQ^PvqHfkZr7NW.V7v+1X9WvEe_HYP8u_GdXBr[hRGQKRvQ&xaeuwJfuVb)r<)lVrj?2q7H&1rJLq&5eIWniW0UxW_m:2DtHig[1;$F#GRVG U"_i8Cgt$:JS]IWXa0fY,)Fzpoejqu>33T[zGKw+o%ObLalx:Us&W U"zBl*ClXaO3$Dw9gFp-*JSy;$#^>WGain]S8L.admB?^:=Mx*%up&'%9%9%%'%-% U":mjcMN55sg%>&%%&;'%%%1%%%%%%%%%&%E%*9P%%%%%fgIhj=CDAHS2);Bup%&' U"9%%9%'%I-%;r'cMd-,c,F'%%%;)%%%3%%%%%%%%%&%RE%9P%h&%%%fghhM>=CAD U">;SE)1?up%&'9%%9%'%I-%;rocM*F,o\\%%%%e%%%%3%%%%%%%%%&%RE%9P&_(% U"%%fghhM>=CAD>;SE)16up%&'9%%9%'%#-%-r'cMAk%fTt(%%%.1%%%.%%%%%%%% U"%&%RE%9P'l(%%M3D<1JGS5A&=CA)>;VS22C;u%p*+%%%%%+#%+%.# U"&%%o%9%%%%% END SUB CLOSE:IF S=87AND 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