@0


@1
L: MOV UP, ACC
   SAV
   MOV UP, ACC
C: MOV ACC, DOWN
   SWP
   SUB 14
   JLZ S
   MOV 1, DOWN
   ADD 1
   SWP
   JMP C
S: NEG
   MOV ACC, DOWN

@2


@3


@4


@5
MOV UP, RIGHT

@6
   MOV LEFT, ACC
L: JRO LEFT
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN
   MOV ACC, DOWN

@7


@8


@9


@10
R: MOV -1, DOWN
   MOV 0, DOWN
   SWP
   MOV ACC, DOWN
   ADD 1
   SAV
   MOV 30, ACC
L: MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
MOV UP, DOWN
   SUB 6
   JGZ L

@11

