DataSection
  strstrw_crlf:
  ;IncludeBinary "copy of strstrw_crlf.bin"
  IncludeBinary "FindSplitStrVBW_Cr_Lf_CrLf.bin"
  EndDataSection

*Mem = AllocateMemory(500)

Define.s xChar1

xChar1 = "1Test1" + Chr(13)+Chr(10)+"2Test2"
  PokeS(*Mem, xChar1, -1, #PB_Unicode)
  xLong1 = CallFunctionFast(?strstrw_crlf,0,0,*Mem,@xLong2)
  Debug Hex(xLong1) + " / " + Hex(xLong2) + " <" + Left(xChar1, xLong1) + "><" + Mid(xChar1, xLong2) + ">"

xChar1 = "1Test1" + Chr(13)+"2Test2"
  PokeS(*Mem, xChar1, -1, #PB_Unicode)
  xLong1 = CallFunctionFast(?strstrw_crlf,0,0,*Mem,@xLong2)
  Debug Hex(xLong1) + " / " + Hex(xLong2) + " <" + Left(xChar1, xLong1) + "><" + Mid(xChar1, xLong2) + ">"

xChar1 = "1Test1" + Chr(10)+"2Test2"
  PokeS(*Mem, xChar1, -1, #PB_Unicode)
  xLong1 = CallFunctionFast(?strstrw_crlf,0,0,*Mem,@xLong2)
  Debug Hex(xLong1) + " / " + Hex(xLong2) + " <" + Left(xChar1, xLong1) + "><" + Mid(xChar1, xLong2) + ">"

xChar1 = "1Test1-2Test2"
  PokeS(*Mem, xChar1, -1, #PB_Unicode)
  xLong1 = CallFunctionFast(?strstrw_crlf,0,0,*Mem,@xLong2)
  Debug Hex(xLong1) + " / " + Hex(xLong2) + " <" + Left(xChar1, xLong1) + "><" + Mid(xChar1, xLong2) + ">"
Debug Hex(Len(xChar1))
  
FreeMemory(*Mem)
; IDE Options = PureBasic 4.51 (Windows - x86)
; CursorPosition = 3
; EnableAsm
; EnableXP