/* Binary to Decimal conversion by OzFalcon */
{
binstr = "000101010101";

printf ("Str Bin = " + binstr + "\n");
binlen = StrLen(binstr);
printf ("Bin Len = " + binlen + "\n");
bindec = 0; i=1;
}
for (z = 1 ; z <= binlen ; z++)
{
x = StrRight(binstr,z); y = StrLeft(x,1); /* extract bit */
if (y >= "1") bindec = bindec + i; /* Add value of bit if on */
printf ("This is bit:%g   " , z);
printf ("(y = " + y + ") (val = %g)\n",i);
i=i*2;
}
printf ("Total:%g\n",bindec);