JUMP     init

out:
COPYFROM 0
OUTBOX

init:
INBOX
COPYTO   0
JUMP     main

switch:
ADD      0
COPYTO   0

main:
INBOX
JUMPZ    out
SUB      0
JUMPN    switch
JUMP     main