dim h(6)
Hex_backdrop(0,f,0,0,f,F)

do
Hex_backdrop(0,f,0,0,f,F)
wait 1
loop

function Hex_backdrop(a,b,c,d,e,f)
h(1) = a
h(2) = b
h(3) = c
h(4) = d
h(5) = e
h(6) = f
backdrop on
   for x = 1 to 6
      if h(x) = 0
            h(x) = 0
      endif
      if h(x) = 1
            h(x) = 24
      endif
      if h(x) = 2
            h(x) = 40
      endif
      if h(x) = 3
            h(x) = 56
      endif
      if h(x) = 4
            h(x) = 72
      endif
      if h(x) = 5
            h(x) = 88
      endif
      if h(x) = 6
            h(x) = 94
      endif
      if h(x) = 7
            h(x) = 110
      endif
      if h(x) = 8
            h(x) = 126
      endif
      if h(x) = 9
            h(x) = 142
      endif
      if str$(h(x)) = "a" or str$(h(x)) = "A"
            h(x) = 158
      endif
      if str$(h(x)) = "b" or str$(h(x)) = "B"
            h(x) = 174
      endif
      if str$(h(x)) = "c" or str$(h(x)) = "C"
            h(x) = 190
      endif
      if str$(h(x)) = "d" or str$(h(x)) = "D"
            h(x) = 200
      endif
      if str$(h(x)) = "e" or str$(h(x)) = "E"
            h(x) = 217
      endif
      if str$(h(x)) = "f" or str$(h(x)) = "F"
            h(x) = 255
      endif
   next x
h12 = h1 + h2
h34 = h3 + h4
h56 = h5 + h6
color backdrop rgb(h12,h34,h56)
endfunction