XProfan

 {$cleq}
cls
long tme:=gettickcount,fps

do {

    fps+

    if (gettickcount>tme) {

        add tme,1000
        settext hwnd,str$(fps)
        fps:=nul

    }

}

 {$cleq}
cls
long tme:=gettickcount,fps
long testlong

do {

    fps+

    if testlong==1 {

    } elseif testlong==2 {

    } elseif testlong==3 {

    }

    if gettickcount>tme {

        add tme,1000
        settext hwnd,str$(fps)
        fps:=nul

    }

}

 {$cleq}
cls
long tme:=gettickcount,fps
long testlong

do {

    fps+

    select testlong

        caseof 1

        caseof 2

        caseof 3

    endselect

    if gettickcount>tme {

        add tme,1000
        settext hwnd,str$(fps)
        fps:=nul

    }

}