@0


@1
S:MOV UP,ACC
JEZ R
SUB 90
JEZ U
SUB 90
JEZ L
MOV -6,DOWN
JMP N
R:MOV 1,DOWN
JMP N
U:MOV -9,DOWN
JMP N
L:MOV 5,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 -12,DOWN

@6


@7


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

@9
V:MOV -1,DOWN
MOV LEFT,DOWN
MOV RIGHT,DOWN
MOV 3,DOWN
C:MOV LEFT,ACC
MOV ACC,RIGHT
JRO ACC
H:MOV LEFT,NIL
MOV RIGHT,NIL
MOV 3,DOWN
JMP C
JMP V

@10
N:SWP
L:MOV ACC,LEFT
SAV
MOV LEFT,ACC
ADD 5
NEG
JRO ACC
D:SWP
ADD 1
JMP L
U:SWP
SUB 1
JMP L
F:SWP
JMP L
