10
20
30 :
40 DEFFNIntToTxt(A%):LOCAL A$,B$
50 IF A%<0 AND A%<>-A%:="minus "+FNIntToTxt(-A%) ELSE IF A%<0:="minus two thousand "+FNIntToTxt(147483648)
60 IF A%=0:="zero"
70 IF A%>999999:A$=FNIntToTxt(A% DIV 1000000)+" million":A%=A% MOD 1000000
80 IF A%>999 AND A$<>"":A$=A$+" "
90 IF A%>999:A$=A$+FNIntToTxt(A% DIV 1000)+" thousand":A%=A% MOD 1000
100 IF A%>99 AND A$<>"":A$=A$+" "
110 IF A%>99:A$=A$+FNIntToTxt(A% DIV 100)+" hundred":A%=A% MOD 100
120 IF A%=0:=A$ ELSE IF A$<>"":A$=A$+" and "
130 IF A%>12 AND A%<20:B$=MID$("thir four fif six seveneigh nine",(A%-12)*5-4,5):=A$+LEFT$(B$,INSTR(B$+" "," ")-1)+"teen"
140 IF A%>10 AND A%<13:=A$+MID$("eleventwelve",(A%-10)*6-5,6)
150 B$=MID$("ten twenty thirty fourty fifty sixty seventyeighty ninety",(A%DIV10)*7-6,7):B$=LEFT$(B$,INSTR(B$+" "," ")-1)
160 A$=A$+B$:IF A%>20 AND A%MOD10<>0 AND A$<>"":A$=A$+"-"
170 A%=A%MOD10:B$=MID$("one two threefour five six seveneightnine ten ",A%*5-4,5):=A$+LEFT$(B$,INSTR(B$+" "," ")-1)