;
;    Warrior: Trout
;  File name: trout.red
; Tournament: ICWST'90
;   Standard: CWS'88
;     Author: C Butcher / New Zealand
;
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