皆さんおっしゃっているように、方法は色々ですので、どれが正解と言うわけでもないですね。たばすこさんの場合は、もう、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はここまで