1*48523Sbostic /*- 2*48523Sbostic * Copyright (c) 1985 The Regents of the University of California. 3*48523Sbostic * All rights reserved. 4*48523Sbostic * 5*48523Sbostic * %sccs.include.proprietary.c% 622618Sdist */ 722618Sdist 817615Sjak #ifndef lint 9*48523Sbostic static char sccsid[] = "@(#)label.c 5.2 (Berkeley) 04/22/91"; 10*48523Sbostic #endif /* not lint */ 1117615Sjak 1217615Sjak label(s) 1317615Sjak char *s; 1417615Sjak { 1517615Sjak register i,c; 1617615Sjak putch(037); /* alpha mode */ 1717615Sjak for(i=0; c=s[i]; i++) 1817615Sjak putch(c); 1917615Sjak } 20