C_TEXT($1)
C_TEXT($2)
C_TEXT($0)

C_TEXT($Txt_encoding;$Txt_Target;$Txt_Path;$Txt_Buffer)
C_BLOB($Blb_Buffer)
C_TIME($Gmt_Doc)

$Txt_Target:=$1
If (Count parameters>1)
$Txt_encoding:=$2
End if 

If (Length($Txt_encoding)=0)
$Txt_encoding:="UTF-8"
End if 

If (Length($Txt_Target)>0)
$Txt_Target:=Replace string($Txt_Target;"&";"&")  `ampersand
$Txt_Target:=Replace string($Txt_Target;"<";"&lt;")  `less than
$Txt_Path:=Temporary folder+"decode.xml"
If (Test path name($Txt_Path)=Is a document )
DELETE DOCUMENT($Txt_Path)
End if 
$Gmt_Doc:=Create document($Txt_Path)
If (OK=1)
SAX SET XML OPTIONS($Gmt_Doc;$Txt_encoding;True;False)
SEND PACKET($Gmt_Doc;"<root><string>")
SEND PACKET($Gmt_Doc;$Txt_Target)
SEND PACKET($Gmt_Doc;"</string></root>")
CLOSE DOCUMENT($Gmt_Doc)
$Txt_Root:=DOM Parse XML source($Txt_Path;False)
If (OK=1)
$Txt_Node:=DOM Find XML element($Txt_Root;"/string")
If (OK=1)
DOM GET XML ELEMENT VALUE($Txt_Node;$Txt_Buffer)
If (OK=1)
$Txt_Buffer:=Replace string($Txt_Buffer;"&amp;";"&")  `ampersand
$Txt_Buffer:=Replace string($Txt_Buffer;"&lt;";"<")  `less than
End if 
End if 
End if 
DELETE DOCUMENT($Txt_Path)
End if 
End if 

$0:=$Txt_Buffer