1 /* Copyright (c) 1979 Regents of the University of California */ 2 3 static char sccsid[] = "@(#)TIME.c 1.1 10/30/80"; 4 5 extern char *ctime(); 6 7 TIME(alfap) 8 9 register char *alfap; 10 { 11 register char *ap, *cp; 12 register int i; 13 long a; 14 15 time(&a); 16 cp = ctime(&a); 17 ap = alfap; 18 for (cp = cp + 10, i = 10; i; *ap++ = *cp++, i--); 19 } 20