{
Return tag content as ASCII text.
}
function TagAsText(tag:Integer):String;
begin
 if TypeTag(tag)=1 then TagAsText:=Str(iGetTag(tag)) else
 if TypeTag(tag)=2 then TagAsText:=Str(rGetTag(tag)) else
 if TypeTag(tag)=3 then TagAsText:=    sGetTag(tag)  else TagAsText:='';
end;
