Sub Class_Globals
Type TMove(MType As Int,FRow As Int, FCol As Int , TRow As Int, TCol As Int)
Public WhiteToMove As Int
Public BMove As TMove
Public Square(9,9), HFence(9,9), VFence(9,9) As Int
Public WRow, WCol, BRow,BCol As Int
Public GameMoves As List
Public FenceCount(2)
Private Processed(9,9) As Int
Public Ply As Int
Public Nodes As Int
End Sub