Article 2129 of rec.games.corewar:
Newsgroups: rec.games.corewar
Path: hellgate.utah.edu!utah-morgan!cs.utexas.edu!math.ohio-state.edu!howland.reston.ans.net!agate!library.ucla.edu!news.mic.ucla.edu!unixg.ubc.ca!acs.ucalgary.ca!honte.uleth.ca!zeta.uleth.ca!blue
From: blue@zeta.uleth.ca (Chris Blue)
Subject: Match Stick
Message-ID: <blue.751172669@honte>
Summary: Source Code for Match Stick
Sender: news@honte.uleth.ca (News System)
Organization: University of Lethbridge
Date: 21 Oct 93 03:04:29 GMT
Lines: 119

Okay I don't post a lot of source code, if you are trying to
kill imps with bombers or scanners you ain't going to do it,
the only way to kill imps is replicators.  Here is how Match
Stick does:


Match Stick wins: 33
Cannonade wins: 18
Ties: 49

Match Stick wins: 83
FlyTest wins: 10
Ties: 7

Match Stick wins: 17
Agony 6.0 wins: 81
Ties: 2

Match Stick wins: 13
Winter Werewolf 3 wins: 76
Ties: 11

Match Stick wins: 49
ttt wins: 30
Ties: 21

Match Stick wins: 76
FlyPaper 3.05 wins: 17
Ties: 7

Match Stick wins: 14
Iron Cannon wins: 84
Ties: 2

Match Stick wins: 28
Night Crawler wins: 25
Ties: 47

Match Stick wins: 45
Keystone t13 wins: 26
Ties: 29

Match Stick wins: 17
Impact v1.0 wins: 49
Ties: 34

Match Stick wins: 33
Impurge wins: 50
Ties: 17

Match Stick wins: 30
Herem VI wins: 48
Ties: 22

Match Stick wins: 29
Red Baron II wins: 69
Ties: 2

Match Stick wins: 48
Deck of Many Things wins: 26
Ties: 26

Match Stick wins: 34
pMARS wins: 23
Ties: 43

Match Stick wins: 12
Iron Gate 1.01 wins: 82
Ties: 6

Match Stick wins: 23
Imprimis 7 wins: 29
Ties: 48

Match Stick wins: 59
Beholder's Eye v2 wins: 38
Ties: 3

Match Stick wins: 13
Dragon Spear wins: 83
Ties: 4

Okay here's the source, use, abuse, mutalate at your discretion.

;redcode quiet
;name Match Stick
;author c w blue
;kill Match Stick

rep       spl 1
          spl 1
          spl 1
top       spl 1
startup   mov #16, 16
Paper     mov <startup, <spawn
spawn     spl @0, 1067
          mov jump,<spawn
          jmz startup,startup
kill      mov vamp1,<0
vamp1     dat <2667,<5334
jump      jmp 12,<2667
clear     mov vamp1,<-37
          spl clear,<-37
          jmp clear,<-37
          jmp clear,<2667
          jmp clear,<2667
          jmp clear,<2667
          jmp clear,<2667
          jmp clear,<2667
          jmp clear


c w blue

Chris W Blue                          o
GrimWare Software   ___^o_    __o    <|\
(403) 328-2948              _ \<_     \
blue@zeta.uleth.ca         (_)/(_)    /