C_BLOB($1;$blob)
C_TEXT($2;$searchString)
C_LONGINT($0;$location;$i;$searchIndex;$offset;$ascii)
$blob:=$1
$searchString:=$2
$searchIndex:=1
$location:=-1
If (Length($searchString)>0)
For ($offset;0;BLOB size($blob)-1)

For ($i;$offset;BLOB size($blob)-1)

$ascii:=$blob{$i}

If ($ascii=Ascii($searchString[[$searchIndex]]))
$searchIndex:=$searchIndex+1
Else 
$searchIndex:=1
End if 

If ($searchIndex>Length($searchString))
$location:=$i-($searchIndex-2)
$i:=BLOB size($blob)
End if 

End for 

If ($location#-1)
$offset:=BLOB size($blob)
End if 

End for 
End if 
$0:=$location