Anwendung von Verzweigungsbefehlen (CASE)

In einem vorherigen Beispiel wurde die Anwendung von den Verzweigungsbefehlen IF-ELSE gezeigt, zusätzlich gibt es aber auch noch die CASE-ELSE Verzweigungsbefehle. Sie werden vorallem dann benutzt wenn man sehr viele Bedingungen prüfen möchte und dazu mehrere Aktionen ausführen will. Theoretisch wäre das mit IF-ELSE auch machbar, aber sehr unperformant. In diesem kurzen Beispiel wird die Funktionsweiße erläutert:

CASE kleidergröße OF          //Für den fall das die Kleidergröße...
  'S':                        //- S ist...
    korb = S                  //...lege es in Korb S.
  'M':                        //- M ist...
    korb = M                  //...lege es in Korb M.
  ELSE                        //- eine andere Größe ist...
    korb = aussortiert        //...lege es in den Korb zum aussortieren.
END;                          //Hier wird das CASE wieder geschlossen.

Im Beispiel ist "kleidergröße" eine Variable, die die verschiedenen Größen enthalten kann.
Man kann auch mehrere Dinge in einem angeben, bei dem immer die selbe Aktion folgen soll. Außerdem kann man mehrere Aktionen angeben mit BEGIN und END; innerhalb des Anweisungsblocks.

CASE kleidergröße OF          //Für den Fall das die Kleidergröße...
  'S':                        //- S ist...
    BEGIN                     //Starte eine Reihe von Anweisungen und...
      korb = S                //... lege es in den Korb S und...
      notiz = 'bügeln lassen' //... füge die Notiz hinzu das es gebügelt werden soll.
    END;                      //Hier beendet man den Anweisungsblock.
  'M':                        //- M ist...
    korb = M                  //... lege es in den Korb M
  'L','XL','XXL':             //- L,XL oder XXL ist...
    korb = L-XXL              //... lege es in den Korb L-XXL
  ELSE                        //- eine andere größe ist...
    korb = aussortiert        //... lege es in den Korb zum aussortieren.
END;                          //Hier wird das CASE wieder geschlossen.

Wenn ein CASE geöffnet wird muss man es am Ende mit einem "END;" schließen.