HEX number to item

    Sub Display_num() As String
        Dim myData As String
         myData = "c000"
         
      Dim myNumber As Int        
         myNumber = "16"
      
      Dim Display As String 
         Display = ""
      
        Dim intCounter As Int 
        Dim intBit As Int

        If myData = 0 Then Return "display nothing"
        intBit = 1
        For intCounter = 1 To myNumber
            If myData & intBit > 0 Then
                Display = intCounter
                If intCounter < myNumber Then Msgbox (Display, "show")
            End If
            intBit = intBit * 2
        Next

    End Sub

dim reply(17)
reply(1)="0100"
reply(2)="0200"

Sub Activity_Create(FirstTime As Boolean)
   Log(ConvertToInt("0100"))
   Log(ConvertToInt("0200"))
   Log(ConvertToInt("0080"))
End Sub

Sub ConvertToInt(h As String) As Int
   Dim hex As Int
   hex = Bit.ParseInt(h.SubString2(2, 4) & h.SubString2(0,2), 16)
   Return Logarithm(hex, 2) + 1
End Sub

Log(ConvertToInt("C000"))

Dim a As String
Dim b As String
Dim c As String 
c=""
a="c0"
b=Bit.ToBinaryString (Bit.ParseInt(a,16))
For k=b.Length -1 To 0 Step-1
If b.CharAt (k)="1" Then c=c & (b.Length -k)
Next
Msgbox(c,"ok")

a="c0"

a="c000"

a=a.SubString (2) & a.SubString2(0,2)