1994-06-24 14:02:31 +00:00
|
|
|
/* $Id$ */
|
1987-01-27 15:57:55 +00:00
|
|
|
static long seed = 1L;
|
|
|
|
|
|
|
|
|
|
int rand()
|
|
|
|
|
{
|
|
|
|
|
seed = (1103515245L * seed + 12345) & 0x7FFFFFFF;
|
1991-09-04 16:01:22 +00:00
|
|
|
#if _EM_WSIZE == 4
|
1987-07-10 09:06:19 +00:00
|
|
|
return (int) seed;
|
|
|
|
|
#else
|
|
|
|
|
return ((int)(seed >> 8) & 0x7FFF);
|
|
|
|
|
#endif
|
1987-01-27 15:57:55 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
srand(n)
|
|
|
|
|
unsigned n;
|
|
|
|
|
{
|
|
|
|
|
seed = n;
|
|
|
|
|
}
|
