;redcode
;name CANCER
;author Thomas Gettys
;1987
;assert 1
               JMP     START
               JMP     -1
START          SPL     COPY2
COPY1          MOV     CNTR,           PTR
INFECT1        MOV     GERM,           <PTR
               JMN     INFECT1,        PTR
               MOV     CNTR,           PTR
KILL1          MOV     POISON,         <PTR
               JMN     KILL1,          PTR
               JMP     COPY1
COPY2          MOV     CNTR,           PTR
INFECT2        MOV     GERM,           <PTR
               JMN     INFECT2,        <PTR
               MOV     CNTR,           PTR
KILL2          MOV     POISON,         <PTR
               JMN     KILL2,          PTR
               JMP     COPY2
GERM           SPL     0
POISON         DAT     #1
CNTR           DAT     #-20
PTR            DAT     #0
               END