;redcode
;name quick hack
;author el kauka
;assert 1

;strategy damn - i nearly forgot this tourney
;	just a quick hack - unopitmized stone
;	with imp paper

;very defensiv -but will hopefully score enough to
;pass the qualification


istep	equ ((CORESIZE/3)+1)
gate	equ	head-30
fir 	equ	100
step	equ	120

	spl	1
	spl	1

mov.i	<boot,	{boot	;always usefull to boot
mov.i	<boot,	{boot	;the paper

boot	spl	400,	imp+2


head	spl	0,	<200;odd stone-no endgame
ptr	mov.i	bmb,	>fir
	mov.i	bmb,	@-1
	add.ab	#step,	ptr
	djn.f	ptr,	<gate
bmb	dat	>0,	{45

for 15
	dat	0,0
rof


top	spl	@0,	<1655	;front silk
	mov.i	}top,	>top	;running with 4
	mov.i	}top,	>top	;prozesses

iStart  spl    #0,     <663	;3pts imp ring
        add.x  imp,             1 
        djn.f  imp-(istep*4),   <3200
imp     mov.i  #337,     istep 

end