; berechnet die Summe der ersten n natrlichen Zahlen

read 0 ; n
data 1
stor 1 ; 1
data 0
stor 3 ; erg

:continue
lade 3
add+ 0 ; erg := erg + n
stor 3

lade 0
sub- 1 ; n--
stor 0
go.p :continue

writ 3 ; erg
end.