;マウスでクリックしたところに●が移動するサンプル
;意図するものと違ったらｽﾏｿ
chr="●"
x=312 :y=232
mx=312 :my=232

repeat
redraw 0
stick m :if m&256 :gosub *ms
gosub *draw
if x!mx|(y!my) :gosub *mov
redraw 1
await 30
loop

*draw
color :boxf
color 255,255,255
pos x,y :mes chr
return

*ms
mx=mousex :my=mousey
if mx\2!0 :mx--
if my\2!0 :my--
return

*mov
if x!mx :xx=mx-x :if xx>0 :x+=2 :else :x-=2
if y!my :yy=my-y :if yy>0 :y+=2 :else :y-=2
return