@0


@1
^:MOV UP,ACC
JEZ NXT
MOV ACC,DOWN
JMP ^
NXT:MOV 999,DOWN

@2
^:MOV UP,ACC
JEZ NXT
MOV ACC,DOWN
JMP ^
NXT:MOV 999,DOWN

@3
MOV UP,ACC
MOV ACC,RIGHT
JRO RIGHT
MOV ACC,RIGHT

@4
^:MOV LEFT,ACC
SUB RIGHT
JEZ DONE
JLZ <-
MOV -1,LEFT
MOV 1,ANY #->
JMP V
<-:MOV -1,RIGHT
MOV 1,ANY
V:MOV LAST,DOWN
JMP ^
DONE:MOV -999,LEFT
MOV -999,RIGHT
MOV 0,DOWN

@5
MOV UP,ACC
MOV ACC,LEFT
JRO LEFT
MOV ACC,LEFT

@6


@7


@8
MOV UP,DOWN