;redcode
;name Dithyramb v0.5
;author Matthew K. Gray
;koth rating	57

inc         equ       -13
inc2	equ	-412
inc3	equ	412
inc4	equ	13
length	equ	lline-ptr
ending	equ	lline+1

ptr	dat	#0

first	spl	search2
	spl	search3
	spl	search4
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
	jmp	search2
	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
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0

ptr3	dat	#0
search3    sub       #inc3    ,  ptr3
	jmz	search3, @ptr3
	slt	ptr3, lline
	mov	10, @ptr3
	jmp	search3
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
        dat     #0
ptr4	dat	#0
search4    sub       #inc4    ,  ptr4
	jmz	search4, @ptr4
	slt	ptr4, lline
	mov	10, @ptr4
	jmp	search4
lline	jmp	search4
end first