Imports System
Public Module Module1
Public Sub Main()
DIM List AS INTEGER
DIM Item AS INTEGER
DIM Initial AS INTEGER
DIM Final AS INTEGER
DIM Middle AS INTEGER
DIM SearchSuccess AS BOOLEAN
DIM Found AS BOOLEAN
SearchSuccess = FALSE
Found = FALSE
Initial = 0
Final = 9
WHILE NOT SearchSuccess AND NOT Found THEN
Middle = (Initial + Final) DIV 2
IF List(Middle) = Item THEN
SearchSuccess = TRUE AND Found = TRUE
ELSE
IF Initial > = Final THEN
IF List(Middle) > Item THEN
Final = Middle - 1
Initial = Middle + 1
END IF
END WHILE
Found = TRUE
End Sub
End Module
