Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape23b_acorn_eu_1991_june.wav » BDHcvrt

BDHcvrt

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Personal collection » Acorn tapes » Electron_User » Electron_User_tape23b_acorn_eu_1991_june.wav
Filename: BDHcvrt
Read OK:
File size: 093D bytes
Load address: FFFF1A00
Exec address: FFFF8023
File contents
   10REM Decimal/Hex/Binary Converter
   20REM by K.P.Parker
   30REM (c) The Micro User
   40MODE 7:PRINT TAB(3,2)CHR$(141)CHR$(134)"DECIMAL/HEX/BINARY CONVERSIONS"'TAB(3,3)CHR$(141)CHR$(134)"DECIMAL/HEX/BINARY CONVERSIONS"'TAB(4,4)CHR$(134)STRING$(30,"_")
   50PRINT TAB(7,8)CHR$(131)"1) DECIMAL to Hex/Binary"'TAB(7,10)CHR$(131)"2) BINARY to Hex/Decimal"'TAB(7,12)CHR$(131)"3) HEX to Decimal/Binary"'TAB(6,6)"Select Convertion Required:-";
   60N=GET:ON VALCHR$(N) GOTO 70,120,190 ELSE 60
   70CLS:PRINT TAB(3,4)CHR$(134)"DECIMAL to HEX/BINARY CONVERSION"'TAB(3,5)CHR$(134)STRING$(32,"_")
   80N=0:PROCblank1:PROCheadings:INPUT LINE TAB(4,7)"Enter Decimal Number "N$:L=LEN(N$):PROCblank2
   90N=VAL(N$):IF N>65535 PRINT TAB(8,10)CHR$(129)CHR$(136)"TOO LARGE! TRY AGAIN":GOTO 80 ELSE IF ASCMID$(N$,1,1)=45 PRINT TAB(8,10)CHR$(129)CHR$(136)"TOO SMALL! TRY AGAIN":GOTO 80
  100X=0:FOR J=1 TO L:IF ASCMID$(N$,J,1)<48 OR ASCMID$(N$,J,1)>57 PROCincorrect
  110NEXT:IF X=1 GOTO 80 ELSE PRINT TAB(2,14);N;TAB(11,14);~N:PROCdec_bin:PROCoption:IF X$="Y":GOTO 80 ELSE 40
  120CLS:PRINT TAB(3,4)CHR$(134)"BINARY to DECIMAL/HEX CONVERSION"'TAB(3,5)CHR$(134)STRING$(32,"_")
  130Dectotal=0:PROCblank1:PROCheadings:INPUT LINE TAB(4,7)"Enter Binary Number "Bin$:PROCblank2:L=LEN(Bin$)
  140X=0:FOR J=1 TO L:IF ASCMID$(Bin$,J,1)<48 OR ASCMID$(Bin$,J,1)>49 PROCincorrect:NEXT:IF X=1 GOTO 130 ELSE NEXT:IF X=1 GOTO 130
  150IF L>16 PRINT TAB(8,10)CHR$(129)CHR$(136)"TOO LARGE!_TRY AGAIN":GOTO 130
  160IF L<=8 PRINT TAB(38-L,14)Bin$TAB(19,14)STRING$(8,"0")TAB(30,14)STRING$(8-L,"0") ELSE IF L>8 PRINT TAB(30,14);RIGHT$(Bin$,8)TAB(35-L,14);LEFT$(Bin$,L-8)TAB(19,14)STRING$(16-L,"0")
  170FOR N=1 TO L:Bit$=MID$(Bin$,N,1):Bitval=VAL(MID$(Bin$,N,1))*2^(L-N):Dectotal=Dectotal+Bitval:NEXT
  180PRINT TAB(2,14);Dectotal;TAB(11,14)~Dectotal:VDU 7:PROCoption:IF X$="Y":GOTO 130 ELSE 40
  190CLS:PRINT TAB(2,4)CHR$(134)"HEX to BINARY/DECIMAL CONVERSION"'TAB(2,5)CHR$(134)STRING$(32,"_")
  200N=0:PROCblank1:PROCheadings:INPUT LINE TAB(6,7)"Enter Hex Number &"Hex$:L=LEN(Hex$):PROCblank2
  210FOR J=1 TO L:X=0:IF ASCMID$(Hex$,J,1)<48 OR ASCMID$(Hex$,J,1)>70 GOTO 230 ELSE 240
  220IF ASCMID$(Hex$,J,1)>57 OR ASCMID$(Hex$,J,1)<65 GOTO 230 ELSE 240
  230PROCincorrect
  240NEXT:IF X=1 GOTO 200 ELSE N=EVAL("&"+Hex$)
  250IF N>65535 PRINT TAB(7,10)CHR$(129)CHR$(136)"TOO LARGE! TRY AGAIN":GOTO 200 ELSE IF N<1 PRINT TAB(7,10)CHR$(129)CHR$(136)"TOO SMALL! TRY AGAIN":GOTO 200
  260PRINT TAB(2,14);N;TAB(11,14)Hex$:PROCdec_bin:PROCoption:IF X$="Y":GOTO 200 ELSE 40
  270DEF PROCheadings:PRINT TAB(1,12)CHR$(131)"Decimal"TAB(11,12)"Hex"TAB(19,12)"High Byte  Low Byte":ENDPROC
  280DEF PROCdec_bin:FOR X=1 TO 16:R=N MOD 2:D=N DIV 2:R$=STR$(R):N=D:IF X<=8 PRINT TAB(38-X,14);R$TAB(27,14)" " ELSE IF X>8 PRINT TAB(35-X,14)R$
  290NEXT:VDU7:ENDPROC
  300DEF PROCblank1
  310PRINT TAB(0,14)STRING$(40," ")TAB(0,20)STRING$(40," "):ENDPROC 
  320DEF PROCblank2
  330PRINT TAB(24,7)STRING$(40," ")TAB(0,10)STRING$(40," "):ENDPROC
  340DEF PROCincorrect:PRINT TAB(5,10)CHR$(129)CHR$(136)"INCORRECT ENTRY! TRY AGAIN":J=L:X=1:ENDPROC
  350DEF PROCoption:PRINT TAB(3,20)CHR$(131)"Another Entry/Menu? (Y/Any Key)";:X$=GET$:ENDPROC

"� 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
BDHcvrt.m0
BDHcvrt.m1
BDHcvrt.m2
BDHcvrt.m4
BDHcvrt.m5