;redcode-94nop verbose ;author Lukasz Grabun ;name Executor ;assert 1 org qGo bOff equ 19 bDist equ 15 bStep equ 159 bAway equ 4000 cOff equ -15 cGate equ (cTop-4) cAway equ (bAway+cOff) bSpl equ (cOff+bMov) bBoot mov bIncen , bOff+bAway-4-CURLINE bSrc spl 2 , bStart+5 bDest spl 2 , bAway-CURLINE cSrc spl 1 , cStart+4 mov bDest , #5 cDest jmp bAway-CURLINE-4 , cAway-CURLINE bStart add #bStep , bPtr bMov mov bOff , @bPtr bPtr mov >bEvac , @2-bDist jmz.b bStart , cGate djn.f -1 , >cGate cBmb dat >5335 , 2-cGate for 5 dat 0 , 0 rof bIncen mov bDist , }bDist for 34 dat 0 , 0 rof qf equ qKil qs equ 200 qd equ 4000 qi equ 7 qr equ 8 qBmb dat {qi*qr-10 , {1 qGo seq qd+qf+qs , qf+qs ; 1 jmp qSki , {qd+qf+qs+qi+2 sne qd+qf+5*qs , qf+5*qs ; B+1 seq qf+4*qs , {qTab ; B jmp qFas , }qTab sne qd+qf+8*qs , qf+8*qs ; A seq qf+7*qs , {qTab-1 ; A-1 jmp qFas , {qFas sne qd+qf+10*qs , qf+10*qs ; C seq qf+9*qs , {qTab+1 ; C-1 jmp qFas , }qFas seq qd+qf+2*qs , qf+2*qs ; B-2 jmp qFas , {qTab seq qd+qf+6*qs , qf+6*qs ; A-2 djn.a qFas , {qFas seq qd+qf+3*qs , qf+3*qs ; B-1 jmp qFas , {qd+qf+3*qs+qi+2 sne qd+qf+14*qs , qf+14*qs ; E+1 seq qf+13*qs , qTab sne qd+qf+17*qs , qf+17*qs ; D seq qf+16*qs ,