@0


@1
L: MOV UP, ACC
   SAV
   MOV UP, ACC
   SWP
E: SWP
   MOV ACC, DOWN
   SWP
   SUB 1
   JGZ E

@2


@3


@4


@5
MOV UP, RIGHT

@6
MOV LEFT, 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
   SUB 1
   JGZ L

@11

