cheque edit

[Joe Chasan]

On Fri, Sep 16, 2005 at 08:27:41AM -0400, boainfo at verizon.net wrote:
> looking for a cheque edit for amounts over 99,999.00.
> thank you.

the following, which probably came with filepro at some point, goes to 
trillions:

CHEQUE:[{!" "!}](zero|<*** > lots cents|<*** zero>cents)
lots:(tr| hb | tb | bil | hm | tm | ml | ht | tt | thou | hun | tens | ones)
tr:N N N N N N N N N N N N N & (!0! | ones< trillion >) hb
hb:N N N N N N N N N N N N & (!000! | chek2 < billion > ) hm
tb:N N N N N N N N N N N & ( !00! | ( (!0! ones | tens) < billion >)) hm
bil:N N N N N N N N N N & (!0!|ones< billion >) hm
hm:N N N N N N N N N & ( !000! | chek2 < million >  ) ml2
ml2:( !000! | chek2 < thousand > ) chek2
tm:N N N N N N N N & ( (!0! ml) | ( tens < million > ml2 ) )
ml:N N N N N N N & (!0! | ones < million >) ml2
ht:N N N N N N & ml2
chek2:( !0! | ones< hundred > )  ( !00! | ( !0! ones | tens ) )
tt:N N N N N & (!00! | ( !0! ones | tens ) < thousand > ) (hun|tens|ones)
thou:N N N N & (!0! | ones < thousand >)(hun | tens | ones)
hun:N N N & (!0! | ones < hundred >) (tens | ones)
ones:!0!|!1!<one>|!2!<two>|!3!<three>|!4!<four>|!5!<five>|!6!<six>|one2
one2:!7!<seven>|!8!<eight>|!9!<nine>
tens:!10!<ten>|!11!<eleven>|!12!<twelve>|!13!<thirteen>|!14!<fourteen>|ten2
ten2:!15!<fifteen>|!16!<sixteen>|!17!<seventeen>|!18!<eighteen>|ten3
ten3:!19!<nineteen>|!20!<twenty>|!30!<thirty>|!40!<forty>|!50!<fifty>|ten4
ten4:!60!<sixty>|!70!<seventy>|!80!<eighty>|!90!<ninety>|ten5
ten5:(!0!|ten6 <"-">) ones
ten6:!2!<twenty>|!3!<thirty>|!4!<forty>|!5!<fifty>|!6!<sixty>|ten7
ten7:!7!<seventy>|!8!<eighty>|!9!<ninety>
cents:< and > [!.!] num num </100 dollars ***>
zero:zer1 <*** zero> !.! cents
zer1:(N N N N N & !00000!) | (N N N N & !0000!) | zer2
zer2:(N N N & !000!) | (N N & !00!) | (N & !0!)

--- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ---
-Joe Chasan-                      Magnatech Business Systems, Inc.
joe at magnatechonline.com           Hicksville, NY - USA
http://www.MagnatechOnline.com    Tel.(516) 931-4444/Fax.(516) 931-1264