xref: /csrg-svn/usr.bin/pascal/libpc/SEED.c (revision 1818)
11700Smckusick /* Copyright (c) 1979 Regents of the University of California */
21700Smckusick 
3*1818Smckusic static char sccsid[] = "@(#)SEED.c 1.2 11/20/80";
41700Smckusick 
5*1818Smckusic #include <math.h>
6*1818Smckusic #include <math.h>
7*1818Smckusic 
81700Smckusick SEED(value)
91700Smckusick 
101700Smckusick 	long	value;
111700Smckusick {
121700Smckusick 	static long	seed;
131700Smckusick 	long		tmp;
141700Smckusick 
151700Smckusick 	srand(value);
161700Smckusick 	tmp = seed;
171700Smckusick 	seed = value;
181700Smckusick 	return tmp;
191700Smckusick }
20