date and time created 80/10/30 00:35:38 by mckusick

[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;
}