-- RandomCodeRandom.mesa last edited by Sturgis: October 9, 1984 11:11:47 am PDT

RandomCodeRandom: CEDAR DEFINITIONS =

BEGIN

RandomState: TYPE = REF RandomStateBody;

RandomStateBody: TYPE;

InitRandom: PROCEDURE[seed: CARDINAL] RETURNS[state: RandomState];

Random: PROCEDURE [state: RandomState] RETURNS [CARDINAL];

END.

MODULE HISTORY

Initial by: Sturgis, October 9, 1984 11:12:04 am PDT.