#include "message.h"
int sysoutc_(lunit,buf,bytes,ptr,len)
  int *lunit, *bytes, *ptr, *len;
  char *buf;
{
int nwrite,nseek;
	if(*ptr!=0) lseek(*lunit,(long)(*len*(*ptr-1)),0); 
	nwrite=write(*lunit,buf,*bytes);
	if(*bytes<*len) 
	{ nseek=lseek(*lunit,(long)(*len-*bytes),1);
	  if(nseek!=(*len-*bytes)) STOP(sysoutc: lseek error);
	  nwrite+=nseek;
	}
	return(*len-nwrite); 
}