@0
   MOV RIGHT ACC
A: SUB RIGHT
   JLZ L
   MOV -2 RIGHT
  JMP A

L: MOV  1 RIGHT

B: MOV -2 ANY
   ADD RIGHT
  JLZ B

   MOV -99 RIGHT
   MOV 502 DOWN
   MOV ACC DOWN

@1
   MOV UP RIGHT
   MOV RIGHT ACC
   SAV
   ADD ACC
   MOV UP DOWN
   MOV UP LEFT
   ADD ACC
   ADD ACC
   MOV ACC LEFT
   MOV 8   DOWN
A:JRO LEFT
   SWP
   MOV ACC LEFT
   MOV -1  DOWN
B:JRO LEFT

@2
   MOV UP ACC
   MOV LEFT RIGHT
   MOV UP DOWN
   MOV UP LEFT
   SAV
   ADD ACC
   ADD ACC
   ADD ACC
   MOV ACC  RIGHT
   MOV -2   ANY
A:JRO RIGHT
   SWP
   MOV ACC RIGHT
   MOV -1  DOWN
B:JRO RIGHT

@3
   MOV ACC DOWN
   MOV LEFT ACC
A: SUB LEFT
  JLZ L
   MOV -2  LEFT
  JGZ A
L: MOV 1 ANY
  JNZ N
  JRO LEFT

B: MOV -2  LEFT
N: ADD LEFT
  JLZ B
   MOV 2 DOWN
   MOV  -99  LEFT

@4
 MOV RIGHT LEFT
 MOV UP RIGHT

   MOV -500 ACC
L: ADD ANY
  JLZ L

 MOV ACC DOWN

# BAISED PARTLY ON
# A CONCEPT FROM
# BRIAN142857

@5
   MOV UP   ACC
   MOV ACC  LEFT
   MOV ACC  DOWN
   MOV LEFT DOWN
   MOV UP NIL
   SUB ACC
   ADD 9
   SUB 1
J:JRO ANY
   MOV UP NIL
   MOV ACC   DOWN
   MOV RIGHT DOWN

@6
 MOV UP ACC
 ADD ACC
 ADD ACC
 ADD ACC
 MOV ACC RIGHT

 MOV -500 ACC

L: ADD RIGHT
  JLZ L

 MOV ACC RIGHT
 MOV UP RIGHT

@7
   MOV RIGHT ACC
   SAV
   ADD LEFT
   MOV ACC RIGHT
   MOV 9   LEFT
A:JRO RIGHT
   SWP
   MOV ACC RIGHT
   MOV -1  LEFT
B:JRO RIGHT
   MOV 500   LEFT
   MOV RIGHT DOWN
   MOV LEFT  DOWN
   MOV UP    DOWN
   MOV LEFT  RIGHT

@8
   MOV UP LEFT
   MOV UP  ACC
A: SUB LEFT
  JLZ L
   MOV -2  LEFT
  JMP A
B: MOV -2  LEFT
N: ADD LEFT
  JLZ B
L: MOV  1  LEFT
  JLZ N
   MOV UP   LEFT
   MOV UP   DOWN
   MOV ACC  DOWN
   MOV LEFT DOWN