Переписать заданную фразу в обратном порядке — QBasic(Бейсик)

input"vvedite frazu ",a$
for i=1 to len(a$)
b$=mid$(a$,i,1)+b$
print b$