"� Decimal/Hex/Binary Converter
� by K.P.Parker
� (c) The Micro User
(�� 7:� �3,2)�(141)�(134)"DECIMAL/HEX/BINARY CONVERSIONS"'�3,3)�(141)�(134)"DECIMAL/HEX/BINARY CONVERSIONS"'�4,4)�(134)�30,"_")
2�� �7,8)�(131)"1) DECIMAL to Hex/Binary"'�7,10)�(131)"2) BINARY to Hex/Decimal"'�7,12)�(131)"3) HEX to Decimal/Binary"'�6,6)"Select Convertion Required:-";
<'N=�:� ��(N) � �DF@,�Dx@,�t~@ � �T|@
FI�:� �3,4)�(134)"DECIMAL to HEX/BINARY CONVERSION"'�3,5)�(134)�32,"_")
PLN=0:�blank1:�headings:� � �4,7)"Enter Decimal Number "N$:L=�(N$):�blank2
Z�N=�(N$):� N>65535 � �8,10)�(129)�(136)"TOO LARGE! TRY AGAIN":� �DP@ � � ��N$,1,1)=45 � �8,10)�(129)�(136)"TOO SMALL! TRY AGAIN":� �DP@
d:X=0:� J=1 � L:� ��N$,J,1)<48 � ��N$,J,1)>57 �incorrect
nR�:� X=1 � �DP@ � � �2,14);N;�11,14);~N:�dec_bin:�option:� X$="Y":� �DP@ � �Th@
xI�:� �3,4)�(134)"BINARY to DECIMAL/HEX CONVERSION"'�3,5)�(134)�32,"_")
�VDectotal=0:�blank1:�headings:� � �4,7)"Enter Binary Number "Bin$:�blank2:L=�(Bin$)
�^X=0:� J=1 � L:� ��Bin$,J,1)<48 � ��Bin$,J,1)>49 �incorrect:�:� X=1 � �tB@ � �:� X=1 � �tB@
�<� L>16 � �8,10)�(129)�(136)"TOO LARGE!_TRY AGAIN":� �tB@
�x� L<=8 � �38-L,14)Bin$�19,14)�8,"0")�30,14)�8-L,"0") � � L>8 � �30,14);�Bin$,8)�35-L,14);�Bin$,L-8)�19,14)�16-L,"0")
�U� N=1 � L:Bit$=�Bin$,N,1):Bitval=�(�Bin$,N,1))*2^(L-N):Dectotal=Dectotal+Bitval:�
�I� �2,14);Dectotal;�11,14)~Dectotal:� 7:�option:� X$="Y":� �tB@ � �Th@
�I�:� �2,4)�(134)"HEX to BINARY/DECIMAL CONVERSION"'�2,5)�(134)�32,"_")
�MN=0:�blank1:�headings:� � �6,7)"Enter Hex Number &"Hex$:L=�(Hex$):�blank2
�A� J=1 � L:X=0:� ��Hex$,J,1)<48 � ��Hex$,J,1)>70 � �df@ � �dp@
�3� ��Hex$,J,1)>57 � ��Hex$,J,1)<65 � �df@ � �dp@
��incorrect
�"�:� X=1 � �dH@ � N=�("&"+Hex$)
�y� N>65535 � �7,10)�(129)�(136)"TOO LARGE! TRY AGAIN":� �dH@ � � N<1 � �7,10)�(129)�(136)"TOO SMALL! TRY AGAIN":� �dH@

B� �2,14);N;�11,14)Hex$:�dec_bin:�option:� X$="Y":� �dH@ � �Th@

Q� �headings:� �1,12)�(131)"Decimal"�11,12)"Hex"�19,12)"High Byte  Low Byte":�

k� �dec_bin:� X=1 � 16:R=N � 2:D=N � 2:R$=�(R):N=D:� X<=8 � �38-X,14);R$�27,14)" " � � X>8 � �35-X,14)R$

"
�:�7:�

,
� �blank1

6%� �0,14)�40," ")�0,20)�40," "):� 

@
� �blank2

J$� �24,7)�40," ")�0,10)�40," "):�

TK� �incorrect:� �5,10)�(129)�(136)"INCORRECT ENTRY! TRY AGAIN":J=L:X=1:�

