basic - MID$ 関数の問題

Question

特定の文字列のすべての文字を新しい行に出力しようとしています。

1 INPUT ""; A$
2 E%=0
3 IF E% < LEN(A$) GOTO 5
4 END
5 PRINT MID$(A$,E%,E%+1)
6 E% = E% + 1
7 GOTO 3

私は取得し続けます

不正な数量エラー 5

理由はわかりません。