BruhAna/mission1.adb

--
-- Programme à compléter
--
with Simulation ;

procedure Mission1 is
   package Sm renames Simulation;
   procedure Rouler_KA is
   begin
      Sm.Rouler_Vers('L');
      Sm.Rouler_Vers('M');
      Sm.Rouler_Vers('E');
      Sm.Rouler_Vers('A');
   end Rouler_KA;
   procedure Rouler_DK is
   begin 
      Sm.Rouler_Vers('N');
      Sm.Rouler_Vers('M');
      Sm.Rouler_Vers('L');
      Sm.Rouler_Vers('K');
   end Rouler_DK;
   procedure Tester_Roulage is
   begin
      Sm.Attendre_Autorisation_Roulage;
      Mission1.Rouler_KA;
      Sm.Attendre_Autorisation_Decollage;
      Sm.Parcourir_Piste;
      Mission1.Rouler_DK;
   end Tester_Roulage;
   
begin
   Tester_Roulage;
end Mission1 ;