JUMP     next

out:
ADD      15
OUTBOX
COPYFROM  1
OUTBOX

next: 
INBOX
COPYTO   11
COPYFROM 14
COPYTO   1

cal:
COPYFROM 11
SUB      15
JUMPN    out
COPYTO   11
BUMPUP   1
JUMP     cal