|##########|
|#MAGIC   #|CLABLLFP
|#PROJECT #|"ImportHelp"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x----xx-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|xx---xxxxx------
|##########|
DEFINITION MODULE Random;

(*----------------------------------------------------------------------------*)
(* Funktion  : Intitialiert den Zufallsgenerator neu.                         *)
(*----------------------------------------------------------------------------*)

PROCEDURE Randomize;

(*----------------------------------------------------------------------------*)
(* Funktion  : Liefert eine zufällige Realzahl.                               *)
(* Parameter :                                                                *)
(*              -> Zufällige Realzahl.                                        *)
(*----------------------------------------------------------------------------*)

PROCEDURE RealRND():LONGREAL;

(*----------------------------------------------------------------------------*)
(* Funktion : Liefert eine zufällige Longcardzahl aus einem bestimmten Bereich*)
(* Parameter:                                                                 *)
(*            Max <-  Maximal  mögliche Zufallszahl.                          *)
(*                 -> Zufällige Longcardzahl.                                 *)
(*----------------------------------------------------------------------------*)

PROCEDURE RND(Max IN 2 : LONGCARD):LONGCARD;

(*----------------------------------------------------------------------------*)
(* Funktion  : Liefert einen zufälligen Boolwert.                              *)
(* Parameter :                                                                *)
(*              -> Zufälliger Boolwert.                                       *)
(*----------------------------------------------------------------------------*)

PROCEDURE BoolRND():BOOLEAN;


GROUP
  All   = Randomize,RealRND,RND,BoolRND;

END Random.