Ї >IntToTxt 22-Nov-1992 Ї Convert INT to String : (▌дIntToTxt(A%):ъ A$,B$ b2ч A%<0 А A%<>-A%:="minus "+дIntToTxt(-A%) Л ч A%<0:="minus two thousand "+дIntToTxt(147483648) <ч A%=0:="zero" EFч A%>999999:A$=дIntToTxt(A% Б 1000000)+" million":A%=A% Г 1000000 Pч A%>999 А A$<>"":A$=A$+" " @Zч A%>999:A$=A$+дIntToTxt(A% Б 1000)+" thousand":A%=A% Г 1000 dч A%>99 А A$<>"":A$=A$+" " 99:A$=A$+дIntToTxt(A% Б 100)+" hundred":A%=A% Г 100 'xч A%=0:=A$ Л ч A$<>"":A$=A$+" and " jВч A%>12 А A%<20:B$=┴"thir four fif six seveneigh nine",(A%-12)*5-4,5):=A$+└B$,зB$+" "," ")-1)+"teen" 6Мч A%>10 А A%<13:=A$+┴"eleventwelve",(A%-10)*6-5,6) nЦB$=┴"ten twenty thirty fourty fifty sixty seventyeighty ninety",(A%Б10)*7-6,7):B$=└B$,зB$+" "," ")-1) 2аA$=A$+B$:ч A%>20 А A%Г10<>0 А A$<>"":A$=A$+"-" gкA%=A%Г10:B$=┴"one two threefour five six seveneightnine ten ",A%*5-4,5):=A$+└B$,зB$+" "," ")-1)