LOCATE命令の部分はそのままでいいですよ。 @UP,@DOWN,@LEFT,@RIGHTの後に記述された代入文の X1=□:Y1=□の部分を 私が提示したIF命令に置き換えて下さい。