Stuff
public text v1 · immutable;redcode
;name CMP-scanner v3
start equ 100
gap equ 5
wait equ 789
step equ 10
top add.f inc, ptr
ptr seq.i start, start+gap
jmp atk
djn.b top, #wait
inc spl #step, #step
mov.i bmb, >top-2
djn.f -1, >top-2
bmb dat 0, 10
atk mov.i inc, @ptr
jmn.f atk, <ptr
mov.ab ptr, ptr
add.ab #5, gap
jmp top