Article 1994 of rec.games.corewar:
Newsgroups: rec.games.corewar
Path: hellgate.utah.edu!dog.ee.lbl.gov!agate!doc.ic.ac.uk!pipex!sunic!kth.se!eufrat.nada.kth.se!d92-foh
From: d92-foh@eufrat.nada.kth.se (Fredrik Öhrström)
Subject: Impurge
Message-ID: <1993Aug29.121820.9533@kth.se>
Sender: usenet@kth.se
Nntp-Posting-Host: eufrat.nada.kth.se
Organization: Royal Institute of Technology, Stockholm, Sweden
Date: Sun, 29 Aug 1993 12:18:20 GMT
Lines: 30

Here is my program Impurge. A spl -1 carpet stuns a spiral better than spl 0
if it manages to hit the head. The core clear gates incoming spirals 2/3 of
the time.

;redcode
;name Impurge 
;author Fredrik Ohrstrom
;kill Impurge

bomber	mov #26, counter
	add #26, comper
boom	mov bomb, <comper
counter djn boom, #26
adder   sub incr, @boom
comper  cmp 16, 0
	djn bomber, <stopper
stopper djn adder, #245
        spl 0, <-31
        mov 2, <-29
bomb    spl -1, <-31
incr    dat <-32, <-32


        end adder


-------------------------------------------------------------------------------

   Fredrik Öhrström 



Article 2432 of rec.games.corewar:
Path: hellgate.utah.edu!csn!col.hp.com!sdd.hp.com!cs.utexas.edu!howland.reston.ans.net!pipex!sunic!news.kth.se!dront.nada.kth.se!d92-foh
From: d92-foh@dront.nada.kth.se (Fredrik Öhrström)
Newsgroups: rec.games.corewar
Subject: Impurge source
Date: 5 Feb 1994 13:54:46 GMT
Organization: Royal Institute of Technology, Stockholm, Sweden
Lines: 24
Message-ID: <2j08f6$1ck@news.kth.se>
NNTP-Posting-Host: dront.nada.kth.se
Mime-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: 8bit
Keywords: impurge

I posted this a year ago, but here it is again....

;redcode
;name Impurge 
;author Fredrik Ohrstrom
;kill Impurge

bomber	mov #26, counter
	add #26, comper
boom	mov bomb, <comper
counter djn boom, #26
adder   sub incr, @boom
comper  cmp 16, 0
	djn bomber, <stopper
stopper djn adder, #245
        spl 0, <-31
        mov 2, <-29
bomb    spl -1, <-31
incr    dat <-32, <-32


        end adder