;redcode
;name Dithyramb v0.2
;author Matthew K. Gray
;koth rating	64

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

ptr	dat	#0
search    sub       #inc    ,  ptr
	jmz	search, @ptr
	slt	ptr, lline
	jmp	copys
	jmp	search
mptr	dat #0, #0
cptr	dat #0, #0
copys	mov #ending,	cptr
	mov ptr, mptr
len	mov #length, len
copy	mov <cptr, <mptr
	djn copy, len
	add #2, mptr
	spl @mptr
lline	jmp search
end search