皆さんおっしゃっているように、方法は色々ですので、どれが正解と言うわけでもないですね。たばすこさんの場合は、もう、DEFを使う所まで覚えちゃった方が早いかもしれません。
RPGPRINT 5,10,"ABCDEFGHIJKLMN"
END
DEF RPGPRINT X,Y,A$
VAR I:LOCATE X,Y 'このIはDEF内でのみ有効な変数
FOR I=0 TO LEN(A$)-1 'LENは文字数が返る
PRINT MID$(A$,I,1);:WAIT 5 '文字列の途中を取り出し
NEXT
END 'DEFはここまで