えらくややこしい事をされていますが、２９～３４行目を消して、 X=X-Z IF B==#B THEN Z=Z-0.01 にすればそれっぽく動くんじゃないかな？（未確認です） 0.01はいい感じになるように調整するのと、 これだと停止したあとに反対側に動き出すのでご注意を。