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

diff --git a/sw/adventure/RND.FT b/sw/adventure/RND.FT
deleted file mode 100644
index 749e17f..0000000
--- a/sw/adventure/RND.FT
+++ /dev/null
@@ -1,19 +0,0 @@
-	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