push 0 ; * 
push 7 ; * Liste med tall, nederste element er 0
push 2 ; *
push 8 ; *
push 5 ; *
push 4 ; *main

LOOP
; --- kontrollera om nästa tal som finns på stacken är 0
swap       ; byt plats på de översta talen
dup        ; kopiera talet som är överst på stacken
push 0     ; push:a 0
eq         ; plocka bort de två översta talen på stacken och jämför dem
jtrue SLUT ; hoppa till slutet om talet == 0

; --- spara det högsta talet av de två som är överst på stacken

jmp LOOP   ; hoppa tillbaka till början

SLUT
drop       ; ta bort nollan

end main