|
|
1.1 ! root 1: /* Copyright (c) 1979 Regents of the University of California */ ! 2: ! 3: static char sccsid[] = "@(#)SEED.c 1.5 3/7/81"; ! 4: ! 5: #include "h00vars.h" ! 6: ! 7: long ! 8: SEED(value) ! 9: long value; ! 10: { ! 11: long tmp; ! 12: ! 13: tmp = _seed; ! 14: _seed = value; ! 15: return tmp; ! 16: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.