#include "ded.h"
#include "ter.h"

/************************************************************************
 *                                                                      *
 *                      copyright Richard Bornat 1981                   *
 *                                                                      *
 ************************************************************************/

/* the version with hardware support */
clrh1(row, col)
register int row, col;
 {  register int mar = lmargin(row);

    col -= mar;
    sendat(row, col, ter.clrseq.clearhead);
    real_c.col = 0;
    shufrow(row, col, -col);

    retag(row);
 }