Function HexToInt(HexS$);Umwandlung eines hexadezimalen Zahlenstrings in einen Integer
   Local ZW
   Local ZW2
   Local Integer
   HexS$=Upper(HexS$)
   For ZW=1 To Len(HexS$)
      Select Mid(HexS$,ZW,1)
         Case "0"
            Integer=Integer Shl 4
            Integer=Integer Or $0
         Case "1"
            Integer=Integer Shl 4
            Integer=Integer Or $1
         Case "2"
            Integer=Integer Shl 4
            Integer=Integer Or $2
         Case "3"
            Integer=Integer Shl 4
            Integer=Integer Or $3
         Case "4"
            Integer=Integer Shl 4
            Integer=Integer Or $4
         Case "5"
            Integer=Integer Shl 4
            Integer=Integer Or $5
         Case "6"
            Integer=Integer Shl 4
            Integer=Integer Or $6
         Case "7"
            Integer=Integer Shl 4
            Integer=Integer Or $7
         Case "8"
            Integer=Integer Shl 4
            Integer=Integer Or $8
         Case "9"
            Integer=Integer Shl 4
            Integer=Integer Or $9
         Case "A"
            Integer=Integer Shl 4
            Integer=Integer Or $A
         Case "B"
            Integer=Integer Shl 4
            Integer=Integer Or $B
         Case "C"
            Integer=Integer Shl 4
            Integer=Integer Or $C
         Case "D"
            Integer=Integer Shl 4
            Integer=Integer Or $D
         Case "E"
            Integer=Integer Shl 4
            Integer=Integer Or $E
         Case "F"
            Integer=Integer Shl 4
            Integer=Integer Or $F
         Default
            Return Integer
      End Select
   Next
   Return Integer
End Function

Function BinToInt(BinS$);Umwandlung eines binären Zahlenstrings in einen Integer
   Local ZW
   Local Integer
   For ZW=1 To Len(BinS$)
      Select Mid(BinS$,ZW,1)
         Case "0"
            Integer=Integer Shl 1
            Integer=Integer Or %0
         Case "1"
            Integer=Integer Shl 1
            Integer=Integer Or %1
         Default
            Return Integer
      End Select
   Next
   Return Integer
End Function

Function Int2%(val$);Umwandlung eines "Integerstrings" in einen Integer
   Select Left(val$,1)
      Case "$";Eine hexadezimale Zahl
         Return HexToInt(Mid(val$,2,Len(val$)-1))
      Case "%";Eine Binärziffer
         Return BinToInt(Mid(val$,2,Len(val$)-1))
      Default
         Return Int(val$)
   End Select
End Function