/*Copyright (C) 1992, 1995 by Thomas Glen Smith.  All Rights Reserved.*/
/* intcopy APL2 V1.0.0 *************************************************
* Copies an integer array.                                             *
***********************************************************************/
#define INCLUDES 0
#include "includes.h"
int *intcopy(to,from,cnt,incr)
int *to,*from,cnt,incr;
{
	while(cnt--) {
		*to++=*from;
		from+=incr;
	}
	return(to);
}