/**************************************************************************
*
*			f w r i t e   F u n c t i o n
*			-----------------------------
*	Copyright 1982 by Digital Research Inc.  All rights reserved.
*
*	"fwrite" writes NI items of size SZ from memory at BUFF into stream
*	SP.
*
*	Calling sequence:
*		nitems = fwrite(buff,size,nitems,stream)
*	Where:
*		buff -> where to write from
*		size = number bytes in each item
*		nitems = number bytes written/to write
*		stream -> file
*
*	nitems is set to 0 if an error occurs (including EOF).
*
*****************************************************************************/

#include "stdio.h"

WORD	fwrite(buff,siz,num,sp)			/* CLEAR FUNCTION ***********/
REG	BYTE *buff;
	WORD siz,
	     num;
REG	FILE *sp;
{
REG	WORD jj, kk;

	for( jj=0; jj<num; jj++ )
	    for( kk=0; kk<siz; kk++ )
		if( fputc(*buff++,sp) == FAILURE ) /* used for side effects */
		    return(NULL);
	return(num);
}
p) == FAILURE ) /* used for side effects */
		    return(NULL);
	return(num);
}
p) == FAILURE ) /* used for side effects */
		    return(NULL);
	return(num);
}
