@0
S: MOV 29 ACC
   SUB RIGHT
   MOV ACC DOWN
Z: MOV 1 RIGHT
  JEZ S
   MOV RIGHT DOWN
  JRO DOWN
   SUB 10
A: MOV -2 RIGHT
   ADD 6
  JLZ A
   SUB 8
  JEZ Z
   MOV -5 RIGHT
   MOV ACC RIGHT

@1
MOV UP LEFT
MOV UP ACC
MOV ACC RIGHT
MOV -99 LAST
MOV ACC ANY
ADD LEFT
MOV ACC LEFT
JMP B
 MOV 1 RIGHT
 MOV LEFT DOWN
 JRO -999
 MOV -1 RIGHT
 MOV -5 DOWN
B:JRO LEFT
 MOV -3 RIGHT

@2
MOV LEFT ACC
MOV ACC DOWN
MOV ACC DOWN
JRO LEFT
MOV ACC DOWN

@3
# 20 LENGTH MIN
# 45 LENGTH MAX

#BUILT ON EASONE'S
# 1190/6/39

@4
  JMP J
0: MOV DOWN UP
   MOV RIGHT NIL
   MOV RIGHT NIL
   MOV DOWN RIGHT
J:   SUB 12
  JLZ >
<: SUB 30
>: SUB UP
   ADD 11
  JRO UP

  JGZ 0!
   MOV 1 UP

@5
MOV UP ACC
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC RIGHT
MOV ACC ANY
MOV ACC RIGHT
MOV ACC ANY
MOV ACC RIGHT
JRO ANY
HCF
HCF
JRO UP

@6
MOV ANY DOWN

@7


@8
MOV  19 RIGHT
MOV  4 ANY

@9
 JGZ G
 JEZ Z
 JMP X
L: ADD LEFT
  JRO LEFT
  NOP
S: SUB 303
X: ADD 38
  JLZ L
G: MOV -1 RIGHT
Z: MOV 0 RIGHT
   MOV ACC RIGHT
  JMP S
0: ADD 133

@10
MOV ANY DOWN

@11