В слове, введённом с клавиатуры распечатать по буквенно в столбик

• в естественной последовательности;
• в обратной последовательности

word1$ = ""
INPUT "Type a word"; word1$
FOR i = 1 TO Len(word1$)
    PRINT MID$(word1$, i, 1); "    "; MID$(word1$, Len(word1$)+1-i, 1)
NEXT

автор: Vovan-VE