@1
TOP: MOV UP, ACC
SAV
MOV UP, ACC
PIX: MOV ACC, DOWN
SWP
SUB 1
JEZ TOP
SWP
JMP PIX

@5
MOV 10, ACC
LOOP: SWP
MOV UP, ACC
MOV ACC, RIGHT
MOV UP, ACC
MOV ACC, RIGHT
MOV UP, ACC
MOV ACC, RIGHT
SWP
SUB 1
JNZ LOOP
MOV -1, RIGHT
MOV 10, ACC
JMP LOOP

@6
MOV 0, DOWN
MOV 0, DOWN
L: MOV LEFT, ACC
MOV ACC, DOWN
JLZ W
JMP L
W: SWP
ADD 1
SAV
MOV 0, DOWN
MOV ACC, DOWN
JMP L

@10
MOV UP, DOWN
