;redcode-tiny
;name world of copper wire
;author John Metcalf
;assert CORESIZE==800

ptr: dat   40,    ptr+300
b:   dat   -50,   clr
     dat   9,     200
clr: spl   #20,   ptr+500
loop:mov   @b,    }ptr
     mov   @b,    >ptr
     djn.f loop,  >clr

     for   4
     dat   0,0
     rof

     pa equ (start-350)
     pb equ (pa-21)
     st equ 42

start
a    for   8
     mov   {pa-a*st,{pb-a*st
     rof
     djn.f clr,     {pb
     end   start