Удвоить символы в слове. Вывести результат в обратном порядке- QBasic(Бейсик)

CLS
INPUT "vvedite a$"; a$
FOR i = 1 TO LEN(a$)
    b$ = MID$(a$, i, 1) + MID$(a$, i, 1) + b$
NEXT
PRINT b$