// RGB <-> r,g,b
function Red(color)
Red = mod(color, 256)
EndFunction red
function blue(color)
blue = mod((color/256),256)
EndFunction blue
function green(color)
green = mod((color/(256*256)), 256)
EndFunction green
Function RGB(r,g,b)
color = r +g*256 + b*256*256
EndFunction color
Setvirtualresolution(640,480) ResetTimer() text$="Example Text" CreateText(1,text$) SetTextSize(1,35) SetTextPosition(1,10,100) Repeat SetTextColor( 1, Random(0,255), Random(0,255), Random(0,255), Random(100,255) ) Sleep(250) Sync() Until Timer()>12 End