constants [[npix 64]]


to runcmd
if cmd < 68 [dot cmd box1 redraw]
if cmd = 68 [dot 0 box1 redraw]
if cmd = 69 [dot 1 box1 redraw]
if cmd = 70 [brightness 0]
if cmd = 71 [brightness 9]
if cmd = 72 [setbox1 0]
if cmd = 73 [setbox1 10]
if cmd = 74 [setbox1 20]
if cmd = 75 [setbox1 30]
if cmd = 76 [setbox1 50]
if cmd = 77 [setbox1 70]
if cmd = 78 [setbox1 80]
if cmd = 79 [setbox1 90]
if cmd = 80 [setbox1 -1]
if cmd = 90 [ao]
end

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

define ao [][alloff redraw]