perror(buf);
warn("%s", buf);
varpush(file, func)register int	file;register int	(*func)(); {	int	temp;	(*func)(file, (char *) &Debug, sizeof Debug);	(*func)(file, (char *) &Finished, sizeof Finished);	(*func)(file, (char *) &Order, sizeof Order);	(*func)(file, (char *) &End, sizeof End);	(*func)(file, (char *) &On_exit, sizeof On_exit);	(*func)(file, (char *) &Handstart, sizeof Handstart);	(*func)(file, (char *) &Numgos, sizeof Numgos);	(*func)(file, (char *)  Numseen, sizeof Numseen);	(*func)(file, (char *) &Play, sizeof Play);	(*func)(file, (char *) &Window, sizeof Window);	(*func)(file, (char *)  Deck, sizeof Deck);	(*func)(file, (char *) &Discard, sizeof Discard);	(*func)(file, (char *)  Player, sizeof Player);	if (func == read) {		read(file, (char *) &temp, sizeof temp);		Topcard = &Deck[temp];#ifdef DEBUG		if (Debug) {			char	buf[80];over:			printf("Debug file:");			gets(buf);			if ((outf = fopen(buf, "w")) == NULL) {				perror(buf);				goto over;			}			if (strcmp(buf, _PATH_DEVNULL) != 0)				setbuf(outf, (char *)NULL);		}#endif	}	else {		temp = Topcard - Deck;		write(file, (char *) &temp, sizeof temp);	}}