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