bin_to_dec

/*
**  Usage:
**      bin_to_dec(bin)
**
**  Arguments:
**      bin     a string of binary digits, one bit per character
**
**  Returns:
**      a non-negative integer
**
**  GMLscripts.com
*/
{
    var bin,dec,l,p;
    bin = argument0;
    dec = 0;
    l = string_length(bin);
    for (p=1;p<=l;p+=1) {
        dec = dec << 1;
        if (string_char_at(bin,p)=="1") dec = dec | 1;
    }
    return dec;
}