JUMP     next
next0:
OUTBOX

next:
INBOX
JUMPZ    next0
COPYTO   0
JUMPN    neg

pos:
OUTBOX
BUMPDN   0
JUMPZ    next0
JUMP     pos

neg:
OUTBOX
BUMPUP   0
JUMPZ    next0
JUMP     neg