В слове, введённом с клавиатуры распечатать по буквенно в столбик — QBasic(Бейсик)

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