@0


@1
G:MOV ACC RIGHT
MOV UP ACC
MOV ACC RIGHT
JGZ G
MOV 21 ACC
R:SUB 1
JGZ R
MOV RIGHT ACC

@2


@3


@4


@5
MOV -999 DOWN
MOV 999 DOWN
G:MOV UP ACC
MOV ACC DOWN
MOV ACC DOWN
JGZ G
R:MOV ACC RIGHT
MOV UP ACC
JGZ R
MOV RIGHT ACC
O:MOV ACC DOWN
MOV RIGHT ACC
JGZ O
MOV -1 UP

@6


@7
   ADD UP
   JGZ O
   JEZ O
E: MOV -1  LAST
S: MOV UP  ACC
   JLZ L
   NEG
   SAV
   ADD UP
   JLZ S
   SUB UP
   JRO -3
O: MOV ACC ANY
L: SWP
   SAV

@8