@1
L: MOV UP, ACC
SUB 500
JLZ S
MOV 5, DOWN
SUB 99
MOV ACC, DOWN
JMP L
S: ADD 401
MOV 0, DOWN
MOV ACC, DOWN

@3
MOV RIGHT, ACC
L: ADD RIGHT
JGZ L
ADD 999
MOV ACC, DOWN

@4
MOV UP, LEFT
MOV UP, ACC
JMP T
B: SUB 100
MOV 1, LEFT
T: JGZ B
MOV -999, LEFT
ADD 99
MOV ACC, RIGHT

@5
L: MOV LEFT, ACC
SUB 50
JLZ S
MOV 5, RIGHT
MOV ACC, RIGHT
JMP L
S: ADD 50
MOV 0, RIGHT
MOV ACC, RIGHT

@6
L: MOV LEFT, ACC
SAV
MOV LEFT, ACC
SUB 30
JLZ S
SWP
ADD 3
SWP
JMP T
S: ADD 30
T: SWP
MOV ACC, DOWN
SWP
MOV ACC, DOWN

@7
MOV UP, DOWN

@8
MOV RIGHT, ACC
L: ADD RIGHT
JGZ L
ADD 999
MOV ACC, DOWN

@9
L: MOV RIGHT, LEFT
MOV RIGHT, ACC
SUB 20
JLZ LT
MOV -997, LEFT
MOV ACC, DOWN
JMP L
LT: ADD 10
JLZ F0
MOV -998, LEFT
MOV ACC, DOWN
JMP L
F0: ADD 10
MOV -999, LEFT
MOV ACC, DOWN

@10
MOV UP, LEFT
MOV UP, LEFT
