<html xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:st1="urn:schemas-microsoft-com:office:smarttags" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<meta name=Generator content="Microsoft Word 11 (filtered medium)">
<o:SmartTagType namespaceuri="urn:schemas-microsoft-com:office:smarttags"
name="PersonName"/>
<!--[if !mso]>
<style>
st1\:*{behavior:url(#default#ieooui) }
</style>
<![endif]-->
<style>
<!--
/* Style Definitions */
p.MsoNormal, li.MsoNormal, div.MsoNormal
{margin:0in;
margin-bottom:.0001pt;
font-size:12.0pt;
font-family:"Times New Roman";}
a:link, span.MsoHyperlink
{color:blue;
text-decoration:underline;}
a:visited, span.MsoHyperlinkFollowed
{color:purple;
text-decoration:underline;}
span.EstiloCorreo17
{mso-style-type:personal-compose;
font-family:Arial;
color:windowtext;}
@page Section1
{size:8.5in 11.0in;
margin:1.0in 1.25in 1.0in 1.25in;}
div.Section1
{page:Section1;}
-->
</style>
</head>
<body lang=EN-US link=blue vlink=purple>
<div class=Section1>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>The function continues here from e-mail no. 2:<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> my $decades = int ( $remains / 10 );<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $remains = $remains - $decades * 10;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> if ( $decades > 3 ) {<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $decades = $decades * 10;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res =
&mystreamfile("digits/$sound_map/$decades");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font><font size=2
face=Arial><span lang=ES-VE style='font-size:10.0pt;font-family:Arial'>$AGI->verbose(
"High Decades: $decades", $verbose );<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-VE style='font-size:
10.0pt;font-family:Arial'> </span></font><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'>if ( $remains >
1 ) {<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res =
&mystreamfile("digits/$sound_map/and");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res =
&mystreamfile("digits/$sound_map/$remains");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $AGI->verbose( "With
$remains", $verbose );<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> } elsif ( $remains == 1 ) {<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res =
&mystreamfile("digits/$sound_map/and");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res =
&mystreamfile("digits/$sound_map/1M");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $AGI->verbose( "With
1M", $verbose );<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> }<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> } else {<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $decades = $decades * 10 + $remains;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res =
&mystreamfile("digits/$sound_map/$decades");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> </span></font><font size=2
face=Arial><span lang=ES-VE style='font-size:10.0pt;font-family:Arial'>$AGI->verbose(
"Low Decades: $decades", $verbose );<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span lang=ES-VE style='font-size:
10.0pt;font-family:Arial'> </span></font><font size=2
face=Arial><span style='font-size:10.0pt;font-family:Arial'>}<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>######################################################<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> } else {<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $AGI->verbose( "Playing Number
without Custom Syntax: $number", $verbose );<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res = $AGI->say_number($number,
"0123456789");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res = "" if $res eq
"0";<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> }<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $AGI->verbose( "RES: $res", $verbose )
if ( $config{debug_agi} eq "YES");<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> $res = sprintf("%c", $res) if ( length(
$res ) );<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'> return $res;<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>}<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>Hope this helps someone as it worked for me.<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'>With best regards,<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=2 face=Arial><span style='font-size:10.0pt;
font-family:Arial'><o:p> </o:p></span></font></p>
<p class=MsoNormal><st1:PersonName ProductID="Max Glucksmann" w:st="on"><font
size=2 color=navy face=Arial><span style='font-size:10.0pt;font-family:Arial;
color:navy'>Max Glucksmann</span></font></st1:PersonName><o:p></o:p></p>
<p class=MsoNormal><U1:PERSONNAME ProductID="Max Glucksmann" u2:st="on"><font
size=1 color=navy face=Arial><span style='font-size:8.0pt;font-family:Arial;
color:navy'></U1:PERSONNAME>e-mail: <a
href="mailto:mglucksmann@comtel-networks.com"
title="mailto:mglucksmann@comtel-networks.com"><span
title="mailto:mglucksmann@comtel-networks.com">mglucksmann@comtel-networks.com</span></a><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
8.0pt;font-family:Arial;color:navy'>Web: <a
href="http://www.comtel-networks.com/" title="http://www.comtel-networks.com/">http://www.comtel-networks.com</a></span></font><font
size=1 color=navy><span style='font-size:8.0pt;color:navy'><o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
8.0pt;font-family:Arial;color:navy'><o:p> </o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span lang=ES-VE
style='font-size:8.0pt;font-family:Arial;color:navy'>USA<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span lang=ES-VE
style='font-size:8.0pt;font-family:Arial;color:navy'>Phone: 1 (877) 467-2877
– ext. 1011001<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span lang=ES-VE
style='font-size:8.0pt;font-family:Arial;color:navy'>Fax: (954) 827-0990</span></font><span
lang=ES-VE><o:p></o:p></span></p>
<p class=MsoNormal><font size=3 color=navy face="Times New Roman"><span
lang=ES-VE style='font-size:12.0pt;color:navy'> <o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span lang=ES-VE
style='font-size:8.0pt;font-family:Arial;color:navy'>Venezuela<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span lang=ES-VE
style='font-size:8.0pt;font-family:Arial;color:navy'>Teléfono: (0500) MAXITEL
– ext. 1011001<o:p></o:p></span></font></p>
<p class=MsoNormal><font size=1 color=navy face=Arial><span style='font-size:
8.0pt;font-family:Arial;color:navy'>Fax: (0212) 953-0769</span></font><font
color=navy><span style='color:navy'><o:p></o:p></span></font></p>
</div>
</body>
</html>