constants [[npix 24]
           [pina $39]]


to move 
let [addr 0]
repeat 10 [dot :addr 30 make "addr :addr + 1 wait 1 redraw]

end




to blink
loop [all 10 redraw
	wait 1
	all 40 redraw
	wait 1
]
end

to all :n
let [addr 0]
repeat npix [dot :addr :n make "addr :addr + 1]
redraw
end


define ao [][alloff redraw]