'/title Count per Second Update
'/type utility

DIM count(99)
tm$ = TIME$

DO UNTIL INKEY$ <> ""

    IF tm$ <> TIME$ THEN
        tm$ = TIME$
        IF n > 0 THEN
            tot = tot + n
            i = i + 1
            count(i) = n
            PRINT i; n
            n = 0
        END IF
        q = 1
    END IF

    IF q > 0 THEN
        n = n + 1
    END IF

LOOP

avg = tot / i
PRINT avg

x$ = LTRIM$(STR$(avg))
ChangeLabelValue "settings.ini", "CountPerSec", x$

SUB ChangeLabelValue (fn$, lbl$, newv$) '###################################
    tf$ = "~~lakjsdf.tmp"
    ff1 = FREEFILE: OPEN fn$ FOR INPUT AS #ff1
    ff2 = FREEFILE: OPEN tf$ FOR OUTPUT AS #ff2
    DO UNTIL EOF(1)
        LINE INPUT #ff1, x$
        IF LEFT$(x$, 1) <> "'" THEN
            p = INSTR(x$, "=")
            IF p > 1 AND p < LEN(x$) THEN
                lb$ = RTRIM$(LEFT$(x$, p - 1))
                IF UCASE$(lb$) = UCASE$(lbl$) THEN
                    ''PRINT "*found label"
                    x$ = lb$ + " = " + newv$
                END IF
            END IF
        END IF
        PRINT #ff2, x$
    LOOP
    CLOSE 1, 2
    '''''''''''SHELL "notepad.exe " + tf$: END
    ff1 = FREEFILE: OPEN tf$ FOR INPUT AS #ff1
    ff2 = FREEFILE: OPEN fn$ FOR OUTPUT AS #ff2
    DO UNTIL EOF(1)
        LINE INPUT #ff1, x$
        PRINT #ff2, x$
    LOOP
    CLOSE 1, 2
    ''SHELL "notepad.exe " + fn$: END
END SUB