@1
MOV 0 RIGHT
L: MOV 998 ACC
SUB UP
MOV ACC DOWN
MOV ACC DOWN
SUB 999
MOV ACC RIGHT
JNZ L
MOV DOWN NIL

@4
MOV -999 ACC
L: SAV
SUB UP
ADD UP
JNZ L
SWP
MOV ACC RIGHT
MOV RIGHT UP

@5
MOV LEFT DOWN
MOV UP NIL
MOV 0 RIGHT
L: MOV UP ACC
MOV ACC RIGHT
JNZ L
MOV RIGHT NIL
MOV 0 LEFT
O: MOV RIGHT ACC
MOV ACC DOWN
JNZ O

@7
MOV UP ACC
L: SAV
SUB UP
JLZ E
MOV ACC DOWN
SWP
JMP L
E: MOV -1 DOWN
