Return to blkclr.c CVS log

Up to [Research Unix] / researchv10dc / cmd / pascal / libpc

Annotation of researchv10dc/cmd/pascal/libpc/blkclr.c, revision 1.1.1.1

1.1       root        1: /* Copyright (c) 1979 Regents of the University of California */
                      2: 
                      3: static char sccsid[] = "@(#)blkclr.c 1.1 3/7/81";
                      4: 
                      5: blkclr(siz, at)
                      6:        long            siz;
                      7:        register char   *at;
                      8: {
                      9:        register int    size = siz;
                     10: 
                     11:        while(size-- > 0)
                     12:                *at++ = 0;
                     13: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.