;redcode
;name Trout
;Tournament: ICWST'90
;Standard: CWS'88
;author C Butcher
;New Zealand
;assert 1
time       dat  #0
compare    cmp  #0,       @20  ;was cmp @20 #0 - CWS'88 violation
           jmp  bomb
           mov  @18,      @a
           add  #5,       a
checktime  jmp  compare
bomb       mov  create,   @a
           add  #1,       a
           mov  jump,     @a
           mov  #100,     time
           djn  -1,       time
           mov  #20,      time
           mov  #0,       <a
           djn  -1,       time
           jmp  compare
create     spl  0
jump       jmp  -1
a          dat  #28
           end  compare