@1
MOV UP,DOWN
MOV UP,DOWN

@5
L: MOV UP,ACC
SAV
MOV UP,ACC
SWP
P: SWP
MOV ACC,DOWN
SWP
SUB 1
JNZ P

@8
L: MOV RIGHT,NIL
MOV ACC,RIGHT
JNZ X
SWP
MOV ACC,RIGHT
SWP
X: ADD 1
SUB 30
JNZ N
MOV 0,ACC
SWP
ADD 1
SWP
JMP L
N: ADD 30

@9
L: MOV UP,ACC
SAV
MOV 0,LEFT
MOV LEFT,ACC
JNZ P
MOV -1,RIGHT
MOV ACC,RIGHT
MOV LEFT,RIGHT
P: SWP
MOV ACC,RIGHT

@10
MOV LEFT,DOWN
