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

INPUT "vvedite desyatichnoe chislo ", a
DO WHILE a > 0
    s$ = LTRIM$(STR$(a MOD 2)) + s$
    a = a \ 2
LOOP
PRINT s$

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