source: buchla-68k/vlib/vclrs.c@ 342a56f

/*
   =============================================================================
        vclrs.c -- clear a VSDD text line to a specified value
        Version 2 -- 1987-04-15 -- D.N. Lynx Crowe
        (c) Copyright 1987 -- D.N. Lynx Crowe

        vclrs(obase, row, col, nc, ch, atr)
        unsigned int obase[];
        int row, col, nc, ch, atr;

                Clear 'nc' characters in the text object 'obase' to 'ch',
                using atrributes 'atr', starting at ('row','col');

                No error checking is done, so beware.
   =============================================================================
*/

extern  void    vputc(unsigned *sbase, unsigned row, unsigned col, unsigned c, unsigned attrib);

/*
   =============================================================================
        vclrs(obase, row, col, nc, ch, atr) -- clear a line on the VSDD
   =============================================================================
*/

void vclrs(unsigned int obase[], int row, int col, int nc, int ch, int atr)
{
        while (nc--)
                vputc(obase, row, col++, ch, atr);
}