#ifndef lint
static	char sccsid[] = "@(#)label.c 1.1 94/10/31 SMI"; /* from UCB 4.1 6/27/83 */
#endif

extern vti;

label(s)
char *s;
{
	int i, o;

	o = 01401;
	write(vti, &o, 2);
	for(i=0; s[i++]; )
		;
	write(vti, s, i);
}