clear EOF and EOLN after performing a seek
[unix-history] / usr / src / usr.bin / pascal / libpc / blkclr.c
CommitLineData
aa0a9f78
KM
1/* Copyright (c) 1979 Regents of the University of California */
2
3static char sccsid[] = "@(#)blkclr.c 1.1 %G%";
4
5blkclr(siz, at)
6 long siz;
7 register char *at;
8{
9 register int size = siz;
10
11 while(size-- > 0)
12 *at++ = 0;
13}