Example

   // ----------------------------------------------------
  // User name (OS): Phil
  // Date and time: 01/18/10, 11:19:02
  // ----------------------------------------------------
  // Method: FRHTMLFile2BLOB
  // Description
  // 
  //
  // Parameters
  // ----------------------------------------------------

  //$1=Path to html file
  //$2=->Blob to hold processed HTML
  //{$3...$17} = Optional text parameters to be passed into the footrunner
C_TEXT($1;${3};$ttText;$ttHTML;$ttFRCode;FRHTML;$ttExecute;$ttLine)
C_POINTER($2)
C_BLOB($obData)
C_TIME($rDoc)
C_LONGINT($xlPos;$xlPos2;$xlStart)
C_LONGINT($0;xl_FR_Return)

SET BLOB SIZE($obData;0)


$ttHTML:=""
xl_FR_Return:=0
If (Test path name($1)=Is a document )
$rDoc:=Open document($1;"";Read Mode )
If (OK=1)
RECEIVE PACKET($rDoc;$ttText;MAXTEXTLENBEFOREV11 )
SET TEXT TO PASTEBOARD($ttText)
CLOSE DOCUMENT($rDoc)
Repeat 
$xlPos:=Position("";$ttText)  // find end of code
If ($xlPos2>0)
$ttFRCode:=Substring($ttText;1;$xlPos2-1)
$ttText:=Substring($ttText;$xlPos2+3)
FRHTML:=""

$ttExecute:="xl_FR_Return:=FRRunTextRaw($ttFRCode;0"
For ($i;3;Count parameters)
$ttExecute:=$ttExecute+";$"+String($i)
End for 
$ttExecute:=$ttExecute+")"
EXECUTE FORMULA($ttExecute)

$ttHTML:=$ttHTML+FRHTML
End if 
Else 
$ttHTML:=$ttHTML+$ttText
End if 
Until ($xlPos=0)

TEXT TO BLOB($ttHTML;$obData;UTF8 text without length )

Else 
xl_FR_Return:=-43
End if 
Else 
xl_FR_Return:=-43
End if 
$0:=xl_FR_Return
$2->:=$obData