PRO COLOUR_HP r= 255*[0, 1, 1, 0, 0, 0, 1, 1] g= 255*[0, 1, 0, 1, 0, 1, 1, 0] b= 255*[0, 1, 0, 0, 1, 1, 0, 1] TVLCT, r,g,b RETURN END