Article 2409 of rec.games.corewar:
Path: hellgate.utah.edu!utah-morgan!cs.utexas.edu!howland.reston.ans.net!pipex!zaphod.crihan.fr!jussieu.fr!univ-lille1.fr!ciril.fr!scinfo.u-nancy.fr!moreau
From: moreau@scinfo.u-nancy.fr (Pierre-Etienne Moreau)
Newsgroups: rec.games.corewar
Subject: .T.E.S.T
Date: 28 Jan 1994 15:03:40 GMT
Organization: Dep.Info.-ESIAL-ISIAL -- Nancy (France)
Lines: 134
Distribution: world
Message-ID: <2ib9gc$3s6@arcturus.ciril.fr>
NNTP-Posting-Host: cronos.scinfo.u-nancy.fr

Hello, here is my program .T.E.S.T. V0.1
why 'double impact' ? because it's a 'double clown'
Clown is like Winter, a spl/jmp bomber with a good anti-imp phase
Clown is a very good warrior, a small one...etc
the problem comes from programs like 'sphinx', the bomber
phase is very dangerous. 
The main idea is : if  put two warriors in core, when sphinx
will kill one, the other wil be alive. 'double' is very good
against spiral/bomber, it is as goog a flypaper or irontrap,
now the problem comes from scanner, and i don't know what i have
to do... 

;redcode
;name .T.E.S.T. V0.1
;author P.E.M & E.C
;strategy Double impact

pas	equ	2376+1
debut	equ	-1
offset	equ	-1000
data	equ	15
dec	equ	0
ddestb	equ	4000-1
nbbomb	equ	499

; This is Clown
mov1	mov	jump, debut+pas
	mov	bomb, <mov1
loop	add 	#pas, mov1
	djn	mov1,#nbbomb
bomb	spl	0, <-8+dec
	mov	data, <-10+dec
jump	jmp	-1,<-10+5334+dec

src	dat	#0
desta	dat	#offset
destb	dat	#offset+ddestb


inc	dat	<-9-2668+dec,<-9+dec

start	
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta
	mov	<src,<desta

	mov	#0,src
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	mov	<src,<destb
	spl	@desta
	spl	@destb
	add	#5+data,desta
	add	#5+data,destb
	mov	inc,@desta
	mov	inc,@destb

	mov	inc, desta	; against vamps
	mov	inc, destb	; against vamps
	dat	#0
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
	dat	#fin
fin	dat	<-2667,<2668
	end	start


			Pierre-Etienne Moreau.