Barrage entered the Pizza 94 hill on 25th February 1996 and survived 876 challenges before being pushed off on 21st April.

;redcode-94
;name Barrage
;author Anton Marsden
;strategy QS -> Brainwashing paper
;assert CORESIZE==8000

ORG s

data EQU (s-1)

s:
q FOR 4
      sne.i  $s+400*q,$s+400*q+100
      seq.i  $s+400*q+200,$s+400*q+300
      mov.ab #s+400*q-f,$f
ROF
      jmn.b  $w,$f

q FOR 4
      sne.i  $s+400*(q+8),$s+400*(q+8)+100
      seq.i  $s+400*(q+8)+200,$s+400*(q+8)+300
      mov.ab #s+400*(q+8)-f,$f
ROF
      jmn.b  $w,$f

q FOR 4
      sne.i  $s+400*(q+4),$s+400*(q+4)+100
      seq.i  $s+400*(q+4)+200,$s+400*(q+4)+300
      mov.ab #s+400*(q+4)-f-100,$f
ROF

f:    jmz.b  $p,#0
      add.ab #100,$-1
w:    sne.i  $data,@f
      djn.b  $-2,#4
      mov.i  $bomb,@f
      mov.ba @0,$f

      add.f  $inc,$f
      mov.i  $bomb,@f
      mov.i  $bomb,*f
      djn.b  $-3,#20
      jmp.b  $p,>1600
inc:  dat.f  $-5,$5

      dat.f  #0,#0
      stp.b  >0,#0
      dat.f  #0,@0
      dat.f  #0,*0
      dat.f  #0,}0
      dat.f  #0,{0
      dat.f  #0,<0
      dat.f  #0,>0

      dat.f  $0,@0
      dat.f  $0,*0
      stp.b  <0,#0
      dat.f  $0,{0
      dat.f  $0,<0
      dat.f  $0,>0

      dat.f  @0,@0
      dat.f  @0,*0
      stp.b  >0,#0
      dat.f  @0,{0
      dat.f  @0,<0
      dat.f  @0,>0

      dat.f  *0,*0
      dat.f  *0,}0
      stp.b  <0,#0
      dat.f  *0,<0
      dat.f  *0,>0

      dat.f  }0,}0
      dat.f  }0,{0
      dat.f  }0,<0
      dat.f  }0,>0

      dat.f  {0,{0
      dat.f  {0,<0
      dat.f  {0,>0

      stp.b  <0,#0
      stp.b  >0,#0
      dat.f  <0,<0
      dat.f  <0,>0
      dat.f  <0,<0

ASTEP EQU 3510; mod-10
BSTEP EQU 2365; mod-5
CSTEP EQU 3315; mod-5

p:    spl.b  $1,>3200
      spl.b  $1,>4800
      spl.b  $1,>6400

s1:   spl.b  @s1,}ASTEP
      mov.i  }s1,>s1
s2:   spl.b  @s2,}BSTEP
s2a:  mov.i  }s2,>s2
s3a:  mov.i  {s2,<s3
s3:   jmp.b  @s3,>CSTEP
bomb: dat.f  >1,}1
      dat.f  }1,>1
      stp.b  >0,#240
jump: jmp.b  $-1,$1
END