;      PIPER.S
;
START  ADD     #65,    BAIT
LURE   MOV     BAIT,   @TARGET
       ADD     #48,    BAIT
       SUB     #48,    TARGET
       JMN     LURE,   TARGET
SET    MOV     #-12,   PTR
BOMB   MOV     PTR,    @PTR
       DJN     BOMB,   PTR
       JMP     SET
BAIT   JMP     @0
TARGET DAT     -48
PTR    DAT     -12
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
       DAT     0
TRAP   SPL     0
       JMP     TRAP
       END

 long before I turn
into a replicator.  Yhis allows me to kill most bombers and tie the
imps.

There is a lot of room for improvement.  For example you could use
CMP scanning in the main scanning loop to find something quicker.


Here's the code:

;redcode verbose
;name PLASMA 4
;author Wayne Sheppard
;strategy Scanner-Replicator
;strategy Better killing Process
;kill PLASMA
bomb      equ start-1    ;this should point to dat 0 , 0
start     add #3039,loc  ;best increment size
loc       jmz start,-1
          cmp #-1,@loc   ;don't look at DJN trails
          slt #100,loc   ;program length
          jmp start
          mov bomb,@loc  ;bomb whatever I found
          cmp <loc,bomb  ;is next location dat 0,0
          jmp -2         ;bomb more of program

;Place your favorite replicator here
;I used the replicator from FlashPaper

-- 
Wayne Edward Sheppard
Georgia Institute of Technology, Atlanta Georgia, 30332
uucp:	  ...!{decvax,hplabs,ncar,purdue,rutgers}!gatech!prism!gt7804b
Internet: gt7804b@prism.gatech.edu