1  extern short distdata[64][64], taxidata[64][64];
       2  extern short PieceList[2][64];
       3  
       4  int
       5  ScoreKBNK (short int winner, short int king1, short int king2)
       6  {
       7    register short s;
       8  
       9    s = taxidata[king1][king2] + distdata[PieceList[winner][1]][king2];
      10    return s;
      11  }