;redcode
;name Big-raidar
;strategy For notes about how this works, see Dewdney's first article,
;strategy   or the "raidar" program.
;assert 1

targ1   dat #0
targ2   dat #0
dst     dat #0
start   mov #201, dst
        mov #-121, targ1
        mov #346, targ2
uploop  mov #42, <targ1
        mov #42, <targ2
        djn uploop, dst
scan    mov #-121, targ1
        mov #346, targ2
        mov #201, dst
scango  cmp #42, <targ1         ; was  cmp <targ1, #42
        jmp panic
        cmp #42, <targ2         ; was  cmp <targ2, #42
        jmp panic2
        djn scango, dst
        jmp scan
panic   mov #25, dst
        mov #-963, targ1
pan     mov @dst, <targ1
        djn pan, dst
        jmp @targ1
panic2  mov #25, dst
        mov #1013, targ1
pan2    mov @dst, <targ1
        djn pan, dst
        jmp @targ1
        end start