From 14a8b4467209d87e20c5542414b0528e53ed8181 Mon Sep 17 00:00:00 2001
From: Kirk McKusick <mckusick@ucbvax.Berkeley.EDU>
Date: Thu, 30 Oct 1980 08:35:38 -0800
Subject: [PATCH] date and time created 80/10/30 00:35:38 by mckusick

SCCS-vsn: usr.bin/pascal/libpc/SEED.c 1.1
---
 usr/src/usr.bin/pascal/libpc/SEED.c | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 usr/src/usr.bin/pascal/libpc/SEED.c

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;
+}
-- 
2.20.1