T$="メッセージ" FOR L=1 TO LEN(T$) LOCATE 13,19,-256 PRINT LEFT$(T$,L) WAIT 10 NEXT ど～してもDATAもDEFも使いたくなければ、こんな方法もあります。とにかく、重複している部分をいかにまとめるかがプログラミングの醍醐味なので、色々試してエンジョイしてください♪ ヨッシーさん、宣伝ありがとーございました(^^)。