11行めにエラーがありますとでています。12行目もエラーがでるので IF B==#RIGHT THEN VX=1 IF B==#LEFT THEN VX=-1 として あとgotoの前に wait 10 と入れてみてください。 現在のプログラムだと速すぎます。 あとPXが範囲外になった時にエラーがでますので 範囲外にならないように PX=MAX(0,MIN(PX,50)) 場所はLOCATEの前とか必要です。 エラーがでた時には数字が書かれていてその行にエラーがあります。