FIT   100
© Copyright University of Washington 1999-2000
initializeWorm procedure
v
Private Sub initializeWorm(xSeg() As Integer, ySeg() As Integer)
  Dim index As Integer
  index = 0     ' Index range 0 thru 9
  Do While index < 10             ' Process all array elements
    xSeg(index) = 1000 + 100 * index
    If (index Mod 2) = 0 Then    ' Test of index odd/even
      ySeg(index) = 1000      ' Even segments
    Else
      ySeg(index) = 900        ' Odd segments
    End If
    index = index + 1              ' Move to next index
    Loop
End Sub