acsl: spset 0,0: vsync while !(button(2) and #b) stick out dx,dy x=x+dx: y=y-dy 'dy は引くこと! locate 0,0: ? format$("%6.2f %6.2f %6.2f %6.2f",x,y,dx,dy) vsync wend