Т >IntToTxt 22-Nov-1992 Т Convert INT to String : (щєIntToTxt(A%):Й A$,B$ 2bГ A%<0 ─ A%<>-A%:="minus "+єIntToTxt(-A%) ▀ Г A%<0:="minus two thousand "+єIntToTxt(147483648) <Г A%=0:="zero" FEГ 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$+" " n<Г 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) √nB$=а"ten twenty thirty fourty fifty sixty seventyeighty ninety",(A%│10)*7-6,7):B$=юB$,їB$+" "," ")-1) ═2A$=A$+B$:Г A%>20 ─ A%┐10<>0 ─ A$<>"":A$=A$+"-" ╙gA%=A%┐10:B$=а"one two threefour five six seveneightnine ten ",A%*5-4,5):=A$+юB$,їB$+" "," ")-1) Ъ