xref: /csrg-svn/usr.bin/pascal/libpc/SEED.c (revision 2181)
11700Smckusick /* Copyright (c) 1979 Regents of the University of California */
21700Smckusick 
3*2181Smckusic static char sccsid[] = "@(#)SEED.c 1.4 01/16/81";
41700Smckusick 
5*2181Smckusic #include "h00vars.h"
61818Smckusic 
71700Smckusick SEED(value)
8*2181Smckusic 	long value;
91700Smckusick {
10*2181Smckusic 	long tmp;
111700Smckusick 
12*2181Smckusic 	tmp = _seed;
13*2181Smckusic 	_seed = value;
141700Smckusick 	return tmp;
151700Smckusick }
16