42656.0.txt

@0


@1
S:MOV UP, ACC
  JGZ N
Z:MOV 0, DOWN
  MOV DOWN, NIL
  MOV 0, RIGHT
  JMP S
N:MOV ACC, RIGHT

@2
MOV 0, LEFT
S:JMP S

@3


@4
MOV UP, RIGHT
MOV RIGHT, UP

@5
S:MOV LEFT, NIL
L:MOV UP, ACC
  MOV ACC, DOWN
  JNZ L
  MOV 0, LEFT

@6


@7
MOV UP, DOWN

@8