The Die module
•
MODULE
Die1;
•
FROM
Lib
IMPORT
RANDOM;
•
EXPORT
Value1, RollDie;
•
VAR
value1 : CARDINAL;
•
PROCEDURE
RollDie1;
•
BEGIN
•
Value1 = RANDOM(5)+1
•
END
RollDie1;
•
BEGIN
•
Value1 := 0
•
END
Die1;