;redcode
;name ccc
;author brx
;strategy stupid vampire
;assert CORESIZE==8000

step    equ 2670
len     equ 18

pnt     equ 18
sbnum   equ 8000-len-1

        org start

ccc     mov sb, <sb
        djn.a -1, sb

sb      spl #sbnum, ccc
        mov db, >db
        sne.b db, #-5
        add.ab #5, db

db      dat #db, pit+10    ;see inc stuff :P

fang    jmp pit, 0

start   add.f pit+1, fang
        mov fang, @fang
        jmn.a start, pit
        jmp ccc

pit     nop #pnt, {0
        spl #-step, #step
        spl #0, 1
        mov -1, >-1