;redcode
;name Dithyramb v0.3
;author Matthew K. Gray
;koth rating 30

inc         equ       412
length	equ	lline-ptr
ending	equ	lline+1

imp	mov 0, 1
ptr	dat	#0
search    sub       #inc    ,  ptr
	jmz	search, @ptr
	slt	ptr, lline
	jmp	impb
	jmp	search
impb	mov	imp, <ptr
count	mov	#10, count
wipe	mov	10, <ptr
	djn	wipe, count
	add	#11, ptr
	spl	@ptr
lline	jmp search
end search