;redcode
;name Eclipse
;author P.Kline
;strategy bscan, ringkiller, clear
;strategy demo-only version
hold     dat #0
ptr      dat #stun
next     add #2234,ptr
scan     jmz next,@ptr      ; scan for non-zero
         slt #14,ptr        ; check for me
         jmp next,hold
inc      mov @ptr,hold      ; save whatever is pointed to
stun     mov bomb,@ptr      ; drop a stunner
         add hold,ptr       ; bump pointer up the trail
         cmp #-1,hold       ; don't follow djn streams
         jmn stun,@ptr      ; follow the trail
         djn next,#4        ; check for enough
bomb     spl 0
         mov 2,<-1
         jmp -1
         end next
