  // ----------------------------------------------------
  // User name (OS): Phil
  // Date and time: 01/15/10, 09:10:16
  // ----------------------------------------------------
  // Method: FRRun
  // Description
  // 
  //
  // Parameters
  // ----------------------------------------------------
  //$1= Recurrsive Footrunner Call
  //     1 = This call is made from a Footrunner file
  //     0 = This call is made from 4D

  //$2 = Path to Footrunner Document, Pass "" to prompt
  //{$3...$17} = Optional text parameters to be passed into the footrunner
C_LONGINT($0;$1;xl_FR_Return;$xlRecurrsive;$i)
C_TEXT(${2};$ttDocPath;$ttDocContents)
C_TIME($rDoc)
$xlRecurrsive:=$1
$ttDocPath:=$2

xl_FR_Return:=0  //Assume Success

If (Length($ttDocPath)=0)  // no document specified
$rDoc:=Open document("";"";Read Mode )
If (OK=1)
CLOSE DOCUMENT($rDoc)
$ttDocPath:=document
End if 
End if 

If (Length($ttDocPath)>0)  //  document specified
If (Test path name($ttDocPath)=Is a document )  // no document specified
$rDoc:=Open document($ttDocPath;"";Read Mode )
If (OK=1)
RECEIVE PACKET($rDoc;$ttDocContents;MAXTEXTLENBEFOREV11 )
CLOSE DOCUMENT($rDoc)
$ttExecute:="xl_FR_Return:=FRRunText($ttDocContents;$xlRecurrsive"
For ($i;3;Count parameters)
$ttExecute:=$ttExecute+";$"+String($i)
End for 
$ttExecute:=$ttExecute+")"
EXECUTE FORMULA($ttExecute)
  //xl_FR_Return:=FRRunText ($ttDocContents)
End if 
Else 
xl_FR_Return:=-43  //Invalid Document
End if 
End if 
$0:=xl_FR_Return  //Assume success
