Mit diesem Applet wird die Ziffernsumme einer Zahl berechnet.[br]Dazu wird im Skript des Eingabefeldes ein Skript mit einer Rekursion ausgeführt, das einer [b]While-Schleife [/b]entspricht.[br][br]Das [b]Skript [/b]für das Eingabefeld ('Bei Update') lautet:[br][br][i] s=0[br]  # s ist die Ziffernsumme[br] SetzeWert(n1, n)[br] # n wird auf n1 übergeben, damit der Wert n in dem Eingabefeld erhalten bleibt[br] Do = {"SetValue(s, s + Mod(n1, 10))", "SetValue(n1, Div(n1, 10))"}[br] Schleife = {"If(n1 > 0, Execute(Join(Do, Schleife)))"}[br] Ausführen(Schleife)[br] Text1=Text("Die Ziffernsumme der Zahl n ist "+ s + ".")[br]  rem = "Ausgabe als dynamischer Text."[/i]