@0
MOV RIGHT,ACC
SAV
MOV RIGHT,ACC
SUB 300
JLZ N
SWP
ADD 3
JMP P
N:ADD 300
SWP
P:MOV ACC,DOWN
SWP
MOV ACC,DOWN

@1
MOV UP,ACC
SUB 500
JLZ N
MOV 5,LEFT
JMP S
N:ADD 500
MOV 0,LEFT
S:MOV ACC,LEFT

@3
MOV UP,DOWN
MOV UP,ACC
L:SUB 100
JLZ A
MOV 1,DOWN
JMP L
A:ADD 100
MOV -100,DOWN
MOV ACC,RIGHT

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

@5
MOV LEFT,ACC
SAV
MOV LEFT,ACC
SUB 30
JLZ N
SWP
ADD 3
JMP P
N:ADD 30
SWP
P:MOV ACC,DOWN
SWP
MOV ACC,DOWN

@7
MOV UP,ACC
L:ADD UP
JGZ L
ADD 100
MOV ACC,DOWN

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

@9
MOV UP,LEFT
MOV UP,ACC
L:SUB 10
JLZ A
MOV 1,LEFT
JMP L
A:ADD 10
MOV -100,LEFT
MOV ACC,DOWN
