'===========================================================================
' Subject: DEC2BIN IN ASSEMBLY                Date: 02-04-98 (00:00)       
'  Author: Sten D. Soersdal                   Code: QB, ASM                
'  Origin: prinz@mailexcite.com             Packet: BINARY.ABC
'===========================================================================
DEFINT A-Z:DIM SHARED K,S,B&,Z&:V1 'Created by PostIt! 7.2
SUB V1:OPEN "O",1,"DEC2BIN.ZIP",4^6:Z&=6505:?STRING$(50,177);
U"%up()%9%'%I-%5</*I66-FAA'.%%.+%%%0%%%%ij%hWgn%sSfxjrNbX)^ie5c#X
U"nq^DutWLJUw6pSGF>HkDmQV1'(9\icE%8d9:%YmnwdQw,l4t(:?oeIr.3X4egFh
U"565$],M8PK-Ag'GuvY8bR'6T8_J^sZ6#(xKFZ(A8^.F%:e.FR_koZXrKk;_A_)j
U"c#K^A84kZgj#jf8'qnO)RimbW?Oe76Hua#Y#q$n<W)ZuTRM(Q9k+h;ezC_FovR4
U"\v1+0b+[_ClBuoe)V:Fe6z/nnjBD_VlD>*m*5:7y.KB%k?xd\36;'k6+HADt-hA
U"dlH1FG0^L.M4XLjGh4OO9rY4>6W[L2$eTQb:vqpqX?9EB+251KZwk9QQj36VnK0
U"s+'*VT[_S>KbUXI.zrl+L;l)MITWSVQ<*qsTd3PYPC>9^*ql,kSAP6=p'X)+]sD
U"Jia?T:n<K3FfYbj'FP#ala4cD-bGw$Eeh%A)TH#;L9[n:AKh*+Vas#]3Gf3JVW2
U",GyOM<hU5#rYAVIT/^lZk8NVXq_e3.PRbKkUidvqJQfp7[)EM1b7e<oC(oADR>^
U"Qg9?W6?iP/9wfV4.ok<27PU?+c&+Xwo19maGQ>[88+Li'2-\;y\Jc_M\PRJ-u/;
U"X2Fl%N<i/(s*3-3K&+00Z6[P8A,LsYOy5p.lJ'=CHSi,w3H3NgQ6Yw^k(q*MT^D
U"u59M=nDtqgWxgJ9#ih\wfx=\c>>sZG+m%(up(%)9%'#%-%2'6jIOq)i;\%&%%4%
U"-%%/%%%%g%nyrf%sSqn+gfzr&78f=YL,V=a;Sg9RxTFGWi^Aa_sT[aApr\wMf%a
U"cEsRRjACg,a=rVV=%x5)fVYJIZFdQCYcW=h:)Zm#54a.G6f5z>n5ooagdp$jVJy
U",t6sZhkFlp_JEtjZTv-7o%WmEF9fpCCF)7gGHruF)DrSTSYH(M/sd._3Cs9dH26
U".jdf>tn1Q&Avl8xp02L2imtkek<Ar\8I_sI5Sl^FpPs_&e+ml]'gx>BYJKMR%8%
U"v(A,O/w&-q-g:AN9t:?O7E\[bHdHD0aJ32(5X5)%i*DV&qjWOg>7lF[]<pqi(Lf
U"%<D<c]%i,DZeb2_cwv[8Ur$W2K;mKkV-'8.;#oLL,k()aNKGDS*z<y*LGW^JCor
U"BR;\$V]D+T*8j*gUB&uNJFT[Qx>7M;ity\Zk[G-UZkMB5soUN^Gby]37XvJx#Yv
U"rk;u5S*6gni:hs\/UNiAdzPKWnMx_wChgYV7I*ajU5(+&0NybXH$Fo.t/5O7Xc%
U"\1T[/6=?nyBZe:=PxONz,I.9jE\[U)pj21^r0#RHZ'tZUOtW>4;$J[v:BKTJt7\
U"8?A$hPIhNKqf>5r$5jfh0v&?q2+o9vklU<ls4XbRgZo89X4B>iH1=OrQ,%up()%
U"9%'%d-%26[jI't3:CK2.%%-:%%%/%%%%gn%yrfs%SvqgNff^Jdxzi#oXIpW3mft
U"H/'BfnUHZNpIX:j)':s^YTv&&tB-2Yt_CinTo-)K-PbUseBR>PlPd:*y#'0=(&&
U"*BDU++),E0'ZtFRYu]*<^:M]N>Rchs\E?DqWa,c+h^2a]tad9w&takj]bhurr7$
U"u5$6pIKPyN(3Fh<^QT-7Fsb%.'0e%18w?1<+sb;GhZ_tADAs1xggMU%1h)$l8_3
U"]\TAxA=<]H]:T]5KV#1EL$+pA]W\XqHPX6&_c7S32:K28hV#QeW_&V5Xw\[yEN7
U"mB+CBjE#$+rA8mj%R^5&U1GL8$pA]OWFK79JSk5J1kY$C/s?x+hOHC83H+.SH'R
U"U<5Wel8-hWeg+$bA,(]7W&]qHXDWo$t7pe_EqB$rA_^_q]%LmcwGQ%g9S_+=T-A
U"AdET8k3_FBAC3^DA%bFjWiU=6ow4:iV*pLia_*2$33So+8WK:*_$5=4=;(_/VJA
U"_AsAb?K=;3834+4:^OmG?NQp(p2]N?0;SsD%>gsH)),Q])$0iP?=;p5C<A)HC#8
U"<2lZx.xNp-zd'HQ:+;t%cA'KO4CnX&LQ-E.(dl2XvtXK%2E?sUq:J4MtIBftt9J
U"rh#s)q&S?fmLs&Su=aJiSs+<\(>DHe+$LR7PA3dT%b-?lxqd7W&ux<)%a_PbXH_
U"l5l,ow're>v+w+2xQY4y[qiM(Q,SV$2*V2,xh9VsgB:yJ#jCadZN-rm[jD#P$u#
U"RKd?Y2$nY8Sms<mtBYDOMH(.xu8RRTpt7+ps9ibs8G,UZ$m8^8EsME)trE52W&?
U"TC3>TT3GV2d$r2C]2Z,\s,]]ekrW(Rphmqf^,Lgo8od5R[A_=wIIJM;b*f5mN<]
U"XNVVm%kPmEkm*qkCVevlfL>rHbN6Cb$W7G8Hgl8wxiH.#sSdEbAT*A2lL#f>r^'
U"U8V1DQ<Maow[=9:tD^_DbGqGY,L'l3KMpZG9&fOZitOos;;$&Rf&;v]&f.;=L&:
U"=I-4*Re#5MTI?qO?/nZg-uZP%:[I-D)g+>Ti?DOYA.-d>2#Kh]/a2W&ZXBOYl=5
U"g/+9$gq\$Oo&;,j%fHFquG142GR.(>4cqgYrs;miHC6CU0h(#%8z$VMOB^?jGJT
U"Jw?r9DQyny*GXOk'KY5OE7#gaUY)Q1>WJ55Pvb'aJw&.#uU#7;0\wqKN;a/hG%*
U"/J$.iRB_QuGm8^\oK_7y2V&f9hGGsY.>4C2KLL#EnAXQ&i)b)Zzu-YbOD_%ct=9
U"WuLnT;6j2Z+MrwU;K[XXgb%xRLF[f:'&ic7:dY8?[HCdIQ4,Vr.4VKF^aAY.nB-
U"K/C2Ugc)&Of]-dS$c3B<LhH,9Leh+mRS=?Iz&U$d8Acg.6WXJQ%6'5Ni%(;9ph(
U"/mOU3l<aJAvht-Q-BI$Vv$'Q0^\Nl..E_o=WEO%WpE*Z#m=cdj<#OrpLe+:)u)G
U"f*jg?Xw,&XkI(EtFXQ6yi2pK;tko=^fmIo$IoP5\YTf:]k5OefW=T*8CoQG:gxd
U"cG8?1TkmL&rtkxCrS-kCPTZP'jTdx<X7:tr4xjkOU[k>a<.WE=P7rSh<;r2#VYN
U"I0,.9(N-0dg</=1O,dK7eP#)-Cj[Cei%Rw(-3+FFXf4uAPX8&tM$NeD6=xd/3HM
U">:1_SR'F*x)82Wd-VC+r,QPJ]2FnVlZ)L.MHrcS7d&u\Ex:^hosB$\w*,AY^2d$
U"*(8S,>Mlm0pJgr6>9Wj)Qau4K]EIT[7s]\jg_I]TkO&p>nheKLfH4:>US7]q'H/
U"N/Bh%^<IM+(X)2Rt[eCwn)seuhZoWj1*)H_<kRiysz&g(t:?X*cZV%,+VTu(n<.
U"VDc-6jm-'GFFCaDgy&P)]FcV'&I140O2$Ca0I*231e#SX2cL*[7)^nK4[?#oAgE
U"Sn[^f7UUjla773eY#JBtzRpHMAk=))F,>n>JpCc[Nj2EAlQUF-)9IhH0ZWS.'5]
U"01a]j3XA<$/:/m9uVht5Q;HKZbg;XK^sBLRw#vA^RQ.%=8I1Hy3h,O+_Na>5.91
U"(+,^VJ,]crC$v.Df7bt]p>)\hrXZ(I4yn35[M2Qap77acpy6;5<Nm&Ct7#Cl5_f
U"G+_:kAmVX1?3CHS;hlVpQcRD\[W>RoFrkH3[$B/5bYdDrH'$hnquSWn$XIMr;[a
U"HN5XUVQ+ig4a\Wd#)n_6A>0;-eq5P[7x,597R7aUrW\F5rnWG.>Pn>6WAbcC=5r
U"YetmepZGhC3fO(jZ)+w7CCoR4o7EpM0147jNMI,C_^0^*Vw&TG-Rcx.T7HKZupC
U"tNGp(6K?32YKnSvFnHK+jPsv.=KTG;(PtVQEui+/NB[z[qAcKO.mTSJC^.y>X9m
U"\ZDLNfCBpbxC2WgrR.*t1;#oW)heS?W0HsKEW6$>7zU$/(uGX1Z+bmxKX?.#B=+
U"#d7JICo1Nh4jB;o0_uaf2XXaq.oCoI)Za,NS(iB1CoewaLpXha%'o/NS(kBA(oY
U"MN5u]0o#oNNr2ska/.oQcyLw1tsDYaZcRyx+e\a_ocgN8o=%fnHJ0dM#w3+ma2G
U"c1M#axKoB9HNjuE[tiuK=lXn\a[oSLNHka3FcCv3+daLLNHYa8vNRs]B3owMXal
U"c3eq3\^JJNRFlBpcT5qB>[N^mBDzcAuB]ZoIjMbt]KXMHl_aMoW,s]MJ)Rc1v7W
U"qBVCo]xQ3$LY7XoB4c;kp]Q+J$M^+tB*o%SwWo]BJo?LMHna74MrHgJNq]#hocq
U"23kat+NrXJ2bcSNMhq3iba(MrVUadg%V'GG+=$m1kQ:]=FF0EXlAXxrGG4.%3&B
U"GBf?kn4q-E/1H6?[Vi#0;lp]4RZ=[O.#mRqlfV=v<4o-adj4[Q,kl4D8pC?*PkJ
U"t#\Z(<tTY8tTEY$WjN(+X/Y?.#BDCYnVL=r5Nj[%jdq\i/Ikge\pjfUsf\$;Ive
U"m3(>8+>GSmBPfDJgRH92jT^/EUVyd_yAd*z4W_y+Q/yaBzA-fz$32ywE5>^Y:%P
U"pJ]fnd[Uu?XXnSiq;ZjndBFVR01Y^4lSuhxN'Xl>tqXO?1wz]>f?qLuFjUe8m6^
U"0nN,7oPTNocxM:iGI%5<SnHM?\lPQYbI0uC'ncF_mdpA_\9;w2ee-Mu6:(Ponpk
U"<mA6g+>SF/b+/LgCbo87K1S=;eK2T)Go,OES5500_v?<cxGt[Yc.T)tI9AgC9ON
U"PJTL1Ku>.G<5c[1P3IoPw^ImuTJ;tRgA(VuMs$;U+-x)GWZ/1jDPGjtH',>O3'F
U"X:R+h6trlK>P.lIeKq]&q&]P7D6^3)aQ=.%KX6QsjE=[#;3v=#4Z(t>[Ui%xtfq
U">.pj8[MW97hEmY5fHYh#KNti=&Gt#fVh1?f6[K8=\AzeS81GYZ%v,mVf<cR<iuF
U",]sl6:+'tLZ[f5L^oS3OrwdaXfF9sli$(N5sy<fURKj\<V_qj+.En+rlK8AF;eM
U"BZn&/jn$'_c^_)\dZGgOp)-WXObQ?.,IG]dKxPld%8PStH)Hn,,nt2%v09KT1Cn
U"aK26\MN?8b2K&'8NudDjm(Avo,9Ys4<b28f,\rSbZNLiu%O:&PIYiq5^:zoX,l*
U"=Ll,o64$LPnEN;zfu[10iNH#p-PQXreBa*]X2)uyjLzzy:az&z.+sNkzDly[z1O
U"rn6rME-H3-Rz%t^d\1_E2dtbB7pN/6zLsBN<zLeTPO&QG,p-qEPFjqWrWhk/cc:
U",Up#\uQ5&od[\:-<Rj6rq9fFghBH44nV:dN5usD#H5k+%t?3^uAqoQx(bTPQ3D;
U"z/hy%026*NR\%p>Q3hHDPXrZ5v_5YNt*R::5&loQ**ZYo2+cndAn4#9+y>9GATB
U"A(IR^z=;%KEfR,0/h0v/MjH^uEHHFeR_j<H\*\Gu9+cZQ^Q'6D*,w8ipGP.r4*Q
U"KY#0ETu67Jb)=3R3eF(z,-NSaWig(<9\LY]vo%I0-kIRk3h%BmFqa:_TYD3QwnU
U";(XiZ8E3/*a;(EoIu&hTj7=I#[9ZupT;F2#Ka<nn;%e,FrB]uFOSMt[t#fu]+fQ
U"lI(vBY^N5jiNKB6lV^yTr9&XUEYDY0\>f*XjKTm(k(f#2H*<7lnU052;D-;CHd0
U"x+kG=T>iU.0*Qc#]EJ,R'&=2Qdbu+HdYFFB\r62/%ZM[AlRUD),,k-#iQ2xHl#5
U"H+o[5/M<=+ig$?:e5:H],ziD870lK<3e_;Zg;gagV^)u0JU0Hmpm0XubZ:k=ZT6
U"#$uE<El#<57-6GK\G%R^**SjR=O7gZtOeMTiqS7C7Ym#W]QO5Kk2IE9$emhrD$W
U"s+7Ew>P;ACZjB18,zls#VvFCy[KF?WCu'AW;0BpP;r2hzAH:b;*ebEca7WX[^j>
U"\K/Hq.N%K]XHq:1mC;liRx%r5Uc]H%Db]0c-'ARN)(h,*R\0qWFlixOgnnjppU'
U"O%aU(Q:5*ON&%up()%9%'%d-%16RjIE]6^Qb&7%%Z&%%%0%%%%ij%hWgn%sStgg
U"oD_D%p#v9-?HqKa4Igw+'6PDU)U5og.D$#1)Dbm+Cmj22bGR<(Kb]4'#))fF5jS
U"C0\(bj6a+CF>CL'XFuaOpejgF/O$4Bb>QIWnu+MNp5lhkD,KpCaDRhR+12&WOWC
U"I6A9*%YSjpB1KXH&_B2t\(Neb3vOl,^1_.zv?;#g_L4L'&-'o4):<h(]r9Q42r:
U"p&+xq-F,j%9G\^wI&%nr\0;%l6Lut1%EB0%Qh20>gDGO[F[OVy;h9NE%2zl;9OU
U"+Y/1='j&d;O]aOBO:./OCYJLp%_0%5(loFaB/%vaK+CH1UY;eq?[,9Mu2\&YxOA
U")M9^$#ejM<MWSsiM4qY]6OV)V'<M(7HU3c])Rd#u0Y5P.&3oiTx9kBkCLBQ?$bl
U"TUcWuK1=L+.Yh'8FrU7ivromo$lX5Lph\nk+4pctd6_5.b<eTi>)O]=:-wvU?Qu
U"KTj0IBN8iu?JH[;tvw+N^Dx0<lxt9V%QT\'v8eu=1(v8IWfqD3F7m;]vr8Wox?N
U"%up()%9%'%[-%,6.jIZj%)3\&%%%8(%%%-%%%%yj%xySgRfx&a:t:;eX5>hPDKV
U"lW2w/tr=v:Kh)1s)IF:xyI[O#$OVt50;R[g8LM&bwdmCQ1)])U$8g\>5c&=94k<
U"l?QlFbZ_4qqli3Y<RO/=Y.&MOCH6?0?#1>VPZ(+SRf]8%g/PJ=xU[+_-v($p&MF
U"/*?bM[X.:d;&W<w>Jf'ATD_ea4R#TYQqx>$i[TSm9Gr2]ZQs.e<Qr'Xhim,9Yj[
U"u)lL5EF4Veo0znkosaN<WI4$j'o*^JtXa#Z:JLA:/EB$6:p;;enI7Cqgc8TsE^k
U"q1[*Kt5Zra$K<zHso&Z4-Fd$$PG4;wrp-(Tm$#d[/H7-WBO7RsJuc5:emf$GedM
U")024jk/gFU8mR94<y,4fH(;v6Hm\X>g;sZg3Q#XXw*VI>x6hnM>Mi[^\s%&up(%
U")9%'%%-%w'6jI04y0zh#%%%A%%%%.%%%%g%nyrf%sSgnhB#Do/#1AzS?0nBs3jm
U"p(x?nrp[ACE\BwvI)?yQnoFxN]6^;tM(AwMaB8M*V(O_Vk1etyeDrQpY=WlKz,O
U"C%u%p()9%%'%-L%6?*gIW.C'UR'%+%J(%%%/%%%%wjf%irjSCy'yDebf^LdU5Th
U"bdkD_fAop-Ak5,s1;S'.^3zSSflIhM\%B$ka]T28&m\n&d.iz3eXbmrTW#tZMS_
U"9A)aT=d:rRIZf^sxHq8o[i2iL$q_xvtKo7bs1o&[N_5o]X,)Yxu;C30KHI>JJX<
U"&C]H**y1r)g:)+AN6OXIK:Ig)KJ^CFspDzX2#gFXAOHQ_QHpp-]q>Y%Gm8uO&>B
U"iMY^qS/No#fJZw99/uw<1/RnLaF,:OwDl>BDd.#Yl33t>XKnc:p([PUl-3+?t<g
U"\20:XAdoFYEM\-)'KB+j3RbE:v?s;_qeVrh&^x>b5_fe_s?N7%u/8R1xawj&['u
U"iYN/TtM0T6F5WiNZNjY]#%jly72Y.g07MLc&kC<+i&x6.8u9#63:_\-1H'KJP]l
U"d6Cjr3UPP6N8lVKF.>sIMq0D8t1uH1A,A3HM[k]>SWicgqsK?,.5ra9Ex1j$uNr
U"0QYWlo0hNc:f>,pY?dI-%sKI122/DKd:TIKZ'.OipSY/cRs)LZao:[*N&8'7zjG
U"+24eqP.%iej\=nIWq][n7b3,Fn9mLH$Y9%[zrVM8<2FN6O8H^Y[b8L[SP?0sVX9
U"ixyRgJvb/:R23hx*iB7f8q2YwZoAQ^Up$/Ejexj1r]4Q^-)^9f7-sQSD9p8H^_Y
U"Oo/JQdi\2tYA.dWu$<bn?vB+bN_H,L<xpSaLAxWeq<R773r93(:lZs.%up&'%9%
U"9%%'%-%25<*In66FA%A'%%&.+%%%0%%%%%%%%%&%E%%%%%%%%%ij%hWgn%sSfx%
U"rup&%'9%9%%'%-:%26jIIO)i-;\&%%%4-%%%/%%%%%%%%%%%E%%%%j%'%%g%nyr
U"f%sSqn%gup&%'9%9%%'%-:%26jmI't:)CK2%(%-:%%%/%%%%%%%%%%%E%%%%u%)
U"%%g%nyrf%sSvq%gup&%'9%9%%'%-:%16jjIE]^*Qb&%+%Z&%%%0%%%%%%%%%&%E
U"[%%%m%6%%i%jhWg%nsSt%goup%&'9%%9%'%[-%,6.jIZj%)3\&%%%8(%%%-%%%%
U"%%%%%&%%E%%%')8%%%yjxy%Sgfx%up&'%9%9%%'%-%+w6jIR0y0z%h%%%&A%%%%
U".%%%%%%%%%&%E%%%%2:%%%gn%yrfs%Sgnu%p&'9%%9%'#%-%6D?*IW>.CUR['%%
U"J%(%%/%%%%%%%%%&%%E%%(%F:%%%wjf%irjS(y'yu%p*+%%%%%,#%,%V[&%%E%<
U"%%%%%
END SUB
CLOSE:IF S=144AND 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
