@1
MOV UP, ACC
JEZ R
SUB 90
JEZ U
SUB 90
JEZ L
MOV 3, DOWN
JMP LEN
R: MOV 1, DOWN
JMP LEN
U: MOV 7, DOWN
JMP LEN
L: MOV 5, DOWN
LEN: MOV UP, DOWN

@5
S: MOV UP, ACC
SAV
MOV UP, ACC
SUB 1
JEZ S
LP: SWP
MOV ACC, DOWN
MOV ACC, DOWN
SWP
SUB 1
JNZ LP
JMP S

@8
MOV 0, RIGHT
Q: JRO UP
ADD 1
JMP O
JMP O
NOP
SUB 1
JMP O
JMP O
NOP
O: MOV UP, RIGHT
MOV ACC, RIGHT
JMP Q

@9
S: SAV
MOV LEFT, ACC
MOV ACC, DOWN
SWP
MOV ACC, DOWN
MOV 3, DOWN
MOV -1, DOWN
JRO LEFT
JMP S
NOP
ADD 1
JMP S
JMP S
NOP
SUB 1
