148526Sbostic /*- 2*61414Sbostic * Copyright (c) 1983, 1993 3*61414Sbostic * The Regents of the University of California. All rights reserved. 448526Sbostic * 548526Sbostic * %sccs.include.proprietary.c% 648526Sbostic */ 748526Sbostic 813384Ssam #ifndef lint 9*61414Sbostic static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 06/04/93"; 1048526Sbostic #endif /* not lint */ 1113384Ssam 1213384Ssam extern vti; 1313384Ssam label(s)1413384Ssamlabel(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