mission0.adb

--
-- Ce programme effectue un tour de piste
-- en utilisant l'acteur Simulation
--

with Simulation ;

procedure Mission0 is

   package S renames Simulation ;

begin

   S.Attendre_Autorisation_Roulage ;

   S.Rouler_Vers (Dest => 'L') ;
   S.Rouler_Vers (Dest => 'M') ;
   S.Rouler_Vers (Dest => 'E') ;
   S.Rouler_Vers (Dest => 'A') ;

   S.Attendre_Autorisation_Decollage ;
   S.Parcourir_Piste ;

   S.Rouler_Vers (Dest => 'N') ;
   S.Rouler_Vers (Dest => 'P') ;

   S.Rouler_Vers (Dest => 'M') ;
   S.Rouler_Vers (Dest => 'L') ;
   S.Rouler_Vers (Dest => 'K') ;

end Mission0 ;