@1
MOV UP,ACC
SUB 500
JLZ N
MOV 5,DOWN
JMP C
N:ADD 500
MOV 0,DOWN
C:SUB 300
JLZ M
MOV 3,DOWN
JMP S
M:ADD 300
MOV 0,DOWN
S:MOV ACC,DOWN

@4
MOV UP,DOWN
MOV UP,DOWN
MOV UP,DOWN
MOV DOWN,ACC
SUB 50
JLZ N
MOV 5,DOWN
JMP S
N:ADD 50
MOV 0,DOWN
S:MOV ACC,DOWN

@7
MOV RIGHT,ACC
ADD RIGHT
SAV
MOV RIGHT,ACC
L:SUB 100
JLZ D
SWP
ADD 1
SWP
JMP L
D:ADD 100
SWP
MOV ACC,DOWN
SWP
MOV ACC,RIGHT

@8
MOV UP,LEFT
MOV UP,LEFT
MOV UP,LEFT
MOV LEFT,UP
MOV UP,RIGHT
MOV UP,RIGHT
MOV RIGHT,DOWN

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