date and time created 80/10/30 00:36:06 by mckusick

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

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)TIME.c 1.1 %G%";

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--);
}