// José Elielson
// Binario -> Decimal

// observacao
// colocar o inputmask no Exit do Edit
// edit_binario..InputMask = "regexp:[0-1]{0,16}"


b is string = edit_binario

i is int = 0

k is int = 0

y is int = 0

x is int = 0

j is int = Length(NoSpace(b))

FOR i = j TO 1 STEP -1

y = Val(Middle(b,i,1))

IF y = 1 THEN
x = x + (2^(k))
END

k++
END

Info(x)