Home > Available Help Files > PC-DMIS BASIC Language > Language Reference A – Z > While...Wend Statement > Example - While Wend Statement
Current Help File: PC-DMIS Basic (View Core Help)
Example - While Wend Statement
Sub Main
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
Exchange = False
For I = 1 To Max
MsgBox A(I)
NextI
Wend
End Sub