'' examples/manual/operator/less-than1.bas
''
'' Example extracted from the FreeBASIC Manual
'' from topic 'Operator < (Less than)'
''
'' See Also: https://www.freebasic.net/wiki/wikka.php?wakka=KeyPgOpLessThan
'' --------

Const size As Integer = 4
Dim array(0 To size - 1) As Integer = { 1, 2, 3, 4 }

Dim index As Integer = 0
While (index < size)
   Print array(index)
   index += 1
Wend