IMPLEMENTATION MODULE SIM; (************************************************************************** Environnement : SOLARIS 2.3 Mcs. ------------- Programmeurs : ------------ Pierre L'Ecuyer ***************************************************************************) IMPORT EVENT; PROCEDURE Init; BEGIN TimeSimul := 0.0; EVENT.EmptyEventList END Init; PROCEDURE Start; BEGIN Fin := FALSE; EVENT.SimLoop END Start; PROCEDURE Stop; BEGIN Fin := TRUE END Stop; PROCEDURE Time () : LONGREAL; BEGIN RETURN TimeSimul END Time; BEGIN TimeSimul := 0.0 END SIM.