こんなやり方も！ spset 0,0 spset 1,1:spcol 0 while 1 touch out t,x,y if t<1　then spofs 0,x,y if sphitsp(0)>=1 then beep 5 vsync 1 wend vsync 1 でいいと思う。