@0


@1
   MOV -16 ACC
   MOV UP RIGHT
S: SAV
   ADD UP
   MOV ACC RIGHT
   SWP
   SUB 8
  JMP S

@2
   MOV UP NIL
   MOV LEFT DOWN
  JMP S
G: MOV DOWN NIL
   MOV UP NIL
Z: MOV ACC DOWN
S: MOV LEFT ACC
  JGZ G
L: MOV UP ACC
   SUB DOWN
  JLZ Z
   MOV -999 DOWN
   MOV LEFT ACC
  JLZ L
  JMP G

@3


@4


@5
 ADD 8
 MOV ACC LAST
 MOV ACC DOWN
 MOV ANY DOWN

@6


@7
   JRO UP
G: MOV ACC DOWN
S: MOV LAST ACC
   ADD ANY
  JGZ G
   MOV 0 DOWN
  JMP S

@8