;redcode-CSEC
;name Disfunctional dishwasher
;author G.Labarga
;assert CORESIZE==3800

;strategy *** CSEC2005 Qualification Round ***
;startegy Oneshot scanner
;strategy 0.66c scan, core colouring, bomb detection
;strategy Just a version of "The Boss is back again!", with a few changes

	sstep EQU 2699
	d1 EQU (2*sstep)+7
	d2 EQU (2*sstep) 

gate:	dat scan+d1+0,scan+d2+0
for 3
	dat 0,0
rof
sw:	dat <1,(clr+6-gate)
sbm:	spl #clr+20,(clr+7-gate)
for 4
	dat 0,0
rof
clr:	spl #1-(2*sstep),>1-(2*sstep)	;Geist-style clear
clop:	mov *sw,>gate
	mov *sw,>gate
	djn.f clop,}sbm
for 19
	dat 0,0
rof
loop:	sub.f clr,@bchk		;< and > protection  --clears from here--
scan:	seq.i }gate,>gate	;0.66c scan
bchk:	sne.i *gate,@gate	;bomb detection
	djn.f loop,@gate	;core trashing
	djn.f clr,@bchk		;< and > protection
				;Starts the clear after 1206 scanned locations
end scan