DEFINITION MODULE Randomize; PROCEDURE random(Grenze:LONGINT):LONGINT; PROCEDURE RanEcu():REAL; END Randomize.