DEFINITION MODULE UNIFNR; FROM UNIFORM IMPORT Gener01, Gen, WrGen; PROCEDURE Setran0 (s : LONGINT); PROCEDURE Setran1 (s : LONGINT); PROCEDURE Setran2 (s : LONGINT); END UNIFNR.