lcspell = dollars(132.45) ? lcspell PROCEDURE DOLLARS PARAMETER vnumber * * TAKE NUMBER PASSED AND RETURN THE "TEXT" PHRASE * PRIVATE xnumber,phraseamt DIMENSION ones(20),tens(10) phraseamt = "" ones(1) = "One" ones(2) = "Two" ones(3) = "Three" ones(4) = "Four" ones(5) = "Five" ones(6) = "Six" ones(7) = "Seven" ones(8) = "Eight" ones(9) = "Nine" ones(10) = "Ten" ones(11) = "Eleven" ones(12) = "Twelve" ones(13) = "Thirteen" ones(14) = "Fourteen" ones(15) = "Fifteen" ones(16) = "Sixteen" ones(17) = "Seventeen" ones(18) = "Eighteen" ones(19) = "Nineteen" tens(1) = "Ten" tens(2) = "Twenty" tens(3) = "Thirty" tens(4) = "Forty" tens(5) = "Fifty" tens(6) = "Sixty" tens(7) = "Seventy" tens(8) = "Eighty" tens(9) = "Ninety" tens(10) = "Hundred" * Check for 1,000,000's xnumber = INT(vnumber /1000000) IF xnumber > 0 vnumber = vnumber - (xnumber * 1000000) phraseamt = phraseamt + phrase(xnumber) + " Million" ENDIF * Check for 1,000's xnumber = INT(vnumber /1000) IF xnumber > 0 vnumber = vnumber - (xnumber * 1000) phraseamt = phraseamt + " " + phrase(xnumber) + " Thousand" ENDIF * Check for 1 - 999 xnumber = INT(vnumber) IF xnumber > 0 vnumber = vnumber - xnumber phraseamt = phraseamt + " " + phrase(xnumber) ENDIF * Check for pennies IF "" = phraseamt phraseamt = "No" ENDIF xnumber = INT(vnumber * 100) phraseamt = phraseamt+" and "+RIGHT("00"+LTRIM(STR(xnumber)),2)+"/100" RETURN LTRIM(phraseamt) *---------------------------------------------- FUNCTION PHRASE LPARAMETER ynumber EXTERNAL ARRAY ones EXTERNAL ARRAY tens PRIVATE znumber znumber = 0 textword = "" znumber = INT(ynumber / 100) IF znumber > 0 ynumber = ynumber - (znumber * 100) textword = textword + ones(znumber) + " Hundred" ENDIF znumber = INT(ynumber / 10) IF znumber > 1 ynumber = ynumber - (znumber * 10) textword = textword + " " + tens(znumber) IF ynumber > 0 textword = textword + "-" ENDIF ENDIF IF ynumber > 0 IF RIGHT(textword,1) = "-" textword = textword + ones(ynumber) ELSE textword = textword + " " + ones(ynumber) ENDIF znumber = INT(ynumber) ynumber = ynumber - znumber ENDIF RETURN LTRIM(textword)