1*22618Sdist /* 2*22618Sdist * Copyright (c) 1980 Regents of the University of California. 3*22618Sdist * All rights reserved. The Berkeley software License Agreement 4*22618Sdist * specifies the terms and conditions for redistribution. 5*22618Sdist */ 6*22618Sdist 717615Sjak #ifndef lint 8*22618Sdist static char sccsid[] = "@(#)label.c 5.1 (Berkeley) 06/07/85"; 9*22618Sdist #endif not lint 1017615Sjak 1117615Sjak label(s) 1217615Sjak char *s; 1317615Sjak { 1417615Sjak register i,c; 1517615Sjak putch(037); /* alpha mode */ 1617615Sjak for(i=0; c=s[i]; i++) 1717615Sjak putch(c); 1817615Sjak } 19