[unix-history] / usr / src / usr.bin / pascal / libpc / SEED.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)SEED.c 1.1 %G%";

SEED(value)

	long	value;
{
	static long	seed;
	long		tmp;

	srand(value);
	tmp = seed;
	seed = value;
	return tmp;
}
Commit	Line	Data
14a8b446 KM	1	/* Copyright (c) 1979 Regents of the University of California */
	2
	3	static char sccsid[] = "@(#)SEED.c 1.1 %G%";
	4
	5	SEED(value)
	6
	7	long value;
	8	{
	9	static long seed;
	10	long tmp;
	11
	12	srand(value);
	13	tmp = seed;
	14	seed = value;
	15	return tmp;
	16	}