C语言,自己当年编写的苹果（黑白）棋源程序代码

今天整理自己的文档，发现自己当年做一些的C语言程序，现在与大家分享
程序一、黑白棋程序，当年最早在mac上出现的小游戏，也就是俗称的苹果棋游戏，小时候没玩过？自己调试玩玩看看
调试环境 ：GCC ,TC
需要BGI驱动支持，调过c语言的应该知道吧
代码如下(只提供AI部分)：完整地址www.lidaren.com/code/WBchess.c.txt

int cal(char z)
{ int *p=0;
int num=0,i,j;
for(i=0;i=0)
	{
	i=0;
		while(i=0)
	{
	i=0;
		while(i=0)
	{
	i=2;
		while(y+i=0))
			{
			if(s[x-i][y+i]==z2){can[5]=1;break;}
			i++;
			}
	}
	if(s[x+1][y-1]==z1&&(y-1)>=0)
	{
	i=2;
		while(i=0))
			{
			if(s[x+i][y-i]==z2)
				{can[6]=1;
				break;}
			i++;
			}
	}
	if(s[x-1][y-1]==z1&&(x-1)*(y-1)>=0)
	{
	i=2;
		while(x-i>=0&&y-i>=0)
			{
			if(s[x-i][y-i]==z2)
			{can[7]=1;
			break;}
			i++;
			}
	}
	if(s[x+1][y+1]==z1)
	{
	i=2;
		while(i+x