@0
MOV UP, ACC
MOV ACC, DOWN
MOV ACC, RIGHT

@1
MOV LEFT, ACC
SUB 3
MOV ACC, DOWN

@3
L: MOV UP, ACC
JEZ ZZ
SWP
MOV ACC, DOWN
MOV ACC, DOWN
ADD 3
SAV
SUB 30
JEZ WW
MOV -1, DOWN
JMP L
ZZ: MOV 100, DOWN
MOV 100, DOWN
WW: SAV
MOV 2, DOWN

@4
L: MOV UP, ACC
JEZ A3
MOV 3, DOWN
JGZ C1
MOV 0, DOWN
JMP B
A3: MOV 0, DOWN
C1: MOV 3, DOWN
B: ADD 1
JEZ B2
MOV 3, DOWN
MOV 0, DOWN
JMP L
B2: MOV 0, DOWN
MOV 3, DOWN

@6
MOV UP, RIGHT

@7
MOV LEFT, DOWN
MOV ACC, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV -1, DOWN
MOV LEFT, DOWN
ADD 1
MOV ACC, DOWN
ADD LEFT
MOV UP, DOWN
MOV UP, DOWN
MOV -1, DOWN
