Quelltext der imaginäre Programmiersprache Adelheid 2005

bla.adelheid

Paket Eigenheim ist   

   Sorte Geschirr ist Stapel (Positiver Bereich <>) von Teller;

   Paket Tellerhaufen ist neuer Haufen mit (Gegenstand => Teller);

   Aufgabe Küche_Machen ist
      Einsprungspunkt Dreckiges_Geschirr_Kommt (Dreckiges_Geschirr : Geschirr);
   Ende von Küche_Machen;
   
   Aufgabenkörper Küche_Machen ist
      Spüle : Tellerhaufen;
   Abmarsch
      Kreislauf
         Wähle_Aus
            Nehme_Entgegen Dreckiges_Geschirr_Kommt (Dreckiges_Geschirr : Geschirr) mache
               Spüle.Stapele (Dreckiges_Geschirr);
            Ende von Dreckiges_Geschirr_Kommt;
         Sonst
            Rufe_Aus
               Aktueller_Teller : Teller := Spüle.Nimm_Einen;
            Abmarsch
               Putze (Aktueller_Teller);
               Schrank.Stapele (Aktueller_Teller);
            Ende;
         Ende von Auswahl;
      Ende von Kreislauf;
   Ende von Küche_Machen;
Ende von Eigenheim;