/*
   Write.
   
   See COPYLEFT.JRD.
*/

#include <osbind.h>
#include <errno.h>

long write(h, buf, nbytes)
int h;
char * buf;
long nbytes;
{
  int result = Fwrite(h, nbytes, buf);
  
  if (result < 0)
	errno = result;
  return(result);
}