Дано слово. Каждую вторую (четную) букву заменить на «@». Вывести результат в перевернутом виде- QBasic(Бейсик)

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

Тестирование выполнено в программе QB64 ( Скачать )