{
Return tag content as dump string.
}
function TagAsDump(tag:Integer):String;
begin
 if TypeTag(tag)=1 then TagAsDump:=Dump(iGetTag(tag)) else
 if TypeTag(tag)=2 then TagAsDump:=Dump(rGetTag(tag)) else
 if TypeTag(tag)=3 then TagAsDump:=     sGetTag(tag)  else TagAsDump:='';
end;
