;redcode-odd ;name FinalThingy ;author Roy ;strategy Last test ;assert 1 tPtr dat 100 ,4100-4 tGate dat 0,0 dat 0,0 dat 0,0 dat 0,0 dat 0,0 tWipe mov tSpl ,tPtr ,>tPtr jmn.f tWipe ,>tPtr tScan sub.x #-17 ,tPtr sne.x *tPtr ,@tPtr sub.x *pScan ,@tScan jmn.f tSelf ,@tPtr jmz.f tScan ,*tPtr pScan mov.x @tScan ,@tScan tSelf slt.b @tScan ,#tEnd+4-tPtr djn tWipe ,@tScan djn *pScan ,#9 tSpl spl #0 ,{0 tClr mov tEnd ,>tGate djn.f tClr ,{tGate tEnd dat >1 ,2-tGate end tScan