;redcode-icws
;name Gothik T
;author John Metcalf
;strategy replicating scanner
;assert CORESIZE==8192

        length equ 34
        gap    equ 11
        step   equ 4825
        time   equ 1089
        hit    equ 3
        first  equ paper+hit-step*time

paper   mov    #length,  length
scan    add    #step+1,  sptr
        mov    bmb,      <sptr
sptr    jmz    scan,     <first+1
copy    mov    <paper,   <sptr
        mov    <paper,   <sptr
        jmn    copy,     @2
dest    spl    @sptr
        jmz    @paper,   paper
bmb     dat    <2732,    <1-gap

        end    scan+1