# mission2a.adb

    --
    -- Ce programme effectue un tour de piste
    --
    -- Changement par rapport à la mission 1 : on utilise maintenant Avion_Sol et Tour
    --
    with Avion_Sol ;
    with Tour ;

    procedure Mission2A is

       package AS renames Avion_Sol ;

       -- Cette action déplace l'avion du point K au début de la piste
       procedure Rouler_KA is
       begin
          Tour.Attendre_Autorisation_Roulage ;
          AS.Rouler_Vers (Dest => 'L') ;
          AS.Rouler_Vers (Dest => 'M') ;

          -- Facultatif :
          --AS.Rouler_Vers (Dest => 'H') ;
          --AS.Rouler_Vers (Dest => 'G') ;
          --AS.Rouler_Vers (Dest => 'F') ;

          AS.Rouler_Vers (Dest => 'E') ;
          AS.Rouler_Vers (Dest => 'A') ;
       end Rouler_KA ;

       -- Cette action déplace l'avion de la fin de la piste au point K
       procedure Rouler_DK is
       begin
          AS.Rouler_Vers (Dest => 'N') ;
          AS.Rouler_Vers (Dest => 'P') ;

          --AS.Rouler_Vers (Dest => 'R') ;
          --AS.Rouler_Vers (Dest => 'S') ;
          --AS.Rouler_Vers (Dest => 'T') ;

          AS.Rouler_Vers (Dest => 'M') ;
          AS.Rouler_Vers (Dest => 'L') ;
          AS.Rouler_Vers (Dest => 'K') ;
       end Rouler_DK ;

       procedure Tester_Roulage is
       begin
          -- Aller en début de piste
          Rouler_KA ;

          -- Parcourir la piste
          Tour.Attendre_Autorisation_Decollage ;
          AS.Parcourir_Piste ;

          -- Retour au bercail
          Rouler_DK ;
       end Tester_Roulage ;

    begin
       Tester_Roulage ;
    end Mission2A ;