xref: /original-bsd/usr.bin/pascal/libpc/CLCK.c (revision 18f6d767)
1 /* Copyright (c) 1979 Regents of the University of California */
2 
3 static char sccsid[] = "@(#)CLCK.c 1.2 03/07/81";
4 
5 long
6 CLCK()
7 {
8 	long	tim[4];
9 
10 	times(tim);
11 	return (tim[0] * 50) / 3;
12 }
13