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