gr.open 255, 10,10,10
gr.orientation 1
gr.set.antialias 40
gr.screen w, h
Timer.Set 80
t = 0
amplitude = 20
speed = 2/5
text$="|||||||||||||||||||||||||||||||"
r = 100
g = 50
b = 200
rr = 4
bb = -8
gg = 6
gr.text.typeface 4,1
gr.text.size 4
gr.text.bold false 
do

until 0
goto end
OnTimer:
gr.cls
r=r+rr
g=g+gg>b+r
b=b+bb
if (r>=255)  | (r<=0) then rr=rr*(-1)
if (g>=255)  | (g<=0) then gg=gg*(-1)
if (b>=255)  | (b<=0) then bb=bb*(-1)
t=t+speed
r = max (0,min (255,r))
g = max (0,min (255,g))
b = max (0,min (255,b))
for i = 0 to len(text$)
   gr.color 255,r,g,b
   gr.text.size 44+cos(6+(16*i)+t)*amplitude
   gr.text.draw wat,16+(16*i),220-sin(16+(16*i)+t)*amplitude,mid$(text$,i,1)
next i
gr.render
Timer.Resume
end: