-- 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.