gr.open 255, 0,0,0
gr.orientation 1
gr.set.antialias 2
gr.screen w, h
Timer.Set 18
t = 0
amplitude = 80
speed = 1/20
text$ = "U F O     D E S T R O Y E R"
r = 100
g = 50
b = 200
rr = 4
bb = -8
gg = 6
gr.text.typeface 4,2
gr.text.size 50
gr.text.bold true
do

until 0
goto end
OnTimer:
gr.cls
r=r+rr
g=g+gg
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 = 1 to len(text$)
   gr.color 255,r,g,b
   !gr.text.skew sin(t)
   gr.text.draw wat,16+(16*i),120+sin(16+(16*i)+t)*amplitude,mid$(text$,i,1)
next i
gr.render
Timer.Resume
end: