;redcode
;name Dithyramb v0.7
;author Matthew K. Gray
;koth rating	48

inc         equ       412
subt	dat #0, #412
ptr	dat	#0
search    sub       subt   ,  ptr
	jmz	search, @ptr
clear	mov	10, <ptr
	mov	10, @ptr
	mov	#4, subt
lline	jmp	search
end search