@1
MOV UP,ACC
SUB 90
MOV ACC,RIGHT
MOV ACC,DOWN
MOV UP,ACC
SUB 1
MOV ACC,RIGHT
MOV ACC,DOWN

@2
MOV 0,DOWN
T: MOV LEFT,ACC
SAV
MOV LEFT,ACC
L: JEZ T
SWP
MOV ACC,DOWN
SWP
SUB 1
JMP L

@5
MOV 90,DOWN
T: MOV UP,ACC
SAV
MOV UP,ACC
L: JEZ T
SWP
MOV ACC,DOWN
SWP
SUB 1
JMP L

@6
T: MOV UP,ACC
JEZ Z
JLZ E
SUB 90
JEZ W
JMP Z
E: SWP
ADD 1
JMP S
W: SWP
SUB 1
JMP S
Z: SWP
S: MOV ACC,DOWN
SAV

@8
T: MOV UP,ACC
JEZ N
JLZ Z
SUB 90
JEZ Z
SWP
ADD 1
JMP S
N: SWP
SUB 1
JMP S
Z: SWP
S: MOV ACC,RIGHT
SAV

@9
MOV UP,DOWN
MOV LEFT,DOWN
MOV 3,DOWN
MOV -1,DOWN
