;redcode-94 ;name d-clear II ;author bjoern guenzel ;strategy d-clear ;assert CORESIZE==8000 ;release 30.5.96 ;kill d-clear shift equ -3000 ptr dat 0,#-shift+1003 dat 0,0 dat 0,0 spl #0,>ptr loop mov.i bomb,>ptr djn.f loop,>ptr dat 0,0 dat 0,0 bomb dat >1,>bomb-ptr+2 bsource dat 0,-3 boot mov.i }ptr,>booptr mov.i }ptr,>booptr for 6 mov.i {bsource,{booptr rof booptr spl bsource+shift,ptr+shift mov.f #0,-1 dat >2000,>2500 z for (MAXLENGTH-CURLINE)/2 spl #z*100,#z*101 stp.a >0,#1 rof end boot