alias numconv {
var %a,%g,%i = Invalid,%l = 0- $+ $str(9,66),%n,%o,%q,%r,%u,%v,%w,%x,%z = $null
%n = $gettok($1-,1,32)
$iif(%n == %z,return %z)
$iif(+ isin %n,return %i)
$iif($pos(%n,.,1) == 1,$iif($right($left(%n,2),1) isnum 0-9,return Zero,return %i))
$iif($gettok(%n,3,46) == $null,%n = $gettok(%n,1,46),return %i)
$iif($chr(44) isin %n,%n = $remove(%n,$chr(44)))
$iif(%n == $null,return %z)
$iif(%n !isnum %l,return %i)
while ($left(%n,1) == 0) { $iif($len(%n) == 1,return Zero,%n = $right(%n,$calc($len(%n)-1))) }
while (%n != $null) {
%q = $round($calc($len(%n) / 3 - $int($calc($len(%n) / 3))),0)
%w = $calc($len(%n) - $int($calc($len(%n)/3))*3)
%o = $len(%n) | %a = $left(%n,1)
%v = $right($left(%n,2),1)
if (%a != 0) {
if ((%q == 1) && (%a == 1)) {
$iif(%v == 0,%r = %r Ten)
$iif(%v == 1,%r = %r Eleven)
$iif(%v == 2,%r = %r Twelve)
$iif(%v == 3,%r = %r Thirteen)
$iif(%v == 4,%r = %r Fourteen)
$iif(%v == 5,%r = %r Fifteen)
$iif(%v == 6,%r = %r Sixteen)
$iif(%v == 7,%r = %r Seventeen)
$iif(%v == 8,%r = %r Eighteen)
$iif(%v == 9,%r = %r Nineteen)
}
if ((%q = 1) && (%a != 1)) {
$iif(%a == 2,%r = %r Twenty)
$iif(%a == 3,%r = %r Thirty)
$iif(%a == 4,%r = %r Forty)
$iif(%a == 5,%r = %r Fifty)
$iif(%a == 6,%r = %r Sixty)
$iif(%a == 7,%r = %r Seventy)
$iif(%a == 8,%r = %r Eighty)
$iif(%a == 9,%r = %r Ninety)
if (%v != 0) {
%r = %r $+ -
%u = 1
}
}
if (%q == 0) {
if ((%x != 1) || (%w == 0)) {
if (%g != 1) {
$iif(%a == 1,$iif(%u == 1,%r = %r $+ One,%r = %r One))
$iif(%a == 2,$iif(%u == 1,%r = %r $+ Two,%r = %r Two))
$iif(%a == 3,$iif(%u == 1,%r = %r $+ Three,%r = %r Three))
$iif(%a == 4,$iif(%u == 1,%r = %r $+ Four,%r = %r Four))
$iif(%a == 5,$iif(%u == 1,%r = %r $+ Five,%r = %r Five))
$iif(%a == 6,$iif(%u == 1,%r = %r $+ Six,%r = %r Six))
$iif(%a == 7,$iif(%u == 1,%r = %r $+ Seven,%r = %r Seven))
$iif(%a == 8,$iif(%u == 1,%r = %r $+ Eight,%r = %r Eight))
$iif(%a == 9,$iif(%u == 1,%r = %r $+ Nine,%r = %r Nine))
$iif(%w == 0,$iif(%o > 2,%r = %r Hundred))
%u = 0
}
}
$iif(%o == 4,%r = %r Thousand)
$iif(%o == 7,%r = %r Million)
$iif(%o == 10,%r = %r Billion)
$iif(%o == 13,%r = %r Trillion)
$iif(%o == 16,%r = %r Quadrillion)
$iif(%o == 19,%r = %r Quintillion)
$iif(%o == 22,%r = %r Sextillion)
$iif(%o == 25,%r = %r Septillion)
$iif(%o == 28,%r = %r Octillion)
$iif(%o == 31,%r = %r Nonillion)
$iif(%o == 34,%r = %r Decillion)
$iif(%o == 37,%r = %r Undecillion)
$iif(%o == 40,%r = %r Duodecillion)
$iif(%o == 43,%r = %r Tredecillion)
$iif(%o == 46,%r = %r Quattuordecillion)
$iif(%o == 49,%r = %r Quindecillion)
$iif(%o == 52,%r = %r Sexdecillion)
$iif(%o == 55,%r = %r Septendecillion)
$iif(%o == 58,%r = %r Octodecillion)
$iif(%o == 61,%r = %r Novemdecillion)
$iif(%o == 64,%r = %r Vigintillion)
}
}
%g = %a
%n = $right(%n,$calc($len(%n)-1))
}
return %r
}