X-Git-Url: http://gitweb.hachti.de/?a=blobdiff_plain;f=sw%2Fadventure%2F0906%2FRND.FT;fp=sw%2Fadventure%2F0906%2FRND.FT;h=749e17f538075d820542611fbedc423c2c1e251f;hb=81e70d488b71bf995c459ca3a02c025993460ffa;hp=0000000000000000000000000000000000000000;hpb=07ec0278333ed187ac242dedcff13c56cf1b0b91;p=pdp8.git

diff --git a/sw/adventure/0906/RND.FT b/sw/adventure/0906/RND.FT
new file mode 100644
index 0000000..749e17f
--- /dev/null
+++ b/sw/adventure/0906/RND.FT
@@ -0,0 +1,19 @@
+	INTEGER FUNCTION RND(LIMIT)
+
+C
+C	GENERATES RANDOM INTEGER IN THE RANGE
+C		0 < N < LIMIT
+C
+C	USES THE RANDOM SEED GENERATED BY THE
+C	RALF MODULE "SEED"
+C
+	COMMON/NUMCOM/NUMBER
+	LOGICAL FLAG
+	DATA FLAG/.FALSE./,NUMBER/0/
+	IF(FLAG)GOTO 10
+	FLAG=.TRUE.
+	IRND=132*(NUMBER+327)
+10	IRND=MOD(IRND*1021,1048576)
+	RND=(LIMIT*IRND)/1048576
+	RETURN
+	END