;redcode
;name Puppy v0.4
;author Greg S. Stark and Matthew K. Gray

i         equ       412
inc       equ       i
territory equ       (-1)/i/i*i+150
skip      equ       2*territory+21-((-1)/i*i+i)
scope     equ       15

dummy     dat       #0,         #0
ptr       dat       #0,        #territory
ptr2      dat       #0,         #0
ptr2Min   dat       #0 ,        #0

search    add       #inc    ,  ptr
	jmz	search, @ptr
	slt	ptr, lline
	jmp	found
	jmp	search

found	mov	ptr, 	ptr2
	add	#40,	ptr2
go	mov	#80,	go
kill	mov 	setbit,	<ptr2
	djn	kill, go
	jmn	fixit, setbit
	mov	ptr,	ptr2
offset	add	@ptr,	ptr2
	add	#80,	ptr2
	mov	#1,	setbit
	jmp	go
setbit	spl -1, #0
fixit	mov	#0, setbit
;	spl	wipe
;	jmp	search
wipe	add	#70, ptr2
go2	mov	#50,	go2
kill2	mov 	blank,	<ptr2
	djn	kill2, go2
;	jmp	wipe
	jmp	search
blank	dat	#0
lline	jmp	search,	#120
end search