@0
JRO DOWN
MOV LEFT RIGHT
MOV LEFT RIGHT
MOV LEFT RIGHT
MOV LEFT RIGHT
MOV LEFT ACC
ADD 1
MOV ACC LEFT
JRO DOWN
MOV RIGHT LEFT
MOV RIGHT LEFT
MOV RIGHT LEFT
MOV RIGHT LEFT
MOV UP DOWN

@1
MOV 0 UP
MOV 0 UP
MOV 0 UP
MOV 0 UP
MOV 0 UP
MOV 13 RIGHT
MOV RIGHT NIL
MOV UP DOWN
MOV UP DOWN
MOV UP DOWN
MOV UP DOWN
MOV UP DOWN

@2
E:MOV LEFT UP
L:MOV UP ACC
JEZ Z
MOV ACC UP
MOV ACC UP
JMP L
Z:MOV 0 LEFT

@4
MOV UP ACC
MOV ACC RIGHT
MOV ACC RIGHT

@5
L:SUB LEFT
JEZ T
JLZ N
MOV 2 RIGHT
JMP A
T:MOV 6 RIGHT
A:ADD LEFT
JMP W
N:MOV 1 RIGHT
MOV LEFT ACC
W:JRO RIGHT
MOV RIGHT DOWN
MOV 0 ACC

@6
S:MOV 5 ACC
L:JRO LEFT
SAV
A:SUB 1
JEZ E
MOV -10 LEFT
JMP L
T:SWP
MOV 0 ACC
SWP
JMP A
E:SWP
MOV 1 LEFT
MOV ACC LEFT
