Sucker 4 is self-vamping vampire which entered the Intel 88 hill on 20th June 1992 and survived to age 949 before being pushed off in October.

;redcode
;name Sucker 4
;author Stefan Strack
;strategy Self-splitting, pattern-bombing vampire
;strategy 2: with confusion
;strategy 3: much denser, mod-2 bomb-pattern; no spacer
;strategy 3.1: avoids prematurely dropping into clear-mode
;strategy 4: spacer/bootstrap; changed bomb increment; tracer-proof
;strategy Submitted: Sat Jun 20 02:53:18 CDT 1992

AWAY    equ     4000  ;mirrors boot template
mark    equ     (start+39)

;------ bootstrap main bombing loop and slave pit without spacers
boot    mov     loop+2,@ptr1
        mov     loop+1,<ptr1
        mov     loop,<ptr1
        mov     start,<ptr1
        mov     jump,@ptr2
        mov     clear+2,<ptr2
        mov     clear+1,<ptr2
        mov     clear,<ptr2
        jmp     @ptr1

;------ boot copy pointers
ptr1    dat     #loop+2+AWAY
ptr2    dat     #jump+AWAY

;------ main bombing loop
start   spl     0
loop    mov     jump,@jump
        sub     clear,jump
        djn     loop,<3203

;------ spacer
        dat     #1
        dat     #1
        dat     #1
        dat     #1

;------ core-clearing slave pit
clear   mov     37,<-37
        spl     clear
        jmp     clear
jump    jmp     clear-mark,mark

;------ decoy
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1
        dat     #1

        end     boot