Eine Schleife, die die Werte 1 bis 10 mit sich selbst multipliziert
und das Ergebnis aufaddiert:
var x, y, z;
begin
x := 1;
z := 0;
while x < 11 do
begin
y := x * x;
write y;
z := z + y;
x := x + 1;
end;
write z;
end.
Der vom Compiler erstellte Assembler-Quelltext muss noch ergaenzt
werden, damit die Uebersetzung mit ACME funktioniert. Im folgenden
fertigen Quelltext ist der vom Compiler erzeugte Code mit den
Kommentaren "start pl/0" und "ende pl/0" markiert. Zur Erlaeuterung
des Quelltextes sei auf die Dokumentation im Projekt "Stackbasierte
Programmierung" verwiesen.
