Удалить в предложении лишние пробелы, оставив между словами по одному пробелу — Basic(Бейсик)

INPUT 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$