;redcode
;name Dropship4
;author EL KAUKA

org     s
        aim1    equ     1025

s       mov.i   0,      aim1
c       mov.i   }-1,>-1
        djn.b   c,      #13
        spl     aim1-3
        add     #2,     aim1-2

aim2    equ     623

s2      mov.i   0,      aim2
c2      mov.i   }-1,>-1
        djn.b   c2,     #8
        spl     aim2-3
        add     #2,     aim2-2

        label   seq     3,      4
        mov     2,      @label
        jmp     label,  >label