/*
 * 5799-WZQ (C) COPYRIGHT = NONE
 * LICENSED MATERIALS - PROPERTY OF IBM
 */
/* $Header:erase.c 12.0$ */
/* $ACIS:erase.c 12.0$ */
/* $Source: /ibm/acis/usr/src/usr.lib/libplot/vt0/RCS/erase.c,v $ */

#ifndef lint
static char *rcsid = "$Header:erase.c 12.0$";
#endif

#ifndef lint
static char sccsid[] = "@(#)erase.c	4.1 (Berkeley) 6/27/83";
#endif

extern vti;
erase(){
	int i;
	i=0401;
	write(vti,&i,2);
}
