esperanto numero()

[bluatigro]

this function
translates a number$ into Esperanto
only numbers 0 - 999999


in next weekend i have Esperanto lessons
hence this exersize



dim digit$( 9 )
for i = 0 to 9
 read d$
 digit$( i ) = d$
next i
data "nul" , "unu" , "du" , "tri" , "kvar"
data "kvin" , "ses" , "sep" , "ok" , "nau"

print esperanto.numero$( "0" )
print esperanto.numero$( "1" )
print esperanto.numero$( "3" )
print esperanto.numero$( "10" )
print esperanto.numero$( "13" )
print esperanto.numero$( "23" )
print esperanto.numero$( "100" )
print esperanto.numero$( "234" )
print esperanto.numero$( "1000" )
print esperanto.numero$( "2345" )
print esperanto.numero$( "10000" )
print esperanto.numero$( "23456" )
print esperanto.numero$( "100000" )
print esperanto.numero$( "234567" )


end
function esperanto.numero$( in$ )
 uit$ = ""
 size = len( in$ )
 if size > 6 then esperanto.numero$ = "ERARO !!"
 for d = 1 to size
   q = val( mid$( in$ , size + 1 - d , 1 ) )
   if ( d = 2 or d = 5 ) and q <> 0 then
     uit$ = "dek " + uit$
   end if
   if ( d = 3 or d = 6 ) and q <> 0 then
     uit$ = "cent " + uit$
   end if
   if d = 4 then
     uit$ = "mil " + uit$
     if q <> 0 then uit$ = " " + uit$
   end if
   select case q
     case 0
       if size = 1 then uit$ = "nul"
     case 1
       if d = 1 then uit$ = "unu"
     case else
       uit$ = digit$( q ) + uit$
   end select
 next d
 esperanto.numero$ = uit$
end function