_name Wählbare~Konstante~addieren _var c _var initial tstne initial go ; Test, ab c Null ist, wenn nicht Sprung nach go input c Zu~addierende~Konstante ; Konstante c abfragen mov initial 1 ; Initial auf 1 setzen; ist nun nicht mehr Null go: ; Marke, die das Sprungziel ist mov x' x ; x holen und nach x' schaffen add x' c ; c auf x' addieren exit ; Ende _end