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

INPUT "vvedite desytichnoe chislo ", a
DO WHILE a > 0
    r = a MOD 2
    a = a \ 2
    b = b + r
    IF a <> 0 THEN b = b * 10
LOOP
PRINT b