У вас есть три проблемы с вашим кодом, две из них связаны.
Во-первых, E% должен начинаться с 1, а не с 0. Во-вторых, поскольку E% начинается с 1, вы должны проверить <= вместо<. Наконец, ваши параметры функции MID $ () должны быть такими, как показано ниже: </p>
1 INPUT ""; A$
2 E%=1
3 IF E% <= LEN(A$) GOTO 5
4 END
5 PRINT MID$(A$,E%,1)
6 E% = E% + 1
7 GOTO 3
Далее вы должны изучить циклы FOR / NEXT.