faster bin to int :D

This code has been declared by its author to be Public Domain code.

faster bin to int :D by Curtastic

2002

converts a binary string to an integer

Function bin2int(b$)
    blen=Len(b)
    For f=1 To blen
        n=n Shl 1 + (Mid(b,f,1)="1")
    Next
    Return n
End Function