XProfan

 $H messages.ph
Def LINEFROMCHAR(2) SendMessage(&(1),~EM_LINEFROMCHAR,%(2),0)

Proc CheckBrackets

    Parameters Int Zeile, String Text, Handle hTarget
    Declare String sOut
    sOut = Translate$("Zeile " + Str$(Zeile + 1) + ": offene/geschlossene Klammern " + Str$(Len(Text,"(") - 1) + "/" + Str$(Len(Text,")") - 1),"-1","0")
    SetText hTarget, sOut

EndProc

Cls
Var Handle hEdit = Create("MultiEdit",%hwnd,"",10,10,400,380)
Var Handle hStatus = Create("StatusWindow",%hwnd,"Test")

While 1

    WaitInput
    CheckBrackets(SendMessage(hEdit,~EM_LINEFROMCHAR,-1,0),GetString$(hEdit,SendMessage(hEdit,~EM_LINEFROMCHAR,-1,0)),hStatus)

Wend