Дано слово, содержащее несколько букв «А». Вывести номера букв «А» в слове- QBasic(Бейсик)

CLS
INPUT "vvedite text"; a$
FOR i = 1 TO LEN(a$)
    IF MID$(a$, i, 1) = "a" THEN PRINT i
NEXT