How can a numeric amount be displayed as words as would be shown on a check?

eg. cell A1 = 53.67
cell A2 = +A1
result A2 = Fifty-three and 67/100 Dollars

(this can be in Quattro-Pro with the @dollartext function)