Составить программу, заменяющую в заданной строке буквы «А», «О», «Е» на знак «@»- QBasic(Бейсик)

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