From: Kirk McKusick <mckusick@ucbvax.Berkeley.EDU>
Date: Thu, 30 Oct 1980 16:35:38 +0000 (-0800)
Subject: date and time created 80/10/30 00:35:38 by mckusick
X-Git-Tag: BSD-4^3~84
X-Git-Url: https://git.subgeniuskitty.com/unix-history/.git/commitdiff_plain/14a8b4467209d87e20c5542414b0528e53ed8181?hp=cddc32ac0d840d0a8abf84a2a7c78d8e7a9a9f3b

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

SCCS-vsn: usr.bin/pascal/libpc/SEED.c 1.1
---

diff --git a/usr/src/usr.bin/pascal/libpc/SEED.c b/usr/src/usr.bin/pascal/libpc/SEED.c
new file mode 100644
index 0000000000..ce65893751
--- /dev/null
+++ b/usr/src/usr.bin/pascal/libpc/SEED.c
@@ -0,0 +1,16 @@
+/* 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;
+}