@0
MOV UP, DOWN

@2
MOV UP, DOWN

@4
MOV UP, ACC
SAV
MOV ACC, DOWN
S: MOV UP, ACC
MOV ACC, RIGHT
JNZ S
W: MOV RIGHT, ACC
MOV ACC, DOWN
JMP W

@5
MOV LEFT, ACC
SAV
MOV ACC, DOWN
S: MOV LEFT, ACC
MOV ACC, RIGHT
JNZ S
MOV 0, ACC
W: MOV ACC, LEFT
MOV RIGHT, ACC
MOV ACC, DOWN
JMP W

@6
MOV LEFT, ACC
SAV
MOV LEFT, NIL
MOV 0, ACC
W: MOV ACC, LEFT
MOV UP, ACC
MOV ACC, DOWN
SWP
MOV ACC, DOWN
SWP
JMP W

@8
MOV UP, ACC
SAV
L: SWP
SAV
SUB UP
JEZ Z
MOV 1, ACC
Z: MOV ACC, RIGHT
JMP L

@9
MOV UP, ACC
SAV
L: SWP
SAV
SUB UP
JEZ Z
MOV 1, ACC
Z: ADD LEFT
MOV ACC, RIGHT
JMP L

@10
L: MOV UP, ACC
SUB UP
JEZ Z
MOV 1, ACC
Z: ADD LEFT
JNZ N
MOV 1, DOWN
JMP L
N: MOV 0, DOWN
