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