next:
COPYFROM 14
COPYTO   1

INBOX
COPYTO   11

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

x:
ADD      15

OUTBOX
COPYFROM  1
OUTBOX
JUMP     next