function ZeroWindow (alpha:integer; prof:byte):integer;
    {comme un AlphaBeta, mais avec beta:=alpha+1}
    var Resultat,Maximum: integer;
        Ci:coup;
    begin
      Maximum:=-32000;    {plus petit que tout résultat d'évaluation}
      [*** cherche et classe tous les coups ***]
      Ci:= PremierCoup;
      repeat
        jouer(Ci);
        if (prof=1) then
           Resultat:=-evalue
        else
           Resultat:=-ZeroWindow(-succ(alpha),prof-1);
        dejoue(Ci);
        if (Resultat>Maximum) then Maximum:=Resultat;
        Ci:=CoupSuivant;
      until PlusDeCoups  or (maximum>Alpha);
      ZeroWindow:=Maximum;
    end;