;redcode-94 ;name P-clear ;kill P-clear ;author P.Kline ;assert CORESIZE == 8000 ;strategy pair of forward dat-wipers based on Guenzel's d-clear ;strategy outnumber stones and forward-wipe imps paGate equ Pair-7 slPair mov #-3950,paGate+1300-7 ; initialize wipe pointers mov #-3950,paGate+5302-7 spl 1 ; use multiple processes spl 1 mov -1,0 mov paGate ; fast forward clear djn.f -1 ,>paGate dat 0,0 paBomb dat 0,15 end slPair