>>506
例えばこんな地味な改造はどうだろう。
waitAndKakuというサブルーチンを作り、
wait 0.5の代わりにgosub waitAndKakuを使う。
そうするとマウスカーソルがカクカクしなくなる。

'----------------------------------------
waitAndKaku: '0.5秒間、ひたすらkakuを実行しながら待つ
waitClock = timer
do : gosub kaku : whilst (timer - waitClock < 0.5)
return
'----------------------------------------