Need to read the binary's from a numeric JMP variable

[#1]

I have a need to read the imbedded binary values in a numeric field.  I developed the following script that appears to work, but it is not as nice as I hoped it could be.

x = 19;

thehex = Hex( x );

binary = Associative Array(

      {{"0", "0000"}, {"1", "0001"}, {"2", "0010"}, {"3", "0011"}, {"4", "0100"},

      {"5", "0101"}, {"6", "0110"}, {"7", "0111"}, {"8", "1000"}, {"9", "1001"},

      {"A", "1010"}, {"B", "1011"}, {"C", "1100"}, {"D", "1101"}, {"E", "1110"},

      {"F", "1111"}}

);

TheBinary = "";

For( i = 1, i <= 4, i++,

      thebinary = thebinary || binary[Uppercase( Substr( thehex, i, 1 ) )]

);

Is there an easier way?

[#2]

There's a nice base converter here:

[#3]

Thanks for the pointer, but it does not give me what I need.  What I am looking for is code that will return the 0/1 string representative of an integer value in JMP. 

[#4]

By 0/1 string I assume you mean base 2 conversion?  That function does it.  for example here's 19 converted to base 2:

print(base(19, 2))

In the log window:

"10011"