include "window.inc"

Window "o_o", 640, 480, 2
Font 10,48,700,"courier"

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 AscKey=0 and WinExit=0

ClsColor 0,0,0
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 40+x*12,y(x), letter, 255,255,255
next
events
FlipBuffer
WaitFPS 60
Wend
WinEnd