В заданной строке удалить все лишние пробелы — QBasic(Бейсик)

INPUT "vvedite stroku ", a$
a$ = " " + a$
FOR i = 2 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$