Подсчитать наибольшее количество пробелов, идущих подряд, в заданной символьной строке

INPUT a$
FOR i=1 TO LEN (a$)
IF MID$(a$,i,1)<>" " THEN k=0 ELSE k=k+1:IF k>max THEN max=k:
NEXT
PRINT max

автор: кот Бегемот