1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:

Maxi:  //Rekursion; Mini und Maxi werden abwechselnd aufgerufen
  ErzeugeZuege;
  Tiefe--;  //tiefer in den Suchbaum
  if Tiefe = 1 then begin
LastMaxi:  //letzter Durchlauf, da Tiefe 1 -> In den Blättern Laufzeit sparen!
    Fuere Zug aus;
    Wert := Alter Wert + Änderung(geschlagene Fig, ...);
    Mache Zug Rückgängig;
    if Wert > BesterWert[Tiefe]
      BesterWert[Tiefe] := Wert;
    Nächster Zug;
    if Letzter Zug
      Goto ContinueMini;  //Zurück zur alten Tiefe und dort den nächsten Zug
    Goto LastMaxi;  //Wenn nicht letzter Zug, nächsten Tiefe1-Zug betrachten
  end;
ContinueMaxi:
  Tiefe++;  //Zurück zur alten Tiefe
  Mache Zug Rückgängig;
  Nächster Zug;
  if Letzter Zug then begin
    BesterWert[Tiefe] := BesterWert[Pred(Tiefe)];  //Wert = bester FolgeZug
    if Tiefe = SollTiefe
      Exit;  //Fertig
    Goto ContinueMini;  //Zurück zur alten Tiefe und dort den nächsten Zug
  end;  //Wenn nicht letzter Zug, Rekursion -> Mini
Mini:
  ErzeugeZuege;
  Tiefe--;  //tiefer in den Suchbaum
  if Tiefe = 1 then begin
LastMini:  //letzter Durchlauf, da Tiefe 1 -> In den Blättern Laufzeit sparen!
    Fuere Zug aus;
    Wert := Alter Wert + Änderung(geschlagene Fig, ...);
    Mache Zug Rückgängig;
    if Wert < BesterWert[Tiefe]
      BesterWert[Tiefe] := Wert;  //Es soll ja minimiert werden..
    Nächster Zug;
    if Letzter Zug
      Goto ContinueMaxi;  //Zurück zur alten Tiefe und dort den nächsten Zug
    Goto LastMini;  //Wenn nicht letzter Zug, nächsten Tiefe1-Zug betrachten
  end;
ContinueMini:
  Tiefe++;  //Zurück zur alten Tiefe
  Mache Zug Rückgängig;
  Nächster Zug;
  if Letzter Zug then begin
    BesterWert[Tiefe] := BesterWert[Pred(Tiefe)];  //Wert = bester FolgeZug
    if Tiefe = SollTiefe
      Exit;  //Fertig
    Goto ContinueMaxi;  //Zurück zur alten Tiefe und dort den nächsten Zug
  end;
  Goto Maxi;  //Wenn nicht letzter Zug, Rekursion -> Maxi