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