module4

Option Explicit

Sub search_for_black(x As Integer, y As Integer, handan As Integer)
black_hidariue x, y, handan
black_ue x, y, handan
black_migiue x, y, handan
black_hidari x, y, handan
black_migi x, y, handan
black_hidarisita x, y, handan
black_sita x, y, handan
black_migisita x, y, handan
End Sub

Sub search_for_white(x As Integer, y As Integer, handan As Integer)
white_hidariue x, y, handan
white_ue x, y, handan
white_migiue x, y, handan
white_hidari x, y, handan
white_migi x, y, handan
white_hidarisita x, y, handan
white_sita x, y, handan
white_migisita x, y, handan
End Sub