COPYFROM 14
COPYTO   13
COPYTO   12
INBOX
COPYTO   0
OUTBOX
JUMP     loop

out:
COPYFROM 11
OUTBOX

reset:
COPYFROM 14
COPYTO   12

loop:
INBOX
COPYTO   11

find:
COPYFROM 13
SUB      12
JUMPN    notfound
COPYFROM [12]
SUB      11
JUMPZ    reset
BUMPUP   12
JUMP     find

notfound:
BUMPUP   13
COPYFROM 11
COPYTO   [13]
JUMP     out