Переведите число из двоичной системы счисления в десятичную- QBasic(Бейсик)

INPUT "vvedite dvoichnoe chislo ", a
DO WHILE a > 0
    b = b + (a MOD 10) * 2 ^ t
    a = a \ 10
    t = t + 1
LOOP
PRINT b

Следующий вариант

INPUT "vvedite dvoichnoe chislo ", a$
FOR i = LEN(a$) TO 1 STEP -1
    b = b + VAL(MID$(a$, i, 1)) * 2 ^ r
    r = r + 1
NEXT
PRINT b

Тестирование выполнено в программе QB64 ( Скачать )