; euklidischer Subtraktionsalgorithmus:

print a:
read 0 ; a
print b:
read 1 ; b

:continue
lade 0
sub- 1 ; a-b
go.0 :ende ; b=0
go.p :grer

; kleiner
lade 1
sub- 0 ; b-a
stor 1 ; b := b-a
goto :continue

:grer
stor 0 ; a := a-b
goto :continue

:ende
writ 0 ; erg := a
end.