@0
S:MOV UP,ACC
JGZ D
JLZ L
E:MOV -3 DOWN
MOV UP,ACC
JGZ D
JEZ E
L:MOV 4 DOWN!
MOV -3 RIGHT
MOV RIGHT,DOWN
MOV -3 LEFT
JRO -3
D:MOV ACC,RIGHT
MOV ACC,LEFT

@1
JMP F
MOV ACC,LEFT
MOV 1 DOWN
MOV DOWN ACC
S:JRO LEFT
JMP S
F:SUB 1 # 2
JMP S
MOV 8 DOWN # 4
JMP S
MOV -1 DOWN # 6
JMP S
MOV 6 DOWN # 8
MOV -5 DOWN # 9
JMP S

@2
SWP  # 7
SUB 1
E:SWP
JNZ S

SUB 1 # 5

S:JRO RIGHT

K:MOV ACC,RIGHT
MOV RIGHT NIL
SWP
MOV ACC RIGHT
MOV RIGHT DOWN

@3
JMP F
MOV ACC RIGHT
MOV 1 LEFT
MOV LEFT ACC

S:JRO UP
MOV -1 RIGHT# 1
JMP S
F:SUB 1 #3
JMP S
MOV -1 LEFT # 5
JMP S
MOV -5 LEFT # 7
JMP S

@4
MOV 1 DOWN
JNZ S

SUB 1
S:JRO ANY

N:MOV 0 DOWN
JRO 2
NZ:MOV 1 DOWN
MOV ACC,DOWN
8:ADD 9
JLZ N
MOV ANY ACC
JMP NZ

@5
SWP # 9
SUB 1
E:SWP
JNZ S
SUB 1 # 6
S:JRO UP
MOV 1 DOWN
MOV DOWN UP
MOV UP NIL
MOV ACC UP
JMP E
MOV UP DOWN # 8
JMP S
MOV -1 DOWN # 4
JMP S

@6


@7
JEZ F
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,DOWN
MOV ACC,DOWN
F:ADD UP
S:JRO UP
MOV 0 DOWN
JMP S
MOV -1 DOWN

@8
SWP # 8
SUB 1
E:SWP
JNZ S

SUB 1 # 4
S:JRO UP

MOV ACC,UP
MOV 99 ACC
JMP E