61212.0.txt

@0
##WORKS

@1
 S: MOV UP ACC
 N: SUB RIGHT
JGZ FTS
JLZ FIX
MOV 1 DOWN#PC DONE
 FIX:MOV 3 DOWN#PC
MOV -3 RIGHT#PC
MOV ACC DOWN
JMP S
 FTS:MOV 1 DOWN#PC
MOV -1 RIGHT#PC
JMP N

@2
MOV UP ACC
MOV ACC DOWN
MOV ACC LEFT
JRO LEFT

@3


@4
 S: JRO UP
ADD 1 #JRO
JMP S
MOV ACC DOWN #JRO
MOV UP DOWN
MOV 0 ACC

@5
MOV UP DOWN

@6


@7
MOV UP DOWN
MOV UP RIGHT

@8
MOV LEFT ACC
JEZ NR
ADD UP
JMP O
 NR: MOV UP NIL
 O: MOV ACC DOWN