;redcode
;name Dithyramb v1.1
;author Matthew K. Gray
;koth rating	85

inc         equ       412
ptr	dat	#0
cnt	spl	-1,	#25	
search    sub       #inc    ,  ptr
	jmz	search, @ptr
	slt	here,	ptr
here	jmp 	wipe,	#100
	jmp	search
wipe	add	#10,	ptr
	jmz	fixit,	<jback
swipe	mov     cnt,    <ptr
        jmn     swipe,   <cnt
	add	#25,	cnt
jback	jmp	search,	#10
fixit	mov	10,	cnt
lline	jmp	swipe
end search