\\ Main module
START

Array1 = [-160, -43, 0, 42, 77]
Antwoord = 0
Orginelegrootte = COUNT(Array1)
Nieuwegrootte = Orginelegrootte // 2
Deelgrootte = 0
QUERY "Geef uw zoekwaarden op: ", Zoekwaarde

WHILE Antwoord = 0 DO

    IF Zoekwaarde = Array1[Nieuwegrootte] THEN
        Antwoord = 1
    ELSE IF Zoekwaarde > Array1[Nieuwegrootte] THEN

        IF Orginelegrootte > Nieuwegrootte THEN

            Deelgrootte = Orginelegrootte - Nieuwegrootte

        ELSE IF Orginelegrootte < Nieuwegrootte THEN

            Deelgrootte = Nieuwegrootte - Orginelegrootte

        ELSE IF Orginelegrootte = Nieuwegrootte THEN

            WRITE "Uw zoekwaarde zit niet in de array"

        ENDIF

        Orginelegrootte = Nieuwegrootte
        IF Deelgrootte = 1 THEN

            Nieuwegrootte = Orginelegrootte + Deelgrootte

        ELSE

            Nieuwegrootte = Orginelegrootte + (Deelgrootte // 2)

        ENDIF

    ELSE IF Zoekwaarde < Array1[Nieuwegrootte] THEN

        IF Orginelegrootte > Nieuwegrootte THEN

            Deelgrootte = Orginelegrootte - Nieuwegrootte

        ELSE IF Orginelegrootte < Nieuwegrootte THEN

            Deelgrootte = Nieuwegrootte - Orginelegrootte

        ELSE IF Orginelegrootte = Nieuwegrootte THEN

            WRITE "Uw zoekwaarde zit niet in de array"

        ENDIF

        Orginelegrootte = Nieuwegrootte
       IF Deelgrootte = 1 THEN

            Nieuwegrootte = Orginelegrootte - Deelgrootte

        ELSE

            Nieuwegrootte = Orginelegrootte - (Deelgrootte // 2)

        ENDIF

    ENDIF
ENDWHILE
WRITE "Uw waarde zit op positie: ", Nieuwegrootte


END