text effects

You could do something like this:

Graphics 640,480,16,2
While Not KeyHit( 1 )

	waveText( "THIS IS A TEST", 100, 200, 12, ang, 64, 4 )
	ang = ang + 1 : If ang > 359 Then ang = ang - 360
	Flip
	Cls
Wend
End

Function waveText( TXT$, X, Y, SPACING, STARTANGLE, WAVEHEIGHT, ANGLESTEP )
	For i = 1 To Len( TXT$ )
		YY = Y + Sin( STARTANGLE ) * WAVEHEIGHT
		Text X, YY, Mid( TXT$, i, 1 )
		STARTANGLE = STARTANGLE + ANGLESTEP
		X = X + SPACING
	Next
End Function