;redcode-b ;name Toxin IVa ;author Edgar ;strategy silk ... shorter boot, new constants ;assert CORESIZE==8000 step1 equ 3217 step2 equ 2701 org boot false for 25 cmp -false,-false*3 rof boot spl 1,}2000 spl 1,}4000 spl 1,}6000 mov -1,}-1 spl step2,0 mov >-1,}-1 mov bom,}2000 mov bom,}4000 mov bom,}6000 bom dat <1,<1 decoy for (MAXLENGTH-CURLINE) nop decoy*2,decoy*3 rof