[MiXaeL]

 
int=ToInt("10011",2)
print int
 
waitkey()
 
 
Function ToInt#(inputnum$,base)
 If base=10 Return inputnum
 If base>10 Return 0
 l=Len(inputnum$)
 
 For i=0 To l-1
  rightnum=Right(inputnum$,1)
 
  If rightnum<base Then
   If rightnum>0 Then 
    intnum#=intnum#+base^i*rightnum
   EndIf
  Else Return 0
  EndIf
  inputnum$=Left$(inputnum$,Len(inputnum$)-1)
 Next
 
 Return intnum#
End Function

Описание: переводит в десятичное число НЕОТРИЦАТЕЛЬНОЕ число с основанием НЕ БОЛЬШЕ 10
Возможно медленно (т.к. переводит прямо в лоб), но как сделать по другому не знаю...