' Hi-Lo
' PP, 96.10

CLS
min = 1
max = 100

FimDoCiclo = 0

DO

    palpite = INT(.5 * (min + max))
    PRINT palpite;
    INPUT resposta$

    SELECT CASE resposta$
        CASE "="
            PRINT "Acertei !"
            FimDoCiclo = 1
        CASE "+"
            PRINT "Numero secreto maior que "; palpite
            min = palpite
        CASE "-"
            PRINT "Numero secreto menor que "; palpite
            max = palpite
        END SELECT

LOOP WHILE FimDoCiclo = 0

    ' Como poderemos determinar o n£mero de tentativas
    ' necess rias para chegar ao valor certo ?

END