Microsoft Small Basic

Program Listing: PWZ514

List Program

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