initial import of 386bsd-0.1 sources

1 files changed, 30 insertions, 0 deletions

diff --git a/hack/rnd.c b/hack/rnd.c
new file mode 100644
index 00000000..8547cef2
--- /dev/null
+++ b/hack/rnd.c
@@ -0,0 +1,30 @@
+/* rnd.c - version 1.0.2 */
+
+#define RND(x)	((random()>>3) % x)
+
+rn1(x,y)
+register x,y;
+{
+	return(RND(x)+y);
+}
+
+rn2(x)
+register x;
+{
+	return(RND(x));
+}
+
+rnd(x)
+register x;
+{
+	return(RND(x)+1);
+}
+
+d(n,x)
+register n,x;
+{
+	register tmp = n;
+
+	while(n--) tmp += RND(x);
+	return(tmp);
+}