Declare Function CharCount(byRef Where As String, byRef What As String, IgnoreCase As Integer=0) As Integer
Var t="Teeesteeett", s="te", Lf=!"\n"
Print t, s &Lf &CharCount(t, s, 1) &Lf &t, s &Lf &CharCount(t, s)
Print "FB-Version: FB 0.185b, IDE: FBEdit";
GetKey
End

Function CharCount(byRef Where As String, byRef What As String, IgnoreCase As Integer=0) As Integer
  Var i=0, hWhere=Where, hWhat=What, le=Len(hWhere), la=Len(hWhat), Found=1-la
  If le=0 Or la=0 Then Return -le
  If IgnoreCase Then
    hWhere=lcase(hWhere)
    hWhat=lcase(hWhat)
  End If
  Do
  	Found=Instr(Found+la, hWhere, hWhat)
    i-=Found<>0
  Loop Until Found=0
  hWhere=""
  hWhat=""
  Return i
End Function