;redcode
;name Dithyramb v0.6
;author Matthew K. Gray
;koth rating	61

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

ptr	dat	#0

first	spl	search2
search    sub       #inc    ,  ptr
	jmz	search, @ptr
	slt	ptr, lline
	mov	10, @ptr
	jmp	search

	dat	#0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0

ptr2	dat	#0
search2    sub       #inc2    ,  ptr2
	jmz	search2, @ptr2
	slt	ptr2, lline
	mov	10, @ptr2
lline	jmp	search2
end first