;redcode
;name AntFarm2
;author EL KAUKA

org     s
        aim1    equ     1025

s       mov.i   0,      aim1
c       mov.i   }-1,>-1
        djn.b   c,      #7
        spl     aim1-3
        add     #2,     aim1-2

        mov     2,      -1
        djn     -1,     -1