@0


@1
 MOV UP ANY
 MOV UP ACC
 MOV ACC ANY
G: MOV ACC LAST

   MOV UP ACC
   MOV ANY RIGHT
   MOV ACC ANY
  JMP G

@2
 MOV 5 ACC
 MOV UP DOWN
 MOV UP RIGHT
 MOV LEFT RIGHT
 MOV LEFT RIGHT

S: MOV UP DOWN
   MOV LEFT RIGHT
   MOV UP RIGHT
   SUB 1
  JGZ S

  MOV 1 LEFT
  MOV UP DOWN
  MOV LEFT NIL

@3
 MOV LEFT DOWN
 MOV LEFT DOWN
 MOV LEFT DOWN
 MOV LEFT DOWN
 MOV LEFT ACC
 MOV ACC DOWN
 MOV ACC DOWN
 JRO -4

@4


@5
   MOV ANY RIGHT
S: MOV RIGHT ACC
   SAV
   SUB UP
   JLZ <

>: SWP
   MOV UP RIGHT
   MOV ACC RIGHT
   JMP S

<: SWP
   MOV ACC RIGHT

@6
   MOV -50 ACC
   ADD UP
   JGZ G
   ADD 50
   MOV ACC  DOWN
   MOV LEFT DOWN
   JMP R
G: ADD 50
   MOV LEFT DOWN
   MOV ACC  DOWN

R: MOV UP   LEFT
   MOV LEFT DOWN
   MOV LEFT DOWN
JMP R

@7
S: MOV UP DOWN

@8


@9
 MOV ANY  DOWN
 MOV LAST DOWN
 MOV 0    DOWN

@10
S: MOV UP ACC
   SAV
   SUB UP
   JLZ <

>: SWP
   MOV UP LEFT
   MOV ACC LEFT
   JMP S

<: SWP
   MOV ACC LEFT
   MOV UP LEFT