written by Kirk McKusick; add Berkeley specific copyright notice

[unix-history] / usr / src / usr.bin / pascal / libpc / TIME.c

/*-
* Copyright (c) 1979 The Regents of the University of California.
* All rights reserved.
*
* %sccs.include.redist.c%
*/

#ifndef lint
static char sccsid[] = "@(#)TIME.c      1.2 (Berkeley) %G%";
#endif /* not lint */

extern char *ctime();

TIME(alfap)

       register char *alfap;
{
       register char *ap, *cp;
       register int i;
       long a;

       time(&a);
       cp = ctime(&a);
       ap = alfap;
       for (cp = cp + 10, i = 10; i; *ap++ = *cp++, i--);
}