@0
MOV RIGHT, ACC
ADD DOWN
JLZ P
SUB ACC
P: SUB RIGHT
MOV ACC, DOWN

@1
S: MOV UP, ACC
MOV ACC, LEFT
MOV ACC, LEFT
MOV ACC, RIGHT
JNZ S
MOV ACC, DOWN

@2
Z: SAV
MOV LEFT, ACC
MOV ACC, DOWN
JEZ Z
SWP
SUB 1
MOV ACC, DOWN

@3
MOV 0, LEFT
MOV -520, RIGHT
MOV UP, NIL
MOV LEFT, ACC
SAV
MOV 30, ACC
L: SUB RIGHT
ADD RIGHT
SWP
MOV ACC, RIGHT
SWP
SUB RIGHT
JGZ L
ADD 490
MOV ACC, DOWN

@5
MOV UP, DOWN
