xref: /csrg-svn/usr.bin/pascal/libpc/CLCK.c (revision 1643)
1*1643Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*1643Smckusick 
3*1643Smckusick static char sccsid[] = "@(#)CLCK.c 1.1 10/30/80";
4*1643Smckusick 
5*1643Smckusick CLCK()
6*1643Smckusick {
7*1643Smckusick 	long	tim[4];
8*1643Smckusick 
9*1643Smckusick 	times(tim);
10*1643Smckusick 	return (tim[0] * 50) / 3;
11*1643Smckusick }
12