;redcode-94b
;name FireWorks
;author Luka
;strategy A simple scan with a d-clear

start	equ	cloak
gap	equ	8
wait	equ	500
step	equ	2384

top	add.f	inc,	ptr
ptr	seq.i	start,	start+gap
 	jmp	atk
 	djn.b	top,	#wait	
inc	spl	#step,	#step
 	mov.i	bmb,	>top-2
 	djn.f	-1,	>top-2
cloak	dat	0,	0
bmb	dat	0,	2*gap
atk	mov.i	inc,	@ptr
 	jmn.f	atk,	<ptr
 	mov.ab	ptr,	ptr
 	add.ab	#gap,	gap
 	jmp	top