Return to rand.c CVS log

Up to [Research Unix] / researchv10no / cmd / basic / bite / src

researchv10 Norman

/* This UNIX libm function is included to maintain compatibility with
 * Berkeley UNIX
 */
static	long	randx = 1;

Srand(x)
{
	randx = x;
}

Rand()
{
	return(((randx = randx * 1103515245L + 12345)>>16) & 0x7fff);
}

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.