1*48526Sbostic /*- 2*48526Sbostic * Copyright (c) 1983 The Regents of the University of California. 3*48526Sbostic * All rights reserved. 4*48526Sbostic * 5*48526Sbostic * %sccs.include.proprietary.c% 6*48526Sbostic */ 7*48526Sbostic 813384Ssam #ifndef lint 9*48526Sbostic static char sccsid[] = "@(#)label.c 4.2 (Berkeley) 04/22/91"; 10*48526Sbostic #endif /* not lint */ 1113384Ssam 1213384Ssam extern vti; 1313384Ssam 1413384Ssam label(s) 1513384Ssam char *s; 1613384Ssam { 1713384Ssam int i, o; 1813384Ssam 1913384Ssam o = 01401; 2013384Ssam write(vti, &o, 2); 2113384Ssam for(i=0; s[i++]; ) 2213384Ssam ; 2313384Ssam write(vti, s, i); 2413384Ssam } 25