40196.0.txt

@0


@1
START:
MOV UP, ACC
JEZ ONE
MOV 0, DOWN
JMP START
ONE:
MOV 1, DOWN

@2


@3


@4
SAV
MOV UP, ACC
JGZ INC
MOV 0, ACC
JMP END
INC:
SWP
ADD 1
END:
MOV ACC, RIGHT

@5
START:
MOV LEFT, ACC
SUB 2
JGZ FOUND
MOV 0, DOWN
JMP START
FOUND:
MOV 1, DOWN

@6


@7


@8


@9
MOV UP, DOWN

@10