Wert=%111

Zahl%=7

Binaer$=Bin(Zahl)

Zahl=%Binaer

Print Zahl

WaitKey()

function BinInt(s$)
   local val = 0
   for i = 1 to len(s)
      val = val + (Int(mid(s,i,1)) * (2^(len(s)-i)))
   next
   return val
end function

function HexInt(s$)
   local val = 0
   for i = 1 to len(s)
      val = val + (HexToInt(mid(s,i,1)) * (16^(len(s)-i)))
   next
   return val
end function

function HexToInt(s$)
   select upper(s)
   case "0","1","2","3","4","5","6","7","8","9":
      return int(s)
   case "A": return 10
   case "B": return 11
   case "C": return 12
   case "D": return 13
   case "E": return 14
   case "F": return 15
   end select
end function