? Val("11111111111")

get $

$str="11111111111"
$dbl=cdbl($str)
? vartypename($dbl)
? $dbl
? $dbl+1

$string="1999999999999999"
$string " as text is about the same as:" ?
"	" num2text($string)
get $

function num2text($n)
dim $m,$d,$t,$g,$o
 $n=""+formatnumber($n,,,,1)
 $m=split(" thousand million billion trillion omg well?")
 $t='',one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen,eighteen,nineteen
 $d='',twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety

 for each $g in split($n)
  if len($g)=3
   $o=$t[left($g,1)]+" hundred"
  else
   $o=''
  endif
  $g=right($g,-1)
  if 20>$g
   $o=$o+$t[0+$g]
   if 0=$n
    $o=zero
   endif
  else
   $g ?
   $o=$o+$d[1*$g/10]+" "+$t[right($g,1)]
  endif
  $num2text=trim($num2text+" "+$o+" "+$m[ubound(split($n))])
 next
endfunction

? Num2Text("999999999999999")

if @Error ? @Error endif

get $

Function Num2Text($n)
   Dim $ones,$tens,$magnitudes
   $ones="","One","Two","Three","Four","Five","Six","Seven","Eight","Nine","Ten",
      "Eleven","Twelve","Thirteen","Fourteen","Fifteen","Sixteen","Seventeen","Eighteen","Nineteen"
   $tens="","Ten","Twenty","Thirty","Forty","Fifty","Sixty","Seventy","Eighty","Ninety"
   $magnitudes="Hundred","Thousand","Million","Billion","Trillion"
   if $n<>CDbl($n) exit 87 endif
   $n = CDbl($n)
   if $n<1 exit 87 endif
   Select
      Case Len($n)=1
         $Num2Text=$ones[$n]
      Case Len($n)=2
         if left($n,1)=1
            $Num2Text=$ones[$n]
         else
            $Num2Text=Trim($tens[val($n/10)]+" "+Num2Text(right($n,1)))
         endif
      Case Len($n)=3
         $Num2Text=Trim($ones[left($n,1)]+" Hundred "+Num2Text(right($n,2)))
      Case Len($n)>3
         $Num2Text=Trim(Num2Text(left($n,len($n)-((len($n)-1)/3)*3))+" "+
                   $magnitudes[(len($n)-1)/3]+" "+Num2Text(right($n,((len($n)-1)/3)*3)))
   EndSelect
EndFunction

$string="1999999999999999" ?
$string " as text is about the same as:" num2text($string)
$string="2999" ?
$string " as text is about the same as:" num2text($string)
get $

function num2text($n)
dim $m,$d,$t,$g,$o,$l
 $n=""+$n ;making sure it's string
 $m=split(" thousand million billion trillion quadrillion quintillion sextillion septillion octillion nonillion decillion undecillion duodecillion tredecillion")
 $t='',one,two,three,four,five,six,seven,eight,nine,ten,eleven,twelve,thirteen,fourteen,fifteen,sixteen,eighteen,nineteen
 $d='','',twenty,thirty,forty,fifty,sixty,seventy,eighty,ninety

 do
  $l=len($n)
  if $l mod 3
   $g=left($n,$l mod 3)
   $n=right($n,-($l mod 3))
  else
   $g=left($n,3)
   $n=right($n,-3)
  endif
  if len($g)=3
   $o=" "+$t[left($g,1)]+" hundred"
   $g=right($g,-1)
  endif
  if 20>$g
   $o=$o+$t[0+$g]
   if 0=$n
    $o=" zero"
   endif
  else
   $o=$o+" "+$d[1*$g/10]+" "+$t[right($g,1)]
  endif
  $num2text=trim($num2text+$o+" "+$m[($l-1)/3])
  $o=''
 until len($n)<3
endfunction