The Die module
•
MODULE
Die2;
•
FROM
Lib
IMPORT
RANDOM;
•
EXPORT
Value2, RollDie;
•
VAR
value2 : CARDINAL;
•
PROCEDURE
RollDie2;
•
BEGIN
•
Value2 = RANDOM(5)+1
•
END
RollDie2;
•
BEGIN
•
Value2 := 0
•
END
Die2;