/*Copyright (C) 1992, 1996 by Thomas Glen Smith.  All Rights Reserved.*/
/* chrcopy APL2 V1.0.0 *************************************************
* Called by aplinit, getchrv, and newtok.                              *
* Copies a character array.                                            *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
char *chrcopy(to,from,cnt,incr)
char *to,*from;
int cnt,incr;
{
	while(cnt--) {
		*to++=*from;
		from+=incr;
	}
	return(to);
}