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

@3
MOV RIGHT, DOWN

@4
MOV UP, ACC
SAV
MOV UP, ACC
L: SUB 100
JLZ DONE
SWP
ADD 1
SWP
JMP L
DONE: ADD 100
MOV ACC, RIGHT
SWP
MOV ACC, LEFT

@5
S: MOV LEFT, ACC
SUB 30
JLZ L02
SUB 30
JLZ L35
MOV 6, DOWN
MOV ACC, DOWN
JMP S
L35: ADD 30
MOV 3, DOWN
MOV ACC, DOWN
JMP S
L02: ADD 30
MOV 0, DOWN
MOV ACC, DOWN

@7
MOV UP, DOWN

@8
MOV RIGHT, DOWN

@9
MOV UP, ACC
SAV
MOV UP, ACC
L: SUB 10
JLZ DONE
SWP
ADD 1
SWP
JMP L
DONE: ADD 10
MOV ACC, DOWN
SWP
MOV ACC, LEFT
