148523Sbostic /*- 2*61405Sbostic * Copyright (c) 1985, 1993 3*61405Sbostic * The Regents of the University of California. All rights reserved. 448523Sbostic * 548523Sbostic * %sccs.include.proprietary.c% 622618Sdist */ 722618Sdist 817615Sjak #ifndef lint 9*61405Sbostic static char sccsid[] = "@(#)label.c 8.1 (Berkeley) 06/04/93"; 1048523Sbostic #endif /* not lint */ 1117615Sjak label(s)1217615Sjaklabel(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