;redcode-94nop verbose
;name Diptera3800
;author Nenad Tomasev
;assert CORESIZE==3800
;strategy bishot

step equ (pok-incr)
ds equ -1873
ini equ 128
dist equ 1885

	org scan
	for 22
	dat 0, 0
	rof
pok	dat ini, ini+dist
	dat 18, <1267
stun	spl #20, >3011
loop	mov stun, >pok
	mov stun, }pok
	djn.a loop, <stun
	for 6
	dat 0, 0
	rof
incr	sub.x #step-2, step
scan	sne *pok, <pok
	djn incr, <pok
	jmp stun, <pok
	end