1*17615Sjak #ifndef lint 2*17615Sjak static char sccsid[] = "@(#)label.c 1.1 (Berkeley) 01/02/85"; 3*17615Sjak #endif 4*17615Sjak 5*17615Sjak label(s) 6*17615Sjak char *s; 7*17615Sjak { 8*17615Sjak register i,c; 9*17615Sjak putch(037); /* alpha mode */ 10*17615Sjak for(i=0; c=s[i]; i++) 11*17615Sjak putch(c); 12*17615Sjak } 13