Subject: ARMY
From: conjgr@lut.ac.uk (Neil Robertson)
Organization: Loughborough University, UK.
Date: 4 Feb 92 15:41:28 GMT
Message-ID: <1992Feb4.154128.1842@lut.ac.uk>

I realise that this approach has probably been taken befor but I thought I'd
put this program on here anyway.

;ARMY by Neil Robertson
;strategy - copy itself to a location 300 ahead then bomb either side of  
;strategy - itself using dwarfs which are reset when there bomb runs are
;strategy - getting close to the next copy of army

	dat #22
	dat #300
start:  mov <-2,<-1
	jmn start,-3
	mov #22,275
	mov #300,275
        spl 275 
        spl check
	jmp dwfs
 datd:  dat #-9
 dwfs:  spl 5
	mov -2,@-2
	sub #7,-3 
	jmp -2
 datu:  dat #9
	mov -1,@-1
	add #7,-2
	jmp -2
check:	slt #250,datu
	jmp -1
	mov #-9,datd
	mov #9,datu
	jmp check 
	end start