Sub Main()
Dim x(5), y(5), ax(5), ay(5) As Integer
Dim i As Integer

For i = 1 To 5
x(i) = (78 * Rnd() + 1)
y(i) = (23 * Rnd() + 1)
ax(i) = 1
ay(i) = 1

Next

Do
For i = 1 To 5
Console.CursorTop = y(i)
Console.CursorLeft = x(i)
Console.Write("O")

Next
System.Threading.Thread.Sleep(100)

For i = 1 To 5
Console.CursorTop = y(i)
Console.CursorLeft = x(i)
Console.Write(" ")

If x(i) = 78 Then
ax(i) = -1
ElseIf x(i) = 2 Then
ax(i) = 1
ElseIf y(i) = 23 Then
ay(i) = -1
ElseIf y(i) = 1 Then
ay(i) = 1
End If

x(i) = x(i) + ax(i)
y(i) = y(i) + ay(i)

Next


Loop While (Not Console.KeyAvailable)




End Sub