^E� �option:� �3,20)�(131)"Another Entry/Menu? (Y/Any Key)";:X$=�:�
�

00000000  0d 00 0a 22 f4 20 44 65  63 69 6d 61 6c 2f 48 65  |...". Decimal/He|
00000010  78 2f 42 69 6e 61 72 79  20 43 6f 6e 76 65 72 74  |x/Binary Convert|
00000020  65 72 0d 00 14 13 f4 20  62 79 20 4b 2e 50 2e 50  |er..... by K.P.P|
00000030  61 72 6b 65 72 0d 00 1e  18 f4 20 28 63 29 20 54  |arker..... (c) T|
00000040  68 65 20 4d 69 63 72 6f  20 55 73 65 72 0d 00 28  |he Micro User..(|
00000050  81 eb 20 37 3a f1 20 8a  33 2c 32 29 bd 28 31 34  |.. 7:. .3,2).(14|
00000060  31 29 bd 28 31 33 34 29  22 44 45 43 49 4d 41 4c  |1).(134)"DECIMAL|
00000070  2f 48 45 58 2f 42 49 4e  41 52 59 20 43 4f 4e 56  |/HEX/BINARY CONV|
00000080  45 52 53 49 4f 4e 53 22  27 8a 33 2c 33 29 bd 28  |ERSIONS"'.3,3).(|
00000090  31 34 31 29 bd 28 31 33  34 29 22 44 45 43 49 4d  |141).(134)"DECIM|
000000a0  41 4c 2f 48 45 58 2f 42  49 4e 41 52 59 20 43 4f  |AL/HEX/BINARY CO|
000000b0  4e 56 45 52 53 49 4f 4e  53 22 27 8a 34 2c 34 29  |NVERSIONS"'.4,4)|
000000c0  bd 28 31 33 34 29 c4 33  30 2c 22 5f 22 29 0d 00  |.(134).30,"_")..|
000000d0  32 9e f1 20 8a 37 2c 38  29 bd 28 31 33 31 29 22  |2.. .7,8).(131)"|
000000e0  31 29 20 44 45 43 49 4d  41 4c 20 74 6f 20 48 65  |1) DECIMAL to He|
000000f0  78 2f 42 69 6e 61 72 79  22 27 8a 37 2c 31 30 29  |x/Binary"'.7,10)|
00000100  bd 28 31 33 31 29 22 32  29 20 42 49 4e 41 52 59  |.(131)"2) BINARY|
00000110  20 74 6f 20 48 65 78 2f  44 65 63 69 6d 61 6c 22  | to Hex/Decimal"|
00000120  27 8a 37 2c 31 32 29 bd  28 31 33 31 29 22 33 29  |'.7,12).(131)"3)|
00000130  20 48 45 58 20 74 6f 20  44 65 63 69 6d 61 6c 2f  | HEX to Decimal/|
00000140  42 69 6e 61 72 79 22 27  8a 36 2c 36 29 22 53 65  |Binary"'.6,6)"Se|
00000150  6c 65 63 74 20 43 6f 6e  76 65 72 74 69 6f 6e 20  |lect Convertion |
00000160  52 65 71 75 69 72 65 64  3a 2d 22 3b 0d 00 3c 27  |Required:-";..<'|
00000170  4e 3d a5 3a ee 20 bb bd  28 4e 29 20 e5 20 8d 44  |N=.:. ..(N) . .D|
00000180  46 40 2c 8d 44 78 40 2c  8d 74 7e 40 20 8b 20 8d  |F@,.Dx@,.t~@ . .|
00000190  54 7c 40 0d 00 46 49 db  3a f1 20 8a 33 2c 34 29  |T|@..FI.:. .3,4)|
000001a0  bd 28 31 33 34 29 22 44  45 43 49 4d 41 4c 20 74  |.(134)"DECIMAL t|
000001b0  6f 20 48 45 58 2f 42 49  4e 41 52 59 20 43 4f 4e  |o HEX/BINARY CON|
000001c0  56 45 52 53 49 4f 4e 22  27 8a 33 2c 35 29 bd 28  |VERSION"'.3,5).(|
000001d0  31 33 34 29 c4 33 32 2c  22 5f 22 29 0d 00 50 4c  |134).32,"_")..PL|
000001e0  4e 3d 30 3a f2 62 6c 61  6e 6b 31 3a f2 68 65 61  |N=0:.blank1:.hea|
000001f0  64 69 6e 67 73 3a e8 20  86 20 8a 34 2c 37 29 22  |dings:. . .4,7)"|
00000200  45 6e 74 65 72 20 44 65  63 69 6d 61 6c 20 4e 75  |Enter Decimal Nu|
00000210  6d 62 65 72 20 22 4e 24  3a 4c 3d a9 28 4e 24 29  |mber "N$:L=.(N$)|
00000220  3a f2 62 6c 61 6e 6b 32  0d 00 5a 8a 4e 3d bb 28  |:.blank2..Z.N=.(|
00000230  4e 24 29 3a e7 20 4e 3e  36 35 35 33 35 20 f1 20  |N$):. N>65535 . |
00000240  8a 38 2c 31 30 29 bd 28  31 32 39 29 bd 28 31 33  |.8,10).(129).(13|
00000250  36 29 22 54 4f 4f 20 4c  41 52 47 45 21 20 54 52  |6)"TOO LARGE! TR|
00000260  59 20 41 47 41 49 4e 22  3a e5 20 8d 44 50 40 20  |Y AGAIN":. .DP@ |
00000270  8b 20 e7 20 97 c1 4e 24  2c 31 2c 31 29 3d 34 35  |. . ..N$,1,1)=45|
00000280  20 f1 20 8a 38 2c 31 30  29 bd 28 31 32 39 29 bd  | . .8,10).(129).|
00000290  28 31 33 36 29 22 54 4f  4f 20 53 4d 41 4c 4c 21  |(136)"TOO SMALL!|
000002a0  20 54 52 59 20 41 47 41  49 4e 22 3a e5 20 8d 44  | TRY AGAIN":. .D|
000002b0  50 40 0d 00 64 3a 58 3d  30 3a e3 20 4a 3d 31 20  |P@..d:X=0:. J=1 |
000002c0  b8 20 4c 3a e7 20 97 c1  4e 24 2c 4a 2c 31 29 3c  |. L:. ..N$,J,1)<|
000002d0  34 38 20 84 20 97 c1 4e  24 2c 4a 2c 31 29 3e 35  |48 . ..N$,J,1)>5|
000002e0  37 20 f2 69 6e 63 6f 72  72 65 63 74 0d 00 6e 52  |7 .incorrect..nR|
000002f0  ed 3a e7 20 58 3d 31 20  e5 20 8d 44 50 40 20 8b  |.:. X=1 . .DP@ .|
00000300  20 f1 20 8a 32 2c 31 34  29 3b 4e 3b 8a 31 31 2c  | . .2,14);N;.11,|
00000310  31 34 29 3b 7e 4e 3a f2  64 65 63 5f 62 69 6e 3a  |14);~N:.dec_bin:|
00000320  f2 6f 70 74 69 6f 6e 3a  e7 20 58 24 3d 22 59 22  |.option:. X$="Y"|
00000330  3a e5 20 8d 44 50 40 20  8b 20 8d 54 68 40 0d 00  |:. .DP@ . .Th@..|
00000340  78 49 db 3a f1 20 8a 33  2c 34 29 bd 28 31 33 34  |xI.:. .3,4).(134|
00000350  29 22 42 49 4e 41 52 59  20 74 6f 20 44 45 43 49  |)"BINARY to DECI|
00000360  4d 41 4c 2f 48 45 58 20  43 4f 4e 56 45 52 53 49  |MAL/HEX CONVERSI|
00000370  4f 4e 22 27 8a 33 2c 35  29 bd 28 31 33 34 29 c4  |ON"'.3,5).(134).|
00000380  33 32 2c 22 5f 22 29 0d  00 82 56 44 65 63 74 6f  |32,"_")...VDecto|
00000390  74 61 6c 3d 30 3a f2 62  6c 61 6e 6b 31 3a f2 68  |tal=0:.blank1:.h|
000003a0  65 61 64 69 6e 67 73 3a  e8 20 86 20 8a 34 2c 37  |eadings:. . .4,7|
000003b0  29 22 45 6e 74 65 72 20  42 69 6e 61 72 79 20 4e  |)"Enter Binary N|
000003c0  75 6d 62 65 72 20 22 42  69 6e 24 3a f2 62 6c 61  |umber "Bin$:.bla|
000003d0  6e 6b 32 3a 4c 3d a9 28  42 69 6e 24 29 0d 00 8c  |nk2:L=.(Bin$)...|
000003e0  5e 58 3d 30 3a e3 20 4a  3d 31 20 b8 20 4c 3a e7  |^X=0:. J=1 . L:.|
000003f0  20 97 c1 42 69 6e 24 2c  4a 2c 31 29 3c 34 38 20  | ..Bin$,J,1)<48 |
00000400  84 20 97 c1 42 69 6e 24  2c 4a 2c 31 29 3e 34 39  |. ..Bin$,J,1)>49|
00000410  20 f2 69 6e 63 6f 72 72  65 63 74 3a ed 3a e7 20  | .incorrect:.:. |
00000420  58 3d 31 20 e5 20 8d 74  42 40 20 8b 20 ed 3a e7  |X=1 . .tB@ . .:.|
00000430  20 58 3d 31 20 e5 20 8d  74 42 40 0d 00 96 3c e7  | X=1 . .tB@...<.|
00000440  20 4c 3e 31 36 20 f1 20  8a 38 2c 31 30 29 bd 28  | L>16 . .8,10).(|
00000450  31 32 39 29 bd 28 31 33  36 29 22 54 4f 4f 20 4c  |129).(136)"TOO L|
00000460  41 52 47 45 21 5f 54 52  59 20 41 47 41 49 4e 22  |ARGE!_TRY AGAIN"|
00000470  3a e5 20 8d 74 42 40 0d  00 a0 78 e7 20 4c 3c 3d  |:. .tB@...x. L<=|
00000480  38 20 f1 20 8a 33 38 2d  4c 2c 31 34 29 42 69 6e  |8 . .38-L,14)Bin|
00000490  24 8a 31 39 2c 31 34 29  c4 38 2c 22 30 22 29 8a  |$.19,14).8,"0").|
000004a0  33 30 2c 31 34 29 c4 38  2d 4c 2c 22 30 22 29 20  |30,14).8-L,"0") |
000004b0  8b 20 e7 20 4c 3e 38 20  f1 20 8a 33 30 2c 31 34  |. . L>8 . .30,14|
000004c0  29 3b c2 42 69 6e 24 2c  38 29 8a 33 35 2d 4c 2c  |);.Bin$,8).35-L,|
000004d0  31 34 29 3b c0 42 69 6e  24 2c 4c 2d 38 29 8a 31  |14);.Bin$,L-8).1|
000004e0  39 2c 31 34 29 c4 31 36  2d 4c 2c 22 30 22 29 0d  |9,14).16-L,"0").|
000004f0  00 aa 55 e3 20 4e 3d 31  20 b8 20 4c 3a 42 69 74  |..U. N=1 . L:Bit|
00000500  24 3d c1 42 69 6e 24 2c  4e 2c 31 29 3a 42 69 74  |$=.Bin$,N,1):Bit|
00000510  76 61 6c 3d bb 28 c1 42  69 6e 24 2c 4e 2c 31 29  |val=.(.Bin$,N,1)|
00000520  29 2a 32 5e 28 4c 2d 4e  29 3a 44 65 63 74 6f 74  |)*2^(L-N):Dectot|
00000530  61 6c 3d 44 65 63 74 6f  74 61 6c 2b 42 69 74 76  |al=Dectotal+Bitv|
00000540  61 6c 3a ed 0d 00 b4 49  f1 20 8a 32 2c 31 34 29  |al:....I. .2,14)|
00000550  3b 44 65 63 74 6f 74 61  6c 3b 8a 31 31 2c 31 34  |;Dectotal;.11,14|
00000560  29 7e 44 65 63 74 6f 74  61 6c 3a ef 20 37 3a f2  |)~Dectotal:. 7:.|
00000570  6f 70 74 69 6f 6e 3a e7  20 58 24 3d 22 59 22 3a  |option:. X$="Y":|
00000580  e5 20 8d 74 42 40 20 8b  20 8d 54 68 40 0d 00 be  |. .tB@ . .Th@...|
00000590  49 db 3a f1 20 8a 32 2c  34 29 bd 28 31 33 34 29  |I.:. .2,4).(134)|
000005a0  22 48 45 58 20 74 6f 20  42 49 4e 41 52 59 2f 44  |"HEX to BINARY/D|
000005b0  45 43 49 4d 41 4c 20 43  4f 4e 56 45 52 53 49 4f  |ECIMAL CONVERSIO|
000005c0  4e 22 27 8a 32 2c 35 29  bd 28 31 33 34 29 c4 33  |N"'.2,5).(134).3|
000005d0  32 2c 22 5f 22 29 0d 00  c8 4d 4e 3d 30 3a f2 62  |2,"_")...MN=0:.b|
000005e0  6c 61 6e 6b 31 3a f2 68  65 61 64 69 6e 67 73 3a  |lank1:.headings:|
000005f0  e8 20 86 20 8a 36 2c 37  29 22 45 6e 74 65 72 20  |. . .6,7)"Enter |
00000600  48 65 78 20 4e 75 6d 62  65 72 20 26 22 48 65 78  |Hex Number &"Hex|
00000610  24 3a 4c 3d a9 28 48 65  78 24 29 3a f2 62 6c 61  |$:L=.(Hex$):.bla|
00000620  6e 6b 32 0d 00 d2 41 e3  20 4a 3d 31 20 b8 20 4c  |nk2...A. J=1 . L|
00000630  3a 58 3d 30 3a e7 20 97  c1 48 65 78 24 2c 4a 2c  |:X=0:. ..Hex$,J,|
00000640  31 29 3c 34 38 20 84 20  97 c1 48 65 78 24 2c 4a  |1)<48 . ..Hex$,J|
00000650  2c 31 29 3e 37 30 20 e5  20 8d 64 66 40 20 8b 20  |,1)>70 . .df@ . |
00000660  8d 64 70 40 0d 00 dc 33  e7 20 97 c1 48 65 78 24  |.dp@...3. ..Hex$|
00000670  2c 4a 2c 31 29 3e 35 37  20 84 20 97 c1 48 65 78  |,J,1)>57 . ..Hex|
00000680  24 2c 4a 2c 31 29 3c 36  35 20 e5 20 8d 64 66 40  |$,J,1)<65 . .df@|
00000690  20 8b 20 8d 64 70 40 0d  00 e6 0e f2 69 6e 63 6f  | . .dp@.....inco|
000006a0  72 72 65 63 74 0d 00 f0  22 ed 3a e7 20 58 3d 31  |rrect...".:. X=1|
000006b0  20 e5 20 8d 64 48 40 20  8b 20 4e 3d a0 28 22 26  | . .dH@ . N=.("&|
000006c0  22 2b 48 65 78 24 29 0d  00 fa 79 e7 20 4e 3e 36  |"+Hex$)...y. N>6|
000006d0  35 35 33 35 20 f1 20 8a  37 2c 31 30 29 bd 28 31  |5535 . .7,10).(1|
000006e0  32 39 29 bd 28 31 33 36  29 22 54 4f 4f 20 4c 41  |29).(136)"TOO LA|
000006f0  52 47 45 21 20 54 52 59  20 41 47 41 49 4e 22 3a  |RGE! TRY AGAIN":|
00000700  e5 20 8d 64 48 40 20 8b  20 e7 20 4e 3c 31 20 f1  |. .dH@ . . N<1 .|
00000710  20 8a 37 2c 31 30 29 bd  28 31 32 39 29 bd 28 31  | .7,10).(129).(1|
00000720  33 36 29 22 54 4f 4f 20  53 4d 41 4c 4c 21 20 54  |36)"TOO SMALL! T|
00000730  52 59 20 41 47 41 49 4e  22 3a e5 20 8d 64 48 40  |RY AGAIN":. .dH@|
00000740  0d 01 04 42 f1 20 8a 32  2c 31 34 29 3b 4e 3b 8a  |...B. .2,14);N;.|
00000750  31 31 2c 31 34 29 48 65  78 24 3a f2 64 65 63 5f  |11,14)Hex$:.dec_|
00000760  62 69 6e 3a f2 6f 70 74  69 6f 6e 3a e7 20 58 24  |bin:.option:. X$|
00000770  3d 22 59 22 3a e5 20 8d  64 48 40 20 8b 20 8d 54  |="Y":. .dH@ . .T|
00000780  68 40 0d 01 0e 51 dd 20  f2 68 65 61 64 69 6e 67  |h@...Q. .heading|
00000790  73 3a f1 20 8a 31 2c 31  32 29 bd 28 31 33 31 29  |s:. .1,12).(131)|
000007a0  22 44 65 63 69 6d 61 6c  22 8a 31 31 2c 31 32 29  |"Decimal".11,12)|
000007b0  22 48 65 78 22 8a 31 39  2c 31 32 29 22 48 69 67  |"Hex".19,12)"Hig|
000007c0  68 20 42 79 74 65 20 20  4c 6f 77 20 42 79 74 65  |h Byte  Low Byte|
000007d0  22 3a e1 0d 01 18 6b dd  20 f2 64 65 63 5f 62 69  |":....k. .dec_bi|
000007e0  6e 3a e3 20 58 3d 31 20  b8 20 31 36 3a 52 3d 4e  |n:. X=1 . 16:R=N|
000007f0  20 83 20 32 3a 44 3d 4e  20 81 20 32 3a 52 24 3d  | . 2:D=N . 2:R$=|
00000800  c3 28 52 29 3a 4e 3d 44  3a e7 20 58 3c 3d 38 20  |.(R):N=D:. X<=8 |
00000810  f1 20 8a 33 38 2d 58 2c  31 34 29 3b 52 24 8a 32  |. .38-X,14);R$.2|
00000820  37 2c 31 34 29 22 20 22  20 8b 20 e7 20 58 3e 38  |7,14)" " . . X>8|
00000830  20 f1 20 8a 33 35 2d 58  2c 31 34 29 52 24 0d 01  | . .35-X,14)R$..|
00000840  22 0a ed 3a ef 37 3a e1  0d 01 2c 0d dd 20 f2 62  |"..:.7:...,.. .b|
00000850  6c 61 6e 6b 31 0d 01 36  25 f1 20 8a 30 2c 31 34  |lank1..6%. .0,14|
00000860  29 c4 34 30 2c 22 20 22  29 8a 30 2c 32 30 29 c4  |).40," ").0,20).|
00000870  34 30 2c 22 20 22 29 3a  e1 20 0d 01 40 0d dd 20  |40," "):. ..@.. |
00000880  f2 62 6c 61 6e 6b 32 0d  01 4a 24 f1 20 8a 32 34  |.blank2..J$. .24|
00000890  2c 37 29 c4 34 30 2c 22  20 22 29 8a 30 2c 31 30  |,7).40," ").0,10|
000008a0  29 c4 34 30 2c 22 20 22  29 3a e1 0d 01 54 4b dd  |).40," "):...TK.|
000008b0  20 f2 69 6e 63 6f 72 72  65 63 74 3a f1 20 8a 35  | .incorrect:. .5|
000008c0  2c 31 30 29 bd 28 31 32  39 29 bd 28 31 33 36 29  |,10).(129).(136)|
000008d0  22 49 4e 43 4f 52 52 45  43 54 20 45 4e 54 52 59  |"INCORRECT ENTRY|
000008e0  21 20 54 52 59 20 41 47  41 49 4e 22 3a 4a 3d 4c  |! TRY AGAIN":J=L|
000008f0  3a 58 3d 31 3a e1 0d 01  5e 45 dd 20 f2 6f 70 74  |:X=1:...^E. .opt|
00000900  69 6f 6e 3a f1 20 8a 33  2c 32 30 29 bd 28 31 33  |ion:. .3,20).(13|
00000910  31 29 22 41 6e 6f 74 68  65 72 20 45 6e 74 72 79  |1)"Another Entry|
00000920  2f 4d 65 6e 75 3f 20 28  59 2f 41 6e 79 20 4b 65  |/Menu? (Y/Any Ke|
00000930  79 29 22 3b 3a 58 24 3d  be 3a e1 0d ff           |y)";:X$=.:...|
0000093d