static char *sccsid
= "@(#)ey5.c 4.1 (Berkeley) 3/1/81";
/* (c) 1979 Regents of the University of California */
/* fake portable I/O routines, for those
sites so backward as to not have the
/* munged for standard i/o library: peter and louise 5 may 80 */
cflush(x
) FILE *x
; { /* fake! sets file to x */
error( "The function \"system\" is called" );