1 /*- 2 * Copyright (c) 1983 The Regents of the University of California. 3 * All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)label.c 4.2 (Berkeley) 04/22/91"; 10 #endif /* not lint */ 11 12 extern vti; 13 14 label(s) 15 char *s; 16 { 17 int i, o; 18 19 o = 01401; 20 write(vti, &o, 2); 21 for(i=0; s[i++]; ) 22 ; 23 write(vti, s, i); 24 } 25