uses gdip

Screen 640, 480, 2
SetCaption "GDIPLUS NETWORK"
sys fo= LoadFont ("arial",38)

Dim Winkel(60) as single
Dim y(60) as single
string txt = "OOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOOO"
int TextL = Len(txt)
sys cx1=0, cy1=100, d1=1, v1=0, i=0, s1 
single r1=10

For i=1 To TextL
winkel(i) =360 - i*(360/TextL)
y(i) = 240 
Next

While Key(27)=0
ClsColor 15,0,0,0
int x
For x=1 To TextL
   winkel(x) = winkel(x) + .2
   iF winkel(x) =360 Then winkel(x) = -360
   string Letter = Mid(txt,x,1)
   y(x) = y(x) + Sin(winkel(x))*20
   Text fo,x*10,y(x),Letter, ARGB 55,255,255,255
Next
Flip
SetFps 24
Wend
Ends