@0


@1
   MOV UP  ACC

A: SUB RIGHT
   JLZ L
   MOV -2  RIGHT
   JMP A

B: MOV -2  RIGHT
N: ADD RIGHT
   JLZ B

L: MOV  1  RIGHT
   JLZ N

   MOV ACC RIGHT

@2
MOV UP   ACC
SAV
ADD ACC
ADD ACC
ADD ACC
MOV ACC  LEFT
MOV   8  DOWN
JRO LEFT
SWP
MOV ACC  LEFT
MOV  -1  DOWN
JRO LEFT
MOV 500  DOWN
MOV LEFT DOWN

@3


@4


@5
MOV UP DOWN

@6


@7
   MOV -500 ACC

L: ADD RIGHT
   JLZ L

   MOV ACC DOWN

@8
MOV UP ANY