Дан текст содержащий слова, разделенные несколькими пробелами. Получить текст, содержащий слова, разделенные ОДНИМ пробелом — QBasic(Бейсик)

INPUT "vvedite text ", a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) <> " " OR MID$(a$, i, 1) = " " AND MID$(a$, i + 1, 1) <> " " THEN b$ = b$ + MID$(a$, i, 1)
NEXT
PRINT b$