From 101374.624@CompuServe.COM  Thu Apr 25 00:29:13 1996
Received: by couchey.inria.fr (5.57/Ultrix3.0-C)
	id AA14300; Thu, 25 Apr 96 00:29:13 +0200
Received: from arl-img-5.compuserve.com (arl-img-5.compuserve.com [198.4.7.5]) by nez-perce.inria.fr (8.7.1/8.7.1) with SMTP id AAA09310 for <Damien.Doligez@inria.fr>; Thu, 25 Apr 1996 00:29:09 +0200 (MET DST)
Received: by arl-img-5.compuserve.com (8.6.10/5.950515)
	id SAA29248; Wed, 24 Apr 1996 18:28:29 -0400
Date: 24 Apr 96 18:27:36 EDT
From: Greg Bailey <101374.624@CompuServe.COM>
To: Planar <Damien.Doligez@inria.fr>
Subject: Hi Ho Silver 1
Message-Id: <960424222735_101374.624_JHP58-2@CompuServe.COM>
Status: RO

If you can include "Useless" "Boring" and "Test" in your archives, then here's
another one for them!
It hovered around the bottom of the beginners hill and lived to age 8.

#############################################
;redcode-b
;name Hi Ho Silver 1
;author Steve Bailey
;strategy Scanner (Spl/Jmp bomp) + coreclear
;strategy 71.4 Wilkies
;assert CORESIZE==8000

loops	equ	1485

ptr	dat	$0,	$0	;0

for 8-0-1
	dat	$0,	$0
rof

bomb	mov.i	jbomb,	*ptr	;8
	mov.i	sbomb,	{ptr
	mov.i	jbomb,	@ptr
	mov.i	sbomb,	<ptr
	nop	}ptr,	>ptr
cntr	jmp	cont,	#loops	;13 (14)

for 52-13-1
	dat	$0,	$0
rof

seek	add.f	step,	ptr	;52
	sne.i	*ptr,	@ptr
cont	djn.b	seek,	cntr
clrptr	jmn	bomb,	cntr
	jmp	step		;56

for 94-56-1
	dat	$0,	$0
rof

sbomb	equ	(step)
step	spl	#-877,	#877	;94
	mov.i	dbomb,	<clrptr
dbomb	dat	<-2667,	<2667
jbomb	jmp	-1,	<-2	;97 (100)

	end     seek
#############################################

Steve Bailey 101374.624@compuserve.com
http://ourworld.compuserve.com/homepages/SGBailey