@sentaku sx=1:sy=1 while true cls locate sx,sy:?"→" if ((button(2)==1)==1) then sy=sy-1 if ((button(2)==2)==2) then sy=sy+1 vsync wend どうぞ。