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

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

/* the version with 'rubout' - which moves the cursor */
delc1(row, col1, col2)
register int row, col1, col2;
 {  move_to(row, col2);
    shufrow(row, col2, -(col2-col1));
    while(col2-- > col1)
     { sendseq(ter.charseq.rubout); real_c.col--; }
 }