Scaremonger #1 Or a 162 byte colour box... w=255Graphics w,w;Repeat;z:Mod w*2Cls;For y=0To 255For x=0To 255SetColor(Abs(x*2-w),Abs(y*2-w),Abs(z*2-w))Plot(x,y)If KeyDown(27)End Next;Next;Flip;z:+5Forever