>ÿpalette=0x3fc0 c=0 function SCN(l) t=time()/500 l=l/136*math.pi*2-t r=math.sin(l)*127+128 g=math.sin(l+math.pi*2/3)*127+128 b=math.sin(l+math.pi*2*2/3)*127+128 poke(palette,r) poke(palette+1,g) poke(palette+2,b) end function TIC() cls(0) end