` ----------------------------------------------------
  ` Method : CARET_AT_TOP
  ` ----------------------------------------------------
C_BLOB($Blb_Buffer)
C_LONGINT($Lon_Size)
TEXT TO BLOB("<caret/>";$Blb_Buffer;Text without length )
If (OK=1)
_blobReplace :=_blobMethod 
$Lon_Size:=BLOB size($Blb_Buffer)
INSERT IN BLOB(_blobReplace ;0;$Lon_Size)
If (OK=1)
COPY BLOB($Blb_Buffer;_blobReplace ;0;0;$Lon_Size)
_action :=4*Num(OK=1)
End if 
End if