;redcode
;name CMP-scanner v3

start	equ	100
gap	equ	5
wait	equ	789
step	equ	10

top	add.f	inc,	ptr
ptr	seq.i	start,	start+gap
 	jmp	atk
 	djn.b	top,	#wait	
inc	spl	#step,	#step
 	mov.i	bmb,	>top-2
 	djn.f	-1,	>top-2
bmb	dat	0,	10
atk	mov.i	inc,	@ptr
 	jmn.f	atk,	<ptr
 	mov.ab	ptr,	ptr
 	add.ab	#5,	gap
 	jmp	top