FUNCTION PBMAIN() AS LONG
  LOCAL w AS WSTRINGZ * 8
  LOCAL c AS WSTRINGZ * 16
  LOCAL r AS LONG
  r = 0

  w = "wide"
  IF w <> "wide" THEN r = 1

  ' Buffer is 8 wchar_t, so max 7 chars + NUL
  w = "hello wide world"
  IF w <> "hello w" THEN r = 2

  ' Concatenation
  c = "hello" & " world"
  IF c <> "hello world" THEN r = 3

  ' LIKE pattern match
  IF NOT (c LIKE "hello*") THEN r = 4
  IF c LIKE "goodbye*" THEN r = 5

  FUNCTION = r
END FUNCTION
