'=========================================================================== ' Subject: HEX CALCULATOR Date: 02-12-99 (14:32) ' Author: Kerry S. Goodin Code: PBDLL ' Origin: kgoodin@medver.com Packet: PBDLL.ABC '=========================================================================== ' Hex Calculator for PB/DLL 5.0 DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2 SUB V1:OPEN "O",1,"HEXCAL.ZIP",4^6:Z&=5475:?STRING$(50,177); U"%up()%9%%%#-%<8dsJa.3AyU(7%%I.%%%0%%%%mj&'hfq%hSuggwdeH%t8f9-#X U"ov[vxUj2OY#4#g-ds$u=2OJewSsIo(U?Lg:*odvotNYWZIrLl^a?:[IlDXUZYX- U"89H,s4W]Ar:'8l>lf/$f-v6,mX$hlQoFJ>_6-P&K*jnW+A\;pSs(09&6wO^7(xVkSW.ZV$6FoK:StUZtg/h6G&VKN^hrbvWvhQwFMt#n$ U"gw#,GR4s\DxX^:+V$eJZ5Vnaj*Bq+0/ararL?;];V[;E U"/UP3<39<+TE(0_*aoe?GWX-QnU+q#5L\Z#q##Ur[<#UBh_(Q7UBo<]R1*:C1H\3 U"H+T99\iH4;6-/b.[>2QSE)6-9jNkqlg$vI&Le(N+(R8/Nh3F2R8NLBAK1u'vBJ# U"un)),e-d(8Q:-nR_3R+Ll7m$n7>qtW.i[3UBfp\(l0:Cgog_Xjs*o)SoDjc=k,6 U"s\SB4nIq?x_(Z\Sh, U"[Lo=_L+;j[YT0kj5lHmi,G%fYZh$>P0bw%RfbWBOQt+HH&v]rN-e?UB0JLH;(V. U"AikbT^:a9<;,C7wL\Ox<973v\xDme4AFDk=CL[#4ph.1-FVy0LIs/5aMn^AWB=h U"7?o>1,S1ApwI?BR]>Y>;L'2VLjOZ91wiT)ZH&qBNB#m$eotI)IiQSa>aPtF>$PV U"ttVn,FeFB3IRjzyOb9g$5&adT]nZr8Yn=(bQ^_4Ui7sh(eQ#Z1V#vVw,rY*aK$M U"z8=sA>_kJD+02'66=GvDkUY:6'8#&y%ZWXt=F3k+x;hXFL:L/fpn2OClWDdP'qp U"xm(\M+coB;)5DLT'=;t*d&iSQ:GQrqbBO&isn>+rw-U$5oi9^sv/,(Isf-tm3TSooBFPnd[1uA:?pgoVTM<%ta U"$*l)N+aOKJ)&y[W559r=+4k1JkXg^X7XC8D:N(fvsi)HtL^6GNijIGpoobuFSU< U"38%GC_&BlBs7GOa?8Sm8sgnp>_HWM.66Ba+d9P]hq,dm\p,%*s7ES^U-sTm&.56 U"kne)a#-E:\YC=3Hu,JDI1BU&#-I$772iqeT<,-K^gu81.=>zR^2%qYlNv5Hj]cL U"ctow^^LD(.U;rBvk^c;M8T\&as'a#SBUW8SY4QL*Rp(E\M#v U"xu$Ol2&Je5LDX$J_rKbiSL#13E4uqm#^v\Ag6oe5TS8-oozF__n;W45?# U"='BVCx8$7dB:Gf-5m$Ad=Qjbu%83,n_iK$'1'aP^pdH>l-?Rk3:IXOPmR_j3gjTr.WeX2VbRsmw U"/c)U4E3B)vG2ns.mqR6G65L%#bde(lB?xB,of(0Q4u#(V5u+suK,FHP(Jr)tq2o U"\:IJK[;/MV.?9$r5ROID,0kO?zQ\'SlbX_p_\XiAr+FKp0>uTAqV9W+xg8]H.HG U"hi'IO^:V;,_PvyC,26,[a+_rQ?GbZbr9#gR^TD$;n_L6$4Ai/g7Zrm[kuSW%=SS U"k4&Z?Y2ZT?2FR5;ifJcn6Ii=3M,=V?>4G$G*2fBHubiWGLtr.A*qT4wxC:VHN:7 U"[l,;Cx3ss<\thNknD*CSi U"l?N+?*HGIa+RMatfEUWaqVyo6VW]CAd5>zVDw%6H(r0yIrwr?u[-%DO>]hl,Q1oPYX,u-sas1gt(Bs4.*7uUnK U"(R2MJ:r3kI/_zV8Dw2(;ClgGGYUh1/rOy7^;$7*KPjIYIy%>;lQKaNgR5PVn5]7 U"0G\2b&u$)VmA0D)V.jM0dEn/U>o03MZUWqwn^iY:,EA'BI#gyQ5tWj'EjEI\Nbd U"-nwk,7sY,m%s?P5)O1>T6QKdlygM,%M%$f^:DpRQ?CdT]N_Cb0bn:6^3sR9DJ*- U"Sc\msC%a3gc]TtMix+tDtEe]C1Eny>&9WrSN;x#/p;5',PJJu9Lc.6W011TotzP U"xqKbDNM6w$fpqDwb?gzzRkUb*)%--'Y6=QmiH]eC#;hzEOmWUK'9j U"oqaPGD>OoJGi+xVuXw,q*$akOGo: U"[W6;..%7PEBk8jfl(y=bt]f)mZophrNqewYZX>cP3#iex%p)3be;N]hDc[j1^4T U".4]-'1*YXl[^Hh':B-kP7KI%L%rf;zFA)SAPK#EF$+xtKdFX,ELUY-]h:vL$y\Y U"Dj%'T_\zujqt/Oa8wS$Nf.]m+K6aHlRC130ZH&b.Cju>4QuXJaBuWxefr_<>J:g U"(OY]Pkf5qa]5DVFQMU.aGF*[Dd.jgjqj&.up(%)9%%%%-%:A8sJc2\Q/k%(%%E% U".%%0%%%%mM4G20D;2SAM4Bld%ptxfF9#t3opr_CehZ5fPHszXrq[4$ZbHu80w[l2d2kGlh$C\;B+KAKQ'/k[o:[9*RK+5(wPXVcOV[PV90BYU)5(;1?oYUU5( U"Q1?TYUVK+VZvhF$Pv^C>G4gVM\4P;W:1c>/SQ1V U"NnFY;rC1ch4]RG8>Z3o+BB+Ru/M3b2/*qL>RE#)g'sWg[S1VntYf%P1ki4Vg=c7 U":>:[62i&hirS?^sUlB2caum*#1so6t7Xn3H^sT6s/=OVnJUk;?1c)FcQotAYpcq U"9fMctyMhgkPXkv=zU5<7=8k1N8e3(5m[J.K\'MjooZilP^)3HWN&X^e+bPStK6v U"1M/s%?)nFJTj*RS/LaAdRo_'c=:337v(KS#=$;8VhGf5^no]V_$4E,\LF,rWBD; U"&5V?SLYJr0e]*;uOr2J%:Vd&6)zH>X#:RLV3fIaBA$MP-;bU/N^K>rBY_ZswKnRS9ZY\7c*2uepfnmifI U"0Q+VSK7,j&kX>MmG_\r+Kgm>:W6$A0rqZ6Ua)D1JA2IeV,h5:uPl8IQ?wLMZb5B U".eY$i>>,E9o>2wxZe>4g0e5bEouS^GuFHrEl>UmR8^SAtEqDJWk;kiO69q7q0%u U"p()%9%%%#-%68[sJPV90a[).%%j5%%%/%#%%m4MG20;J2SA2N6&<>\rk5wY=Bx0 U"&]xtnpp29h.wzX\%$M=QO(7sYM9#G<2r1?&B$7NNtwx+,MOwK6GxP?\5 U"IfrD5I:EstO:jQ3\>%q<6U_^,(qF&V#;R]Vqh,XIOOupXdE%V;$3c;Hnw4*.Cqr U"&W',/%qk7Yncu+XcZOZIQ*=XJ#/BBruUT80V9COP-'mNwmOX^-:H%N>l U"TDF>/r0QfG('^00';63;(=?H)&cr;I6,IU30cj'Hl$eO]pDm/B/>?/2LU::xoN' U"%g7.h#l;3&el-'pPGxBH)v1& U"-:t\1;$r1/-W8X>Y8'=*.Z9i$upp[wPYP[xDHvOfjoVt+q5f8rMr)vk$7^w$f7y U"J]qgLu;,FsC/quA>=4a?^FmxeCLj[8BSFxwj4AO2NNLPL%K/C8DS+d\/JMPl[s+d40#ck;]P-r+jVvV7tldZ0Ong>B+#dzd)E\V U"mU.k[896>UJe?'Y[g$T^2,'bI*:q6[O6O3./-eFhhK]wlSD9Gbu#k;#pP? U"PS[S[GlsLs3B+0,xsbc)gk&V3kx7indV[54:Ys^h[9#utczVi7ZC'Cf0xg7V=)j U"0+'d(9+Lpg\_rFFpeT&UNDQFoYDYt-vWNt%8fcS#iH1^a<4FH<]cT]5]_*TnL8W U"pImvG%hz$LV\^c9#t9c?$V^.*a\L]a1O1p[v2$%xAq&io6,kkFtU#>%v7DsNnK\ U",)m]93Ne-x3$Ot-BF0-(]paPWDAVOvs=A'xkr#+\SRIe\9e=?a,DfNkPmOm77WxdO U"3iOP,Pv%(((B((KM83O:+oW(%eXC%6F;44%%up&%'9%9%%%%-.%<8spJa.A)yU( U"%+%I.%%%0%%%%%%%%%%%%4%/P%%%%%m(j'hf%qhSu%gwup%&'9%%9%%%%-%9gS; U"J[j),=n,%%%c=%%%0%%%%%%%%%&%R%%/P'((%%.mj'h%fqhS%gfxu%p&'9%%9%% U"%%-%:A8sJc2\Q/k%(%%E%.%%0%%%%%%%%%%[%%%/&PF0%I%m4GM20;2LSA4B%up U"&'%9%9%%%%-%(68sJ=PV0a'[)%%&j5%%%/%%%%%%%%%&%%%3/P_3#%%m4MG20;J U"2SA2%up&'%9%9%%%%-%%%%FE^iQmE&=%%%%k&%%%0%%%%%%%%%%%%%3/Pi8%%%m U"j&'hfq%hSnh%tup*%+%%%%%*%*%%A&%%%V9%%%%% END SUB CLOSE:IF S=110AND 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