cÓïÑÔ±à³Ì¼¼ÇÉ
/*´Ó¼üÅÌÖжÁÈ¡×Ö·û ¹¦ÄÜ£º°´ÏÂÆÕͨ¼üʱ£¬·µ»ØÆäASCIIÂë ɨÃèÂëCODE=0*/
int INKEY(int *code)
{
int m;
while(!bioskey(1))/*¿É¼ÓÈëÎÞ°´¼üʱ´úÂë*/;
*code=bioskey(0);
m=*code*255;
if(!m) m=*code>>8;
*code=*code&255;
return m;
}

/*»ñÈ¡»úÆ÷ÈÕÆÚ*/
int DATE(char *s,char type)
{
char dat[30];
int num;
struct tm *tblock;
time_t t;
t=time(NULL);
tblock=localtime(&t);
strcpy(dt,asctime(tblock));
strcpy(s,"");
switch(type)
{
case 'N':
num=(*tblock).tm_year+1900;
itoa(num,s,10);
break;
case 'Y':
num=(*tblock).tm_mon+1;
itoa(num,s,10);
break;
case 'R':
num=(*tblock).tm_mday;
itoa(num,s,10);
break;
case 'S':
strcpy(dt,asctime(tblock));
MID(s,dt,12,8);
break;
}
}
return num;
}

/*½«¸¡µãÊýת»¯Îª×Ö·û´®*/
/* ²ÎÊý˵Ã÷ data:Ðèת»»µÄ¸¡µãÊý£»s:Êä³ö×Ö·û´®£»len:ת»»ºóµÄ³¤¶È*/
void f_to_s(double data,char *s,int len)
{
int dec,sign,i;
char *s1,s2[100],s3[100];
s1=0;
s2[0]=0;
s3[0]=0;
s1=fcvt(data,len,&dec,&sign);
if (!sign&&data>=1)
{
MID(s2,s1,dec+1,-1);
MID(s3,s1,1,dec);
strcpy(s,"+");
strcat(s,s3);
strcat(s,".");
strcat(s,s2);
}
if (sign&&fabs(data)>=1)
{
MID(s2,s1,dec+1,-1);
strcpy(s,"-");
MID(s3,s1,1,dec);
strcat(s,s3);
strcat(s,".");
strcat(s,s2);
}
if (!sign&&dec==0)
{
strcpy(s,"+0.");
strcat(s,s1);
}
if (sign&&dec==0)
{
strcpy(s,"-0.");
strcat(s,s1);
}
if (!sign&&dec<0)
{
strcpy(s,"+0.");
for(i=1;i<=fabs(dec);i++)
strcat(s,"0");
strcat(s,s1);
}
if (sign&&dec<0)
{
strcpy(s,"-0.");
for(i=1;i<=fabs(dec);i++)
strcat(s,"0");
strcat(s,s1);
}
if (strlen(s)>len) s[len]=0;
}

/*Çå³ýÆÁÄ»*/
void CLSXY(int color,int x,int y,int xl,int yl)
{
int x1,y1;
union REGS r;
if(x<1||y<1) return;
y--;
x--;
y1=y+yl-1;
x1=x+xl-1;
if (y1>25||x1>80)
return;
r.h.ah=6; /*×Ó¹¦ÄܺÅ*/
r.h.al=0; /*¹ö¶¯ÐÐÊý*/
r.h.ch=y;
r.h.cl=x;
r.h.dh=y1;
r.h.dl=x1;
r.h.bh=color*16;
int86(16,&r,&r);
}


/*ÏÔʾʱ¼ä*/
void display_time(int color,int back_color,int y,int x)
{
static char oldtime[9]="";
char newtime[9];
if(y<1||x<1) return;
settextstyle(1,0,1);
DATA(newtime,'S');
back_color=7;
if(strcmp(newtime,oldtime))
{
setfillstyle(1,back_color);
setcolor(color);
bar(535,458,635,475);
outtextxy(x,y,newtime);
strcpy(oldtime,newtime);
}
}


