[alcoSHoLiK]

[highlight=blitzbasic]
num$ = Input("Enter a binary number: ")
Print ToInt(num, 2)

num$ = Input("Enter a hexa-decimal number: ")
Print ToInt(num, 16)

WaitKey()
End

Function ToInt(Number$, base%)
Select base
Case 2
For i = 0 To Len(Number) - 1
token$ = Mid(Number, Len(Number) - i, 1)
If token Then result = result + 2^i
Next
Return result
Case 10
Return Int(Number)
Case 16
For i = 0 To Len(Number) - 1
token$ = Mid(Number, Len(Number) - i, 1)
Select Lower(token)
Case "a"
token = 10
Case "b"
token = 11
Case "c"
toden = 12
Case "d"
token = 13
Case "e"
token = 14
Case "f"
token = 15
End Select
If token Then result = result + 16^i * Int(token)
Next
Return result
End Select
End Function[/highlight]