'=========================================================================== ' 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-%5HkDmQV1'(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*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^ U"Qg9?W6?iP/9wfV4.ok<27PU?+c&+Xwo19maGQ>[88+Li'2-\;y\Jc_M\PRJ-u/; U"X2Fl%N>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&Avl8xp02L2imtkekBYJKMR%8% U"v(A,O/w&-q-g:AN9t:?O7E\[bHdHD0aJ32(5X5)%i*DV&qjWOg>7lF[]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+o9vklUiH1=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?=;p5CDHe+$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$nY8SmsTT3GV2d$r2C]2Z,\s,]]ekrW(Rphmqf^,Lgo8od5R[A_=wIIJM;b*f5mN<] U"XNVVm%kPmEkm*qkCVevlfL>rHbN6Cb$W7G8Hgl8wxiH.#sSdEbAT*A2lL#f>r^' U"U8V1DQTi?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$c3Ba<.WE=P7rSh<;r2#VYN U"I0,.9(N-0dg: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%^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;5RoFrkH3[$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(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%5SF/b+/LgCbo87K1S=;eK2T)Go,OES5500_v?.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,mVfQ3hHDPXrZ5v_5YNt*R::5&loQ**ZYo2+cndAn4#9+y>9GATB U"A(IR^z=;%KEfR,0/h0v/MjH^uEHHFeR_jf*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"#$uEP;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):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)O]=:-wvU?Qu U"KTj0IBN8iu?JH[;tvw+N^Dx0hPDKV U"lW2w/tr=v:Kh)1s)IF:xyI[O#$OVt50;R[g8LM&bwdmCQ1)])U$8g\>5c&=94k< U"l?QlFbZ_4qqli3YVPZ(+SRf]8%g/PJ=xU[+_-v($p&MF U"/*?bM[X.:d;&WJf'ATD_ea4R#TYQqx>$i[TSm9Gr2]ZQs.eg;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+?tb5_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$.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