Вставить пробелы между цифрами. - QBasic

Здравствуйте. Нужна помощь. Десятичное представление заданного натурального числа напечатать вразрядку, то есть вставить пробелы между цифрами.

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

DIM C AS LONG
CLS : INPUT "Vvedite chislo : ", C
  DO: N$ = " " + STR$(C MOD 10) + N$
      C = C \ 10
  LOOP UNTIL C = 0
WRITE LTRIM$(N$)

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

Объявляется переменная C типа LONG (10 цифр).
Очищается экран с помощью команды CLS.
Вводится число с помощью функции INPUT, введенное число сохраняется в переменной C.
Запускается цикл DO.
Внутри цикла в переменной N$ формируется строка из пробела и последней цифры числа C (C MOD 10), полученной с помощью функции STR$.
Строка N$ сохраняется в переменной N$.
Число C делится на 10 с помощью оператора .
Цикл выполняется до тех пор, пока число C не станет равным 0.
Выводится строка N$ с помощью функции WRITE, при этом удаляются лишние пробелы в начале строки с помощью функции LTRIM$.