$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