; berechnet die Fakultt der eingegebenen Zahl

data 1
stor 1 ; 1
Read 2 ; n
Lade 2

:continue
stor 3
lade 2
sub- 1
go.0 :end
stor 2
mul* 3
goto :continue

:end
writ 3 ; n!
end.