@0


@1
S:MOV UP,ACC
JEZ R
SUB 90
JEZ U
SUB 90
JEZ L
MOV 1,DOWN
JMP N
R:MOV -10,DOWN
JMP N
U:MOV 5,DOWN
JMP N
L:MOV -7,DOWN
N:MOV UP,DOWN

@2


@3


@4


@5
S:MOV UP,ACC
SAV
MOV UP,ACC
L:SUB 1
JEZ E
SWP
MOV ACC,DOWN
SWP
JMP L
E:MOV 4,DOWN

@6


@7


@8
JMP L
R:SWP
ADD 1
JMP L
H:SWP
SUB 1
JMP L
L:MOV ACC,RIGHT
SAV
MOV UP,ACC
MOV ACC,RIGHT
JRO ACC
SWP

@9
H:SWP
L:MOV LEFT,DOWN
MOV ACC,DOWN
MOV 3,DOWN
MOV -1,DOWN
SAV
MOV LEFT,ACC
JRO ACC
D:SWP
ADD 1
JMP L
JMP H
U:SWP
SUB 1
JMP L

@10

