;redcode-94 ;name Tim Tack ;author P.Kline ;assert CORESIZE == 8000 ;strategy one-shot + scanner/dodger (depending) wStep equ 17 wDecoy equ (tWipe-2-(10*12*13)-3) tGate equ (tSpl-13) tPtr dat #250 ,#4501 dat 0,0 dat 0,0 dat 0,0 tWipe mov tSpl ,tPtr ,>tPtr jmn.f tWipe ,>tPtr mov *tWipe ,tPtr mov wIncr ,>tPtr jmn.f tSelf ,@tPtr cStart mov q1-5 qj jmp -1 ,{q1-5 qb dat {5335,11 end wStart