@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
SAV
JEZ B
A:MOV UP,DOWN
SUB 1
JGZ A
B:MOV UP,RIGHT
MOV RIGHT,UP
SWP
JEZ L
C:MOV DOWN,UP
SUB 1
JGZ C

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

@7
MOV UP,DOWN
