# include "ciodec.c"
cflush (fn)
int fn;
{
struct fileps *fp;
if (nargs() != 1)
	IEHzap("cflush");
if (fn < 0 || fn >15) return;
fp = &IEH3fpts[fn];
if (fp->nchars > 0 && fp->wrflag >= 2)
	{
	write (fn, fp->buff,fp->nchars);
	fp->bptr = fp->buff;
	fp -> nchars = fp->eoferr = 0;
	}
if (fp->wrflag == 1)
	seek(fn, -(fp->nchars),1);
return;
}