@0
MOV 8,ACC
I:MOV 0,LEFT
SUB 1
JNZ I
L:MOV UP,ACC
SAV
MOV UP,DOWN
SWP
MOV ACC,DOWN
JNZ L
MOV UP,DOWN
JMP L

@3
L:MOV RIGHT,ACC
SWP
SUB RIGHT
JEZ B
JGZ P
N:MOV UP,DOWN
ADD 1
JLZ N
JMP B
P:MOV DOWN,UP
SUB 1
JGZ P
B:MOV UP,RIGHT
MOV RIGHT,UP

@4
L:MOV UP,ACC
MOV ACC,LEFT
MOV ACC,LEFT
MOV UP,ACC
JEZ S
MOV LEFT,ACC
MOV ACC,DOWN
JMP X
S:MOV UP,ACC
MOV LEFT,NIL
X:MOV ACC,LEFT

@7
MOV UP,DOWN
