JUMP     next
 
out:
ADD      15
OUTBOX
COPYFROM  1
OUTBOX
 
next: 
COPYFROM 14
COPYTO   1
INBOX

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