uses gdip

Screen 640,480,1
sys Font,Vont
Font= LoadFont "verdana",20
Vont= LoadFont "times",40 

sys tl, i, x

string z= "HELLO AND WELCOME TO OUR OXYGENBASIC FORUM !", letter 
tl = len(z)
Dim y(44) as single
Dim angle(44) as single

For i=1 to tl
   angle(i) = 360-i*(360/tl) 
   y(i) = 240
Next

While Key(27)=0 
ClsColor 255,0,0,155
Text vont,190,0,"Sing A Song",ARGB(255,255,200,210)
For x=1 to tl
   angle(x) = angle(x) +1
   iF angle(x) = 360 Then angle(x) =0
   letter = mid(z, x ,1)
   y(x) = y(x) + sin(rad(angle(x)))
   Text Font,2+x*14,y(x), letter,     ARGB 255,255,255,255
   Text Font,2+x*14,y(x)-100, letter, ARGB 255,0,255,0
   Text Font,2+x*14,y(x)+100, letter, ARGB 255,255,0,0
Next
Flip
SetFps 80
Wend
Ends