#pas
function Test(var p:string):integer;
begin
  if p <> ' ' then
    Message('test string ' + p); // comment
  Result := 0;
end;

#cpp
#include "stdio.h"

int Test(char *s) {
  if(p != NULL)
    print("test string ", s); // comment

  return(0);
}

#sha
Add(MT_Get,7583066,454,70)
{
 link(onData,1627202:doGet,[])
 link(onGet,5283298:doValue,[(502,83)(502,125)])
}
Add(Memory,5283298,510,119)
{
 @Hint="mes_num"
}

#bas
Public Sub Test
  If a > d And x < в Then  ' comment this
    For i = 10 To 100 Step 1
      Message "test string"
    Next i
  End If
End Sub

#sql
SELECT COUNT(*) AS test FROM hiasm_posts WHERE test > 0 AND MAX(ret) > 10 ORDER BY time LIMIT 0,10