#include <stdio.h>
int sysinc_(lunit,buf,bytes,nread,ptr,len)
	int *lunit,*bytes,*nread,*len;
	long *ptr;
	char *buf;
{
	if(*ptr!=0) lseek(*lunit,(long)(*len*(*ptr-1)),0);
	if(*bytes<=*len) *nread=read(*lunit,buf,*bytes);
	if(*bytes>*len) *nread=read(*lunit,buf,*len);
	if(*len>*nread) lseek(*lunit,(long)(*len-*nread),1);
	if(*nread==-1) return(-1);
	if(*nread== 0) return(1);
	return(0);
}