まずは移動処理を書いてみましょう。 SPSET諸々の後に、 @BUTTON IF B==#UP GOSUB @UP IF B==#DOWN GOSUB @DOWN IF B==#LEFT GOSUB @LEFT IF B==#RIGTH GOSUB @RIGTH