;
;    Warrior: Cat Can
;  File name: catcan.red
; Tournament: ICWST'90
;   Standard: CWS'88
;     Author: A. Kirchner
;  Assisting: W. Rohmann
;             J. Tenzer
;
start       mov       grave,      @ dest
            mov       prog,       < dest
            sub     # 7,            dest
            jmn       start,        dest
            sub     # 4,            dest
kill        mov       dest,       < dest
            jmn       kill,         dest
prog        spl                     prog
grave       jmp       grave-1
dest        dat                     dest-16
            end       start