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

@3
S: MOV RIGHT, ACC
JEZ ACT
JGZ DWN
NEG
UP: MOV DOWN, UP
SUB 1
JGZ UP
JMP ACT
DWN: MOV UP, DOWN
SUB 1
JGZ DWN
ACT:
MOV UP, RIGHT
MOV RIGHT, UP

@4
S: MOV UP, ACC
SUB RIGHT
MOV ACC, LEFT
MOV ACC, RIGHT
MOV UP, ACC
JEZ W
MOV LEFT, ACC
MOV ACC, DOWN
JMP C
W: MOV UP, ACC
MOV LEFT, NIL
C: MOV ACC, LEFT

@5
MOV ACC, LEFT
ADD LEFT

@7
MOV UP, DOWN
