Программа перевода чисел из десятичной в двоичную - QBasic

Формулировка задачи:

Я начинающий, прошу покажите пожалуйста эту программу...и еще нельзя использовать массивы и вообще за основу программы можно брать только FOR-TO-STEP и IF-THEN

Решение задачи: «Программа перевода чисел из десятичной в двоичную»

Листинг программы

INPUT "vvedite chislo"; a
FOR i = 1 TO 1E38
    c$ = LTRIM$(STR$(a MOD 2)) + c$
    a = a \ 2
    IF a = 0 THEN EXIT FOR
NEXT
PRINT c$

Объяснение кода листинга программы

В первой строке ввода пользователь вводит число.
Затем начинается цикл от 1 до 1E38 (предполагается, что это максимальное значение для переменной типа Integer).
Внутри цикла переменная c$ формируется путем добавления строки, образованной из остатка от деления a на 2 (это будет либо 0, либо 1), к текущему значению c$.
Затем a делится на 2.
Если a равно 0, то цикл прерывается.
После окончания цикла выводится значение c$.