@1
S: MOV -1, RIGHT
L: MOV UP, ACC
MOV ACC, DOWN
JLZ E
MOV ACC, RIGHT
MOV DOWN, ACC
JGZ C
MOV 0, ACC
C: MOV ACC, DOWN
JMP L
E: MOV DOWN, ACC
MOV ACC, DOWN
MOV DOWN, ACC

@4
S: MOV 999, ACC
L: SAV
SUB UP
MOV ACC, UP
SWP
SUB UP
JLZ E
JMP L
E: SWP
NEG
MOV ACC, RIGHT
MOV ACC, RIGHT
MOV ACC, UP

@5
S: MOV LEFT, ACC
MOV -1, RIGHT
T: MOV UP, ACC
JLZ O
MOV ACC, RIGHT
JMP T
O: MOV LEFT, ACC
ADD 1
L: SAV
ADD RIGHT
JLZ D
MOV ACC, DOWN
SWP
JMP L
D: MOV -1, DOWN

@7
MOV UP, DOWN
