;
;    Warrior: Warrior 42
;  File name: warior42.red
; Tournament: ICWST'90
;   Standard: CWS'88
;     Author: Stefan Roettger / Sandstrasse 3 / W-8525 Uttenreuth / Germany
;
; A warrior with a simple strategy but nevertheless hard to beat
;
c     mov b, 4026
      mov a, <c
      mov p, <c
      mov l, <c
      spl @c
l     add #124, p
p     jmz l, p
a     mov 2, @p
b     jmp l