  // ----------------------------------------------------
  // User name (OS): Phil
  // Date and time: 01/18/10, 08:11:52
  // ----------------------------------------------------
  // Method: FRText2Document
  // Description
  // 
  //
  // Parameters
  // ----------------------------------------------------

  //$1 = Footrunner Text
  //{$2} = Optional Path to Footrunner Document, Pass "" to prompt
C_TEXT($1;$ttDocPath;$ttDocContents)
C_TIME($rDoc)
C_LONGINT($0)
$0:=0
$ttDocPath:=""
$ttDocContents:=$1

If (Count parameters>1)
$ttDocPath:=$2
End if 
If (Length($ttDocPath)=0)  // no document specified
$rDoc:=Create document("")
$fGo:=(OK=1)
Else 
If (Test path name($ttDocPath)=Is a document )
DELETE DOCUMENT($ttDocPath)
End if 
$rDoc:=Create document($ttDocPath)
$fGo:=(OK=1)
End if 

If ($fGo)  // no document specified
$0:=FRAppendChecksum ($ttDocContents)
SEND PACKET($rDoc;$ttDocContents)
CLOSE DOCUMENT($rDoc)
End if 
