@0
MOV UP ACC!
MOV UP  NIL
MOV UP DOWN
MOV ACC ANY
JRO -1

@1
MOV LEFT ACC
SUB RIGHT
MOV ACC DOWN

@2
MOV UP NIL
MOV UP NIL
MOV UP NIL
MOV UP NIL
MOV UP DOWN
MOV UP NIL
MOV UP NIL
MOV UP DOWN
MOV UP LEFT
JRO -1

@3


@4
MOV UP ACC
MOV ACC DOWN
MOV 0 DOWN
MOV DOWN NIL
MOV ACC DOWN
SUB UP
N:MOV ACC DOWN
JRO -1

@5
MOV UP ACC
MOV ACC DOWN
JEZ C0

B0:MOV UP ACC

C0:MOV UP ACC
JEZ C0

MOV RIGHT NIL

@6
   MOV 0 ANY
   JNZ N2

   MOV UP ACC
   SUB DOWN
   JNZ N1
   MOV 1 DOWN
   JMP S
N1: MOV 0 DOWN
S: MOV UP ACC
   SUB DOWN
   JNZ N2
   MOV 1 DOWN

N2:ADD 999

@7


@8
MOV UP ANY

@9
MOV 0 RIGHT
MOV 0 RIGHT
MOV 0 RIGHT
MOV LEFT RIGHT
MOV LEFT RIGHT
MOV 0 RIGHT
N:MOV 0 RIGHT
S:MOV LEFT ACC
ADD UP
JNZ N
MOV 1 RIGHT
JMP S

@10
MOV ANY ANY