1 /*- 2 * Copyright (c) 1983, 1993 3 * The Regents of the University of California. All rights reserved. 4 * 5 * %sccs.include.proprietary.c% 6 */ 7 8 #ifndef lint 9 static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 06/04/93"; 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