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: