@0
MOV UP RIGHT

@1
MOV UP   RIGHT
MOV LEFT RIGHT

@2
MOV UP    DOWN
MOV RIGHT DOWN
MOV LEFT  DOWN
MOV LEFT  DOWN
MOV -999  DOWN

@3
MOV UP LEFT

@4


@5
S: ADD RIGHT
   SUB RIGHT
   JLZ L

G: MOV 0 RIGHT
   JMP S

L: MOV ACC RIGHT
   NEG

@6
ADD ANY
MOV ACC DOWN
MOV ACC LEFT

MOV UP  ACC
MOV ACC LEFT
MOV ACC DOWN

@7


@8


@9
S: MOV UP ACC
   SAV
D: SUB UP
   JLZ S
   ADD UP
   JGZ D

L: SWP
   MOV ACC DOWN

   MOV UP NIL

@10