DEFINITION MODULE SUPRAND; FROM SUPINT IMPORT SuperInteger; PROCEDURE SupRandom ( A, B, C : SuperInteger ); PROCEDURE SetSeed ( S1, S2 : LONGINT ); PROCEDURE GetState ( VAR S1, S2 : LONGINT ); END SUPRAND.