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

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

/* the version with hardware support */
clrs1()
 {  register int row;

    sendseq(ter.clrseq.clearscreen);
    real_c.col = real_c.row = 0;
    for (row=0; row<=FOOTROW; row++)
      zaptail(row,0);
 }