@0
MOV 0 RIGHT
L:MOV UP ACC
JEZ S
MOV ACC RIGHT
JMP L
S:MOV RIGHT ACC
MOV ACC DOWN
JEZ W
R:MOV RIGHT ACC
MOV ACC DOWN
MOV ACC DOWN
JNZ R
W:MOV DOWN ACC
JEZ L
JMP S

@3
I:MOV UP ACC
JEZ E
L:SAV
SUB UP
JGZ N
SWP
MOV UP DOWN
JMP L
N:SWP
MOV ACC DOWN
MOV UP ACC
JNZ L
MOV DOWN ACC
E:MOV ACC RIGHT
MOV RIGHT UP

@4
MOV LEFT ACC
SAV
MOV ACC DOWN
MOV 0 UP
R:MOV DOWN ACC
JEZ E
MOV ACC UP
JMP R
E:SWP
MOV ACC LEFT

@7
MOV 0 LEFT
MOV UP DOWN
R:MOV LEFT ACC
MOV ACC UP
JNZ R
