11670Smckusick /* Copyright (c) 1979 Regents of the University of California */ 21670Smckusick 3*3868Smckusic static char sccsid[] = "@(#)PAGE.c 1.2 06/10/81"; 41670Smckusick 51670Smckusick #include "h00vars.h" 61670Smckusick 71670Smckusick PAGE(curfile) 81670Smckusick 91670Smckusick register struct iorec *curfile; 101670Smckusick { 111670Smckusick if (curfile->funit & FREAD) { 12*3868Smckusic ERROR("%s: Attempt to write, but open for reading\n", 13*3868Smckusic curfile->pfname); 141670Smckusick return; 151670Smckusick } 161670Smckusick fputc(' ', curfile->fbuf); 171670Smckusick if (ferror(curfile->fbuf)) { 18*3868Smckusic PERROR("Could not write to ", curfile->pfname); 191670Smckusick return; 201670Smckusick } 211670Smckusick } 22