Using ADA for Discrete Event Simulation