From: SMTP%"ALLAN@otago.ac.nz" 30-JUL-1991 17:36:10.72 To: hagood@scri1.scri.fsu.edu CC: Subj: TextDollar ext Date: Wed, 31 Jul 91 09:16 GMT +1200 From: Allan Udy Subject: TextDollar ext To: hagood@scri1.scri.fsu.edu X-VMS-To: IN%"hagood@scri1.scri.fsu.edu" TextDollar(amount;str) returns in str the English version of the real amount. For check writing. TextDollar(123.45;x) x becomes One Hundred Twenty Three and 45/xx Dollars TextDollar(19.998;x) x becomes Twenty and 00/xx Dollars (This file must be converted with BinHex 4.0) :%P4PH(4%EfaXBA)J4AKd,Q0`G!"338083e"$9!#3"!K#!*!%jAd"!IUF!!!(ri" 'CfGQD(PiHAU,QiUlHD!(@S#!LhQ!Q(GkLiQ!L)KjL(GhKiKBLAKQH)KULAL3!*! !U(H)GTGh#QPQJ'KhQAL!N!#JQ)S!N!#3!*X!#kUUN!!+J*Z!N!#3"!#hS+#3!+# 3!l#3!)#3!)ZDUTUDN!#!N!"`J(#!X)Q3!)#jS,#DQ(#)!(T`!)#`LBQ(G4J!!L0 %9@4fD'8!N!1)!*!%#!!!#!!!J"S69@CeGQGdGiJ!D*F!N!#(!!J(J!K`N!#B"J" `K#8!PReB3m3")9+rkiUeH,KjP6,bYrP9FHQ#(Sih1Lj91+Y9fP6+UfP+RQjHqV9 +Q0AZF(0bk8X0F2"a+@fhh$a*8*QDm(3[BG$SklhH6rhd3)QkhC`a*Nh!aU[,Te! 3XCd,1(qN2*pb@PK,f&J5[UJCl-V$Q5k2Q%IC3[)9j9,ejIiVXMjm,@&a#l4Rd1M CqU!Xcr'(&Kra$h*A,3T2hA5*AaiEq'rKrB3fbk@,D3KYYpJiL'TYpi*0,lrbkc2 aB@0H+Y#C&G3Rhq4RD8A*`k0$Vd12UkGhF`Xm@%VFAhJPl,!dYA6f(Cf(C"$("#e B3TAhJPGpK$I!Krm`KYJ3qCK$BJKrd`Ki`)Hf`K-"$eR4#(H"$Q-)I8#(R-)GJ%, pK$i`3fE#(l`3EYJK,hEl`3lcXPqB%Zbl*IN",i@%UJ)Hi`Kji)0fQ"$#"#S`KHF DpXlf(q'2GpHpZph#E3qf%[9q$9qA9l1VSk[INRbIj5A%QiNMNa*-Q60NpL6TbHr *eC-q6rfrZGA6LU`Y0lH3!*)kZVTh8qKe*r[d2a4FRca`B`Z$5TB@$J8GC3bUY2, TdkX@X`FV)b8&@A'TqP6US,k8rMC@DX9[mVd&#YC[kfCA8dTC18S91THR6UHP6LR B03[BTP)UV%ak+DNDLk8e)a&dTJLJ1Er+$#a--LQdXQ[6TJe5p1X!e%0HP3irKlN IEm@'m((iA-lR)SqAkN-I9d4Fc4m[JD[eJ33RDhYj&DChG@+QU&81T0eD9'mYq&[ kfiMUkRFMUq(ZEfEGA-"N*U9F5L5%I2Pr!-R*B@HaL89C6&9UpbKe*hVBX`c52qR qrKKMam#ci%2'UETT!N1R,Kd5SFZ&AVN+["U9STEbbIe[,qP4h&[ZTdImrp[$#bM `EZB)*K0clRbZqUA@1JpPddG"T@qBUq4DVrPa9l`9@c&AXV9INF9FmFKY0LVP,98 R&@'&Ab-9ADe@cF9E)+ZQk93m+e8(UUam1,ABSqC5LCfA&(BaH%a4deU2fZ+2fBZ `r#D5RipXbN[HeFm8GX*-+6dT2ENGA%1'V&@+[YfljLUCah)ea@9Gh$9eMHiAd`d fUb[q$`-#M3iq$15XZF1G4jVFk+HUVZG&VjTU`L$95#+eFL*b9-'3!+N+QI(Q9FH [6aiYI3irfpU2YfmqiU`Xq449cLe2S&P2S[ZaJD@Teiq)IF6DpND26$SpUGHKe,$ 4LYd8Ci)Cqd[G6V!33RaEfmZ%e1)T@TfTm3BI[fR*e2K!`K"V38R)'4@TfNNQJkN N*HGh8MAA-U!63ER'J)4c+9(H@r#i(S@@dp5AGhFr8dmAK#Q,+TYlZG(m9e!*Y1K e2XkScNl3k1GiN!"@GN[Z0Cf!dLD`q[&Y(EEelmAd0q&@NLXXlZeS5pRb+1dp6Gq eeSDRC"MXhfPUGS@bch9XVK9jXm5622YKGc6&,Um,35Dp&qRfk&l!@c`@l5LKPN2 &[leqbcP(V"Gc&5`Y!8l$rPRPqTBD+m9+B2Q,&5SBXPGqP4h9[b+1hXIkH'`dI,` (ib%L@bq5P4fjfifkXl[Yl3fiY+(8m&Fm[KTGcj@'VJY+EpJ#Se4`'PiDEEDI#ha q0P&NJ8a)&GY`+B(&J)&VR)&DF,"I6ba,cl1mdmKe92)Iq2ANV3i@"@[hEb`4jm# RLVE3pYaal@,CM[TLYGp'i&ciEmk2!4Y3bQ"jbX5L1XNpU!(V*+mr#qQeljkb(aG `llJd)KphH*GCZE%Vm@jXc'Uim@ZXI1TekaqF+fCc54Rm2+U9-UY9LemqrD&5VZl ZS6-$qm*ZeKrEJk(m)Z*X2e4pZ(pDm1,(LffaaXZ(M@fK,al2fCA'Pmb&H6&Pf[d F6V5H(LI,*p@&p-k&Vd,RJm@qLmfKekm-@AANSFH3!&$5Gi@`qlRGhHMqP4qD"NV 1lY+MID8Rrq`&c)[RLqHlr2a)m$5KCifm0k%5H2RGhq0[NIHV`RrQK1b*QZ[)HU- L2*M'2,@'GhIbfZ0VPaVr21lT[pL#rdH((a"VGDJPQEdIi+kPE!H6,SH9!'[8mY@ FIE[)E''bP4hrarbZ)E19(Jr,r2XEk1q3!ri[iGISME#m#Ucf&[&Ed-bkXYK@K2f 0D&Q-Q,AE3eeYqkAMbr'PDlq1,,ebAkrE+f2*Lj0(qm,+Keaqp@Q"@jR1VTp@jdA i0cZ0cj-AQ8kSq,XQ+qZBX#[MC@4VGDkrFEM'p'YQ9F[Gmh,Vq4VDp2,c+pAQaC9 @)%)X[*TaB0A)UCA0bB[5TeqDH%0Ed%,ekH08L8lZBSKr*)ZANdqAq1,dkq9Pj9A )ZAFMr"YIpEREH9Zmhb0EQMIAPe[4Tmf,GDdq)@Z`UqbU[X)m@pYj612cb'lQjh1 jh$f'VJ*GM3&MXqL4rppp5`B5PEM226N,Ep2ef''"AhSHG#@GdJ-YNB3KXYYId0m "'e4e1Y[dB@kk8NJhrkF,Ep!hl)ca2I!c4qibd@biZlfA'mJ!N!049MhB!!%!$P4 PH(4%EfaXBA)Z4AKd!3#3!`K349K80%40@+*I[i+LAlq&!!#cim+e!!)!!!dU!*! '"rF!N!6LFJ!!!: