xref: /csrg-svn/usr.bin/pascal/libpc/CLCK.c (revision 2998)
11643Smckusick /* Copyright (c) 1979 Regents of the University of California */
21643Smckusick 
3*2998Smckusic static char sccsid[] = "@(#)CLCK.c 1.2 03/07/81";
41643Smckusick 
5*2998Smckusic long
61643Smckusick CLCK()
71643Smckusick {
81643Smckusick 	long	tim[4];
91643Smckusick 
101643Smckusick 	times(tim);
111643Smckusick 	return (tim[0] * 50) / 3;
121643Smckusick }
13