Удаление первых букв слов - QBasic

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

Требуется написать программу в QBasic, удаляющую первые буквы каждого слова в текстовой строке. Пример: Если где-то нет кого-то, значит кто-то где-то есть => сли де-то ет ого-то, начит то-то де-то сть

Решение задачи: «Удаление первых букв слов»

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

INPUT "enter text: ", a$
FOR i = 1 TO LEN(a$)
    b$ = b$ + MID$(a$, i, 1)
    IF MID$(a$, i, 1) = " " OR i = LEN(a$) THEN
        res$ = res$ + RIGHT$(b$, LEN(b$) - 1)
        b$ = ""
    END IF
NEXT
PRINT res$

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

Вводится строка текста с помощью функции INPUTenter text: , a$.
Инициализируется пустая строка b$ для хранения результата.
Запускается цикл FOR от 1 до длины строки a$ с шагом 1.
На каждой итерации в строку b$ добавляется первая буква текущего слова из строки a$ с помощью функции MID$(a$, i, 1).
Если текущая буква является пробелом или итерация равна последней, то в строку res$ добавляется текущее значение b$ с помощью функции RIGHT$(b$, LEN(b$) - 1).
Строка b$ очищается.
Цикл завершается.
Выводится результат с помощью функции PRINT res$.