Microsoft Small Basic

Program Listing:

' Small Basic Challenge -- Sept. 2012 -- By Krueg -- V 1.1
'http://social.msdn.microsoft.com/Forums/en-US/smallbasic/thread/88d814da-7691-4103-9785-6886f5cb9105

'Tap the arrow keys to adjust the wave

yCenter = 300
yStep = 0
yInc = .2
y = 400

SetupWindow()
InitVariables()
GraphicsWindow.KeyDown = OnKeyDown
GraphicsWindow.KeyUp = OnKeyUp

While ("True")
  For x = 0 To 800 Step 2
    If Key = "Left" Then
      yInc = yInc * .95
    ElseIf Key = "Right" Then
      yInc = yInc * 1.05
    EndIf
    If y > yCenter Then
      yStep = yStep - yInc
      If Key = "Down" Then
        yStep = yStep * .95
      EndIf
    Else
      yStep = yStep + yInc
      If Key = "Up" Then
        yStep = yStep * 1.05
      EndIf
    EndIf
    Key = ""

    y = y + yStep
    Shapes.Move(Dot[x],x,y)
    Program.Delay(5)
  EndFor
EndWhile

Sub OnKeyDown
  Key = GraphicsWindow.LastKey
EndSub

Sub OnKeyUp
  Key = ""
EndSub

Sub InitVariables
  GraphicsWindow.PenColor = "Blue"
  GraphicsWindow.BrushColor = "Blue"
  For x = 0 To 800 Step 2
    Dot[x] = Shapes.AddEllipse(10,10)
    Shapes.Move(Dot[x],x,yCenter)
  EndFor
  GraphicsWindow.BrushColor = "Red"
  Note = Shapes.AddText("Tap the ARROW keys to affect the wave!")
  Shapes.Move(Note,50,20)
EndSub

Sub SetupWindow
  GraphicsWindow.Width = 800
  GraphicsWindow.Height = 600
  GraphicsWindow.BackgroundColor = "Black"
  GraphicsWindow.Title = "Krueg -- Wave Simulator -- Sept. 2012"
  GraphicsWindow.Show()
EndSub