@1
MOV UP, RIGHT

@2
MOV LEFT, DOWN
MOV ACC, DOWN
MOV UP, DOWN
MOV ACC, DOWN
ADD 8

@5
S: MOV UP, ACC
SAV
SUB UP
JGZ SN
MOV UP, ACC
SAV
SUB UP
JGZ S0
JMP SM
S0: MOV 0, DOWN
JMP S
SN: MOV UP, NIL
MOV UP, NIL
SM: SWP
MOV ACC, DOWN

@7
MOV UP, DOWN
