initializeWorm procedure
	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