From 5b610e4697d8c43a2bac6ed878766c501d197d9c Mon Sep 17 00:00:00 2001
From: Tom London <tbl@research.uucp>
Date: Wed, 13 Dec 1978 07:02:22 -0500
Subject: [PATCH] Bell 32V development Work on file usr/src/games/fortune.c

Co-Authored-By: John Reiser <jfr@research.uucp>
Synthesized-from: 32v
---
 usr/src/games/fortune.c | 31 +++++++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100644 usr/src/games/fortune.c

diff --git a/usr/src/games/fortune.c b/usr/src/games/fortune.c
new file mode 100644
index 0000000000..cdd3d48e14
--- /dev/null
+++ b/usr/src/games/fortune.c
@@ -0,0 +1,31 @@
+#include <stdio.h>
+
+char line[500];
+char bline[500];
+
+main()
+{
+	double p;
+	register char * l;
+	long t;
+	FILE *f;
+
+	f = fopen("/usr/games/lib/fortunes", "r");
+	if (f == NULL) {
+		printf("Memory fault -- core dumped\n");
+		exit(1);
+	}
+	time(&t);
+	srand(getpid() + (int)((t>>16) + t));
+	p = 1.;
+	for(;;) {
+		l = fgets(line, 500, f);
+		if(l == NULL)
+			break;
+		if(rand() < 2147483648./p)
+			strcpy(bline, line);
+		p += 1.;
+	}
+	fputs(bline, stdout);
+	return(0);
+}
-- 
2.20.1