Initial revision

lang/m2/libm2/random.mod

@@ -0,0 +1,19 @@
+IMPLEMENTATION MODULE random;
+
+VAR	seed: CARDINAL;
+
+PROCEDURE Random(): CARDINAL;
+BEGIN
+	seed := seed * 77 + 153;
+	RETURN seed;
+END Random;
+
+PROCEDURE Uniform (lwb, upb: CARDINAL): CARDINAL;
+BEGIN
+    	IF upb <= lwb THEN RETURN lwb; END;
+    	RETURN lwb + (Random() MOD (upb - lwb + 1));
+END Uniform;
+
+BEGIN
+	seed := 253B;
+END random.