;
;    Warrior: Mr. Beef
;  File name: mrbeef.red
; Torunament: ICWST'90
;   Standard: CWS'88
;     Author: Gerald Frost
;
;  Procedure: win by capturing enemy, and
;                  using them as slaves
;
start     SPL    mrbeef
landpat   MOV    pitguid     runway
          ADD  # 1           landpat
          DJN    landpat     leangth
leangth   DAT              # 257
pitguid   JMP   -37
here      DAT              # 0
          DAT              # 0
imper     MOV    bomb        here
          JMP    imper     < here
trap      JMP   -102       # 2
bomb      DAT              # 0
n         DAT              # 77
mrbeef    ADD  # 102         net
net       MOV    trap        slave
          DJN    mrbeef      n
          SUB  # 7845        net
          MOV  # 77          n
          DJN    mrbeef      bigloop
          SPL                pit
          JMP    imper
bigloop   DAT              # 34
where     DAT              # here
slave     MOV    bomb      < where
pit       SPL                slave
          MOV    bomb      < where
          MOV    bomb      < where
          JMP    slave
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
          JMP    pit
runway    JMP    pit                      ; that's all fokes!
          END    start