別にそれでも動くと思いますが……どんな感じにしたいんですか？ とりあえず気になった点を挙げておきます。 　･WHITK 1→WHILE 1だと思います。 　･動きが速すぎる→WHILE 1の次の行にWAITかVSYNKを入れるといいですよ。 　･画面から出るとエラー→MX=MX+1を MX=MIN(MAX(MX+1,0),49)にするといいですよ。MX=MX-1も同様です。 　･残像が残る→WAITの直後にLOCATE MX,MY:PRINT "　"を入れるといいですよ。 最後にサンプルを作りました。 公開キー[EJ5N2344]