@aにワープというのはサブルーチン等へのワープなのかな?それなら if chr$(chkchr(x,y))=="●"then gosub(又はgoto)@a で良いと思われます。