= Hex And Text =

From time to time you might have to convert strings to hex or vice versa:

 {{{
TextToHex←{
     a←83 ⎕DR ⍵
     a←⎕IO+,⍉16 16⊤a
     '0123456789ABCDEF'[a]
 }
 }}}

And the other way round:

 {{{
HexToText←{
     a←16|-⎕IO-'0123456789ABCDEF0123456789abcdef'⍳⍵
     a←{⍵⍴⍨2,⍨0.5×⍴⍵}a
     a←16⊥⍉a
     {⍵{(⍺{⍵⍴(⍵÷⍴⍺)↑1}⍴⍵)/⍵}82 ⎕DR ⍵}a
 }
 }}}
These functions have a problem in ''Dyalog Unicode'' edition for characters beyond `⎕UCS 127`; the last line of `HexToText` appears to be to squeeze out `⎕AV[0]` that appears in alternating positions of `82 ⎕DR ⍵` if such characters are included in the ''Classic'' edition.
----
CategoryDyalog