home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0010 - 0019 / ibm0010-0019 / ibm0010.tar / ibm0010 / SOL325B1.ZIP / SND-SOL / EDIT < prev    next >
Encoding:
Text File  |  1985-02-04  |  1.7 KB  |  37 lines
  1. N:"0"-"9"
  2. A:^ "A"-"Z"
  3. #:\ { {N} | {"."} | {"-"} | {"/" } | {" "} }
  4. NUM:N | <"0">
  5. $:\ <"$"> NUM [{N}] <"."> NUM NUM
  6. ZIP:N N N N N <-> N N N N | N N N N N
  7. SSNUM:N N N <-> N N <-> N N N N
  8. ALNUM:{ {A} | {N} | {" "} }
  9. ASCII:{ " "-"~" }
  10. CHR:"!"-"~"
  11. SEX:^~ "M" | "F"
  12. YESNO:^~ "Y" | "N"
  13. PHONE:\ <"("> N N N <")"> <" "> N N N <"-"> N N N N | N N N <"-"> N N N N
  14. ALLUP:~ ASCII
  15. STATE:~ "AL"|"AK"|"AS"|"AZ"|"AR"|"CA"|"CZ"|"CO"|"CT"|"DE"|"DC"|"FL"|state2
  16. state2:~ "GA"|"GU"|"HI"|"ID"|"IL"|"IN"|"IA"|"KS"|"KY"|"LA"|"ME"|"MD"|state3
  17. state3:~ "MA"|"MI"|"MN"|"MS"|"MO"|"MT"|"NE"|"NV"|"NH"|"NJ"|"NM"|"NY"|state4
  18. state4:~ "NC"|"ND"|"OH"|"OK"|"OR"|"PA"|"PR"|"RI"|"SC"|"SD"|"TN"|"TX"|state5
  19. state5:~ "UT"|"VT"|"VA"|"VI"|"WA"|"WV"|"WI"|"WY"
  20. CHEQUE:[{!" "!}](zero| <*** >(tt|thou|hun|tens|ones) cents | <*** zero> cents)
  21. tt:N N N N N & (!00! | ( !0! ones | tens ) < thousand > ) (hun|tens|ones)
  22. thou:N N N N & (!0! | ones < thousand >)(hun | tens | ones)
  23. hun:N N N & (!0! | ones < hundred >) (tens | ones)
  24. ones:!0!|!1!<one>|!2!<two>|!3!<three>|!4!<four>|!5!<five>|!6!<six>|one2
  25. one2:!7!<seven>|!8!<eight>|!9!<nine>
  26. tens:!10!<ten>|!11!<eleven>|!12!<twelve>|!13!<thirteen>|!14!<fourteen>|ten2
  27. ten2:!15!<fifteen>|!16!<sixteen>|!17!<seventeen>|!18!<eighteen>|ten3
  28. ten3:!19!<nineteen>|!20!<twenty>|!30!<thirty>|!40!<forty>|!50!<fifty>|ten4
  29. ten4:!60!<sixty>|!70!<seventy>|!80!<eighty>|!90!<ninety>|ten5
  30. ten5:(!0!|ten6 <"-">) ones
  31. ten6:!2!<twenty>|!3!<thirty>|!4!<forty>|!5!<fifty>|!6!<sixty>|ten7
  32. ten7:!7!<seventy>|!8!<eighty>|!9!<ninety>
  33. cents:< and > [!.!] num num </100 dollars ***>
  34. zero:zer1 <*** zero> !.! cents
  35. zer1:(N N N N N & !00000!) | (N N N N & !0000!) | zer2
  36. zer2:(N N N & !000!) | (N N & !00!) | (N & !0!)
  37.