37行目で急にプログラムが途切れています。X=X+増減X:Y=Y+増減Y がないので動きません。 36行目の IF もわざわざ 「：」 を書いてエラー回避されていますが、これだと判定するだけで THEN (IFで判定をしてOKだったときの処理) がからっぽのため何もしていません。 IF ～ THEN : ←これだと何もしない IF ～ THEN　←これはOK 　～　条件が合うときに 　～　THEN と ENDIF の間が実行される ENDIF さらに、以前のプログラムが後ろにくっついたままの中途半端な状態で、結局39行目の@SOUSA～GOTO @SOUSAを繰り返すだけとなり、書き換えた部分が全く意味をなしていません。というのが今の状態です。 動かすには、例示を参考に正確に書き換えていただきたいのです＞＜ できれば1行ずつ意味を理解してゆっくり進めたほうがよいと思います。