1ループ0.5秒なのはさすがに遅いと思うので、割り込みサブルーチンverを作りました。