Graphics 640, 480, 16, 2 SetBuffer BackBuffer() SeedRnd MilliSecs() Dim menuR(9), menuA#(9), menuS$(9), menuW#(9) For i = 0 To 8 menuR(i) = Rand(150, 200) menuA(i) = i * 40 menuS$(i) = "Menu Option " + Str(i + 1) Next Local tmpO# Local Font = LoadFont("Verdana", 18, 0, 0, 0) SetFont Font While Not KeyDown(1) If KeyDown(203) Then If tmpO > -2 Then tmpO = tmpO - .02 ElseIf KeyDown(205) Then If tmpO < 2 Then tmpO = tmpO + .02 Else If tmpO > 0 Then tmpO = tmpO - .01 Else tmpO = tmpO + .01 EndIf EndIf For i = 0 To 9 tmpX = Cos(menuA(i)) * menuR(i) + 320 tmpY = -Sin(menuA(i)) * menuR(i) + 240 Color 255, 255, 255 Line 320, 240, tmpX, tmpY - 10 If menuA(i) >= 260 And menuA(i) <= 280 Then Color 0, 255, 0 Else Color 255, 255, 0 EndIf Text tmpX - (StringWidth(menuS$(i)) / 2), tmpY - 12, menuS$(i) menuA(i) = menuA(i) + tmpO If menuA(i) > 360 Then menuA(i) = 0 If menuA(i) < 0 Then menuA(i) = 360 Next Color 255, 255, 255 Oval 320 - 10, 240 - 10, 20, 20, 1 Color 0, 0, 0 Oval 320 - 9, 240 - 9, 18, 18, 1 Color 0, 255, 0 Oval 200, 360, 250, 100, 0 Color 255, 255, 255 Text 1, 1, "Left / Right Arrow Keys - " + Left(Str(tmpO), 4) Flip: Cls Wend: End