18 lines
225 B
C
18 lines
225 B
C
#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);
|
|
}
|