#include "V_s_lc.h"
/*
* fread - buffered binary input
*/
d_fread(p,s,n,f)
	char *p;
	int   s;
	int   n;
	FILE *f;
{	int   v;
	File *fp;

	v = fread(p,s,n,f);
	V6s "fread(%06X,%d,%d,%06X)=%d [Err %d=%s=%s]",p,s,n,f,v,Errinfo D;
	if (v > 0) {
		H7s(p,v*s,"read");
		if (fp = d_openfile(Fileno(f)))
			fp->addr += v*s;	/* Keep track of the offset */
	}
	return v;
}