port to tahoe by Nir peleg of CCI

[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.5 %G%";

#include "h00vars.h"

long
SEED(value)
	long value;
{
	long tmp;

	tmp = _seed;
	_seed = value;
	return tmp;
}