INPUT "Nome da chave: ", chave$

OPEN "c:\config.ini" FOR INPUT AS #1

FOR z% = 1 TO 5
    INPUT #1, a$


    FOR i% = 1 TO 255

        proc$ = LEFT$(a$, i%)
        proc$ = RIGHT$(proc$, i%)



        IF RIGHT$(proc$, 1) = "=" THEN 'left
            divisor% = i%

            NomeChave$ = LEFT$(a$, divisor%)

            NomeChave$ = LEFT$(NomeChave$, divisor% - 1) ' RETIRAM O =
            NomeChave$ = RIGHT$(NomeChave$, divisor% - 1) '  E O ; do valor


        END IF



        IF NomeChave$ = chave$ THEN
            IF RIGHT$(proc$, 1) = ";" THEN
                GOTO success
            END IF


        END IF

        IF i% = 255 THEN GOTO LerProxLinha


    NEXT

    LerProxLinha:
NEXT


success:

FimDaChave% = i% - 1 'j  desconta o ";"
PRINT "O fim da chave ‚: " + STR$(FimDaChave%)
intervalo% = FimDaChave% - divisor% ' seleciona at‚ onde ir  pegar.

ValorChave$ = LEFT$(a$, FimDaChave%)
ValorChave$ = RIGHT$(ValorChave$, intervalo%)

PRINT "O valor para a chave " + NomeChave$ + " ‚: " + ValorChave$