Example:

1. Sub Main

   1. Const Max = 5

      Dim A(5) As String

      A(1) = "Programmer"

      A(2) = "Engineer"

      A(3) = "President"

      A(4) = "Tech Support"

      A(5) = "Sales"

      Exchange = True

      While Exchange

      1. Exchange = False

         For I = 1 To Max

         1. MsgBox A(I)

         NextI

      Wend

   End Sub