Graphics 555,555,0,2
Color 0,255,0
For i = 1 To GraphicsWidth()
Line i,Sin(i)*55+155,i,GraphicsHeight()
Next
WaitKey

Graphics 666,666,0,2
i=0
SetBuffer BackBuffer()
While Not KeyHit(1)
Cls
For m=1 To 12
Text Cos(359.0/Float(m))*(GraphicsWidth()/2)+(GraphicsWidth()/2),Sin(359.0/Float(m))*(GraphicsHeight()/2)+(GraphicsHeight()/2),Str$(m),1,1
Next
Line GraphicsWidth()/2,GraphicsHeight()/2,(Cos(i Mod 359)*(GraphicsWidth()/2))+(GraphicsWidth()/2),(-(Sin(i Mod 359)*(GraphicsHeight()/2)))+(GraphicsHeight()/2)
i=i+1
Flip
VWait
Wend