/*´òÓ¡Ò»¸ö¾ØÐÎ*/
void PRINT_KJ(int x,int y,int wide,int high)
{
int i;
for(i=x;i{
gotoxy(i,y);
cprintf("®â");
}
gotoxy(x,y+high);
cprintf("“");
gotoxy(x+wide,y+high);
cprintf("’");
gotoxy(x,y);
cprintf("®Ü");
gotoxy(x+wide,y);
cprintf("®Þ");
for(i=x+2;i{
gotoxy(i,y+high);
cprintf("”");
}
for(i=y+1;i{
gotoxy(x,i);
cprintf("®à");
}
for(i=y+1;i{
gotoxy(x+wide,i);
cprintf("®á");
}
}

/*¿³µô×Ö·û´®ÖÐËùÓпոñ*/
void CUT_ALL_SPC(char *s)
{
int i,n;
char d[10000];
n=0;
for(i=0;iif(s!=32)
{
d[n]=s;
n++;
}
d[n]=0;
strcpy(s,d);
}


/*È¡×Ó×Ö·û´®*/
void MID(char *s,char *t,int n,int m)
{
int i,j,p;
if(n<1) n=1;
i=strlen(s);
if(iif(m<0) m=i;
else m=n+m-1;
if(m>i) m=i;
p=m-n+1;
if(p<0) p=0;
for(i=n-1,j=0;it[j]=s;
t[p]=0;
}


/*´ÓÎļþÖжÁÈ¡×Ö·û*/
int READ_STR(char *s,FILE *fp)
{
int i=0;
if(!fp) return 0;
if(fgets(s,10000,fp)) i=1;
s[strlen(s)-1]=0;
return i;
}

/*×Ö·û´®×ó¿¿Æë*/
void MOVE_LEFT(char *d,char *s,int n)
{
int i,l;
l=strlen(s);
if(n>l) n=l;
for(i=0;i*d++=*s++;
*d=0;
}

/*È¡×ó×Ö·û´®*/
void LEFT(char *d,char *s,int n)
{
int i,l;
i=0;
l=strlen(s);
if(n>l) n=l;
for(i=0;id=s;
d[n]=0;
}


/*ÏòÎļþдÊý¾Ý*/
void WRITE_STR(char *s,FILE *fp)
{
char c=10;
if(!fp) return;
fputs(s,fp);
fputc(c,fp);
}

/*È¡ÓÒ×Ö·û´®*/
void RIGHT(char *dest,char *source,int num)
{
int i,j;
if (num<1) num=0;
num=strlen(source)-num;
if (num<0) num=0;
for(i=0,j=num;j<=strlen(source);i++,j++) dest=source[j];
}


/*´ò¿ª»ò¹Ø±Õ¹â±ê*/
void CURSOR(int on2off)
{
union REGS r;
if (on2off!=OFF) on2off=10;
r.h.ah=1;
r.h.ch=3;
r.h.cl=on2off;
int86(16,&r,&r);
}

/*À®°È·¢Éù*/
void SOUND(int frequency,int time)
{
int i;
i=time*50;
if (i>30000) i=30000;
if (i<50) i=50;
sound(frequency);
MYDELAY(i);
nosound();
}

/*ʱ¼äÑÓ³Ù*/
void MYDELAY(long t)
{
time_t OldTime;
long t0;
t0=t/55;
if (t0<1) t0=1;
OldTime=clock();
while(clock()-OldTime}


/*Õýµã±¨Ê±*/
void REPORT_CLOCK(void)
{
int i;
for(i=0;i<5;i++);
{
SOUND(500,10);
MYDELAY(1000);
}
SOUND(800,10);
}


/*дÕûÊýÓÚÎļþÖÐ*/
void WRITE_INT(int num,FILE *p)
{
char s[20],a=10;
if (!p) return;
itoa(num,s,10);
fputs(s,p);
fputc(a,p);
}


/*´ÓÎļþÖжÁÈ¡ÕûÊý*/
int READ_INT(int *num,FILE *p)
{
int i;
char s[30]="";
if (!p) return 0;
if (fgets(s,10000,p))
{
i=-1;
s[strlen(s)-1]=0;
*num=atoi(s);
}
else i=0;
return i;
}


/*±¨¾¯ */
void WARN(void)
{
SOUND(300,1);
SOUND(100,1);
}


/*×Ö·û´®ÓÒ¿¿Æë*/
void MOVE_RIGHT(char *s,int wide)
{
int i,l,n;
l=strlen(s);
n=wide-l;
if (n>0)
{
for(i=l;i>-1;i--) s[i+n]=s;
for(i=0;i}
}


/*×Ö·û´®¾ÓÖÐ*/
void MOVE_MIDDLE(char *s,int wide)
{
int i,l,n;
l=strlen(s);
if (wide>l)
{
wide=wide-1;
n=wide/2;
wide=wide-n;
for(i=l;i>-1;i--) s[i+n]=s;
for(i=0;ifor(i=0;is[l+n+i]=0;
}
}

/*ɾ³ý×Ó×Ö·û´®*/
void Delete_SubString(char *source,int start,int num)
{
int i,l;
l=strlen(source);
if (num>l-start+1||num==-1) num=l-start+1;
if (start<1||start>1) return;
for(i=start;isource[i-1]=source[i+num-1];
}

/*²éÕÒÖ¸¶¨×Ö·û´®*/
int INSTR(int n,char *source,char *dest)
{
int i,j,k1,k2,p;
int start=0;
if (n==0) n=1;
k1=strlen(source);
k2=strlen(dest);
if (n<0)
{
char s[100];
n=-n;
MID(s,source,n,k2);
if (strcmp(s,dest)) return 0;
return n;
}
if (k1-n+1for(i=n-1;i{
p=0;
for(j=0;jif (source[i+j]!=dest[j]) break;
else p++;
if (p==k2)
{
start=i+1;
break;
}
}
return start;
}


/*²úÉú¿Õ¸ñ*/
void SPACE(char *s,int n)
{
int i;
if (n<0) n=0;
for(i=0;i*s=0;
}


/*²úÉú×Ö·û´®*/
void STRING(int n,char *s1,char *s2)
{
int i;
if (n<0) n=0;
s1[0]=0;
for(i=1;i<=n;i++) strcat(s1,s2);
}


/*¿³µô×Ö·û´®×ó±ß¿Õ¸ñ*/
void CUT_LEFT_SPACE(char *s)
{
int i,j,k=0;
i=strlen(s)+1;
for(j=0;jfor(k=0;j}


/*¿³µô×Ö·û´®Óұ߿ոñ*/
void CUT_RIGHT_SPACE(char *s)
{
int i,j;
i=strlen(s)-1;
for(j=i;j>-1;j--) if (s[j]!=' ') break;
s[j+1]=0;
}

/*ÏÔʾһ¸ö×Ö·û´®*/
void DISPLAY(char *s)
{
union REGS regs;
int color,x,y;
x=wherex();
y=wherey();
color=16*bjys+qjys;
while(*s)
{
if(x>80) break;
regs.h.ah=9;
regs.h.al=*s;
regs.h.bh=0;
regs.h.bl=color;
regs.x.cx=1; /*ÏÔʾµÄ´ÎÊý,²»¸Ä±ä¹â±êλÖÃ*/
int86(16,?s,?s);
x++;
if(x>80)
{
x=1;
y++;
if(y>25) y=25;
}
gotoxy(x,y);
s++;
}
}

/*¶¨ÒåÆÁÄ»ÑÕÉ«*/
void COLOR(int ForeColor,int BackColor)
{
if(ForeColor<0||ForeColor>15) return;
if(BackColor<0||BackColor>15) return;
qjys=ForeColor;
bjys=BackColor;
}

/*ÏÔʾÌáʾ´°¿Ú*/
void quit_YesNo(char *s1,char *s2)
{
char buffer[2000],jx;
gettext(30,8,76,16,buffer);
textbackground(3);
CLSXY(8,32,9,30,6);
CLSXY(4,30,8,30,6);
COLOR(15,4);
gotoxy(35,10);
DISPLAY(s1);
gotoxy(35,12);
DISPLAY(s2);
gotoxy(35+strlen(s2)+1,12);
jx=getch();
puttext(30,8,76,16,buffer);
if (jx=='n'||jx=='N') return;
textbackground(0);
textcolor(15);
clrscr();
CURSOR(ON);
exit(0);
}