Microsoft Small Basic

Program Listing:
Embed this in your website
Sub Init
  wh = GraphicsWindow.Height
  For b = 1 To 10
    For i = 0 To 50
      GraphicsWindow.PenColor = "Blue"
      line[i][b] = Shapes.AddLine(0,0,0,20)
      x[i][b]=i*13
      y[i][b]=b*50-wh
      Shapes.Move(line[i][b],x[i][b],y[i][b])
      Shapes.Rotate(line[i][b],15)
    EndFor
  EndFor
EndSub
Init()
a=0
While 1=1
  If a<480 Then
    a=a+1
    For b = 1 To 10
      For i = 0 To 100
        r = Math.GetRandomNumber(10)
        y[i][b]=y[i][b]+r
        Shapes.Move(line[i][b],x[i][b],y[i][b])
      EndFor
    EndFor
  EndIf
EndWhile
Copyright (c) Microsoft Corporation. All rights reserved.