#
#include <cvl/cvl.h>
/*
 * CPHEAD copies the CVL picture header at oldarea to newarea
 * Joseph Pallas  9/18/80  cc -O -c cphead.c
 * Modified by Robert L. Kirby for more distinctive tag1 on Oct 8, 1980.
 */

int cphead(oldarea, newarea)
struct cvl_p *oldarea;
struct cvl_p *newarea;
{
	register char *oldp;
	register char *newp;
	register int count;

	oldp = (char *)oldarea;
	newp = (char *)newarea;
	for (count = 1; count <= sizeof *oldarea; count++)
		*newp++ = *oldp++;
	if(newarea->cv_tag != 'TCIP' + 020000000000)
		return(-1);
	return(newarea->cv_lcom);
}